emacs/lisp/+avy.el

;;; +avy.el -*- lexical-binding: t -*-

;;; Commentary:

;; https://karthinks.com/software/avy-can-do-anything/

;;; Code:

(require 'avy)

(defun avy-action-embark (pt)
  (unwind-protect
      (save-excursion
        (goto-char pt)
        (embark-act))
    (select-window
     (cdr (ring-ref avy-ring 0))))
  t)


;;; Remove `buffer-face-mode' when avy is active.

(defcustom +avy-buffer-face-functions '(avy-goto-char
                                        avy-goto-char-in-line
                                        avy-goto-char-2
                                        avy-goto-char-2-above
                                        avy-goto-char-2-below
                                        avy-goto-word-0
                                        avy-goto-whitespace-end
                                        avy-goto-word-0-above
                                        avy-goto-word-0-below
                                        avy-goto-whitespace-end-above
                                        avy-goto-whitespace-end-below
                                        avy-goto-word-1
                                        avy-goto-word-1-above
                                        avy-goto-word-1-below
                                        avy-goto-symbol-1
                                        avy-goto-symbol-1-above
                                        avy-goto-symbol-1-below
                                        avy-goto-subword-0
                                        avy-goto-subword-1
                                        avy-goto-word-or-subword-1
                                        avy-goto-line
                                        avy-goto-line-above
                                        avy-goto-line-below
                                        avy-goto-end-of-line
                                        avy-goto-char-timer)
  "Functions to disable `buffer-face-mode' during.")

(defvar-local +avy-buffer-face-mode-face nil
  "The state of `buffer-face-mode' before calling `avy-with'.")

;;; XXX: Doesn't switch back if avy errors out or quits
(defun +avy@un-buffer-face (win)
  "BEFORE advice on `avy-with' to disable `buffer-face-mode'."
  (with-current-buffer (window-buffer win)
    (when buffer-face-mode
      (setq +avy-buffer-face-mode-face buffer-face-mode-face)
      (buffer-face-mode -1))))

(defun +avy@re-buffer-face (win)
  "AFTER advice on `avy-with' to re-enable `buffer-face-mode'."
  (with-current-buffer (window-buffer win)
    (when +avy-buffer-face-mode-face
      (setq buffer-face-mode-face +avy-buffer-face-mode-face)
      (buffer-face-mode +1)))
  (let ((bounds (bounds-of-thing-at-point 'symbol)))
    (when (and (car bounds)
               (cdr bounds))
      (pulse-momentary-highlight-region (car bounds) (cdr bounds)))))

(defun +avy@buffer-face (fn &rest r)
  "AROUND advice for avy to dis/enable `buffer-face-mode'."
  (if avy-all-windows
      (walk-windows #'+avy@un-buffer-face nil (eq avy-all-windows 'all-frames)))
  (condition-case e
      (apply fn r)
    ((quit error) (message "Avy: %S" e) nil)
    (:sucess e))
  (if avy-all-windows
      (walk-windows #'+avy@re-buffer-face nil (eq avy-all-windows 'all-frames))))

(define-minor-mode +avy-buffer-face-mode
  "Turn off `buffer-face-mode' before doing Avy selections.
Restore the mode after the selection."
  :lighter ""
  :global t
  (setq +avy-buffer-face-mode-face nil)
  (cond
   (+avy-buffer-face-mode
    (dolist (fn +avy-buffer-face-functions)
      (advice-add fn :around #'+avy@buffer-face)))
   (t (dolist (fn +avy-buffer-face-functions)
        (advice-remove fn #'+avy@buffer-face)))))

(provide '+avy)
;;; avy.el ends here