;;; 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
  :commands (synosaurus-mode
             synosaurus-lookup
             synosaurus-choose-and-replace)
  :config
  (setq synosaurus-choose-method 'default))

(def-package! synosaurus-wordnet
  :commands synosaurus-backend-wordnet)


(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))))