add keybindings and optional work specific code

custom.el

@@ -6,9 +6,10 @@
  ;; If there is more than one, they won't work right.
  '(custom-enabled-themes '(deeper-blue))
  '(package-selected-packages
-   '(cape dart-mode dumber-jump evil evil-collection exec-path-from-shell
+   '(cape dart-mode diminish dumber-jump evil evil-collection
-	  fish-mode jai-mode magit move-text multiple-cursors org-roam
+	  exec-path-from-shell fish-mode ghostel jai-mode magit
-	  undo-tree yaml-mode yasnippet yasnippet-snippets))
+	  move-text multiple-cursors org-roam undo-tree yaml-mode
+	  yasnippet yasnippet-snippets))
  '(package-vc-selected-packages
    '((jai-mode :url "https://github.com/valignatev/jai-mode.git"))))
 (custom-set-faces

init.el

@@ -85,6 +85,8 @@
 
 (exec-path-from-shell-initialize)
 
+(use-package diminish)
+
 (setq treesit-enabled-modes t)
 
 (use-package evil
@@ -100,18 +102,22 @@
   :config
   (evil-set-leader nil (kbd "SPC"))
   (evil-mode 1)
-  (evil-global-set-key 'motion (kbd "<leader>ff") #'find-file)
-  (evil-global-set-key 'motion (kbd "<leader>fb") #'switch-to-buffer)
-  (evil-global-set-key 'motion (kbd "<leader>gs") #'magit)
-  (evil-global-set-key 'motion (kbd "<leader>gg") #'magit)
-  (evil-global-set-key 'motion (kbd "<leader>rw") #'dired)
-  (evil-global-set-key 'motion (kbd "<leader>h")  #'help-command)
 
-  (evil-global-set-key 'motion (kbd "<leader>w")  evil-window-map)
+  (evil-global-set-key 'normal (kbd "M-.") #'xref-find-definitions
-  (evil-global-set-key 'motion (kbd "<leader>p")  project-prefix-map)
+
+  (evil-global-set-key 'normal (kbd "<leader>ff") #'find-file)
+  (evil-global-set-key 'normal (kbd "<leader>fs") #'save-buffer)
+  (evil-global-set-key 'normal (kbd "<leader>fb") #'switch-to-buffer)
+  (evil-global-set-key 'normal (kbd "<leader>gs") #'magit)
+  (evil-global-set-key 'normal (kbd "<leader>gg") #'magit)
+  (evil-global-set-key 'normal (kbd "<leader>rw") #'dired)
+  (evil-global-set-key 'normal (kbd "<leader>h")  #'help-command)
+
+  (evil-global-set-key 'normal (kbd "<leader>w")  evil-window-map)
+  (evil-global-set-key 'normal (kbd "<leader>p")  project-prefix-map)
   (evil-global-set-key 'visual (kbd "TAB")        #'indent-region)
-  (evil-global-set-key 'motion (kbd "]d")         #'flymake-goto-next-error)
+  (evil-global-set-key 'normal (kbd "]d")         #'flymake-goto-next-error)
-  (evil-global-set-key 'motion (kbd "[d")         #'flymake-goto-prev-error))
+  (evil-global-set-key 'normal (kbd "[d")         #'flymake-goto-prev-error))
 
 (use-package evil-collection
   :after evil
@@ -192,12 +198,14 @@
 (use-package fish-mode)
 
 (use-package yasnippet
+  :diminish t
   :config
   (yas-global-mode 1))
 
 (use-package yasnippet-snippets)
 
 (use-package undo-tree
+  :diminish t
   :custom
   (undo-tree-history-directory-alist `(,(cons "." (concat (file-name-directory user-init-file) "undo-tree"))))
   :config
@@ -230,3 +238,7 @@
       (make-directory "~/org-roam")
     (file-already-exists nil))
   (org-roam-db-autosync-mode))
+
+(use-package ghostel
+  :custom
+  (ghostel-module-auto-install "download"))

utils.el

@@ -13,3 +13,9 @@
 
 (defun hgh/set-box-cursor(&rest args)
   (setq-local cursor-type 'box))
+
+(defun hgh/update-projects ()
+  (interactive)
+  (let ((projects-root (concat (getenv "HOME") "/programming/projects/")))
+    (dolist (dir (directory-files projects-root t "^[^.]"))
+      (project-current t dir))))