diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-04-15 07:24:53 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-04-15 07:24:53 +0200 |
commit | 06fa3227227abbc0ec6abc40ecf36af74ee6b94d (patch) | |
tree | b71455c4a54a4ab1a46137acc35ceeb2620699c0 /helm-bookmark.el | |
parent | fb637c429b4117dde206d6e09a525c3a8941dc82 (diff) |
Show non existent bookmarks in different color.
* helm-bookmark.el (helm-bookmark-file-not-found): New face.
(helm-highlight-bookmark): Use it.
Diffstat (limited to 'helm-bookmark.el')
-rw-r--r-- | helm-bookmark.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/helm-bookmark.el b/helm-bookmark.el index 9f7f069b..bdf131c3 100644 --- a/helm-bookmark.el +++ b/helm-bookmark.el @@ -142,6 +142,11 @@ "Face used for file bookmarks." :group 'helm-bookmark) +(defface helm-bookmark-file-not-found + '((t (:foreground "Slategray4"))) + "Face used for file bookmarks." + :group 'helm-bookmark) + (defface helm-bookmark-directory '((t (:inherit helm-ff-directory))) "Face used for file bookmarks." @@ -690,6 +695,14 @@ than `w3m-browse-url' use it." (file-directory-p isfile)))) (propertize trunc 'face 'helm-bookmark-directory 'help-echo isfile)) + ;; Non existing files. + ;; We should be safe with `file-exists-p' as + ;; `non-essential' is bound at top level, + ;; but watch out as this behavior is + ;; regularly changing upstream. + ((and isfile (not (file-exists-p isfile))) + (propertize trunc 'face 'helm-bookmark-file-not-found + 'help-echo isfile)) ( ;; regular files t (propertize trunc 'face 'helm-bookmark-file |