Improve bindings, esp. for UHK

.emacs.d/init-hydra.el

@@ -57,11 +57,17 @@ Mark (+S=unmark): _<up>_:prev _<down>_:next _<left>_:skip prev _<right>_:skip ne
  ("S" mc/sort-regions)
 
  ("<down>" mc/mark-next-like-this)
+ ("C-n" mc/mark-next-like-this)
  ("<up>" mc/mark-previous-like-this)
+ ("C-p" mc/mark-previous-like-this)
  ("S-<down>" mc/unmark-previous-like-this)
+ ("C-S-n" mc/unmark-previous-like-this)
  ("S-<up>" mc/unmark-next-like-this)
+ ("C-S-p" mc/unmark-next-like-this)
  ("<right>" mc/skip-to-next-like-this)
+ ("M-n" mc/skip-to-next-like-this)
  ("<left>" mc/skip-to-previous-like-this)
+ ("M-p" mc/skip-to-previous-like-this)
 
  ("<return>" nil))
 

.emacs.d/init.el

@@ -245,6 +245,10 @@
 (use-package antlr-mode
   :mode "\\.g4\\'")
 
+(use-package paragraphs
+  :bind (("M-p" . backward-paragraph)
+         ("M-n" . forward-paragraph)))
+
 ;;;; external packages (required)
 (use-package company :ensure
   :config
@@ -341,7 +345,7 @@
       (insert old-path))))
 
 (use-package ace-window :ensure
-  :bind ("M-p" . ace-window))
+  :bind ("M-S-p" . ace-window))
 
 (use-package undo-tree :ensure
   :config
@@ -431,6 +435,9 @@
   (bind-key "C-x 2" 'split-window-below-i3)
   (bind-key "C-x 3" 'split-window-right-i3))
 
+(use-package crux :ensure
+  :bind (("C-a" . crux-move-beginning-of-line)))
+
 (use-package lsp-mode :ensure
   :config
   (use-package company-lsp :ensure