Easier copy-pasting in x-windows, temporary url paste solution.

1 files changed, 9 insertions, 3 deletions

diff --git a/.config/emacs/bd-wm.el b/.config/emacs/bd-wm.el
index 068d180..ee63985 100644
--- a/.config/emacs/bd-wm.el
+++ b/.config/emacs/bd-wm.el
@@ -23,9 +23,13 @@ dedicated buffer will never be automatically orphaned."
 
 (defun insert-bookmark ()
   "Inserts a url or string from permanent
-bookmark file."
+bookmark file. If an x window, place in kill-ring."
+  ;; note xdotool had issues with repeated keys when sending to windowid
   (interactive)
-  (insert (car (last (split-string (choose-line-from-file "~/Personal/scripts/bookmarks.txt"))))))
+  (let ((url (car (last (split-string (choose-line-from-file "~/Personal/scripts/bookmarks.txt"))))))
+    (if (exwm--buffer->id (current-buffer))
+        (kill-new url)
+      (insert url))))
 
 (defun choose-line-from-file (file)
   "Uses completion-framework to allow user to
@@ -126,7 +130,9 @@ select a line from a file."
      ([?\M-v] . [prior])
      ([?\C-v] . [next])
      ([?\C-d] . [delete])
-     ([?\C-k] . [S-end delete])))
+     ([?\C-k] . [S-end delete])
+     ([?\M-w] . [C-c])
+     ([?\C-y] . [C-v])))
 
   ;; ,@(mapcar (lambda (i)
   ;;             `(,(kbd (format "s-%s" (car i))) .