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

Clean up writing-mode

Browse source
This commit is contained in:
Henrik Lissner 2015-11-30 16:52:08 -05:00
parent b5c8852059
commit 0259c4608b
1 changed files with 7 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

24
modules/module-writing.el
View file

@ -7,9 +7,8 @@
(defun narf|refresh-visual-fill-col () (defun narf|refresh-visual-fill-col ()
(visual-fill-column-mode +1)) (visual-fill-column-mode +1))
(defvar writing-mode-theme 'solarized-light)
(defvar writing-mode--last-mode-line mode-line-format) (defvar writing-mode--last-mode-line mode-line-format)
(defvar writing-mode--last-indicator-list fringe-indicator-alist) (defvar writing-mode--last-line-spacing line-spacing)
(define-minor-mode writing-mode "Mode for writing research papers or fiction." (define-minor-mode writing-mode "Mode for writing research papers or fiction."
:lighter "swrite" :lighter "swrite"
:keymap (make-sparse-keymap) :keymap (make-sparse-keymap)
@ -17,20 +16,13 @@
(on-off (if mode-p +1 -1))) (on-off (if mode-p +1 -1)))
(visual-fill-column-mode on-off) (visual-fill-column-mode on-off)
(visual-line-mode on-off) (visual-line-mode on-off)
(variable-pitch-mode on-off) ;; (variable-pitch-mode on-off)
(text-scale-set (if mode-p 2 0)) (text-scale-set (if mode-p 2 0))
(fringe-mode (if mode-p '6 narf-fringe-size))
;; (when writing-mode-theme (if mode-p (setq writing-mode--last-line-spacing line-spacing))
;; (if mode-p (setq line-spacing (if mode-p '4 writing-mode--last-line-spacing))
;; (narf/load-theme writing-mode-theme) ;; (when (eq major-mode 'org-mode)
;; (narf/reset-theme))) ;; (org-indent-mode (if mode-p -1 1)))
(setq line-spacing (if mode-p '4 (default-value 'line-spacing)))
(if (eq major-mode 'org-mode)
(org-indent-mode (if mode-p -1 1))
;; (setq truncate-lines (if mode-p nil (default-value 'truncate-lines)))
)
(setq mode-line-format (setq mode-line-format
(if mode-p (if mode-p
@ -38,9 +30,7 @@
'(narf-anzu narf-iedit narf-evil-substitute '(narf-anzu narf-iedit narf-evil-substitute
(narf-buffer-path remote-host) (narf-buffer-path remote-host)
narf-buffer-modified narf-buffer-modified
helm-number "✎")
helm-follow
helm-prefix-argument)
'((selection-info :face highlight-face :skip-alternate t) '((selection-info :face highlight-face :skip-alternate t)
narf-hud narf-hud
)))) ))))