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/user-constants.el | 19 +++---------------- 1 file changed, 3 insertions(+), 16 deletions(-) (limited to 'modules/user-constants.el') diff --git a/modules/user-constants.el b/modules/user-constants.el index 269ea540..6ed74d37 100644 --- a/modules/user-constants.el +++ b/modules/user-constants.el @@ -10,6 +10,9 @@ ;; ------------------------ Directory And File Constants ----------------------- ;; DIRECTORIES +(defconst user-home-dir (getenv "HOME") + "The user's home directory per the environment variable.") + (defconst emacs-init-file (concat user-emacs-directory "init.el") "The location of Emacs's main init file.") @@ -84,21 +87,5 @@ ledger-file macros-file)) -;; ------------------------------ Jump To Commands ----------------------------- -;; quick access for commonly used files - -(defvar jump-to-keymap nil "Jump-to commonly used files/directories/commands.") -(setq jump-to-keymap (make-sparse-keymap)) -(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))) - - (provide 'user-constants) ;;; user-constants.el ends here. -- cgit v1.2.3