Replace spell-fu with jinx

This commit is contained in:
eriedaberrie 2024-01-14 22:22:01 -08:00
parent d0e5e85867
commit ad563d4031

47
init.el
View file

@ -590,57 +590,16 @@
(use-package meson-mode) (use-package meson-mode)
(use-package spell-fu (use-package jinx
:hook :hook text-mode)
text-mode
(org-mode . (lambda ()
(setq spell-fu-faces-exclude
'(org-block-begin-line
org-block-end-line
org-code
org-date
org-drawer org-document-info-keyword
org-ellipsis
org-link
org-meta-line
org-properties
org-properties-value
org-special-keyword
org-src
org-tag
org-verbatim)))))
(use-package minimap (use-package minimap
:custom-face :custom-face
(minimap-active-region-background ((t (:background unspecified :inherit hl-line)))) (minimap-active-region-background ((t (:background unspecified :inherit hl-line))))
:hook (minimap-sb-mode . turn-on-solaire-mode)) :hook (minimap-sb-mode . turn-on-solaire-mode))
(defun my-magit-spell-fu-check-range (pos-beg pos-end)
(spell-fu--overlays-remove pos-beg pos-end)
(with-syntax-table spell-fu-syntax-table
(save-match-data
(save-excursion
(goto-char (point-min))
(let ((check-end (-> (format "^%s -+ >8 -+$" comment-start)
(re-search-forward pos-end t)
(or pos-end)))
(comment-start-char (aref comment-start 0)))
(goto-char pos-beg)
(while (< (point) check-end)
(unless (= (char-after) comment-start-char)
(let ((pos-line-end (pos-eol)))
(while (re-search-forward spell-fu-word-regexp pos-line-end t)
(let ((word-beg (match-beginning 0))
(word-end (match-end 0)))
(spell-fu-check-word word-beg word-end (match-string-no-properties 0))))))
(forward-line)))))))
(use-package magit (use-package magit
:hook (git-commit-setup . (lambda () :hook (git-commit-setup . git-commit-turn-on-auto-fill))
(git-commit-turn-on-auto-fill)
(spell-fu-mode)
(setq-local spell-fu-check-range #'my-magit-spell-fu-check-range)
(spell-fu--time-ensure t))))
(use-package forge (use-package forge
:after magit :after magit