tec
/
screenshot.el
1
0
Fork 0
Code Issues 2 Pull Requests Releases Activity

Copy to the kill-ring not just system clipboard

This commit is contained in:
TEC 2023-01-20 18:25:14 +08:00
parent 731ac5a90d
commit 3846a772ab
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
screenshot.el
View File

@ -512,8 +512,8 @@ If BODY starts with :no-img then `screenshot--process' is not called."
(indent-rigidly (point-min) (point-max)
(- (indent-rigidly--current-indentation
(point-min) (point-max)))))
(gui-select-text (buffer-substring-no-properties
(point-min) (point-max))))))
(kill-new (buffer-substring-no-properties
(point-min) (point-max))))))
(defcustom screenshot-upload-fn nil
"Function or string which provides a method to upload a file.
@ -534,7 +534,7 @@ Note: you have to define this yourself, there is no default."
((pred functionp) (funcall screenshot-upload-fn screenshot--tmp-file))
((pred stringp) (string-trim-right (shell-command-to-string (format screenshot-upload-fn screenshot--tmp-file))))
(_ (error "Upload function is not a function or string!")))))
(gui-select-text url)
(kill-new url)
(message "Screenshot uploaded, link copied to clipboard (%s)"
(propertize url 'face 'link))))
(delete-file screenshot--tmp-file))
@ -570,7 +570,7 @@ return a URL."
(- (indent-rigidly--current-indentation
(point-min) (point-max)))))
(setq url (funcall screenshot-text-upload-fn (point-min) (point-max)))
(gui-select-text url)
(kill-new url)
(message "Screenshot uploaded, link copied to clipboard (%s)"
(propertize url 'face 'link)))))