michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(emacs/lean-setting.el): add lean-rule-color custom-var

Browse source
This commit is contained in:
Soonho Kong 2014-08-07 11:57:46 -07:00
parent b6b40bb4ab
commit 209ecfd792
3 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/emacs/README.md
View file

@ -47,5 +47,6 @@ Put the following elisp code on your emacs setup:
;; lean customization ;; lean customization
(customize-set-variable 'lean-show-rule-column-method 'vline) (customize-set-variable 'lean-show-rule-column-method 'vline)
(customize-set-variable 'lean-rule-column 100) (customize-set-variable 'lean-rule-column 100)
(customize-set-variable 'lean-rule-color "#ff0000")
(customize-set-variable 'lean-delete-trailing-whitespace t) (customize-set-variable 'lean-delete-trailing-whitespace t)
``` ```

1
src/emacs/lean-mode.el
View file

@ -83,6 +83,7 @@
(cl-case lean-show-rule-column-method (cl-case lean-show-rule-column-method
('vline (require 'fill-column-indicator) ('vline (require 'fill-column-indicator)
(setq fci-rule-column lean-rule-column) (setq fci-rule-column lean-rule-column)
(setq fci-rule-color lean-rule-color)
(add-hook 'lean-mode-hook 'fci-mode)))) (add-hook 'lean-mode-hook 'fci-mode))))
(if lean-delete-trailing-whitespace (if lean-delete-trailing-whitespace
(progn (require 'whitespace-cleanup-mode) (progn (require 'whitespace-cleanup-mode)

6
src/emacs/lean-settings.el
View file

@ -44,6 +44,12 @@ written."
(const :tag "Unlimited" nil)) (const :tag "Unlimited" nil))
:type 'int) :type 'int)
(defcustom lean-rule-color "#cccccc"
"Color used to draw the fill-column rule"
:group 'fill-column-indicator
:tag "Fill-column rule color"
:type 'color)
(defcustom lean-show-rule-column-method nil (defcustom lean-show-rule-column-method nil
"If enabled, it highlights column" "If enabled, it highlights column"
:group 'lean :group 'lean