From 13c5ddc7fad7131b6e2e7dcaa669e980342b0b62 Mon Sep 17 00:00:00 2001 From: tslil clingman <> Date: Thu, 7 Jan 2021 16:33:39 -0500 Subject: Collected changes --- emacs/inits/14-movement.el | 89 +++++++++++++++++++++++----------------------- 1 file changed, 45 insertions(+), 44 deletions(-) (limited to 'emacs/inits/14-movement.el') diff --git a/emacs/inits/14-movement.el b/emacs/inits/14-movement.el index c02990d..9963c1d 100644 --- a/emacs/inits/14-movement.el +++ b/emacs/inits/14-movement.el @@ -1,20 +1,20 @@ -;; Time-stamp: <2021-01-06 22:22:59 (tslil@bison)> +;; Time-stamp: <2021-01-06 23:07:54 (tslil@bison)> ;; ------------------------------------------------------------------- ;; Repeated key presses for region (use-package expand-region :ensure t - :bind (("M-r" . er/expand-region)) - :config - (setq expand-region-fast-keys-enabled t - expand-region-contract-fast-key "c" - expand-region-reset-fast-key "e" - expand-region-autocopy-register "i")) + :bind (("M-r" . er/expand-region)) + :config + (setq expand-region-fast-keys-enabled t + expand-region-contract-fast-key "c" + expand-region-reset-fast-key "e" + expand-region-autocopy-register "i")) ;; ------------------------------------------------------------------- ;; Window switching (use-package switch-window :ensure t - :bind (("C-x o" . switch-window) + :bind (("C-x o" . switch-window) ("C-x C-o" . other-frame) ("C-c o" . switch-window) ("C-c n" . switch-window-then-maximize) @@ -27,8 +27,8 @@ ("j" . nil) ("k" . nil) ("l" . nil)) - :config - (setq switch-window-input-style 'minibuffer + :config + (setq switch-window-input-style 'minibuffer switch-window-shortcut-style 'qwerty switch-window-multiple-frames nil switch-window-qwerty-shortcuts @@ -37,32 +37,33 @@ ;; ------------------------------------------------------------------- ;; Character jumping (use-package avy - :ensure t - :demand - :bind (("C-," . avy-goto-char-timer) + :ensure t + :demand + :bind (("C-," . avy-goto-char-timer) ("C-." . avy-goto-char-in-line) ("M-g s" . avy-goto-word-or-subword-1) ("M-g w" . avy-goto-word-1) ("M-g a" . avy-goto-word-0) ("M-g M-g" . avy-goto-line)) - :config - (setq avy-keys '(?a ?r ?s ?t ?g ?k ?n ?e ?i ?o ?q ?w ?f ?p) + :config + (setq avy-keys '(?a ?r ?s ?t ?g ?k ?n ?e ?i ?o ?q ?w ?f ?p) avy-dispatch-alist '((?w . avy-action-kill-move) - (?W . avy-action-kill-stay) - (?j . avy-action-teleport) - (?m . avy-action-mark) - (?c . avy-action-copy) - (?y . avy-action-yank) - (?i . avy-action-ispell) - (?z . avy-action-zap-to-char)))) + (?W . avy-action-kill-stay) + (?j . avy-action-teleport) + (?m . avy-action-mark) + (?c . avy-action-copy) + (?y . avy-action-yank) + (?i . avy-action-ispell) + (?z . avy-action-zap-to-char)))) (use-package frog-jump-buffer - :ensure t - :bind (("M-SPC" . frog-jump-buffer)) - :config - (setq frog-menu-avy-keys '(?a ?r ?s ?t ?g ?k ?n ?e ?i ?o ?' - ?q ?w ?f ?p ?b ?j ?l ?u ?y ?\; - ?z ?x ?c ?d ?v ?m ?h ?, ?.))) + :ensure t + :bind (("M-SPC" . frog-jump-buffer)) + :config + (setq frog-jump-buffer-ignore-buffers '("\\` " "*") + frog-menu-avy-keys '(?a ?r ?s ?t ?g ?k ?n ?e ?i ?o ?' + ?q ?w ?f ?p ?b ?j ?l ?u ?y ?\; + ?z ?x ?c ?d ?v ?m ?h ?, ?.))) ;; ------------------------------------------------------------------- ;; General stuff @@ -93,19 +94,19 @@ ;; Hardcore mode (defconst hardcore-nav-mode t) (when hardcore-nav-mode - (global-set-key (kbd "") nil) - (global-set-key (kbd "") nil) - (global-set-key (kbd "") nil) - (global-set-key (kbd "") nil) - (global-set-key (kbd "") nil) - (global-set-key (kbd "") nil) - (global-set-key (kbd "S-") nil) - (global-set-key (kbd "S-") nil) - (global-set-key (kbd "S-") nil) - (global-set-key (kbd "C-") nil) - (global-set-key (kbd "C-") nil) - (global-set-key (kbd "C-") nil) - (global-set-key (kbd "C-") nil) - (global-set-key (kbd "C-") nil) - (global-set-key (kbd "") nil) - (global-set-key (kbd "") nil)) + (global-set-key (kbd "") nil) + (global-set-key (kbd "") nil) + (global-set-key (kbd "") nil) + (global-set-key (kbd "") nil) + (global-set-key (kbd "") nil) + (global-set-key (kbd "") nil) + (global-set-key (kbd "S-") nil) + (global-set-key (kbd "S-") nil) + (global-set-key (kbd "S-") nil) + (global-set-key (kbd "C-") nil) + (global-set-key (kbd "C-") nil) + (global-set-key (kbd "C-") nil) + (global-set-key (kbd "C-") nil) + (global-set-key (kbd "C-") nil) + (global-set-key (kbd "") nil) + (global-set-key (kbd "") nil)) -- cgit v1.2.3