92 lines
3.6 KiB
EmacsLisp
92 lines
3.6 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--major-mode-indent-var nil)
|
|
|
|
(defvar adaptive-wrap-extra-indent)
|
|
(defun +word-wrap--adjust-extra-indent-a (orig-fn beg end)
|
|
"Contextually adjust extra word-wrap indentation."
|
|
(let ((adaptive-wrap-extra-indent (+word-wrap--calc-extra-indent beg)))
|
|
(funcall orig-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
|
|
(sp-point-in-string-or-comment 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' and `visual-line-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'."
|
|
:init-value nil
|
|
(if +word-wrap-mode
|
|
(progn
|
|
(setq-local +word-wrap--major-mode-is-visual
|
|
(memq major-mode +word-wrap-visual-modes))
|
|
(setq-local +word-wrap--major-mode-is-text
|
|
(memq major-mode +word-wrap-text-modes))
|
|
|
|
(setq-local +word-wrap--enable-adaptive-wrap-mode
|
|
(and (not (bound-and-true-p adaptive-wrap-prefix-mode))
|
|
(not +word-wrap--major-mode-is-visual)))
|
|
|
|
(setq-local +word-wrap--enable-visual-line-mode
|
|
(not (bound-and-true-p visual-line-mode)))
|
|
|
|
(unless +word-wrap--major-mode-is-visual
|
|
(require 'dtrt-indent) ; for dtrt-indent--search-hook-mapping
|
|
(require 'smartparens) ; for sp-point-in-string-or-comment
|
|
|
|
(setq-local +word-wrap--major-mode-indent-var
|
|
(caddr (dtrt-indent--search-hook-mapping major-mode)))
|
|
|
|
(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)))
|
|
|
|
;; 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))))
|
|
|
|
(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)
|