Move yank-indent advice to +emacs.el

1 files changed, 10 insertions, 1 deletions

@@ -188,7 +188,7 @@ Do this only if the buffer is not visiting a file."
 (add-hook 'after-save-hook 'executable-make-buffer-file-executable-if-script-p)
 (add-hook 'minibuffer-setup-hook 'cursor-intangible-mode)
 
-;;; Better-default functions
+;;; Better-default functions ...
 
 (defun +cycle-spacing (&optional n preserve-nl-back mode)
   "Negate N argument on `cycle-spacing'.
@@ -214,6 +214,15 @@ kill without asking."
         (save-buffers-kill-emacs))
     (server-save-buffers-kill-terminal nil)))
 
+;; ... and advice
+
+;; Indent the region after a yank.
+(defun +yank@indent (&rest _)
+  "Indent the current region."
+  (indent-region (min (point) (mark)) (max (point) (mark))))
+(advice-add #'yank :after #'+yank@indent)
+(advice-add #'yank-pop :after #'+yank@indent)
+
 ;;; Bindings
 
 ;; I need to place these bindings under `+key-mode-map' so that they aren't