Small formatting changes

1 files changed, 38 insertions, 31 deletions

diff --git a/emacs/inits/14-movement.el b/emacs/inits/14-movement.el
index c3a9409..22f5c54 100644
--- a/emacs/inits/14-movement.el
+++ b/emacs/inits/14-movement.el
@@ -1,4 +1,4 @@
-;; Time-stamp: <2021-01-09 01:19:05 (tslil@bison)>
+;; Time-stamp: <2021-07-03 17h13 EDT (hobbies)>
 
 ;; -------------------------------------------------------------------
 ;; Repeated key presses for region
@@ -13,52 +13,59 @@
 
 ;; -------------------------------------------------------------------
 ;; Window switching
+
 (use-package switch-window :ensure t
 	:bind (("C-x o" . switch-window)
-	 ("C-x C-o" . other-frame)
-	 ("C-c o" . switch-window)
-	 ("C-c n" . switch-window-then-maximize)
-	 :map switch-window-extra-map
-	 ("u" . switch-window-mvborder-up)
-	 ("e" . switch-window-mvborder-down)
-	 ("n" . switch-window-mvborder-left)
-	 ("o" . switch-window-mvborder-right)
-	 ("i" . nil)
-	 ("j" . nil)
-	 ("k" . nil)
-	 ("l" . nil))
+				 ("C-x C-o" . other-frame)
+				 ("C-c o" . switch-window)
+				 ("C-c n" . switch-window-then-maximize)
+				 :map switch-window-extra-map
+				 ("u" . switch-window-mvborder-up)
+				 ("e" . switch-window-mvborder-down)
+				 ("n" . switch-window-mvborder-left)
+				 ("o" . switch-window-mvborder-right)
+				 ("i" . nil)
+				 ("j" . nil)
+				 ("k" . nil)
+				 ("l" . nil))
 	:config
 	(setq switch-window-input-style 'minibuffer
-	switch-window-shortcut-style 'qwerty
-	switch-window-multiple-frames nil
-	switch-window-qwerty-shortcuts
-	'("a" "r" "s" "t" "n" "e" "i" "o")))
+				switch-window-shortcut-style 'qwerty
+				switch-window-multiple-frames nil
+				switch-window-qwerty-shortcuts
+				'("a" "r" "s" "t" "n" "e" "i" "o")))
 
 ;; -------------------------------------------------------------------
 ;; Character jumping
+
 (use-package avy
 	: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))
+				 ("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 C-g" . avy-goto-line))
 	: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))))
+				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))))
 
 ;; -------------------------------------------------------------------
 ;; General stuff
 
+;; (global-set-key (kbd "C-b") 'recenter-top-bottom)
+;; (global-set-key (kbd "M-b") 'downcase-word)
+;; (global-set-key (kbd "C-l") 'backward-char)
+;; (global-set-key (kbd "M-l") 'backward-word)
+
 (global-set-key (kbd "C-M-e") 'end-of-buffer)
 (global-set-key (kbd "C-M-a") 'beginning-of-buffer)
 
@@ -83,7 +90,7 @@
 		(lambda () (interactive) (ignore-errors (backward-char 5))))
 
 ;; Hardcore mode
-(defconst hardcore-nav-mode t)
+(defconst hardcore-nav-mode nil)
 (when hardcore-nav-mode
 	(global-set-key (kbd "<XF86Back>") nil)
 	(global-set-key (kbd "<XF86Forward>") nil)