pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Highlight high priority stuff

Browse source
This commit is contained in:
Benson Chu 2021-06-21 19:06:11 -05:00
parent f639378978
commit 81aee91831
1 changed files with 22 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
config-org.org
View file

@ -395,9 +395,9 @@
(defvar my/delete-blocks t)
(defun org-agenda-delete-empty-compact-blocks ()
"Function removes empty compact blocks.
If two lines next to each other have the
org-agenda-structure face, then delete the
"Function removes empty compact blocks.
If two lines next to each other have the
org-agenda-structure face, then delete the
previous block."
(unless org-agenda-compact-blocks
(user-error "Compact blocks must be on"))
@ -419,10 +419,28 @@
(unless (org-agenda-check-type nil 'agenda)
(setq previous t)))
(t (setq previous nil)))
(forward-line))))))
(forward-line))))
(setq buffer-read-only t)))
(add-hook 'org-agenda-finalize-hook #'org-agenda-delete-empty-compact-blocks)
#+end_src
* Highlight top priority projects
#+begin_src emacs-lisp
(defvar my/highlight-top-priority t)
(defun org-agenda-highlight-top-priority ()
(when my/highlight-top-priority
(setq buffer-read-only nil)
(save-excursion
(goto-char (point-min))
(let ((start-pos (point))
(previous nil))
(while (re-search-forward "\\[#A\\]" nil t)
(add-face-text-property (point-at-bol) (point-at-eol) '(:background "color-19")))))
(setq buffer-read-only t)))
(add-hook 'org-agenda-finalize-hook #'org-agenda-highlight-top-priority)
#+end_src
* org-notmuch
#+begin_src emacs-lisp
(use-package notmuch