Calendar mode shows iso week numbers
authorJoerg Jaspert <joerg@nsb-software.de>
Mon, 4 Aug 2014 11:05:50 +0000 (13:05 +0200)
committerJoerg Jaspert <joerg@nsb-software.de>
Mon, 4 Aug 2014 11:05:50 +0000 (13:05 +0200)
.emacs.d/config/emacs.org

index 8264002..71cd8f8 100644 (file)
@@ -884,10 +884,6 @@ disabling that.
 (bind-key "C-v" 'find-variable 'help-command)
 #+END_SRC
 ** Miscellaneous stuff
-Weeks start on Monday, not sunday.
-#+BEGIN_SRC emacs-lisp :tangle yes
-(setq calendar-week-start-day 1)
-#+END_SRC
 
 Searches and matches should ignore case.
 #+BEGIN_SRC emacs-lisp :tangle yes
@@ -1277,6 +1273,31 @@ are saved automatically when they are killed"
   :bind ("C-c c" . cal/insert))
 #+END_SRC
 
+Weeks start on Monday, not sunday.
+#+BEGIN_SRC emacs-lisp :tangle yes
+(setq calendar-week-start-day 1)
+#+END_SRC
+
+Display ISO week numbers in Calendar Mode
+#+BEGIN_SRC emacs-lisp :tangle yes
+(copy-face font-lock-constant-face 'calendar-iso-week-face)
+(set-face-attribute 'calendar-iso-week-face nil
+                    :height 0.7)
+(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))
+(copy-face 'default 'calendar-iso-week-header-face)
+(set-face-attribute 'calendar-iso-week-header-face nil
+                    :height 0.7)
+(setq calendar-intermonth-header
+      (propertize "Wk"                  ; or e.g. "KW" in Germany
+                  'font-lock-face 'calendar-iso-week-header-face))
+#+END_SRC
+
 ** crontab-mode
 [2013-05-21 Tue 23:18]
 #+BEGIN_SRC emacs-lisp :tangle yes