From ea274f924a637b3c32be0c19c961897ceacfae7c Mon Sep 17 00:00:00 2001
From: William Carroll <wpcarro@gmail.com>
Date: Wed, 2 Sep 2020 15:03:04 +0100
Subject: Remove KBD installations from more Elisp modules

I originally liked this pattern, but now I'd prefer to put everything in
keybindings.el.
---
 emacs/.emacs.d/wpc/colorscheme.el | 16 ----------------
 emacs/.emacs.d/wpc/keyboard.el    | 17 -----------------
 2 files changed, 33 deletions(-)

diff --git a/emacs/.emacs.d/wpc/colorscheme.el b/emacs/.emacs.d/wpc/colorscheme.el
index 8f1ad332ac69..69b3f1b153de 100644
--- a/emacs/.emacs.d/wpc/colorscheme.el
+++ b/emacs/.emacs.d/wpc/colorscheme.el
@@ -19,17 +19,9 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (require 'cycle)
-(require 'general)
 (require '>)
 (require 'cl-macs)
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Constants
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defcustom colorscheme-install-kbds? t
-  "If non-nil, enable the keybindings.")
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Library
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -90,13 +82,5 @@ Cycle prev otherwise."
   (interactive)
   (colorscheme-cycle :forward? nil))
 
-;; Keybindings
-(when colorscheme-install-kbds?
-  (general-define-key
-   :prefix "<SPC>"
-   :states '(normal)
-   "Ft" #'colorscheme-next
-   "Pt" #'colorscheme-prev))
-
 (provide 'colorscheme)
 ;;; colorscheme.el ends here
diff --git a/emacs/.emacs.d/wpc/keyboard.el b/emacs/.emacs.d/wpc/keyboard.el
index 4b90b01a3385..51e53e984083 100644
--- a/emacs/.emacs.d/wpc/keyboard.el
+++ b/emacs/.emacs.d/wpc/keyboard.el
@@ -41,9 +41,6 @@
 (defcustom keyboard-install-preferences? t
   "When t, install keyboard preferences.")
 
-(defcustom keyboard-install-kbds? nil
-  "When t, install keybindings.")
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Functions
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -139,19 +136,5 @@ NOTE: This function exists because occasionally I unplug and re-plug in a
 (when keyboard-install-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)
 ;;; keyboard.el ends here
-- 
cgit 1.4.1