   ;;
   ;; Calendar
   ;;
+  (require 'calendar)
   (copy-face font-lock-constant-face 'calendar-iso-week-face)
   (set-face-attribute 'calendar-iso-week-face nil
 		      :height 1.0)
-  (setq calendar-intermonth-text
-	'(propertize
-	  (format "%2d"
-		  (car
-		   (calendar-iso-from-absolute
-		    (calendar-absolute-from-gregorian (list month day year)))))
-	  'font-lock-face 'calendar-iso-week-face))
+  (defvar calendar-week-start-day 1)
+  (defvar calendar-intermonth-text
+    '(propertize
+      (format "%2d"
+              (car
+               (calendar-iso-from-absolute
+                (calendar-absolute-from-gregorian (list month day year)))))
+      'font-lock-face 'font-lock-function-name-face))
 
   ;;
   ;; Compilation buffer

    :ensure t)
  
  ;;
  ;; Global key shortcuts:  
  ;;
  (global-set-key (kbd "<f2>") 'dabbrev-completion)
  (add-hook 'c-mode-common-hook

     (define-key flyspell-mouse-map [down-mouse-3] #'flyspell-correct-word)
     (define-key flyspell-mouse-map [mouse-3] #'undefined)
     (define-key flyspell-mouse-map [down-mouse-2] nil)
     (define-key flyspell-mouse-map [mouse-2] nil)
     ))

  ;;
  ;; xml mode
