From 4345ae1abbb06d9f7cb939ea4bc82bb6e2b0e941 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Tue, 23 Apr 2024 22:47:31 -0500 Subject: geiser support and org refactoring - add Geiser-guile for Emacs Guile Support - combine org-appearance-config with org-config - move jump to keyboard commands to the keybindings file - assign winner-undo to F5 - remove undefined compilation setting --- modules/keybindings.el | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) (limited to 'modules/keybindings.el') diff --git a/modules/keybindings.el b/modules/keybindings.el index 5d8b6bdd..4de768f0 100644 --- a/modules/keybindings.el +++ b/modules/keybindings.el @@ -73,6 +73,31 @@ (global-set-key (kbd "C-c ?") 'hydra-general/body) + +;; ------------------------------ Jump To Commands ----------------------------- +;; quick access for commonly used files + +(defvar jump-to-keymap (make-sparse-keymap) + "Jump-to commonly used files/directories/commands.") +(global-set-key (kbd "C-c j") jump-to-keymap) + +(define-key jump-to-keymap (kbd "s") + #'(lambda () (interactive) (find-file schedule-file))) +(define-key jump-to-keymap (kbd "i") + #'(lambda () (interactive) (find-file inbox-file))) +(define-key jump-to-keymap (kbd "c") + #'(lambda () (interactive) (find-file contacts-file))) +(define-key jump-to-keymap (kbd "a") + #'(lambda () (interactive) (find-file article-file))) +(define-key jump-to-keymap (kbd "A") + #'(lambda () (interactive) (find-file article-archive))) +(define-key jump-to-keymap (kbd "$") + #'(lambda () (interactive) (find-file ledger-file))) +(define-key jump-to-keymap (kbd "m") + #'(lambda () (interactive) (find-file macros-file))) +(define-key jump-to-keymap (kbd "I") + #'(lambda () (interactive) (find-file emacs-init-file))) + ;; ---------------------------- General Keybindings ---------------------------- ;; Avoid hostile bindings -- cgit v1.2.3