From b26d4126bc661ecb6c4162ac03318b408d55bd92 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Sun, 20 Aug 2023 22:36:29 -0600 Subject: [PATCH] [Emacs] Add priority functions --- dotfiles/emacs.d/README.org | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index 83de601f..4acf25ac 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -3049,7 +3049,7 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877 (org-lowest-priority 69) ;; The character E (org-enforce-todo-dependencies t) (org-deadline-warning-days 0) - (org-default-priority ?D) + (org-default-priority ?C) (org-agenda-skip-scheduled-if-done t) (org-agenda-skip-deadline-if-done t) (org-agenda-window-setup 'other-window) @@ -3309,7 +3309,7 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877 :commands org-bullets-mode :preface (add-hook 'org-mode-hook - (lambda () (org-bullets-mode 1)))) + (lambda () (org-bullets-mode 1)))) (use-package org-ehtml :disabled t @@ -3383,7 +3383,17 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877 (or (outline-next-heading) (point-max))))) - + (defun org-get-priority-at-point () + (save-excursion + (beginning-of-line) + (org-back-to-heading t) + (when (looking-at org-priority-regexp) + (let ((ms (match-string 2))) + (org-priority-to-value ms))))) + + (defmacro imalison:def-agenda-priority-pred (priority) + `(imalison:def-agenda-pred + (>= (org-get-priority-at-point) ,priority))) (let ((this-week-high-priority ;; The < in the following line has behavior that is opposite