doomemacs/modules/app/write/autoload.el

;;; app/write/autoload.el -*- lexical-binding: t; -*-

;;;###autoload
(defvar +write-mode-map (make-sparse-keymap)
  "TODO")

;;;###autoload
(define-minor-mode +write-mode
  "Turns Emacs into a more comfortable writing environment and word processor."
  :init-value nil
  :keymap +write-mode-map
  (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)))))
Major optimization refactor, across the board + enable lexical-scope everywhere (lexical-binding = t): ~5-10% faster startup; ~5-20% general boost + reduce consing, function calls & garbage collection by preferring cl-loop & dolist over lambda closures (for mapc[ar], add-hook, and various cl-lib filter/map/reduce functions) -- where possible + prefer functions with dedicated opcodes, like assq (see byte-defop's in bytecomp.el for more) + prefer pcase & cond (faster) over cl-case + general refactor for code readability + ensure naming & style conventions are adhered to + appease byte-compiler by marking unused variables with underscore + defer minor mode activation to after-init, emacs-startup or window-setup hooks; a customization opportunity for users + ensures custom functionality won't interfere with startup. 2017-06-08 11:47:56 +02:00			`;;; app/write/autoload.el -- lexical-binding: t; --`
Add modules/app/write (WIP) 2017-03-08 21:34:03 -05:00
app/write: new +write-mode-map keymap 2018-04-28 03:28:59 -04:00			`;;;###autoload`
			`(defvar +write-mode-map (make-sparse-keymap)`
			`"TODO")`

Add modules/app/write (WIP) 2017-03-08 21:34:03 -05:00			`;;;###autoload`
			`(define-minor-mode +write-mode`
app/write: major refactor+rewrite + 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 2018-02-13 17:50:58 -05:00			`"Turns Emacs into a more comfortable writing environment and word processor."`
Add modules/app/write (WIP) 2017-03-08 21:34:03 -05:00			`:init-value nil`
app/write: new +write-mode-map keymap 2018-04-28 03:28:59 -04:00			`:keymap +write-mode-map`
app/write: major refactor+rewrite + 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 2018-02-13 17:50:58 -05:00			`(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)))`
app/write: flesh out config (wip) 2017-04-28 03:45:54 -04:00
app/write: major refactor+rewrite + 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 2018-02-13 17:50:58 -05:00			`;;;###autoload`
			`(defun +write\|init-org-mode ()`
			"Initializes `org-mode' specific settings for `+write-mode'."
			`(when (eq major-mode 'org-mode)`
app/write: refactor Removed autoloads that are already defined by packages. 2018-07-31 18:41:34 +02:00			`(let ((arg (if +write-mode +1 -1)))`
app/write: major refactor+rewrite + 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 2018-02-13 17:50:58 -05:00			`(+org-pretty-mode arg)`
			`(org-indent-mode (if +write-mode -1 +1)))))`