Prefer general to evil-leader
Another small step towards dropping support for evil-leader, which general supplants.
This commit is contained in:
parent
d85df45bab
commit
ec21e072a1
2 changed files with 18 additions and 11 deletions
|
@ -93,16 +93,20 @@ Otherwise, open with `counsel-find-file'."
|
|||
bookmark/open))))
|
||||
|
||||
(when bookmark/install-kbds?
|
||||
(evil-leader/set-key
|
||||
"jj" #'bookmark/ivy-open)
|
||||
(general-define-key
|
||||
:prefix "<SPC>"
|
||||
:states '(normal)
|
||||
"jj" #'bookmark/ivy-open)
|
||||
(->> bookmark/whitelist
|
||||
(list/map
|
||||
(lambda (b)
|
||||
(evil-leader/set-key
|
||||
(string/concat "j" (bookmark-kbd b))
|
||||
;; TODO: Consider `cl-labels' so `which-key' minibuffer is more
|
||||
;; helpful.
|
||||
(lambda () (interactive) (bookmark/open b)))))))
|
||||
(general-define-key
|
||||
:prefix "<SPC>"
|
||||
:states '(normal)
|
||||
(string/concat "j" (bookmark-kbd b))
|
||||
;; TODO: Consider `cl-labels' so `which-key' minibuffer is more
|
||||
;; helpful.
|
||||
(lambda () (interactive) (bookmark/open b)))))))
|
||||
|
||||
(provide 'bookmark)
|
||||
;;; bookmark.el ends here
|
||||
|
|
|
@ -28,10 +28,10 @@
|
|||
|
||||
(require 'f)
|
||||
(require 'ivy-helpers)
|
||||
(require 'evil-leader)
|
||||
(require 'maybe)
|
||||
(require 'device)
|
||||
(require 'macros)
|
||||
(require 'general)
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Library
|
||||
|
@ -204,9 +204,12 @@ When on a corporate laptop, remote connections are made using Tramp."
|
|||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(when google-stuff/install-kbds?
|
||||
(evil-leader/set-key "Gs" #'fig-status)
|
||||
(evil-leader/set-key "Cs" #'google-stuff/open-buffer-in-cs)
|
||||
(evil-leader/set-key "jc" #'google-stuff/jump-to-citc-alias))
|
||||
(general-define-key
|
||||
:prefix "<SPC>"
|
||||
:states '(normal)
|
||||
"Gs" #'fig-status
|
||||
"Cs" #'google-stuff/open-buffer-in-cs
|
||||
"jc" #'google-stuff/jump-to-citc-alias))
|
||||
|
||||
(provide 'google-stuff)
|
||||
;;; google-stuff.el ends here
|
||||
|
|
Loading…
Reference in a new issue