Support bookmark/from-label
Add function to resolve a bookmark from its label.
This commit is contained in:
parent
589349282f
commit
857ef43d2d
1 changed files with 6 additions and 5 deletions
|
@ -68,6 +68,11 @@ Otherwise, open with `counsel-find-file'."
|
|||
:kbd "p"))
|
||||
"List of registered bookmarks.")
|
||||
|
||||
(defun bookmark/from-label (label)
|
||||
"Return the bookmark with LABEL or nil."
|
||||
(->> bookmark/whitelist
|
||||
(list/find (lambda (b) (equal label (bookmark-label b))))))
|
||||
|
||||
|
||||
;; TODO: Consider `ivy-read' extension that takes a list of structs,
|
||||
;; `struct-to-label' and `label-struct' functions.
|
||||
|
@ -93,11 +98,7 @@ Otherwise, open with `counsel-find-file'."
|
|||
(list/map #'bookmark-label))
|
||||
:require-match t
|
||||
:action (lambda (label)
|
||||
(->> bookmark/whitelist
|
||||
(list/find
|
||||
(lambda (b)
|
||||
(equal label (bookmark-label b))))
|
||||
bookmark/open))))
|
||||
(bookmark/open (bookmark/from-label label)))))
|
||||
|
||||
(when bookmark/install-kbds?
|
||||
(general-define-key
|
||||
|
|
Loading…
Reference in a new issue