Thelie/taskwarrior.el
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add custom faces for priority labels

Browse source
This commit is contained in:
Patrick Winter 2019-05-21 10:57:30 +02:00
parent 828f61e4fc
commit 1f6ad040a5
1 changed files with 40 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
taskwarrior.el
View file

@ -18,13 +18,52 @@
(defvar taskwarrior-description 'taskwarrior-description (defvar taskwarrior-description 'taskwarrior-description
"Taskwarrior mode face used for tasks with a priority of C.") "Taskwarrior mode face used for tasks with a priority of C.")
(defface taskwarrior-priority-high-face
'((((min-colors 88) (class color))
(:foreground "red1"))
(((class color))
(:foreground "red"))
(t (:weight bold :underline t)))
"Face used for H priority label."
:group 'taskwarrior-faces)
(defvar taskwarrior-priority-high-face 'taskwarrior-priority-high-face
"Face name to use for high priority label.")
(defface taskwarrior-priority-medium-face
'((((min-colors 88) (class color))
(:foreground "orange1"))
(((class color))
(:foreground "orange"))
(t (:weight bold :underline t)))
"Face used for M priority label."
:group 'taskwarrior-faces)
(defvar taskwarrior-priority-medium-face 'taskwarrior-priority-medium-face
"Face name to use for medium priority label.")
(defface taskwarrior-priority-low-face
'((((min-colors 88) (class color))
(:foreground "grey1"))
(((class color))
(:foreground "grey"))
(t (:weight bold :underline t)))
"Face used for L priority label."
:group 'taskwarrior-faces)
(defvar taskwarrior-priority-low-face 'taskwarrior-priority-low-face
"Face name to use for low priority label.")
(setq taskwarrior-highlight-regexps (setq taskwarrior-highlight-regexps
`(("^\\*.*$" . font-lock-variable-name-face) `(("^\\*.*$" . font-lock-variable-name-face)
("^ [0-9]*" . font-lock-variable-name-face) ("^ [0-9]*" . font-lock-variable-name-face)
("([0-9.]*?)" . font-lock-builtin-face) ("([0-9.]*?)" . font-lock-builtin-face)
("\\+[a-zA-Z0-9\\-_]+" . font-lock-doc-face) ("\\+[a-zA-Z0-9\\-_]+" . font-lock-doc-face)
("\\[.*\\]" . font-lock-preprocessor-face) ("\\[.*\\]" . font-lock-preprocessor-face)
("[:space:].*:" . font-lock-function-name-face))) ("[:space:].*:" . font-lock-function-name-face)
(" L " . taskwarrior-priority-low-face)
(" M " . taskwarrior-priority-medium-face)
(" H " . taskwarrior-priority-high-face)))
(defvar taskwarrior-mode-map nil "Keymap for `taskwarrior-mode'") (defvar taskwarrior-mode-map nil "Keymap for `taskwarrior-mode'")
(progn (progn