3080b68c84
+ Make synosaurus unconditional + Move much of +write-mode into its hook + Conform README.org to template and expand it + Try to guess langtool-language-tool-jar + Update init.example.el entry + Remove redundant variables + Add +write-text-scale & +text-line-spacing variables
20 lines
675 B
EmacsLisp
20 lines
675 B
EmacsLisp
;;; app/write/autoload.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
(define-minor-mode +write-mode
|
|
"Turns Emacs into a more comfortable writing environment and word processor."
|
|
:init-value nil
|
|
:keymap nil
|
|
(setq-local visual-fill-column-center-text t)
|
|
(when +write-text-scale
|
|
(text-scale-set (if +write-mode 2 0)))
|
|
(when +write-line-spacing
|
|
(setq-local line-spacing +write-line-spacing)))
|
|
|
|
;;;###autoload
|
|
(defun +write|init-org-mode ()
|
|
"Initializes `org-mode' specific settings for `+write-mode'."
|
|
(when (eq major-mode 'org-mode)
|
|
(let ((arg (if +write-mode +1 -1)))
|
|
(+org-pretty-mode arg)
|
|
(org-indent-mode (if +write-mode -1 +1)))))
|