summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGravatar Tom Willemsen2012-12-19 11:43:00 +0100
committerGravatar Tom Willemsen2012-12-19 11:43:00 +0100
commit25adcab0c33d332f5379b46fde5530f0b714a749 (patch)
tree1dc4df7ccfe46429029415f157a0153df988fe77
parent19cc94fc81a8b655c7104d1f058fa2ac1b0a52c4 (diff)
downloaddotfiles-25adcab0c33d332f5379b46fde5530f0b714a749.tar.gz
dotfiles-25adcab0c33d332f5379b46fde5530f0b714a749.zip
Set the fci-rule-column to 101 for lisps
-rw-r--r--.emacs.d/init.el3
-rw-r--r--.emacs.d/site-lisp/oni.el5
2 files changed, 8 insertions, 0 deletions
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)