2012-12-18 05:48:12 +00:00
|
|
|
(require 'fill-column-indicator)
|
|
|
|
|
|
|
|
(defun turn-on-fill-column-indicator ()
|
|
|
|
(fci-mode 1)
|
|
|
|
(setq fci-rule-column 80)
|
|
|
|
(setq fci-rule-width 2)
|
|
|
|
(setq fci-rule-color "#073642"))
|
|
|
|
|
2013-01-04 20:22:08 +00:00
|
|
|
(let ((supported-modes
|
|
|
|
'(
|
|
|
|
clojure-mode-hook
|
|
|
|
emacs-lisp-mode-hook
|
|
|
|
erlang-mode-hook
|
|
|
|
java-mode-hook
|
|
|
|
javascript-mode-hook
|
|
|
|
lisp-mode-hook
|
|
|
|
org-mode-hook
|
|
|
|
python-mode-hook
|
|
|
|
)))
|
2012-12-18 05:48:12 +00:00
|
|
|
(dolist (hook supported-modes)
|
|
|
|
(add-hook hook 'turn-on-fill-column-indicator)))
|