diff options
Diffstat (limited to '.config/emacs')
| -rw-r--r-- | .config/emacs/bd-shells.el | 2 | ||||
| -rw-r--r-- | .config/emacs/bd-wm.el | 12 |
2 files changed, 10 insertions, 4 deletions
diff --git a/.config/emacs/bd-shells.el b/.config/emacs/bd-shells.el index c6e6722..9628c66 100644 --- a/.config/emacs/bd-shells.el +++ b/.config/emacs/bd-shells.el @@ -37,7 +37,7 @@ status, and path." ("C-q" . 'delete-window) ; mostly for side window ("<tab>" . completion-at-point)) :config - (eshell/addpath ~/Personal/scripts/) + (eshell/addpath "~/Personal/scripts/") :custom (eshell-prompt-function 'bd/eshell-prompt) (eshell-prompt-regexp "^> ") 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))) . |