ryuslash/emacs-config
1
0
Fork 0
Code Activity

[oni-org] Load agenda files from org roam

Browse source
This commit is contained in:
Tom Willemse 2023-09-11 21:03:54 -07:00
parent 5391e2cb31
commit e1c791f6fd
1 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
oni-org/oni-org.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; Keywords: local
;; Version: 2023.0822.170151 ;; Version: 2023.0911.210345
;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-bullets org-edna diminish all-the-icons olivetti form-feed org-pretty-table ob-async) ;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-bullets org-edna diminish all-the-icons olivetti form-feed org-pretty-table ob-async)
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
@ -40,7 +40,6 @@
(require 'hydra) (require 'hydra)
(require 'ob) (require 'ob)
(require 'ob-async) (require 'ob-async)
;; (require 'ol-man)
(require 'org) (require 'org)
(require 'org-clock) (require 'org-clock)
(require 'org-edna) (require 'org-edna)
@ -48,6 +47,7 @@
(require 'org-faces) (require 'org-faces)
(require 'org-habit) (require 'org-habit)
(require 'org-protocol) (require 'org-protocol)
(require 'org-roam)
(require 'subr-x) (require 'subr-x)
(require 'yasnippet) (require 'yasnippet)
@ -618,11 +618,7 @@ also move point to the start of the heading."
(setq org-agenda-files (setq org-agenda-files
(cons oni-org-todo-main-file (cons oni-org-todo-main-file
(mapcar (lambda (file) (expand-file-name file oni-org-exocortex-directory)) (oni-org-roam-todo-files)))
(split-string
(let ((default-directory oni-org-exocortex-directory))
(shell-command-to-string "grep -E -l \"^\\\\*+ (TODO|WIP|BLOCKED|DONE|READ|READING|FINISHED|STOPPED|WATCH|WATCHING|WATCHED|LISTEN|LISTENING|CANCELLED)\" *.org"))
"\n" t))))
(setq org-agenda-tags-todo-honor-ignore-options t) (setq org-agenda-tags-todo-honor-ignore-options t)
(setq org-agenda-todo-ignore-scheduled 'future) (setq org-agenda-todo-ignore-scheduled 'future)
(setq org-agenda-restore-windows-after-quit t) (setq org-agenda-restore-windows-after-quit t)