2018-02-11 17:04:30 +08:00
|
|
|
;;; app/write/config.el -*- lexical-binding: t; -*-
|
|
|
|
|
|
2018-02-13 17:50:58 -05:00
|
|
|
(defvar +write-text-scale nil
|
|
|
|
|
"What to scale the text up to in `+write-mode'. Uses `text-scale-set'.")
|
|
|
|
|
|
|
|
|
|
(defvar +write-line-spacing nil
|
|
|
|
|
"What to set `line-spacing' in `+write-mode'.")
|
|
|
|
|
|
|
|
|
|
(add-hook! '+write-mode-hook
|
|
|
|
|
#'(flyspell-mode
|
|
|
|
|
visual-fill-column-mode
|
|
|
|
|
visual-line-mode
|
|
|
|
|
mixed-pitch-mode
|
|
|
|
|
doom|enable-line-numbers
|
|
|
|
|
+write|init-org-mode))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;
|
|
|
|
|
;; Plugins
|
|
|
|
|
;;
|
|
|
|
|
|
2018-02-11 17:04:30 +08:00
|
|
|
(when (featurep! +langtool)
|
|
|
|
|
(def-package! langtool
|
|
|
|
|
:commands (langtool-check
|
|
|
|
|
langtool-check-done
|
|
|
|
|
langtool-switch-default-language
|
|
|
|
|
langtool-show-message-at-point
|
|
|
|
|
langtool-correct-buffer)
|
|
|
|
|
:init
|
2018-02-13 17:50:58 -05:00
|
|
|
(setq langtool-default-language "en-US")
|
|
|
|
|
:config
|
|
|
|
|
(unless langtool-language-tool-jar
|
|
|
|
|
(setq langtool-language-tool-jar
|
|
|
|
|
(cond (IS-MAC
|
|
|
|
|
"/usr/local/Cellar/languagetool/4.0/libexec/languagetool-commandline.jar")
|
|
|
|
|
(IS-LINUX
|
|
|
|
|
"/usr/share/java/languagetool/languagetool-commandline.jar")))
|
|
|
|
|
(unless (file-exists-p langtool-language-tool-jar)
|
|
|
|
|
(warn "langtool: couldn't find languagetool-commandline.jar")))))
|
|
|
|
|
|
|
|
|
|
|
2018-02-11 17:04:30 +08:00
|
|
|
(when (featurep! +wordnut)
|
|
|
|
|
(def-package! wordnut
|
2018-02-13 17:50:58 -05:00
|
|
|
:commands (wordnut-search
|
|
|
|
|
wordnut-lookup-current-word)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(def-package! synosaurus
|
2018-02-11 17:04:30 +08:00
|
|
|
:commands (synosaurus-mode
|
|
|
|
|
synosaurus-lookup
|
|
|
|
|
synosaurus-choose-and-replace)
|
|
|
|
|
:config
|
2018-02-13 17:50:58 -05:00
|
|
|
(setq synosaurus-choose-method 'default))
|
|
|
|
|
|
|
|
|
|
(def-package! synosaurus-wordnet
|
|
|
|
|
:commands synosaurus-backend-wordnet)
|
|
|
|
|
|
2018-02-11 17:04:30 +08:00
|
|
|
|
|
|
|
|
(def-package! mixed-pitch
|
|
|
|
|
:config
|
|
|
|
|
(setq mixed-pitch-fixed-pitch-faces
|
2018-02-13 17:50:58 -05:00
|
|
|
(append mixed-pitch-fixed-pitch-faces
|
|
|
|
|
'(org-todo-keyword-todo
|
|
|
|
|
org-todo-keyword-habt
|
|
|
|
|
org-todo-keyword-done
|
|
|
|
|
org-todo-keyword-wait
|
|
|
|
|
org-todo-keyword-kill
|
|
|
|
|
org-todo-keyword-outd
|
|
|
|
|
org-special-keyword
|
|
|
|
|
org-date
|
|
|
|
|
org-property-value
|
|
|
|
|
org-special-keyword
|
|
|
|
|
org-property-value
|
|
|
|
|
org-ref-cite-face
|
|
|
|
|
org-tag
|
|
|
|
|
font-lock-comment-face))))
|
