feat: show ISO week numbers in calendar

doom/.config/doom/README.org

@@ -744,6 +744,19 @@ org-agenda-files (seq-uniq org-agenda-files)
     (interactive)
     (let ((date (calendar-cursor-to-date)))
       (org-roam-dailies-goto-date date)))
+  (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#" 
+                    'font-lock-face 'font-lock-keyword-face))
   )
 
 ;; Bind RET in calendar mode to open daily note instead of default exit
@@ -756,6 +769,7 @@ org-agenda-files (seq-uniq org-agenda-files)
   (define-key org-read-date-minibuffer-local-map (kbd "M-k") (kbd "S-<up>"))
   (define-key org-read-date-minibuffer-local-map (kbd "M-l") (kbd "S-<right>")))
 #+end_src
+
 ** +Org Superstar mode+
 org-modern instead
 

doom/.config/doom/config.el

@@ -585,6 +585,19 @@ org-agenda-files (seq-uniq org-agenda-files)
     (interactive)
     (let ((date (calendar-cursor-to-date)))
       (org-roam-dailies-goto-date date)))
+  (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#" 
+                    'font-lock-face 'font-lock-keyword-face))
   )
 
 ;; Bind RET in calendar mode to open daily note instead of default exit