From 7db79e8df5dafb0fd7de135a754ddbb3703f4711 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Fri, 10 Jan 2014 09:46:00 +0100 Subject: [PATCH] * fix for cperl-mode * map function keys to org files. Signed-off-by: Andreas Gerler --- init.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) 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 -- 2.47.3