dotfiles

commit a6f72ff67bb6aec6686b84df45098bffb13f91d1
parent 1e13c0050886527d1330bba2765999fac456dfe9
Author: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Date:   Sun, 26 Jan 2025 00:17:10 +0100

Add helper to open files under ~/.config/emacs

Now that they moved so far away from $HOME.

Diffstat:
M
.config/emacs/init.el
 | 
10
++++++++++

1 file changed, 10 insertions(+), 0 deletions(-)
diff --git a/.config/emacs/init.el b/.config/emacs/init.el
@@ -49,6 +49,11 @@
 
 (global-set-key (kbd "C-x C-b") 'ibuffer)
 
+(defun my/find-user-file ()
+  (interactive)
+  (let ((default-directory user-emacs-directory))
+   (call-interactively 'find-file)))
+
 ;; Hopefully these will be easier to remember than TeX commands:
 
 (quail-define-package
@@ -280,6 +285,10 @@ list and require no escaping."
   "Keymap for toggling editing features."
   '(("f" auto-fill-mode)))
 
+(my/define-prefix-command my/find-map
+  "Keymap for finding things."
+  '(("u" my/find-user-file)))
+
 (my/define-prefix-command my/magit-map
   "Keymap for Magit commands."
   '(("d" my/magit-toggle-margin-date)
@@ -322,6 +331,7 @@ list and require no escaping."
 (global-set-key (kbd "C-c c") 'compile)
 (global-set-key (kbd "C-c d") 'my/display-map)
 (global-set-key (kbd "C-c e") 'my/editing-map)
+(global-set-key (kbd "C-c f") 'my/find-map)
 (global-set-key (kbd "C-c g") 'my/magit-map)
 (global-set-key (kbd "C-c i") 'my/input-map)
 (global-set-key (kbd "C-c k") 'my/kill-map)