22 lines
352 B
EmacsLisp
22 lines
352 B
EmacsLisp
;;; +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)
|
|
|
|
(provide '+avy)
|
|
;;; avy.el ends here
|