Replace some custom TODO & friends highlighting with the hl-todo

package
This commit is contained in:
Bozhidar Batsov 2018-05-08 20:19:38 +03:00
parent 82f496f195
commit d6842eccad
3 changed files with 6 additions and 24 deletions

View file

@ -63,19 +63,6 @@ PROMPT sets the `read-string prompt."
(prelude-install-search-engine "github" "https://github.com/search?q=" "Search GitHub: ")
(prelude-install-search-engine "duckduckgo" "https://duckduckgo.com/?t=lm&q=" "Search DuckDuckGo: ")
(defun prelude-todo-ov-evaporate (_ov _after _beg _end &optional _length)
(let ((inhibit-modification-hooks t))
(if _after (ov-reset _ov))))
(defun prelude-annotate-todo ()
"Put fringe marker on TODO: lines in the current buffer."
(interactive)
(ov-set (format "[[:space:]]*%s+[[:space:]]*TODO:" comment-start)
'before-string
(propertize (format "A")
'display '(left-fringe right-triangle))
'modification-hooks '(prelude-todo-ov-evaporate)))
(defun prelude-recompile-init ()
"Byte-compile all your dotfiles again."
(interactive)

View file

@ -75,8 +75,8 @@
god-mode
grizzl
guru-mode
hl-todo
imenu-anywhere
ov
projectile
magit
move-text