Prefer general to evil-leader

Another small step towards dropping support for evil-leader, which general
supplants.
This commit is contained in:
William Carroll 2020-01-18 22:52:59 +00:00
parent d85df45bab
commit ec21e072a1
2 changed files with 18 additions and 11 deletions

View file

@ -93,16 +93,20 @@ Otherwise, open with `counsel-find-file'."
bookmark/open)))) bookmark/open))))
(when bookmark/install-kbds? (when bookmark/install-kbds?
(evil-leader/set-key (general-define-key
"jj" #'bookmark/ivy-open) :prefix "<SPC>"
:states '(normal)
"jj" #'bookmark/ivy-open)
(->> bookmark/whitelist (->> bookmark/whitelist
(list/map (list/map
(lambda (b) (lambda (b)
(evil-leader/set-key (general-define-key
(string/concat "j" (bookmark-kbd b)) :prefix "<SPC>"
;; TODO: Consider `cl-labels' so `which-key' minibuffer is more :states '(normal)
;; helpful. (string/concat "j" (bookmark-kbd b))
(lambda () (interactive) (bookmark/open b))))))) ;; TODO: Consider `cl-labels' so `which-key' minibuffer is more
;; helpful.
(lambda () (interactive) (bookmark/open b)))))))
(provide 'bookmark) (provide 'bookmark)
;;; bookmark.el ends here ;;; bookmark.el ends here

View file

@ -28,10 +28,10 @@
(require 'f) (require 'f)
(require 'ivy-helpers) (require 'ivy-helpers)
(require 'evil-leader)
(require 'maybe) (require 'maybe)
(require 'device) (require 'device)
(require 'macros) (require 'macros)
(require 'general)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Library ;; Library
@ -204,9 +204,12 @@ When on a corporate laptop, remote connections are made using Tramp."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(when google-stuff/install-kbds? (when google-stuff/install-kbds?
(evil-leader/set-key "Gs" #'fig-status) (general-define-key
(evil-leader/set-key "Cs" #'google-stuff/open-buffer-in-cs) :prefix "<SPC>"
(evil-leader/set-key "jc" #'google-stuff/jump-to-citc-alias)) :states '(normal)
"Gs" #'fig-status
"Cs" #'google-stuff/open-buffer-in-cs
"jc" #'google-stuff/jump-to-citc-alias))
(provide 'google-stuff) (provide 'google-stuff)
;;; google-stuff.el ends here ;;; google-stuff.el ends here