From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Fri, 10 Jan 2014 08:46:00 +0000 (+0100)
Subject: * fix for cperl-mode
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=7db79e8df5dafb0fd7de135a754ddbb3703f4711;p=emacsconfig.git

* fix for cperl-mode
* map function keys to org files.

Signed-off-by: Andreas Gerler <baron@bundesbrandschatzamt.de>
---

diff --git a/init.el b/init.el
index 5710d072..ff7055db 100644
--- a/init.el
+++ b/init.el
@@ -68,7 +68,11 @@ load-path))
 
 ;; (setq html (org-export-as-html 3 nil nil 1))
 
-(define-key global-map "\C-ce" '(lambda () (interactive) (find-file "~/org/emacs.org")))
+(global-set-key [f5] '(lambda () (interactive) (find-file "~/org/notes.org")))
+
+(define-key global-map [f6] '(lambda () (interactive) (find-file "~/org/work.org")))
+(define-key global-map [f8] '(lambda () (interactive) (find-file "~/org/workhours.org")))
+(define-key global-map [f9] '(lambda () (interactive) (find-file "~/org/emacs.org")))
 
 ;; (setq org-clock-persist 'history)
 (org-clock-persistence-insinuate)
@@ -142,9 +146,11 @@ load-path))
 ;; For Perl:
 
 ;; load cperl-mode for perl files
+(require 'cperl-mode)
 (fset 'perl-mode 'cperl-mode)
 
-(cperl-set-style 'GNU)
+(eval-after-load "cperl-mode"
+    '(add-hook 'cperl-mode-hook (lambda() (cperl-set-style "GNU"))))
 
 ;; for auto-completion