From a6f72ff67bb6aec6686b84df45098bffb13f91d1 Mon Sep 17 00:00:00 2001 From: Kévin Le Gouguec Date: Sun, 26 Jan 2025 00:17:10 +0100 Subject: Add helper to open files under ~/.config/emacs Now that they moved so far away from $HOME. --- .config/emacs/init.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/.config/emacs/init.el b/.config/emacs/init.el index d52eecd..ed41e68 100644 --- 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) -- cgit v1.2.3