diff options
| -rw-r--r-- | bookmark-conf.el | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/bookmark-conf.el b/bookmark-conf.el index 5a64417..12409cb 100644 --- a/bookmark-conf.el +++ b/bookmark-conf.el @@ -100,7 +100,8 @@ (cons "C" #'blist-c-p) (cons "Gnus" #'blist-gnus-p) (cons "ELisp" #'blist-elisp-p) - (cons "Eshell" #'blist-eshell-p))) + (cons "Eshell" #'blist-eshell-p) + (cons "Dired" #'blist-dired-p))) ;;;;; Automatic groups @@ -257,8 +258,16 @@ ;;;; External group (blist-define-criterion "external" "External" - (eq (bookmark-get-handler bookmark) - #'durand-external-jump)) + (eq (bookmark-get-handler bookmark) #'durand-external-jump)) + +;;;; Dired group + +(blist-define-criterion "dired" "Dired" + (let ((location (blist-get-location bookmark))) + (and (stringp location) + (not (string= location (string))) + (not (file-remote-p location)) + (file-directory-p location)))) ;;; Fit annotations buffer to window |