From 4d1bb61eec364d28595f834230acd3c6e8c88930 Mon Sep 17 00:00:00 2001 From: User Date: Sat, 11 Jul 2026 19:23:45 +0800 Subject: [PATCH] feat(org): Update agenda commands and denote file filtering --- lisp/init-kbd-func.el | 2 +- lisp/init-org.el | 10 ++++++++-- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/init-kbd-func.el b/lisp/init-kbd-func.el index 26e565c..36c079b 100644 --- a/lisp/init-kbd-func.el +++ b/lisp/init-kbd-func.el @@ -115,7 +115,7 @@ otherwise toggle global-jinx-mode." (defun my-denote-find-file () "Find file use denote-file-prompt." (interactive) - (let ((denote-excluded-files-regexp "=journal")) + (let ((denote-excluded-files-regexp "=journal\\|=archive")) (find-file (denote-file-prompt)))) (defun my-denote-find-backlink-with-location () diff --git a/lisp/init-org.el b/lisp/init-org.el index 47fe2a7..1ce5907 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -27,6 +27,8 @@ (0 (prog1 () (add-text-properties (match-beginning 1) (match-end 1) '(invisible t))))))) (font-lock-add-keywords 'org-mode org-hide-space-keywords 'append) + (add-to-list 'org-src-lang-modes '("yaml" . yaml-ts)) + (if *is-windows* (add-hook 'org-mode-hook 'font-lock-update)) @@ -154,18 +156,22 @@ :hook (org-agenda-finalize . disable-truncate-lines) :config + (setq org-agenda-prefix-format '((agenda . " %?-12t% s") + (todo . " ") + (tags . " ") + (search . " "))) (setq org-agenda-custom-commands '(("qd" "TODO entries sort by closed time" ((org-ql-block '(closed) ((org-ql-block-header "Closed TODOs") (org-super-agenda-groups '((:auto-ts t))))))) - ("qs" "SOMEDAYs" + ("qS" "SOMEDAYs" ((org-ql-block '(todo "SOMEDAY") ((org-ql-block-header "SOMEDAYs") (org-super-agenda-groups '((:auto-ts t))))))) - ("qS" "STARTEDs" + ("qs" "STARTEDs" ((org-ql-block '(todo "STARTED") ((org-ql-block-header "STARTEDs") (org-super-agenda-groups