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

Optionally set image's "title" metadata 

Adds option to set images "title" metadata to the name of the
screenshotted buffer
This commit is contained in:
lunik1 2023-03-17 22:17:25 +00:00 committed by tecosaur
parent b52211087d
commit 2b17c6cf66
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
screenshot.el
View File

@ -141,6 +141,11 @@ READER."
"Set \"description\" metadata to text in region"
'boolean t)
(screenshot--define-infix
"-mt" buffer-name-as-image-title-p
"Set image \"title\" metadata to `buffer-name'"
'boolean t)
(declare-function counsel-fonts "ext:counsel-fonts")
(declare-function ivy-read "ext:ivy-read")
@ -453,6 +458,8 @@ Must take a single argument, the file name, and operate in-place."
(list "-set" "description" (buffer-substring
screenshot--region-beginning
screenshot--region-end)))
(and screenshot-buffer-name-as-image-title-p
(list "-set" "title" (buffer-name)))
(list
"-background" "none"
"-layers" "merge"
@ -620,7 +627,8 @@ return a URL."
(screenshot--set-shadow-offset-horizontal)
(screenshot--set-shadow-offset-vertical)]
["Metadata"
(screenshot--set-code-as-image-description-p)]
(screenshot--set-code-as-image-description-p)
(screenshot--set-buffer-name-as-image-title-p)]
["Action"
["Save"
("s" "Save image" screenshot-save)