admin/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat(org): Update agenda commands and denote file filtering

Browse Source
This commit is contained in:
User
2026-07-11 19:23:45 +08:00
parent c2af33247a
commit 4d1bb61eec
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/init-kbd-func.el
View File

@@ -115,7 +115,7 @@ otherwise toggle global-jinx-mode."
(defun my-denote-find-file () (defun my-denote-find-file ()
"Find file use denote-file-prompt." "Find file use denote-file-prompt."
(interactive) (interactive)
(let ((denote-excluded-files-regexp "=journal")) (let ((denote-excluded-files-regexp "=journal\\|=archive"))
(find-file (denote-file-prompt)))) (find-file (denote-file-prompt))))
(defun my-denote-find-backlink-with-location () (defun my-denote-find-backlink-with-location ()

10
lisp/init-org.el
View File

@@ -27,6 +27,8 @@
(0 (prog1 () (add-text-properties (match-beginning 1) (match-end 1) '(invisible t))))))) (0 (prog1 () (add-text-properties (match-beginning 1) (match-end 1) '(invisible t)))))))
(font-lock-add-keywords 'org-mode org-hide-space-keywords 'append) (font-lock-add-keywords 'org-mode org-hide-space-keywords 'append)
(add-to-list 'org-src-lang-modes '("yaml" . yaml-ts))
(if *is-windows* (if *is-windows*
(add-hook 'org-mode-hook 'font-lock-update)) (add-hook 'org-mode-hook 'font-lock-update))
@@ -154,18 +156,22 @@
:hook :hook
(org-agenda-finalize . disable-truncate-lines) (org-agenda-finalize . disable-truncate-lines)
:config :config
(setq org-agenda-prefix-format '((agenda . " %?-12t% s")
(todo . " ")
(tags . " ")
(search . " ")))
(setq org-agenda-custom-commands (setq org-agenda-custom-commands
'(("qd" "TODO entries sort by closed time" '(("qd" "TODO entries sort by closed time"
((org-ql-block '(closed) ((org-ql-block '(closed)
((org-ql-block-header "Closed TODOs") ((org-ql-block-header "Closed TODOs")
(org-super-agenda-groups (org-super-agenda-groups
'((:auto-ts t))))))) '((:auto-ts t)))))))
("qs" "SOMEDAYs" ("qS" "SOMEDAYs"
((org-ql-block '(todo "SOMEDAY") ((org-ql-block '(todo "SOMEDAY")
((org-ql-block-header "SOMEDAYs") ((org-ql-block-header "SOMEDAYs")
(org-super-agenda-groups (org-super-agenda-groups
'((:auto-ts t))))))) '((:auto-ts t)))))))
("qS" "STARTEDs" ("qs" "STARTEDs"
((org-ql-block '(todo "STARTED") ((org-ql-block '(todo "STARTED")
((org-ql-block-header "STARTEDs") ((org-ql-block-header "STARTEDs")
(org-super-agenda-groups (org-super-agenda-groups