emacs: mv fly{check,spell}.el to package rul-write

1 files changed, 38 insertions, 0 deletions

diff --git a/.emacs.d/rul-lisp/packages/rul-write.el b/.emacs.d/rul-lisp/packages/rul-write.el
index 1f7820f..719baaf 100644
--- a/.emacs.d/rul-lisp/packages/rul-write.el
+++ b/.emacs.d/rul-lisp/packages/rul-write.el
@@ -54,4 +54,42 @@ Else create a new file."
 ;; auto-fill mode
 (add-hook 'text-mode-hook 'turn-on-auto-fill)
 
+;; Flycheck
+(use-package flycheck
+  :ensure t
+  :config
+
+(flycheck-define-checker proselint
+  "A linter for prose."
+  :command ("proselint" source-inplace)
+  :error-patterns
+  ((warning line-start (file-name) ":" line ":" column ": "
+	    (id (one-or-more (not (any " "))))
+	    (message) line-end))
+  :modes (text-mode markdown-mode gfm-mode org-mode))
+
+(add-to-list 'flycheck-checkers 'proselint)
+
+;; TODO: docker run --rm -p 8010:8010 erikvl87/languagetool
+(use-package flycheck-languagetool
+  :ensure t
+  :hook (message-mode . flycheck-languagetool-setup)
+  :init
+  (setq flycheck-languagetool-url "http://localhost:8010")
+))
+
+;; Flyspell
+(defcustom flyspell-delayed-commands nil
+  "List of commands that are \"delayed\" for Flyspell mode.
+After these commands, Flyspell checking is delayed for a short time,
+whose length is specified by `flyspell-delay'."
+  :group 'flyspell
+  :type '(repeat (symbol)))
+
+(setq ispell-dictionary "en")
+(setq flyspell-default-dictionary "en")
+
+(setq flyspell-issue-welcome-flag nil)
+(setq-default ispell-list-command "list")
+
 (provide 'rul-write)