From 25adcab0c33d332f5379b46fde5530f0b714a749 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 19 Dec 2012 11:43:00 +0100 Subject: [PATCH] Set the fci-rule-column to 101 for lisps --- .emacs.d/init.el | 3 +++ .emacs.d/site-lisp/oni.el | 5 +++++ 2 files changed, 8 insertions(+) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 3e74568..6b78465 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -302,6 +302,7 @@ (add-hook 'css-mode-hook 'oni:css-mode-func) (add-hook 'diary-display-hook 'oni:diary-display-func) (add-hook 'emacs-lisp-mode-hook 'oni:emacs-lisp-mode-func) +(add-hook 'emacs-lisp-mode-hook 'oni:generic-lisp-mode-hook) (add-hook 'erc-mode-hook 'oni:erc-mode-func) (add-hook 'eshell-mode-hook 'oni:eshell-mode-func) (add-hook 'flymake-mode-hook 'oni:flymake-mode-func) @@ -314,6 +315,7 @@ (add-hook 'java-mode-hook 'oni:java-mode-func) (add-hook 'js-mode-hook 'oni:js-mode-func) (add-hook 'js2-mode-hook 'oni:js2-mode-func) +(add-hook 'lisp-mode-hook 'oni:generic-lisp-mode-hook) (add-hook 'lua-mode-hook 'oni:lua-mode-func) (add-hook 'magit-log-edit-mode-hook 'oni:magit-log-edit-mode-func) (add-hook 'markdown-mode-hook 'oni:markdown-mode-func) @@ -323,6 +325,7 @@ (add-hook 'prog-mode-hook 'oni:prog-mode-func) (add-hook 'python-mode-hook 'oni:python-mode-func) (add-hook 'rst-mode-hook 'oni:rst-mode-func) +(add-hook 'scheme-mode-hook 'oni:generic-lisp-mode-hook) (add-hook 'term-mode-hook 'oni:term-mode-func) (add-hook 'texinfo-mode-hook 'oni:texinfo-mode-func) (add-hook 'write-file-hooks 'oni:write-file-func) diff --git a/.emacs.d/site-lisp/oni.el b/.emacs.d/site-lisp/oni.el index 46c87fb..f652069 100644 --- a/.emacs.d/site-lisp/oni.el +++ b/.emacs.d/site-lisp/oni.el @@ -179,6 +179,11 @@ DOT are intentionally being skipped." (local-set-key [M-P] 'flymake-goto-prev-error) (local-set-key [M-N] 'flymake-goto-next-error)) +(defun oni:generic-lisp-mode-hook () + "Function for `emacs-lisp-mode-hook', `lisp-mode-hook' and +`scheme-mode-hook'." + (setq fci-column 101)) + (defun oni:go-mode-func () "Function for `go-mode-hook'." (setq indent-tabs-mode nil)