ENH switch over to org-in-a-dag (god help me)

This commit is contained in:
Nathan Dwarshuis 2022-04-29 00:04:52 -04:00
parent 40239d4c0e
commit 90ca4952e6
1 changed files with 29 additions and 10 deletions

View File

@ -2972,12 +2972,15 @@ original function being advised and ARGS are the arguments."
(funcall fun name settings) (funcall fun name settings)
(funcall fun name settings)))) (funcall fun name settings))))
(advice-add #'org-agenda-run-series :around #'org-x-agenda-run-series-advice) ;; (advice-add #'org-agenda-run-series :around #'org-x-agenda-run-series-advice)
;; hide the daily tags ;; hide the daily tags
(setq org-agenda-hide-tags-regexp "[DMYQ][0-9]\\{2\\}") (setq org-agenda-hide-tags-regexp "[DMYQ][0-9]\\{2\\}")
;; (advice-remove #'org-agenda-run-series #'org-x-agenda-run-series-advice) ;; (advice-remove #'org-agenda-run-series #'org-x-agenda-run-series-advice)
(org-x-dag-set-series-advice t)
(setq org-agenda-ignore-properties '(effort stats appt category))
(defun nd/org-agenda-run-series (name files cmds) (defun nd/org-agenda-run-series (name files cmds)
(declare (indent 2)) (declare (indent 2))
@ -4727,16 +4730,32 @@ The function keys are nice because they are almost (not always) free in every mo
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defhydra hydra-modes (global-map "<f1>" :exit t) (defhydra hydra-modes (global-map "<f1>" :exit t)
"agenda views" "agenda views"
("b" #'nd/org-agenda-timeblock) ;; ("b" #'nd/org-agenda-timeblock)
("d" #'nd/org-agenda-daily) ;; ("d" #'nd/org-agenda-daily)
("g" #'nd/org-agenda-goals) ;; ("g" #'nd/org-agenda-goals)
;; ("r" #'nd/org-agenda-refile)
;; ("t" #'nd/org-agenda-tasks)
;; ("p" #'nd/org-agenda-projects)
;; ("i" #'nd/org-agenda-incubator)
;; ("I" #'nd/org-agenda-iterators)
;; ("P" #'nd/org-agenda-periodical)
;; ("a" #'nd/org-agenda-archive)
;; ("M" #'org-x-dag-add-daily-metablock)
;; ("D" #'org-x-dag-set-date)
;; ("C" #'org-x-dag-show-date)
;; ;; ("m" #'nd/org-agenda-meetings)
;; ("e" #'nd/org-agenda-errors))
("b" #'org-x-dag-agenda-timeblock)
("d" #'org-x-dag-agenda-daily)
("g" #'org-x-dag-agenda-goals)
("r" #'nd/org-agenda-refile) ("r" #'nd/org-agenda-refile)
("t" #'nd/org-agenda-tasks) ("t" #'org-x-dag-agenda-tasks)
("p" #'nd/org-agenda-projects) ("p" #'org-x-dag-agenda-projects)
("i" #'nd/org-agenda-incubator) ("i" #'org-x-dag-agenda-incubator)
("I" #'nd/org-agenda-iterators) ("I" #'org-x-dag-agenda-iterators)
("P" #'nd/org-agenda-periodical) ;; ("P" #'org-x-dag-agenda-periodical)
("a" #'nd/org-agenda-archive) ("a" #'org-x-dag-agenda-archive)
("M" #'org-x-dag-add-daily-metablock) ("M" #'org-x-dag-add-daily-metablock)
("D" #'org-x-dag-set-date) ("D" #'org-x-dag-set-date)
("C" #'org-x-dag-show-date) ("C" #'org-x-dag-show-date)