emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/org: refactor org keywords & respect underlying faces

Browse source
This commit is contained in:
Henrik Lissner 2019-10-27 14:05:31 -04:00
parent a122dfd6a0
commit a022cfd705
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 31 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

42
modules/lang/org/config.el
View file

@ -107,23 +107,11 @@ path too.")
(org-agenda-files :maxlevel . 3))
org-startup-indented t
org-tags-column -80
org-todo-keywords
'((sequence "TODO(t)" "PROJ(p)" "NEXT(n)" "WAIT(h)" "|" "DONE(d)" "ABRT(a)")
(sequence "[ ](T)" "[-](-)" "[?](?)" "|" "[X](x)"))
org-todo-keyword-faces
'(("[-]" :inherit (font-lock-constant-face bold))
("[?]" :inherit (warning bold))
("PROJ" :inherit (bold default))
("WAIT" :inherit (warning bold))
("ABRT" :inherit (error bold)))
org-use-sub-superscripts '{}
;; Scale up LaTeX previews a bit (default is too small)
org-format-latex-options (plist-put org-format-latex-options :scale 1.5))
org-format-latex-options (plist-put org-format-latex-options :scale 1.5)
;; Previews are usually rendered with light backgrounds, so ensure their
;; background (and foreground) match the current theme.
(setq-default
org-format-latex-options
(plist-put org-format-latex-options
:background
@ -131,6 +119,34 @@ path too.")
'default)
:background nil t)))
;; HACK Face specs fed directly to `org-todo-keyword-faces' don't respect
;; underlying faces like the `org-todo' face does, so we define our own
;; intermediary faces that extend from org-todo.
(custom-declare-face '+org-todo-active '((t (:inherit (bold font-lock-constant-face org-todo)))) "")
(custom-declare-face '+org-todo-project '((t (:inherit (bold font-lock-doc-face org-todo)))) "")
(custom-declare-face '+org-todo-onhold '((t (:inherit (bold warning org-todo)))) "")
(setq org-todo-keywords
'((sequence
"TODO(t)" ; A task that needs doing & is ready to do
"PROJ(p)" ; An ongoing project that cannot be completed in one step
"DOIN(d)" ; A task that is in progress
"WAIT(w)" ; Something is holding up this task; or it is paused
"|"
"DONE(x)" ; Task successfully completed
"KILL(k)") ; Task was cancelled, aborted or is no longer applicable
(sequence
"[ ](T)" ; A task that needs doing
"[-](D)" ; Task is in progress
"[?](W)" ; Task is being held up or paused
"|"
"[X](X)")) ; Task was completed
org-todo-keyword-faces
'(("[-]" . +org-todo-active)
("DOIN" . +org-todo-active)
("[?]" . +org-todo-onhold)
("WAIT" . +org-todo-onhold)
("PROJ" . +org-todo-project)))
(defadvice! +org-display-link-in-eldoc-a (orig-fn &rest args)
"Display full link in minibuffer when cursor/mouse is over it."
:around #'org-eldoc-documentation-function