customized calendar

custom.el

@@ -4,6 +4,10 @@
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
+ '(calendar-month-header
+   '(propertize
+     (format "%s (%d) %d" (calendar-month-name month) month year)
+     'font-lock-face 'calendar-month-header))
  '(custom-safe-themes
    '("9c6aa7eb1bde73ba1142041e628827492bd05678df4d9097cda21b1ebcb8f8b9"
      default))

init.el

@@ -353,6 +353,28 @@
 ;; make screen flash instead of annoying bell
 (setq visible-bell t)
 
+;; bind super - m to maximize emacs-everywhere
+(global-set-key (kbd "s-m") 'toggle-frame-maximized)
+
+;; for Calendar
+(setq calendar-week-start-day 1)
+
+(setq calendar-intermonth-text
+      '(propertize
+        (format "%2d"
+                (car
+                 (calendar-iso-from-absolute
+                  (calendar-absolute-from-gregorian (list month day year)))))
+        'font-lock-face 'font-lock-warning-face))
+
+(setq calendar-intermonth-header
+      (propertize "W"                  ; or e.g. "KW" in Germany
+                  'font-lock-face 'font-lock-keyword-face))
+
+(calendar-set-date-style 'european)
+
+
+
 ;; flycheck told me to do this:
 (provide 'init)
 ;;; init.el ends here