mirror of
https://github.com/doomemacs/doomemacs
synced 2025-09-24 16:30:58 -05:00
fbdde6b5f4
BREAKING CHANGE: Moves ws-butler, dtrt-indent, and whitespace defaults out of Doom's core and into a new module. ws-butler is gated behind +trim and dtrt-indent behind +guess. Users who depend on/like these packages will need to enable the new module and their respective flags (which is the default going forward). This change is motivated by an ongoing effort to slim down Doom's core (by (re)moving non-essentials from it). This also addresses an issue where dtrt-indent would vastly increase load times for some major-modes (e.g. elixir-mode & elm-mode, see #7537) by restricting it to non-project files and non-read-only buffers AND excludign those two major modes from indent guessing. Fix: #8516 Fix: #7537
112 lines
4.5 KiB
EmacsLisp
112 lines
4.5 KiB
EmacsLisp
;;; editor/word-wrap/autoload.el -*- lexical-binding: t; -*-
|
|
|
|
(defvar +word-wrap--major-mode-is-visual nil)
|
|
(defvar +word-wrap--major-mode-is-text nil)
|
|
(defvar +word-wrap--enable-adaptive-wrap-mode nil)
|
|
(defvar +word-wrap--enable-visual-line-mode nil)
|
|
(defvar +word-wrap--enable-visual-fill-mode nil)
|
|
(defvar +word-wrap--disable-auto-fill-mode nil)
|
|
(defvar +word-wrap--major-mode-indent-var nil)
|
|
|
|
(defvar adaptive-wrap-extra-indent)
|
|
(defun +word-wrap--adjust-extra-indent-a (fn beg end)
|
|
"Contextually adjust extra word-wrap indentation."
|
|
(let ((adaptive-wrap-extra-indent (+word-wrap--calc-extra-indent beg)))
|
|
(funcall fn beg end)))
|
|
|
|
(defun +word-wrap--calc-extra-indent (p)
|
|
"Calculate extra word-wrap indentation at point."
|
|
(if (not (or +word-wrap--major-mode-is-text
|
|
(doom-point-in-string-or-comment-p p)))
|
|
(pcase +word-wrap-extra-indent
|
|
('double
|
|
(* 2 (symbol-value +word-wrap--major-mode-indent-var)))
|
|
('single
|
|
(symbol-value +word-wrap--major-mode-indent-var))
|
|
((and (pred integerp) fixed)
|
|
fixed)
|
|
(_ 0))
|
|
0))
|
|
|
|
;;;###autoload
|
|
(define-minor-mode +word-wrap-mode
|
|
"Wrap long lines in the buffer with language-aware indentation.
|
|
|
|
This mode configures `adaptive-wrap', `visual-line-mode' and
|
|
`visual-fill-column-mode' to wrap long lines without modifying the buffer
|
|
content. This is useful when dealing with legacy code which contains
|
|
gratuitously long lines, or running emacs on your wrist-phone.
|
|
|
|
Wrapped lines will be indented to match the preceding line. In code buffers,
|
|
lines which are not inside a string or comment will have additional indentation
|
|
according to the configuration of `+word-wrap-extra-indent'.
|
|
|
|
Long lines will wrap at the window margin by default, or can optionally be
|
|
wrapped at `fill-column' by configuring `+word-wrap-fill-style'."
|
|
:init-value nil
|
|
(if +word-wrap-mode
|
|
(progn
|
|
(setq-local
|
|
+word-wrap--major-mode-is-visual
|
|
(memq major-mode +word-wrap-visual-modes)
|
|
+word-wrap--major-mode-is-text
|
|
(memq major-mode +word-wrap-text-modes)
|
|
+word-wrap--enable-adaptive-wrap-mode
|
|
(and (not (bound-and-true-p adaptive-wrap-prefix-mode))
|
|
(not +word-wrap--major-mode-is-visual))
|
|
+word-wrap--enable-visual-line-mode
|
|
(not (bound-and-true-p visual-line-mode))
|
|
+word-wrap--enable-visual-fill-mode
|
|
(and (not (bound-and-true-p visual-fill-column-mode))
|
|
(memq +word-wrap-fill-style '(auto soft)))
|
|
+word-wrap--disable-auto-fill-mode
|
|
(and (bound-and-true-p auto-fill-function)
|
|
(eq +word-wrap-fill-style 'soft)))
|
|
|
|
(unless +word-wrap--major-mode-is-visual
|
|
(when (require 'dtrt-indent nil t)
|
|
;; for dtrt-indent--search-hook-mapping
|
|
;; TODO: Generalize this?
|
|
(setq-local +word-wrap--major-mode-indent-var
|
|
(let ((indent-var (caddr (dtrt-indent--search-hook-mapping major-mode))))
|
|
(if (listp indent-var)
|
|
(car indent-var)
|
|
indent-var)))
|
|
(advice-add #'adaptive-wrap-fill-context-prefix :around #'+word-wrap--adjust-extra-indent-a)))
|
|
|
|
(when +word-wrap--enable-adaptive-wrap-mode
|
|
(adaptive-wrap-prefix-mode +1))
|
|
(when +word-wrap--enable-visual-line-mode
|
|
(visual-line-mode +1))
|
|
(when +word-wrap--enable-visual-fill-mode
|
|
(visual-fill-column-mode +1))
|
|
(when +word-wrap--disable-auto-fill-mode
|
|
(auto-fill-mode -1)))
|
|
|
|
;; disable +word-wrap-mode
|
|
(unless +word-wrap--major-mode-is-visual
|
|
(advice-remove #'adaptive-wrap-fill-context-prefix #'+word-wrap--adjust-extra-indent-a))
|
|
|
|
(when +word-wrap--enable-adaptive-wrap-mode
|
|
(adaptive-wrap-prefix-mode -1))
|
|
(when +word-wrap--enable-visual-line-mode
|
|
(visual-line-mode -1))
|
|
(when +word-wrap--enable-visual-fill-mode
|
|
(visual-fill-column-mode -1))
|
|
(when +word-wrap--disable-auto-fill-mode
|
|
(auto-fill-mode +1))))
|
|
|
|
(defun +word-wrap--enable-global-mode ()
|
|
"Enable `+word-wrap-mode' for `+word-wrap-global-mode'.
|
|
|
|
Wrapping will be automatically enabled in all modes except special modes, or
|
|
modes explicitly listed in `+word-wrap-disabled-modes'."
|
|
(unless (or (eq (get major-mode 'mode-class) 'special)
|
|
(memq major-mode +word-wrap-disabled-modes))
|
|
(+word-wrap-mode +1)))
|
|
|
|
;;;###autoload
|
|
(define-globalized-minor-mode +global-word-wrap-mode
|
|
+word-wrap-mode
|
|
+word-wrap--enable-global-mode)
|