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(-) 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 - "" windmove-left - "" windmove-right - "" windmove-up - "" windmove-down - ;; swapping - "" windmove-swap-states-left - "" windmove-swap-states-right - "" windmove-swap-states-up - "" 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 +;; "" windmove-left +;; "" windmove-right +;; "" windmove-up +;; "" windmove-down +;; ;; swapping +;; "" windmove-swap-states-left +;; "" windmove-swap-states-right +;; "" windmove-swap-states-up +;; "" 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