2017-06-08 11:47:56 +02:00
|
|
|
;;; ui/hl-todo/packages.el -*- lexical-binding: t; -*-
|
2017-02-19 18:13:15 -05:00
|
|
|
|
2017-02-23 00:06:12 -05:00
|
|
|
(def-package! hl-todo
|
2017-12-08 22:33:12 -05:00
|
|
|
:hook (prog-mode . hl-todo-mode)
|
2017-02-19 18:13:15 -05:00
|
|
|
:config
|
2019-07-21 23:57:03 +02:00
|
|
|
(setq hl-todo-highlight-punctuation ":"
|
|
|
|
|
hl-todo-keyword-faces
|
2017-02-19 18:13:15 -05:00
|
|
|
`(("TODO" . ,(face-foreground 'warning))
|
|
|
|
|
("FIXME" . ,(face-foreground 'error))
|
2019-07-21 23:57:03 +02:00
|
|
|
("HACK" . ,(face-foreground 'font-lock-constant-face))
|
|
|
|
|
("REVIEW" . ,(face-foreground 'font-lock-keyword-face))
|
|
|
|
|
("NOTE" . ,(face-foreground 'success))
|
|
|
|
|
("DEPRECATED" . ,(face-foreground 'font-lock-doc-face))))
|
2017-09-14 12:50:54 +02:00
|
|
|
|
|
|
|
|
;; Use a more primitive todo-keyword detection method in major modes that
|
|
|
|
|
;; don't use/have a valid syntax table entry for comments.
|
2019-07-18 15:27:20 +02:00
|
|
|
(add-hook! '(pug-mode-hook haml-mode-hook)
|
|
|
|
|
(defun +hl-todo--use-face-detection-h ()
|
|
|
|
|
"Use a different, more primitive method of locating todo keywords."
|
|
|
|
|
(set (make-local-variable 'hl-todo-keywords)
|
|
|
|
|
'(((lambda (limit)
|
|
|
|
|
(let (case-fold-search)
|
|
|
|
|
(and (re-search-forward hl-todo-regexp limit t)
|
|
|
|
|
(memq 'font-lock-comment-face (doom-enlist (get-text-property (point) 'face))))))
|
|
|
|
|
(1 (hl-todo-get-face) t t))))
|
|
|
|
|
(when hl-todo-mode
|
|
|
|
|
(hl-todo-mode -1)
|
|
|
|
|
(hl-todo-mode +1)))))
|
