emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

app/write: flesh out config (wip)

Browse source
This commit is contained in:
Henrik Lissner 2017-04-28 03:45:54 -04:00
parent a1eca7f801
commit 15ed040fe8
1 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

13
modules/app/write/autoload.el
View file

@ -7,11 +7,18 @@
(define-minor-mode +write-mode (define-minor-mode +write-mode
:init-value nil :init-value nil
:keymap nil :keymap nil
(let ((arg (if +write-mode +1 -1))) (let ((arg (if +write-mode +1 -1))
(iarg (if +write-mode -1 +1)))
(when (and (featurep 'doom-themes) (when (and (featurep 'doom-themes)
(not +write--buffer-mode) (not +write--buffer-mode)
+write-mode) +write-mode)
(setq +write--buffer-mode doom-buffer-mode)) (setq +write--buffer-mode doom-buffer-mode))
(text-scale-set (if +write-mode 1.5 0)) (text-scale-set (if +write-mode 2 0))
(nlinum-mode iarg)
(setq-local visual-fill-column-center-text +write-mode)
(visual-fill-column-mode arg) (visual-fill-column-mode arg)
(setq line-spacing (if +write-mode 6)))) (visual-line-mode arg)
(when (eq major-mode 'org-mode)
(+org-pretty-mode arg))
(setq line-spacing (if +write-mode 4))))