From 84e394757a183ff5c6a19389684f77f54399918b Mon Sep 17 00:00:00 2001 From: bd Date: Fri, 5 Jan 2024 23:02:43 -0700 Subject: Easier copy-pasting in x-windows, temporary url paste solution. --- .config/emacs/bd-wm.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to '.config/emacs/bd-wm.el') 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))) . -- cgit v1.2.3