From d0c51e9e678688e9723423fdb827eb14ad397595 Mon Sep 17 00:00:00 2001
From: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Date: Sun, 26 Nov 2023 16:31:00 +0100
Subject: 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.
---
 .emacs           | 12 ++++++++++++
 .emacs-custom.el |  2 --
 2 files changed, 12 insertions(+), 2 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)
diff --git a/.emacs-custom.el b/.emacs-custom.el
index d1324d0..709ed2f 100644
--- a/.emacs-custom.el
+++ b/.emacs-custom.el
@@ -7,8 +7,6 @@
  '(async-shell-command-buffer 'new-buffer)
  '(auto-revert-avoid-polling t)
  '(backup-directory-alist '(("" . "~/.emacs.backup")))
- '(calendar-today-visible-hook '(calendar-mark-today))
- '(calendar-week-start-day 1)
  '(column-number-mode t)
  '(comint-scroll-show-maximum-output nil)
  '(delete-selection-mode t)
-- 
cgit v1.2.3