config

commit 26efc3fa16f7b62bda85e66cd6811dfc9ad76cd2
parent aae4b8f696ade02ab9ff220c289b5b4163399a09
Author: dwrz <dwrz@dwrz.net>
Date:   Sun, 28 Apr 2024 16:10:56 +0000

Update Emacs init

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

1 file changed, 27 insertions(+), 6 deletions(-)
diff --git a/emacs/init.el b/emacs/init.el
@@ -562,14 +562,17 @@
   :config
   (setq chimerical-agenda-files '("~/projects/chimerical/chimerical.org")
 	dwrz-agenda-files '("~/org/dwrz.org"
-			    "~/org/someday-maybe.org"
 			    "~/projects/career/career.org"
 			    "~/projects/chinese/chinese.org"
 			    "~/projects/community/community.org"
 			    "~/projects/finances/finances.org"
 			    "~/projects/health/health.org"
 			    "~/projects/home/home.org"
+			    "~/projects/net/net.org"
 			    "~/projects/rz/rz.org"
+			    "~/projects/rz/delivery/delivery.org"
+			    "~/projects/rz/elrz/elrz.org"
+			    "~/projects/rz/mwb/mwb.org"
 			    "~/projects/src/src.org")
 	eti-agenda-files '("~/projects/eti/eti.org"))
 
@@ -687,7 +690,8 @@
   :ensure nil)
 
 (use-package project
-  :config (add-to-list 'project-switch-commands '(project-shell "Shell"))
+  :config (add-to-list 'project-switch-commands
+		       '(project-shell "Shell" "s") t)
   :ensure nil)
 
 (use-package rainbow-mode
@@ -709,9 +713,12 @@
   (set-register ?e '(file . "~/projects/eti/"))
   (set-register ?f '(file . "~/projects/finances/"))
   (set-register ?g '(file . "~/org/gtd.org"))
+  (set-register ?h '(file . "~/projects/home/"))
   (set-register ?i '(file . "~/.config/emacs/init.el"))
   (set-register ?j '(file . "~/journal/2024/2024.org"))
-  (set-register ?o '(file . "~/org/")))
+  (set-register ?n '(file . "~/projects/net/"))
+  (set-register ?o '(file . "~/org/"))
+  (set-register ?p '(file . "~/projects/")))
 
 (use-package repeat :config (repeat-mode) :ensure nil)
 
@@ -810,8 +817,22 @@
   :hook (visual-line-mode . visual-fill-column-mode))
 
 (use-package vterm
-  :bind (:map vterm-mode-map ("C-q" . vterm-send-next-key))
-  :config (setq vterm-max-scrollback 32767)
+  :bind (:map vterm-mode-map
+	      ("C-q" . vterm-send-next-key)
+	      ("C-y" . vterm-yank))
+  :config
+  (setq vterm-max-scrollback 32767)
+  (defun project-vterm ()
+    (interactive)
+    (defvar vterm-buffer-name)
+    (let* ((default-directory (project-root (project-current t)))
+           (vterm-buffer-name (project-prefixed-buffer-name "vterm"))
+           (vterm-buffer (get-buffer vterm-buffer-name)))
+      (if (and vterm-buffer (not current-prefix-arg))
+          (pop-to-buffer vterm-buffer
+			 (bound-and-true-p display-comint-buffer-action))
+        (vterm))))
+  (add-to-list 'project-switch-commands '(project-vterm "Terminal" "t") t)
   :defer t
   :ensure t)
 
@@ -1049,7 +1070,7 @@
   ">" #'undo-redo
   "#" #'display-line-numbers-mode
   "-" #'negative-argument
-  ":" (cons "terminal" dwrz-terminal-map)
+  ";" (cons "terminal" dwrz-terminal-map)
   "<down>" #'windmove-down
   "<left>" #'windmove-left
   "<right>" #'windmove-right