Skip to content

Instantly share code, notes, and snippets.

@karthink
Last active September 2, 2024 09:41
Show Gist options
  • Save karthink/af013ffd77fe09e67360f040b57b4c7b to your computer and use it in GitHub Desktop.
Save karthink/af013ffd77fe09e67360f040b57b4c7b to your computer and use it in GitHub Desktop.
Supplementary code for Avy actions for Emacs
;; Code used in the demos at https://karthinks.com/software/avy-can-do-anything
;; Tweak as desired.
(package-install 'avy)
(setq avy-keys '(?q ?e ?r ?y ?u ?o ?p
?a ?s ?d ?f ?g ?h ?j
?k ?l ?' ?x ?c ?v ?b
?n ?, ?/))
(defun avy-show-dispatch-help ()
(let* ((len (length "avy-action-"))
(fw (frame-width))
(raw-strings (mapcar
(lambda (x)
(format "%2s: %-19s"
(propertize
(char-to-string (car x))
'face 'aw-key-face)
(substring (symbol-name (cdr x)) len)))
avy-dispatch-alist))
(max-len (1+ (apply #'max (mapcar #'length raw-strings))))
(strings-len (length raw-strings))
(per-row (floor fw max-len))
display-strings)
(cl-loop for string in raw-strings
for N from 1 to strings-len do
(push (concat string " ") display-strings)
(when (= (mod N per-row) 0) (push "\n" display-strings)))
(message "%s" (apply #'concat (nreverse display-strings)))))
;; Avy command
(global-set-key (kbd "M-j") 'avy-goto-char-timer)
;; Kill text
(defun avy-action-kill-whole-line (pt)
(save-excursion
(goto-char pt)
(kill-whole-line))
(select-window
(cdr
(ring-ref avy-ring 0)))
t)
(setf (alist-get ?k avy-dispatch-alist) 'avy-action-kill-stay
(alist-get ?K avy-dispatch-alist) 'avy-action-kill-whole-line)
;; Copy text
(defun avy-action-copy-whole-line (pt)
(save-excursion
(goto-char pt)
(cl-destructuring-bind (start . end)
(bounds-of-thing-at-point 'line)
(copy-region-as-kill start end)))
(select-window
(cdr
(ring-ref avy-ring 0)))
t)
(setf (alist-get ?w avy-dispatch-alist) 'avy-action-copy
(alist-get ?W avy-dispatch-alist) 'avy-action-copy-whole-line)
;; Yank text
(defun avy-action-yank-whole-line (pt)
(avy-action-copy-whole-line pt)
(save-excursion (yank))
t)
(setf (alist-get ?y avy-dispatch-alist) 'avy-action-yank
(alist-get ?Y avy-dispatch-alist) 'avy-action-yank-whole-line)
;; Transpose/Move text
(defun avy-action-teleport-whole-line (pt)
(avy-action-kill-whole-line pt)
(save-excursion (yank)) t)
(setf (alist-get ?t avy-dispatch-alist) 'avy-action-teleport
(alist-get ?T avy-dispatch-alist) 'avy-action-teleport-whole-line)
;; Mark text
(defun avy-action-mark-to-char (pt)
(activate-mark)
(goto-char pt))
(setf (alist-get ? avy-dispatch-alist) 'avy-action-mark-to-char)
;; Flyspell words
(defun avy-action-flyspell (pt)
(save-excursion
(goto-char pt)
(when (require 'flyspell nil t)
(flyspell-auto-correct-word)))
(select-window
(cdr (ring-ref avy-ring 0)))
t)
;; Bind to semicolon (flyspell uses C-;)
(setf (alist-get ?\; avy-dispatch-alist) 'avy-action-flyspell)
;; Dictionary: define words
;; Replace your package manager or preferred dict package
(package-install 'dictionary)
(defun dictionary-search-dwim (&optional arg)
"Search for definition of word at point. If region is active,
search for contents of region instead. If called with a prefix
argument, query for word to search."
(interactive "P")
(if arg
(dictionary-search nil)
(if (use-region-p)
(dictionary-search (buffer-substring-no-properties
(region-beginning)
(region-end)))
(if (thing-at-point 'word)
(dictionary-lookup-definition)
(dictionary-search-dwim '(4))))))
(defun avy-action-define (pt)
(save-excursion
(goto-char pt)
(dictionary-search-dwim))
(select-window
(cdr (ring-ref avy-ring 0)))
t)
(setf (alist-get ?= avy-dispatch-alist) 'dictionary-search-dwim)
;; Get Elisp Help
;; Replace with your package manager or help library of choice
(package-install 'helpful)
(defun avy-action-helpful (pt)
(save-excursion
(goto-char pt)
(helpful-at-point))
(select-window
(cdr (ring-ref avy-ring 0)))
t)
(setf (alist-get ?H avy-dispatch-alist) 'avy-action-helpful)
;; Embark
(package-install 'embark)
(defun avy-action-embark (pt)
(unwind-protect
(save-excursion
(goto-char pt)
(embark-act))
(select-window
(cdr (ring-ref avy-ring 0))))
t)
(setf (alist-get ?. avy-dispatch-alist) 'avy-action-embark)
;; Avy + Isearch
(define-key isearch-mode-map (kbd "M-j") 'avy-isearch)
;; Isearch in other windows
(defun isearch-forward-other-window (prefix)
"Function to isearch-forward in other-window."
(interactive "P")
(unless (one-window-p)
(save-excursion
(let ((next (if prefix -1 1)))
(other-window next)
(isearch-forward)
(other-window (- next))))))
(defun isearch-backward-other-window (prefix)
"Function to isearch-backward in other-window."
(interactive "P")
(unless (one-window-p)
(save-excursion
(let ((next (if prefix 1 -1)))
(other-window next)
(isearch-backward)
(other-window (- next))))))
(define-key global-map (kbd "C-M-s") 'isearch-forward-other-window)
(define-key global-map (kbd "C-M-r") 'isearch-backward-other-window)
;; Google search: requires executable Tuxi
(defvar google-search-history nil
"List of queries to google-search-string.")
(defun google-search-string (search-string)
"Read SEARCH-STRING from the minibuffer and call the shell
command tuxi on it."
(interactive (list (read-string "Google: " nil
google-search-history
(thing-at-point 'sexp))))
(unless (executable-find "tuxi")
(user-error "Cannot find shell command: tuxi"))
(let ((search-output (string-trim-right
(shell-command-to-string
(concat
"tuxi -r "
(shell-quote-argument search-string))))))
(with-current-buffer (get-buffer-create "*Tuxi Output*")
(erase-buffer)
(insert search-output)
;; (fill-region (point-min) (point-max))
(if (<= (count-lines (point-min) (point-max)) 1)
(message search-output)
(goto-char (point-min))
(display-buffer (current-buffer))
(goto-address-mode 1)))))
(defun google-search-at-point (&optional beg end)
"Call the shell command tuxi on the symbol at point. With an
active region use it instead."
(interactive "r")
(if-let ((search-string (if (use-region-p)
(buffer-substring-no-properties beg end)
(thing-at-point 'symbol))))
(google-search-string search-string)
;; (message "No symbol to search for at point!")
(call-interactively #'google-search-string)))
(defun avy-action-tuxi (pt)
(cl-letf (((symbol-function 'keyboard-quit)
#'abort-recursive-edit))
(save-excursion
(goto-char pt)
(google-search-at-point))
(select-window
(cdr (ring-ref avy-ring 0))))
t)
(setf (alist-get ?G avy-dispatch-alist) 'avy-action-tuxi)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment