doomemacs/modules/app/write/config.el

77 lines
2.1 KiB
EmacsLisp
Raw Normal View History

2018-02-11 17:04:30 +08:00
;;; app/write/config.el -*- lexical-binding: t; -*-
(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
;;
(def-package! langtool
:when (featurep! +langtool)
:commands (langtool-check
langtool-check-done
langtool-switch-default-language
langtool-show-message-at-point
langtool-correct-buffer)
:init
(setq langtool-default-language "en-US")
:config
(defvar langtool-language-tool-jar
(cond (IS-MAC
(locate-file "libexec/languagetool-commandline.jar"
(doom-files-in "/usr/local/Cellar/languagetool"
:type 'dirs
:depth 1)))
(IS-LINUX
"/usr/share/java/languagetool/languagetool-commandline.jar"))))
(def-package! wordnut
:when (featurep! +wordnut)
: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
(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
(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))))