diff options
Diffstat (limited to '.config/emacs')
| -rw-r--r-- | .config/emacs/init.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/.config/emacs/init.el b/.config/emacs/init.el index de8a622..895472a 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -325,10 +325,11 @@ list and require no escaping." ("u" ,(my/make-input-toggle my/symbols)))) (my/define-prefix-command my/kill-map - "Keymap for adding things to the kill ring." + "Keymap for adding things to the kill ring (or system clipboard)." '(("C" my/kill-char) ("d" my/kill-date) ("f" my/kill-filename) + ("W" my/kill-as-html) ("|" my/kill-pipe-region) ("!" my/kill-shell))) @@ -682,8 +683,9 @@ UPSTREAMS is a list of fetch URLs." ;; it sound like passing a value with a 'text/html property set to ;; the HTML string should work, but empirically it doesn't. ;; Maybe look into `selection-converter-alist'. - (call-process-region nil nil "xclip" nil nil nil - "-selection" "clipboard" "-target" "text/html"))) + (call-process-region + nil nil "wl-copy" nil 0 nil "--type" "text/html") + (message "Copied:\n\n%s" (buffer-string)))) (defun my/yank-from-html (html markup) (interactive |