Comment out define-repeat-map

Doesn't work anyway

1 files changed, 48 insertions, 47 deletions

@@ -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)