From 4b2d5710d6d4439281333a5be11fc7bcd9d3359e Mon Sep 17 00:00:00 2001 From: Szymon Szukalski Date: Fri, 10 Apr 2026 17:59:11 +1000 Subject: blank slate --- lisp/ss-agenda.el | 40 ---------------------------------------- 1 file changed, 40 deletions(-) delete mode 100644 lisp/ss-agenda.el (limited to 'lisp/ss-agenda.el') diff --git a/lisp/ss-agenda.el b/lisp/ss-agenda.el deleted file mode 100644 index a89a52e..0000000 --- a/lisp/ss-agenda.el +++ /dev/null @@ -1,40 +0,0 @@ -;;; ss-agenda.el --- Agenda configuration -*- lexical-binding: t; -*- - -;;; Commentary: - -;; Agenda discovery and agenda commands. - -;;; Code: - -(require 'ss-core) -(require 'ss-org) - -(defun ss-refresh-org-agenda-files (&rest _) - "Refresh `org-agenda-files' from the journal and PARA directories. -Ignore any arguments passed by advice wrappers." - (require 'org-agenda) - (setq org-agenda-files - (sort - (delete-dups - (append - (list (ss-require-existing-file ss-journal-file)) - (apply #'append - (mapcar (lambda (directory) - (directory-files-recursively - (ss-require-existing-directory directory) - "\\.org\\'")) - ss-org-agenda-directories)))) - #'string<))) - -(defun ss-open-agenda () - "Refresh agenda files and invoke `org-agenda'." - (interactive) - (call-interactively #'org-agenda)) - -(defun ss-agenda-setup () - "Initialize agenda behavior." - (advice-add 'org-agenda :before #'ss-refresh-org-agenda-files)) - -(provide 'ss-agenda) - -;;; ss-agenda.el ends here -- cgit v1.2.3