colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add missing helper functions for custom agenda views

Browse Source 
The org-agenda-custom-commands reference get-date-created-from-agenda-entry
and imalison:compare-int-list, but these were only defined in README.org
(main emacs config), not tangled into org-config.org.

This caused /custom-view?key=r (Recently created) to fail with
"void-function get-date-created-from-agenda-entry".

Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
This commit is contained in:
Ivan Malison
2026-01-14 12:32:34 -08:00
parent 76755b24e1
commit 6b54747f9a
1 changed files with 19 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
nixos/org-agenda-api.nix
View File

@@ -60,6 +60,25 @@ let
(when (file-exists-p (expand-file-name "org-config-config.el" config-dir)) (when (file-exists-p (expand-file-name "org-config-config.el" config-dir))
(load (expand-file-name "org-config-config.el" config-dir)))) (load (expand-file-name "org-config-config.el" config-dir))))
;; Define no-op stubs for unavailable packages (overwrite autoloads)
(defun org-bullets-mode (&optional _arg)
"No-op stub for org-bullets-mode (package not available in container)."
nil)
;; Helper functions used by org-agenda-custom-commands
;; These are defined in README.org but needed for custom views
(defun imalison:compare-int-list (a b)
"Compare two lists of integers lexicographically."
(when (and a b)
(cond ((> (car a) (car b)) 1)
((< (car a) (car b)) -1)
(t (imalison:compare-int-list (cdr a) (cdr b))))))
(defun get-date-created-from-agenda-entry (agenda-entry)
"Get the CREATED property timestamp from an agenda entry."
(org-time-string-to-time
(org-entry-get (get-text-property 1 'org-marker agenda-entry) "CREATED")))
;; Capture templates for API ;; Capture templates for API
(setq org-agenda-api-capture-templates (setq org-agenda-api-capture-templates
`(("gtd-todo" `(("gtd-todo"