mirror of
https://github.com/jimeh/yank-indent.git
synced 2026-02-19 01:26:40 +00:00
Jim Myhrberg
b047e91b92
Use buffer-local post-commad-hook instead of global function advice on yank and yank-pop. This avoids any global changes to Emacs' runtime environment outside of the specific buffers within which yank-indent-mode is enabled. BREAKING CHANGE: Removed yank-indent-setup and yank-indent-teardown functions.
173 lines
6.7 KiB
EmacsLisp
173 lines
6.7 KiB
EmacsLisp
;;; yank-indent.el --- Automatically indent yanked text -*- lexical-binding: t -*-
|
|
|
|
;; Author: Jim Myhrberg <contact@jimeh.me>
|
|
;; URL: https://github.com/jimeh/yank-indent
|
|
;; Keywords: convenience, yank, indent
|
|
;; Package-Requires: ((emacs "25.1"))
|
|
;; x-release-please-start-version
|
|
;; Version: 0.2.0
|
|
;; x-release-please-end
|
|
|
|
;; This file is not part of GNU Emacs.
|
|
|
|
;;; License:
|
|
;;
|
|
;; Copyright (c) 2023 Jim Myhrberg
|
|
;;
|
|
;; Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
;; of this software and associated documentation files (the "Software"), to deal
|
|
;; in the Software without restriction, including without limitation the rights
|
|
;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
;; copies of the Software, and to permit persons to whom the Software is
|
|
;; furnished to do so, subject to the following conditions:
|
|
;;
|
|
;; The above copyright notice and this permission notice shall be included in
|
|
;; all copies or substantial portions of the Software.
|
|
;;
|
|
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
|
;; SOFTWARE.
|
|
|
|
;;; Commentary:
|
|
;;
|
|
;; Automatically indent yanked regions when yank-indent-mode is enabled.
|
|
|
|
;;; Code:
|
|
|
|
(defgroup yank-indent nil
|
|
"Customization options for the yank-indent package.
|
|
|
|
The yank-indent package provides functionality to automatically
|
|
indent yanked text according to the current mode's indentation
|
|
rules. This group contains customization options for controlling
|
|
the behavior of `yank-indent-mode' and `global-yank-indent-mode'."
|
|
:group 'editing)
|
|
|
|
(defcustom yank-indent-threshold 5000
|
|
"Max characters in yanked region to trigger auto indentation.
|
|
|
|
If the yanked region contains more characters than the value
|
|
specified by `yank-indent-threshold', the automatic indentation
|
|
will not occur. This helps prevent performance issues when
|
|
working with large blocks of text."
|
|
:type 'number)
|
|
|
|
(define-obsolete-variable-alias
|
|
'yank-indent-derived-modes
|
|
'yank-indent-global-derived-modes
|
|
"yank-indent 0.2.0")
|
|
|
|
(defcustom yank-indent-global-derived-modes '(prog-mode tex-mode)
|
|
"Derived major modes where `global-yank-indent-mode' enables `yank-indent-mode'.
|
|
|
|
When `global-yank-indent-mode' is enabled, it activates
|
|
`yank-indent-mode' in buffers with major modes derived from those
|
|
listed in this variable. This is useful when you want to enable
|
|
`yank-indent-mode' for all modes that inherit from a specific
|
|
mode, such as `prog-mode' for programming modes or `text-mode'
|
|
for text editing modes."
|
|
:type '(repeat symbol))
|
|
|
|
(define-obsolete-variable-alias
|
|
'yank-indent-exact-modes
|
|
'yank-indent-global-exact-modes
|
|
"yank-indent 0.2.0")
|
|
|
|
(defcustom yank-indent-global-exact-modes '()
|
|
"Major modes where `global-yank-indent-mode' enables `yank-indent-mode'.
|
|
|
|
When `global-yank-indent-mode' is enabled, it activates
|
|
`yank-indent-mode' in buffers with major modes listed in this
|
|
variable. Unlike `yank-indent-global-derived-modes',
|
|
`yank-indent-mode' will not be activated in modes derived from
|
|
those listed here. Use this variable to list specific modes where
|
|
you want `yank-indent-mode' to be enabled without affecting their
|
|
derived modes."
|
|
:type '(repeat symbol))
|
|
|
|
(define-obsolete-variable-alias
|
|
'yank-indent-excluded-modes
|
|
'yank-indent-global-excluded-modes
|
|
"yank-indent 0.2.0")
|
|
|
|
(defcustom yank-indent-global-excluded-modes '(cmake-ts-mode
|
|
coffee-mode
|
|
conf-mode
|
|
haml-mode
|
|
makefile-automake-mode
|
|
makefile-bsdmake-mode
|
|
makefile-gmake-mode
|
|
makefile-imake-mode
|
|
makefile-makepp-mode
|
|
makefile-mode
|
|
python-mode
|
|
python-ts-mode
|
|
slim-mode
|
|
yaml-mode
|
|
yaml-ts-mode)
|
|
"Major modes where `global-yank-indent-mode' does not enable `yank-indent-mode'.
|
|
|
|
`global-yank-indent-mode' will not activate `yank-indent-mode' in
|
|
buffers with major modes listed in this variable or their derived
|
|
modes. This list takes precedence over
|
|
`yank-indent-global-derived-modes' and
|
|
`yank-indent-global-exact-modes'. Use this variable to exclude
|
|
specific modes and their derived modes from having
|
|
`yank-indent-mode' enabled."
|
|
:type '(repeat symbol))
|
|
|
|
(defun yank-indent--should-enable-p ()
|
|
"Return non-nil if current mode should be indented."
|
|
(and (not (minibufferp))
|
|
(not (member major-mode yank-indent-global-excluded-modes))
|
|
(or (member major-mode yank-indent-global-exact-modes)
|
|
(apply #'derived-mode-p yank-indent-global-derived-modes))))
|
|
|
|
;;;###autoload
|
|
(define-minor-mode yank-indent-mode
|
|
"Minor mode for automatically indenting yanked text.
|
|
|
|
When enabled, this mode indents the yanked region according to
|
|
the current mode's indentation rules, provided that the region
|
|
size is less than or equal to `yank-indent-threshold' and no
|
|
prefix argument is given during yanking."
|
|
:lighter " YI"
|
|
:group 'yank-indent
|
|
(if yank-indent-mode
|
|
(add-hook 'post-command-hook #'yank-indent--post-command-hook nil 'local)
|
|
(remove-hook 'post-command-hook #'yank-indent--post-command-hook 'local)))
|
|
|
|
;;;###autoload
|
|
(define-globalized-minor-mode global-yank-indent-mode
|
|
yank-indent-mode
|
|
(lambda ()
|
|
(when (yank-indent--should-enable-p)
|
|
(yank-indent-mode 1))))
|
|
|
|
(defun yank-indent--post-command-hook ()
|
|
"Conditionally indent yanked text.
|
|
|
|
Indentation is triggered only if all of the following conditions
|
|
are met:
|
|
|
|
- `this-command' is `yank' or `yank-pop'.
|
|
- `yank-indent-mode' is enabled.
|
|
- Prefix argument was not provided.
|
|
- Region size that was yanked is less than or equal to
|
|
`yank-indent-threshold'."
|
|
(if (and (memq this-command '(yank yank-pop))
|
|
yank-indent-mode
|
|
(not current-prefix-arg))
|
|
(let ((beg (region-beginning))
|
|
(end (region-end))
|
|
(mark-even-if-inactive transient-mark-mode))
|
|
(if (<= (- end beg) yank-indent-threshold)
|
|
(indent-region beg end)))))
|
|
|
|
(provide 'yank-indent)
|
|
;;; yank-indent.el ends here
|