From d2dba38d721734afa1a65c521f7543b9cd2ef3f3 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 6 Oct 2021 19:13:19 -0500
Subject: Comment out define-repeat-map

Doesn't work anyway
---
 init.el | 95 +++++++++++++++++++++++++++++++++--------------------------------
 1 file changed, 48 insertions(+), 47 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 998b900..0958bd9 100644
--- a/init.el
+++ b/init.el
@@ -1249,53 +1249,54 @@ specific to most general, they are these:
 
   (crux-reopen-as-root-mode +1))
 
-(setup (:straight-when (define-repeat-map
-			             :host nil
-			             :repo "https://tildegit.org/acdw/define-repeat-map.el")
-         (acdw/system :home))
-
-  (require 'define-repeat-map           ; just for me
-           (acdw/dir
-            "straight/build/define-repeat-map/define-repeat-map.el"))
-
-  (defun acdw/other-window-or-switch-buffer-backward ()
-    (interactive)
-    (setq repeat-map 'other-window-repeat-map)
-    (acdw/other-window-or-switch-buffer -1))
-
-  (define-repeat-map other-window
-    ("o" acdw/other-window-or-switch-buffer
-     "O" acdw/other-window-or-switch-buffer-backward))
-
-  (define-repeat-map case
-    ("c" capitalize-word
-     "u" upcase-dwim
-     "l" downcase-dwim)
-    (:continue "f" forward-word
-               "b" backward-word)
-    (:enter capitalize-dwim
-            upcase-dwim
-            downcase-dwim))
-
-  (define-repeat-map page-navigation
-    ("]" forward-page
-     "[" backward-page))
-
-  (define-repeat-map windmove
-    (;; moving
-     "<left>" windmove-left
-     "<right>" windmove-right
-     "<up>" windmove-up
-     "<down>" windmove-down
-     ;; swapping
-     "<S-left>" windmove-swap-states-left
-     "<S-right>" windmove-swap-states-right
-     "<S-up>" windmove-swap-states-up
-     "<S-down>" windmove-swap-states-down))
-
-  (define-repeat-map winner-mode
-    ("/" winner-undo
-     "?" winner-redo)))
+;; (setup (:straight-when
+;;            (define-repeat-map
+;;                :host nil
+;; 			   :repo "https://tildegit.org/acdw/define-repeat-map.el")
+;;          (acdw/system :home))
+
+;;   (require 'define-repeat-map           ; just for me
+;;            (acdw/dir
+;;             "straight/build/define-repeat-map/define-repeat-map.el"))
+
+;;   (defun acdw/other-window-or-switch-buffer-backward ()
+;;     (interactive)
+;;     (setq repeat-map 'other-window-repeat-map)
+;;     (acdw/other-window-or-switch-buffer -1))
+
+;;   (define-repeat-map other-window
+;;     ("o" acdw/other-window-or-switch-buffer
+;;      "O" acdw/other-window-or-switch-buffer-backward))
+
+;;   (define-repeat-map case
+;;     ("c" capitalize-word
+;;      "u" upcase-dwim
+;;      "l" downcase-dwim)
+;;     (:continue "f" forward-word
+;;                "b" backward-word)
+;;     (:enter capitalize-dwim
+;;             upcase-dwim
+;;             downcase-dwim))
+
+;;   (define-repeat-map page-navigation
+;;     ("]" forward-page
+;;      "[" backward-page))
+
+;;   (define-repeat-map windmove
+;;     (;; moving
+;;      "<left>" windmove-left
+;;      "<right>" windmove-right
+;;      "<up>" windmove-up
+;;      "<down>" windmove-down
+;;      ;; swapping
+;;      "<S-left>" windmove-swap-states-left
+;;      "<S-right>" windmove-swap-states-right
+;;      "<S-up>" windmove-swap-states-up
+;;      "<S-down>" windmove-swap-states-down))
+
+;;   (define-repeat-map winner-mode
+;;     ("/" winner-undo
+;;      "?" winner-redo)))
 
 (setup (:straight dictionary)
   (:option dictionary-use-single-buffer t)
-- 
cgit 1.4.1-21-gabe81