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

Remove KBD installations from more Elisp modules

Browse source 
I originally liked this pattern, but now I'd prefer to put everything in
keybindings.el.
This commit is contained in:
William Carroll 2020-09-02 15:03:04 +01:00
parent d1ee517461
commit ea274f924a
2 changed files with 0 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

16
emacs/.emacs.d/wpc/colorscheme.el
View file

@ -19,17 +19,9 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'cycle) (require 'cycle)
(require 'general)
(require '>) (require '>)
(require 'cl-macs) (require 'cl-macs)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Constants
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defcustom colorscheme-install-kbds? t
"If non-nil, enable the keybindings.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Library ;; Library
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -90,13 +82,5 @@ Cycle prev otherwise."
(interactive) (interactive)
(colorscheme-cycle :forward? nil)) (colorscheme-cycle :forward? nil))
;; Keybindings
(when colorscheme-install-kbds?
(general-define-key
:prefix "<SPC>"
:states '(normal)
"Ft" #'colorscheme-next
"Pt" #'colorscheme-prev))
(provide 'colorscheme) (provide 'colorscheme)
;;; colorscheme.el ends here ;;; colorscheme.el ends here

17
emacs/.emacs.d/wpc/keyboard.el
View file

@ -41,9 +41,6 @@
(defcustom keyboard-install-preferences? t (defcustom keyboard-install-preferences? t
"When t, install keyboard preferences.") "When t, install keyboard preferences.")
(defcustom keyboard-install-kbds? nil
"When t, install keybindings.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Functions ;; Functions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -139,19 +136,5 @@ NOTE: This function exists because occasionally I unplug and re-plug in a
(when keyboard-install-preferences? (when keyboard-install-preferences?
(keyboard-set-preferences)) (keyboard-set-preferences))
;; TODO: Define minor-mode for this.
(when keyboard-install-kbds?
(general-unbind 'motion "C-i" "C-y")
(general-define-key
;; TODO: Choose better KBDs for these that don't interfere with useful evil
;; ones.
;; Use C-y when you accidentally send the key-repeat too high or too low to
;; be meaningful.
"C-y" #'keyboard-reset-key-repeat
"C-i" #'keyboard-inc-repeat-rate
"C-u" #'keyboard-dec-repeat-rate
"C-S-i" #'keyboard-inc-repeat-delay
"C-S-u" #'keyboard-dec-repeat-delay))
(provide 'keyboard) (provide 'keyboard)
;;; keyboard.el ends here ;;; keyboard.el ends here