summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--bookmark-conf.el15
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