summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el95
1 files 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:
1249 1249
1250 (crux-reopen-as-root-mode +1)) 1250 (crux-reopen-as-root-mode +1))
1251 1251
1252(setup (:straight-when (define-repeat-map 1252;; (setup (:straight-when
1253 :host nil 1253;; (define-repeat-map
1254 :repo "https://tildegit.org/acdw/define-repeat-map.el") 1254;; :host nil
1255 (acdw/system :home)) 1255;; :repo "https://tildegit.org/acdw/define-repeat-map.el")
1256 1256;; (acdw/system :home))
1257 (require 'define-repeat-map ; just for me 1257
1258 (acdw/dir 1258;; (require 'define-repeat-map ; just for me
1259 "straight/build/define-repeat-map/define-repeat-map.el")) 1259;; (acdw/dir
1260 1260;; "straight/build/define-repeat-map/define-repeat-map.el"))
1261 (defun acdw/other-window-or-switch-buffer-backward () 1261
1262 (interactive) 1262;; (defun acdw/other-window-or-switch-buffer-backward ()
1263 (setq repeat-map 'other-window-repeat-map) 1263;; (interactive)
1264 (acdw/other-window-or-switch-buffer -1)) 1264;; (setq repeat-map 'other-window-repeat-map)
1265 1265;; (acdw/other-window-or-switch-buffer -1))
1266 (define-repeat-map other-window 1266
1267 ("o" acdw/other-window-or-switch-buffer 1267;; (define-repeat-map other-window
1268 "O" acdw/other-window-or-switch-buffer-backward)) 1268;; ("o" acdw/other-window-or-switch-buffer
1269 1269;; "O" acdw/other-window-or-switch-buffer-backward))
1270 (define-repeat-map case 1270
1271 ("c" capitalize-word 1271;; (define-repeat-map case
1272 "u" upcase-dwim 1272;; ("c" capitalize-word
1273 "l" downcase-dwim) 1273;; "u" upcase-dwim
1274 (:continue "f" forward-word 1274;; "l" downcase-dwim)
1275 "b" backward-word) 1275;; (:continue "f" forward-word
1276 (:enter capitalize-dwim 1276;; "b" backward-word)
1277 upcase-dwim 1277;; (:enter capitalize-dwim
1278 downcase-dwim)) 1278;; upcase-dwim
1279 1279;; downcase-dwim))
1280 (define-repeat-map page-navigation 1280
1281 ("]" forward-page 1281;; (define-repeat-map page-navigation
1282 "[" backward-page)) 1282;; ("]" forward-page
1283 1283;; "[" backward-page))
1284 (define-repeat-map windmove 1284
1285 (;; moving 1285;; (define-repeat-map windmove
1286 "<left>" windmove-left 1286;; (;; moving
1287 "<right>" windmove-right 1287;; "<left>" windmove-left
1288 "<up>" windmove-up 1288;; "<right>" windmove-right
1289 "<down>" windmove-down 1289;; "<up>" windmove-up
1290 ;; swapping 1290;; "<down>" windmove-down
1291 "<S-left>" windmove-swap-states-left 1291;; ;; swapping
1292 "<S-right>" windmove-swap-states-right 1292;; "<S-left>" windmove-swap-states-left
1293 "<S-up>" windmove-swap-states-up 1293;; "<S-right>" windmove-swap-states-right
1294 "<S-down>" windmove-swap-states-down)) 1294;; "<S-up>" windmove-swap-states-up
1295 1295;; "<S-down>" windmove-swap-states-down))
1296 (define-repeat-map winner-mode 1296
1297 ("/" winner-undo 1297;; (define-repeat-map winner-mode
1298 "?" winner-redo))) 1298;; ("/" winner-undo
1299;; "?" winner-redo)))
1299 1300
1300(setup (:straight dictionary) 1301(setup (:straight dictionary)
1301 (:option dictionary-use-single-buffer t) 1302 (:option dictionary-use-single-buffer t)