Keep chipping away at custom-set-variables

And finally get around to setting calendar-intermonth-text.
Re-implement the docstring's example using functions I actually
understand.

1 files changed, 12 insertions, 0 deletions

diff --git a/.emacs b/.emacs
index 23a3fa7..a0e1a3c 100644
--- a/.emacs
+++ b/.emacs
@@ -416,6 +416,12 @@
 
 (add-hook 'c-mode-common-hook 'my/c-modes-hook)
 
+(defun my/calendar-iso-week (year month day)
+  ;; NIH version of (describe-variable 'calendar-intermonth-text).
+  (propertize
+   (format-time-string "%V" (encode-time (list 0 0 0 day month year)))
+   'font-lock-face 'eighters-date))
+
 (defun my/compilation-notify (buffer results)
   (let* ((title (buffer-name buffer))
          (status (if (string-equal results "finished\n") "success" "failure"))
@@ -679,6 +685,12 @@
              (my/list-update package-archives
                '(("melpa" . "https://melpa.org/packages/")))))
 
+(use-package calendar
+  :custom
+  (calendar-intermonth-text '(my/calendar-iso-week year month day))
+  (calendar-today-visible-hook '(calendar-mark-today))
+  (calendar-week-start-day 1))
+
 (use-package diff-hl
   :custom
   (diff-hl-flydiff-mode t)