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

1 files changed, 25 insertions, 0 deletions

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