From bfd015badf58b7bb235652c9bf9544cbb9a1bb05 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 23 Jul 2017 14:08:48 -0400
Subject: Add copy line action to avy-dispatch-alist

---
 lisp/km-avy.el | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'lisp')

diff --git a/lisp/km-avy.el b/lisp/km-avy.el
index e0be1d7..c17f1f0 100644
--- a/lisp/km-avy.el
+++ b/lisp/km-avy.el
@@ -86,5 +86,22 @@
       (notmuch-tree-mode
        (call-interactively #'notmuch-tree-show-message)))))
 
+;;;###autoload
+(defun km/avy-action-copy-line (pt)
+  "Copy line containing PT."
+  ;; Modified from `avy-action-copy'.
+  (save-excursion
+    (let (str)
+      (goto-char pt)
+      (setq str (buffer-substring (line-beginning-position)
+                                  (line-end-position)))
+      (kill-new str)
+      (message "Copied: %s" str)))
+  (let ((dat (ring-ref avy-ring 0)))
+    (select-frame-set-input-focus
+     (window-frame (cdr dat)))
+    (select-window (cdr dat))
+    (goto-char (car dat))))
+
 (provide 'km-avy)
 ;;; km-avy.el ends here
-- 
cgit v1.2.3