From: Andreas Gerler Date: Thu, 28 May 2015 17:05:31 +0000 (+0200) Subject: bind C-c F10 to open configuration file bba.org X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=5647599eb441d7cad7b751aeab632be78d31c97d;p=emacsconfig.git bind C-c F10 to open configuration file bba.org Signed-off-by: Andreas Gerler --- diff --git a/bba.org b/bba.org index 5a46c2d7..f63c6fcc 100644 --- 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 ") '(lambda () (interactive) (find-file "~/org/notes.org"))) + (global-set-key (kbd "C-c ") '(lambda () (interactive) (find-file "~/org/notes.org"))) - (global-set-key (kbd "C-c ") '(lambda () (interactive) (find-file "~/org/private.org"))) + (global-set-key (kbd "C-c ") '(lambda () (interactive) (find-file "~/org/private.org"))) - (if (equal "work" (getenv "SYSENV")) - (progn - (global-set-key (kbd "C-c ") '(lambda () (interactive) (find-file "~/workorg/work.org"))) - (global-set-key (kbd "C-c ") '(lambda () (interactive) (find-file "~/workorg/workhours.org"))) - ) + (if (equal "work" (getenv "SYSENV")) (progn - (global-set-key (kbd "C-c ") '(lambda () (interactive) (find-file "~/org/work.org"))) - (global-set-key (kbd "C-c ") '(lambda () (interactive) (find-file "~/org/workhours.org"))))) - - - - - (global-set-key (kbd "C-c ") '(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 ") '(lambda () (interactive) (find-file "~/workorg/work.org"))) + (global-set-key (kbd "C-c ") '(lambda () (interactive) (find-file "~/workorg/workhours.org"))) + ) + (progn + (global-set-key (kbd "C-c ") '(lambda () (interactive) (find-file "~/org/work.org"))) + (global-set-key (kbd "C-c ") '(lambda () (interactive) (find-file "~/org/workhours.org"))))) + + (global-set-key (kbd "C-c ") '(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 ") '(lambda () (interactive) (find-file "~/.emacs.d/bba.org"))) #+END_SRC