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

Format bookmark.el

Browse source 
Move `bookmark/install-kbds?` to the top of the module.
This commit is contained in:
William Carroll 2020-01-22 21:54:22 +00:00
parent 61c2050f23
commit 589349282f
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
configs/shared/.emacs.d/wpc/bookmark.el
View file

@ -23,11 +23,15 @@
(cl-defstruct bookmark label path kbd) (cl-defstruct bookmark label path kbd)
(defconst bookmark/install-kbds? t
"When t, install keybindings.")
;; TODO: Consider hosting this function somewhere other than here, since it ;; TODO: Consider hosting this function somewhere other than here, since it
;; feels useful above of the context of bookmarks. ;; feels useful above of the context of bookmarks.
;; TODO: Assess whether it'd be better to use the existing function: ;; TODO: Assess whether it'd be better to use the existing function:
;; `counsel-projectile-switch-project-action'. See the noise I made on GH for ;; `counsel-projectile-switch-project-action'. See the noise I made on GH for
;; more context: https://github.com/ericdanan/counsel-projectile/issues/137 ;; more context: https://github.com/ericdanan/counsel-projectile/issues/137
(defun bookmark/handle-directory-dwim (path) (defun bookmark/handle-directory-dwim (path)
"Open PATH as either a project directory or a regular directory. "Open PATH as either a project directory or a regular directory.
If PATH is `projectile-project-p', open with `counsel-projectile-find-file'. If PATH is `projectile-project-p', open with `counsel-projectile-find-file'.
@ -64,8 +68,6 @@ Otherwise, open with `counsel-find-file'."
:kbd "p")) :kbd "p"))
"List of registered bookmarks.") "List of registered bookmarks.")
(defconst bookmark/install-kbds? t
"When t, install keybindings.")
;; TODO: Consider `ivy-read' extension that takes a list of structs, ;; TODO: Consider `ivy-read' extension that takes a list of structs,
;; `struct-to-label' and `label-struct' functions. ;; `struct-to-label' and `label-struct' functions.