Install additional KBDs for bookmark.el

Generate KBDs to call `find-file` on the bookmark.
This commit is contained in:
William Carroll 2020-09-07 23:37:58 +01:00
parent c7af26b2af
commit 74f1359924

View file

@ -89,7 +89,9 @@ Otherwise, open with `counsel-find-file'."
(general-define-key (general-define-key
:prefix "<SPC>" :prefix "<SPC>"
:states '(normal) :states '(normal)
(string-concat "j" (bookmark-kbd b)) (format "J%s" (bookmark-kbd b))
(lambda () (interactive) (find-file (bookmark-path b)))
(format "j%s" (bookmark-kbd b))
;; TODO: Consider `cl-labels' so `which-key' minibuffer is more ;; TODO: Consider `cl-labels' so `which-key' minibuffer is more
;; helpful. ;; helpful.
(lambda () (interactive) (bookmark-open b))))))) (lambda () (interactive) (bookmark-open b)))))))