diff options
| author | Kévin Le Gouguec <kevin.legouguec@gmail.com> | 2023-11-26 16:31:00 +0100 |
|---|---|---|
| committer | Kévin Le Gouguec <kevin.legouguec@gmail.com> | 2023-11-26 18:06:16 +0100 |
| commit | d0c51e9e678688e9723423fdb827eb14ad397595 (patch) | |
| tree | 36cb447a3f38860797129054cc8cc96dc4bd563a | |
| parent | 9798d09fc714c20be0f4913dc6b0f762a21c5065 (diff) | |
| download | dotfiles-d0c51e9e678688e9723423fdb827eb14ad397595.tar.xz | |
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.
| -rw-r--r-- | .emacs | 12 | ||||
| -rw-r--r-- | .emacs-custom.el | 2 |
2 files changed, 12 insertions, 2 deletions
@@ -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) |