config

commit 5af1d4c6c1a430c46be0d31b949127015c845d64
parent 2e04f2b9914aac42bb7bff471d7d85b45fdceff6
Author: dwrz <dwrz@dwrz.net>
Date:   Sat, 16 Dec 2023 15:30:49 +0000

Update Emacs init

Diffstat:
M
emacs/init.el
 | 
22
++++++++++++++--------

1 file changed, 14 insertions(+), 8 deletions(-)
diff --git a/emacs/init.el b/emacs/init.el
@@ -173,6 +173,7 @@
 	 :map minibuffer-local-map
 	 ("M-s" . consult-history)
 	 ("M-r" . consult-history))
+  :requires xref
   :hook (completion-list-mode . consult-preview-at-point-mode)
   :init
   (setq register-preview-delay 0
@@ -328,8 +329,7 @@
   :ensure t)
 
 (use-package hl-line
-  :config
-  (global-hl-line-mode t)
+  :config (global-hl-line-mode t)
   :ensure nil)
 
 (use-package hydra :ensure t)
@@ -620,7 +620,7 @@
   :defer t
   :ensure nil)
 
-(use-package osm :ensure t)
+(use-package osm :defer t :ensure t)
 
 (use-package paragraphs
   :config (setq sentence-end-double-space nil)
@@ -767,6 +767,8 @@
 		split-width-threshold 160)
   :ensure nil)
 
+(use-package xref :ensure nil)
+
 (use-package yaml-mode :ensure t)
 
 ;; Hydras
@@ -800,6 +802,10 @@
   ("r" consult-ripgrep "ripgrep" :column "consult")
   ("v" consult-git-grep "git-grep" :column "consult"))
 
+(defhydra hydra-exec (:color blue)
+  ("q" nil "quit" :column "quit")
+  ("s" dwrz-shell-in-current-directory "shell" :column "execute"))
+
 (defhydra hydra-highlight (:color blue)
   ("q" nil "quit" :column "highlight")
   ("s" highlight-symbol-at-point "symbol" :color blue :column "do")
@@ -847,13 +853,14 @@
 
 (defhydra hydra-meta-hydra (:color blue)
   ("q" nil "quit" :column "meta")
+  ("p" hydra-point/body "point" :column "area")
+  ("r" hydra-region/body "region" :column "area")
+  ("w" hydra-windows/body "windows" :column "area")
   ("c" hydra-cape/body "cape" :column "hydras")
+  ("e" hydra-exec/body "exec" :column "hydras")
   ("h" hydra-highlight/body "highlight" :column "hydras")
   ("o" hydra-org/body "org" :column "hydras")
-  ("p" hydra-point/body "point" :column "hydras")
-  ("r" hydra-region/body "region" :column "hydras")
-  ("s" hydra-consult/body "consult" :column "hydras")
-  ("w" hydra-windows/body "windows" :column "hydras"))
+  ("s" hydra-consult/body "consult" :column "hydras"))
 
 ;; KEYBINDINGS
 (global-set-key (kbd "C-c #") 'display-line-numbers-mode)
@@ -882,4 +889,3 @@
 (global-set-key (kbd "C-c z") nil)
 (global-set-key (kbd "C-x 9") 'dwrz-split-window-two-thirds)
 (global-set-key (kbd "C-x C-b") 'ibuffer)
-(global-set-key (kbd "C-x t") 'dwrz-shell-in-current-directory)