mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(wpcarro/emacs): Redefine bookmark-install-kbd as public fn

Browse source 
I originally refactored this by inlining it as a lambda function, but I was
ignoring the fact that my work machines relied on it because I have Elisp code
in google-briefcase that calls `bookmark-install-kbd`.

Change-Id: I03804250fdfdc22be1445718a061a46461eb9af8
Reviewed-on: https://cl.tvl.fyi/c/depot/+/4820
Tested-by: BuildkiteCI
Reviewed-by: wpcarro <wpcarro@gmail.com>
This commit is contained in:
William Carroll 2022-01-06 14:08:19 -08:00 committed by wpcarro
parent a21da10b16
commit 7c558f7c53
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
users/wpcarro/emacs/.emacs.d/wpc/bookmark.el
View file

@ -80,6 +80,14 @@
(format "J%s" (bookmark-kbd b)) `,(intern (format "bookmark-visit-%s" (bookmark-label b)))
(format "j%s" (bookmark-kbd b)) `,(intern (format "bookmark-browse-%s" (bookmark-label b)))))
(defun bookmark-install-kbd (x)
"Install the keybindings for a bookmark, X."
(general-define-key
:prefix "<SPC>"
:states '(normal)
(format "J%s" (bookmark-kbd x)) (lambda () (interactive) (find-file (bookmark-path x)))
(format "j%s" (bookmark-kbd x)) (lambda () (interactive) (bookmark-open (bookmark-path x)))))
(defun bookmark-install-kbds ()
"Install the keybindings defined herein."
(->> bookmark-whitelist