From 25adcab0c33d332f5379b46fde5530f0b714a749 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Wed, 19 Dec 2012 11:43:00 +0100
Subject: 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)
-- 
cgit v1.2.3-54-g00ecf