From 4c8d596cb0fc63039151e1ecf2bd23af88cdc98b Mon Sep 17 00:00:00 2001 From: Martin Polden Date: Fri, 13 Aug 2021 09:17:53 +0200 Subject: sane-defaults: Show week numbers in calendar --- lisp/init-sane-defaults.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/init-sane-defaults.el b/lisp/init-sane-defaults.el index 0b9e19d..6d59781 100644 --- a/lisp/init-sane-defaults.el +++ b/lisp/init-sane-defaults.el @@ -89,7 +89,15 @@ (save-place-mode 1)) ;; monday is the first day of the week -(setq calendar-week-start-day 1) +;; show week numbers +(setq calendar-week-start-day 1 + calendar-intermonth-text + '(propertize + (format "%2d" + (car + (calendar-iso-from-absolute + (calendar-absolute-from-gregorian (list month day year))))) + 'font-lock-face 'font-lock-function-name-face)) (provide 'init-sane-defaults) -- cgit v1.2.3