colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[Emacs] Add a function to lower org priorities by 1

Browse Source
This commit is contained in:
Ivan Malison 2023-08-28 19:11:51 -06:00
parent 79982de232
commit 5b1bd4f2e6
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
dotfiles/emacs.d/org-config.org
View File

@ -174,6 +174,16 @@ We're going to use this to write separate parts of our config to different secti
(org-today (&rest r) (time-to-days date))) (org-today (&rest r) (time-to-days date)))
(cond ((eq major-mode 'org-mode) (org-todo)) (cond ((eq major-mode 'org-mode) (org-todo))
((eq major-mode 'org-agenda-mode) (org-agenda-todo))))) ((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))
(defun imalison:lower-todo-priorities ()
"Lower the priority of each TODO heading in all org-agenda files by 1."
(interactive)
(org-map-entries
(lambda ()
(when (org-entry-is-todo-p)
(org-priority-down)))
nil
'agenda))
#+end_src #+end_src
** Miscellaneous ** Miscellaneous
#+begin_src emacs-lisp :tangle org-config-config.el #+begin_src emacs-lisp :tangle org-config-config.el