agenda functions work

This commit is contained in:
2025-04-11 16:15:04 -06:00
parent f6dbb1b32d
commit 41ad6a2c6d

View File

@@ -457,6 +457,7 @@ Configurations to add linting support to specific languages by integrating linte
(add-to-list 'flycheck-checkers 'nix-statix))
#+end_src
* HUGO
Capture template for new hugo posts.
@@ -729,16 +730,19 @@ empty list if the cache doesnt exist.
(with-temp-file my/org-agenda-cache-file
(prin1 todo-files (current-buffer))))
(message "No TODOs found — not writing cache."))))
;; (defun my/load-org-agenda-from-cache ()
;; "Load org-agenda-files from .cache, or fallback to an empty list."
;; (if (file-exists-p my/org-agenda-cache-file)
;; (with-temp-buffer
;; (insert-file-contents my/org-agenda-cache-file)
;; (read (current-buffer)))
;; (message "Agenda cache not found — using empty org-agenda-files.")
;; nil))
;; (after! org
;; (setq org-agenda-files (my/load-org-agenda-from-cache)))
(defun my/load-org-agenda-from-cache ()
"Load org-agenda-files from .cache, or fallback to an empty list."
(interactive)
(let ((file my/org-agenda-cache-file))
(if (and (file-exists-p file)
(> (nth 7 (file-attributes file)) 0)) ; size > 0
(with-temp-buffer
(insert-file-contents file)
(read (current-buffer)))
(message "Agenda cache not found or empty")
nil)))
(after! org
(setq org-agenda-files (my/load-org-agenda-from-cache)))
#+end_src
** Set font sizes for each header level in Org