[Emacs] Add a function to lower org priorities by 1
This commit is contained in:
parent
79982de232
commit
5b1bd4f2e6
@ -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)))
|
||||
(cond ((eq major-mode 'org-mode) (org-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
|
||||
** Miscellaneous
|
||||
#+begin_src emacs-lisp :tangle org-config-config.el
|
||||
|
Loading…
Reference in New Issue
Block a user