bind C-c F10 to open configuration file bba.org

Signed-off-by: Andreas Gerler <baronNOSPAMbundesbrandschatzamt.de>

diff --git a/bba.org b/bba.org
index 5a46c2d70f5f207382a42111490c4ba25b134b20..f63c6fccc4ea4fa56373ee2f75da990fa02432a9 100644 (file)
--- a/bba.org
+++ b/bba.org
@@ -477,26 +477,24 @@ Define some shortcuts to access major org files.
 #+BEGIN_SRC emacs-lisp
 
 
-    (global-set-key (kbd "C-c <f5>") '(lambda () (interactive) (find-file "~/org/notes.org")))
+  (global-set-key (kbd "C-c <f5>") '(lambda () (interactive) (find-file "~/org/notes.org")))
 
-    (global-set-key (kbd "C-c <f7>") '(lambda () (interactive) (find-file "~/org/private.org")))
+  (global-set-key (kbd "C-c <f7>") '(lambda () (interactive) (find-file "~/org/private.org")))
 
-    (if (equal "work" (getenv "SYSENV"))
-        (progn
-          (global-set-key (kbd "C-c <f6>") '(lambda () (interactive) (find-file "~/workorg/work.org")))
-          (global-set-key (kbd "C-c <f8>") '(lambda () (interactive) (find-file "~/workorg/workhours.org")))
-          )
+  (if (equal "work" (getenv "SYSENV"))
       (progn
-        (global-set-key (kbd "C-c <f6>") '(lambda () (interactive) (find-file "~/org/work.org")))
-        (global-set-key (kbd "C-c <f8>") '(lambda () (interactive) (find-file "~/org/workhours.org")))))
-
-
-
-
-    (global-set-key (kbd "C-c <f9>") '(lambda () (interactive)
-                                        ( if (file-exists-p "~/org/emacs.org")
-                                            (find-file "~/org/emacs.org")
-                                          (find-file "~/.emacs.d/org/emacs.org"))))
+        (global-set-key (kbd "C-c <f6>") '(lambda () (interactive) (find-file "~/workorg/work.org")))
+        (global-set-key (kbd "C-c <f8>") '(lambda () (interactive) (find-file "~/workorg/workhours.org")))
+        )
+    (progn
+      (global-set-key (kbd "C-c <f6>") '(lambda () (interactive) (find-file "~/org/work.org")))
+      (global-set-key (kbd "C-c <f8>") '(lambda () (interactive) (find-file "~/org/workhours.org")))))
+
+  (global-set-key (kbd "C-c <f9>") '(lambda () (interactive)
+                                      ( if (file-exists-p "~/org/emacs.org")
+                                          (find-file "~/org/emacs.org")
+                                        (find-file "~/.emacs.d/org/emacs.org"))))
+  (global-set-key (kbd "C-c <f10>") '(lambda () (interactive) (find-file "~/.emacs.d/bba.org")))
 
 #+END_SRC