2019-02-26 16:46:26 -05:00
|
|
|
;;; tools/flyspell/autoload.el -*- lexical-binding: t; -*-
|
|
|
|
|
|
2019-03-04 04:55:55 -05:00
|
|
|
;;;###autodef
|
|
|
|
|
(defalias 'flyspell-mode! #'flyspell-mode)
|
|
|
|
|
|
2019-02-26 16:46:26 -05:00
|
|
|
(defvar +flyspell--predicate-alist nil
|
|
|
|
|
"TODO")
|
|
|
|
|
|
|
|
|
|
;;;###autodef
|
|
|
|
|
(defun set-flyspell-predicate! (modes predicate)
|
|
|
|
|
"TODO"
|
2019-03-02 01:56:32 -05:00
|
|
|
(declare (indent defun))
|
2019-02-26 16:46:26 -05:00
|
|
|
(dolist (mode (doom-enlist modes) +flyspell--predicate-alist)
|
|
|
|
|
(add-to-list '+flyspell--predicate-alist (cons mode predicate))))
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun +flyspell|init-predicate ()
|
|
|
|
|
"TODO"
|
|
|
|
|
(when-let* ((pred (assq major-mode +flyspell--predicate-alist)))
|
|
|
|
|
(setq-local flyspell-generic-check-word-predicate (cdr pred))))
|
2019-02-26 16:54:32 -05:00
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun +flyspell-correction-at-point-p (&optional point)
|
|
|
|
|
"TODO"
|
|
|
|
|
(cl-loop for ov in (overlays-at (or point (point)))
|
|
|
|
|
if (overlay-get ov 'flyspell-overlay)
|
|
|
|
|
return t))
|
