about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el174
1 files changed, 88 insertions, 86 deletions
diff --git a/init.el b/init.el index fd3581a..09a4239 100644 --- a/init.el +++ b/init.el
@@ -440,48 +440,48 @@ AKA, DO NOT USE THIS FUNCTION!!!"
440(setup debugger 440(setup debugger
441 (:hook visual-line-mode)) 441 (:hook visual-line-mode))
442 442
443;; (setup (:straight (define-repeat-map 443(setup (:straight (define-repeat-map
444;; :host nil 444 :host nil
445;; :repo "https://tildegit.org/acdw/define-repeat-map.el")) 445 :repo "https://tildegit.org/acdw/define-repeat-map.el"))
446 446
447;; (defun acdw/other-window-or-switch-buffer-backward () 447 (defun acdw/other-window-or-switch-buffer-backward ()
448;; (interactive) 448 (interactive)
449;; (setq repeat-map 'other-window-repeat-map) 449 (setq repeat-map 'other-window-repeat-map)
450;; (acdw/other-window-or-switch-buffer -1)) 450 (acdw/other-window-or-switch-buffer -1))
451 451
452;; (define-repeat-map other-window 452 (define-repeat-map other-window
453;; ("o" acdw/other-window-or-switch-buffer 453 ("o" acdw/other-window-or-switch-buffer
454;; "O" acdw/other-window-or-switch-buffer-backward)) 454 "O" acdw/other-window-or-switch-buffer-backward))
455 455
456;; (define-repeat-map case 456 (define-repeat-map case
457;; ("c" capitalize-word 457 ("c" capitalize-word
458;; "u" upcase-dwim 458 "u" upcase-dwim
459;; "l" downcase-dwim) 459 "l" downcase-dwim)
460;; (:continue "f" forward-word 460 (:continue "f" forward-word
461;; "b" backward-word) 461 "b" backward-word)
462;; (:enter capitalize-dwim 462 (:enter capitalize-dwim
463;; upcase-dwim 463 upcase-dwim
464;; downcase-dwim)) 464 downcase-dwim))
465 465
466;; (define-repeat-map page-navigation 466 (define-repeat-map page-navigation
467;; ("]" forward-page 467 ("]" forward-page
468;; "[" backward-page)) 468 "[" backward-page))
469 469
470;; (define-repeat-map windmove 470 (define-repeat-map windmove
471;; (;; moving 471 (;; moving
472;; [left] windmove-left 472 "<left>" windmove-left
473;; [right] windmove-right 473 "<right>" windmove-right
474;; [up] windmove-up 474 "<up>" windmove-up
475;; [down] windmove-down 475 "<down>" windmove-down
476;; ;; swapping 476 ;; swapping
477;; [S-left] windmove-swap-states-left 477 "<S-left>" windmove-swap-states-left
478;; [S-right] windmove-swap-states-right 478 "<S-right>" windmove-swap-states-right
479;; [S-up] windmove-swap-states-up 479 "<S-up>" windmove-swap-states-up
480;; [S-down] windmove-swap-states-down)) 480 "<S-down>" windmove-swap-states-down))
481 481
482;; (define-repeat-map winner-mode 482 (define-repeat-map winner-mode
483;; ("/" winner-undo 483 ("/" winner-undo
484;; "?" winner-redo))) 484 "?" winner-redo)))
485 485
486(setup dired 486(setup dired
487 (:also-load dired-x) 487 (:also-load dired-x)
@@ -1431,15 +1431,16 @@ browser defined in `browse-url-secondary-browser-function'."
1431 backward-page :after #'recenter-to-top) 1431 backward-page :after #'recenter-to-top)
1432 1432
1433 ;; I'm not sure where this is in /my/ version of Emacs 1433 ;; I'm not sure where this is in /my/ version of Emacs
1434 (defvar page-navigation-repeat-map 1434 ;; (defvar page-navigation-repeat-map
1435 (let ((map (make-sparse-keymap))) 1435 ;; (let ((map (make-sparse-keymap)))
1436 (define-key map "]" #'forward-page) 1436 ;; (define-key map "]" #'forward-page)
1437 (define-key map "[" #'backward-page) 1437 ;; (define-key map "[" #'backward-page)
1438 map) 1438 ;; map)
1439 "Keymap to repeat page navigation key sequences. Used in `repeat-mode'.") 1439 ;; "Keymap to repeat page navigation key sequences. Used in `repeat-mode'.")
1440 1440
1441 (put 'forward-page 'repeat-map 'page-navigation-repeat-map) 1441 ;; (put 'forward-page 'repeat-map 'page-navigation-repeat-map)
1442 (put 'backward-page 'repeat-map 'page-navigation-repeat-map)) 1442 ;; (put 'backward-page 'repeat-map 'page-navigation-repeat-map)
1443 )
1443 1444
1444(setup (:straight page-break-lines) 1445(setup (:straight page-break-lines)
1445 (global-page-break-lines-mode +1)) 1446 (global-page-break-lines-mode +1))
@@ -1941,31 +1942,32 @@ If used with a numeric prefix argument N, N backticks will be inserted."
1941 "C-x 4 S-<up>" #'windmove-swap-states-up 1942 "C-x 4 S-<up>" #'windmove-swap-states-up
1942 "C-x 4 S-<down>" #'windmove-swap-states-down) 1943 "C-x 4 S-<down>" #'windmove-swap-states-down)
1943 1944
1944 (when (fboundp 'repeat-mode) 1945 ;; (when (fboundp 'repeat-mode)
1945 (defvar windmove-repeat-map 1946 ;; (defvar windmove-repeat-map
1946 (let ((map (make-sparse-keymap))) 1947 ;; (let ((map (make-sparse-keymap)))
1947 ;; moving 1948 ;; ;; moving
1948 (define-key map [left] #'windmove-left) 1949 ;; (define-key map [left] #'windmove-left)
1949 (define-key map [right] #'windmove-right) 1950 ;; (define-key map [right] #'windmove-right)
1950 (define-key map [up] #'windmove-up) 1951 ;; (define-key map [up] #'windmove-up)
1951 (define-key map [down] #'windmove-down) 1952 ;; (define-key map [down] #'windmove-down)
1952 ;; swapping 1953 ;; ;; swapping
1953 (define-key map [S-left] #'windmove-swap-states-left) 1954 ;; (define-key map [S-left] #'windmove-swap-states-left)
1954 (define-key map [S-right] #'windmove-swap-states-right) 1955 ;; (define-key map [S-right] #'windmove-swap-states-right)
1955 (define-key map [S-up] #'windmove-swap-states-up) 1956 ;; (define-key map [S-up] #'windmove-swap-states-up)
1956 (define-key map [S-down] #'windmove-swap-states-down) 1957 ;; (define-key map [S-down] #'windmove-swap-states-down)
1957 map) 1958 ;; map)
1958 "Keymap to repeat various `windmove' sequences. Used in `repeat-mode'.") 1959 ;; "Keymap to repeat various `windmove' sequences. Used in `repeat-mode'.")
1959 1960
1960 (dolist (sym '(windmove-left 1961 ;; (dolist (sym '(windmove-left
1961 windmove-right 1962 ;; windmove-right
1962 windmove-up 1963 ;; windmove-up
1963 windmove-down 1964 ;; windmove-down
1964 windmove-swap-states-left 1965 ;; windmove-swap-states-left
1965 windmove-swap-states-right 1966 ;; windmove-swap-states-right
1966 windmove-swap-states-up 1967 ;; windmove-swap-states-up
1967 windmove-swap-states-down)) 1968 ;; windmove-swap-states-down))
1968 (put sym 'repeat-map 'windmove-repeat-map)))) 1969 ;; (put sym 'repeat-map 'windmove-repeat-map)))
1970 )
1969 1971
1970(setup window 1972(setup window
1971 (require 'acdw-bell) 1973 (require 'acdw-bell)
@@ -1994,16 +1996,16 @@ If used with a numeric prefix argument N, N backticks will be inserted."
1994 "C-x 4 ?" #'winner-redo) 1996 "C-x 4 ?" #'winner-redo)
1995 1997
1996 ;; add `winner-undo' and `winner-redo' to `repeat-mode' 1998 ;; add `winner-undo' and `winner-redo' to `repeat-mode'
1997 (when (fboundp 'repeat-mode) 1999 ;; (when (fboundp 'repeat-mode)
1998 (defvar winner-mode-repeat-map 2000 ;; (defvar winner-mode-repeat-map
1999 (let ((map (make-sparse-keymap))) 2001 ;; (let ((map (make-sparse-keymap)))
2000 (define-key map "/" #'winner-undo) 2002 ;; (define-key map "/" #'winner-undo)
2001 (define-key map "?" #'winner-redo) 2003 ;; (define-key map "?" #'winner-redo)
2002 map) 2004 ;; map)
2003 "Keymap to repeat `winner-mode' sequences. Used in `repeat-mode'.") 2005 ;; "Keymap to repeat `winner-mode' sequences. Used in `repeat-mode'.")
2004 2006
2005 (put 'winner-undo 'repeat-map 'winner-mode-repeat-map) 2007 ;; (put 'winner-undo 'repeat-map 'winner-mode-repeat-map)
2006 (put 'winner-redo 'repeat-map 'winner-mode-repeat-map)) 2008 ;; (put 'winner-redo 'repeat-map 'winner-mode-repeat-map))
2007 2009
2008 (winner-mode +1)) 2010 (winner-mode +1))
2009 2011