From 857ef43d2de5aa318a3fe0bb55905294f890cede Mon Sep 17 00:00:00 2001 From: William Carroll Date: Wed, 22 Jan 2020 21:55:07 +0000 Subject: Support bookmark/from-label Add function to resolve a bookmark from its label. --- configs/shared/.emacs.d/wpc/bookmark.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'configs/shared/.emacs.d/wpc/bookmark.el') diff --git a/configs/shared/.emacs.d/wpc/bookmark.el b/configs/shared/.emacs.d/wpc/bookmark.el index 7b28ec8271..fb6eaf68ac 100644 --- a/configs/shared/.emacs.d/wpc/bookmark.el +++ b/configs/shared/.emacs.d/wpc/bookmark.el @@ -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 -- cgit 1.4.1