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

Set image's "software" metadata field 

Record the version of Emacs and screenshot.el used to generate the
image
This commit is contained in:
lunik1 2023-03-17 21:59:31 +00:00 committed by tecosaur
parent bfde4578c8
commit 3f8142d815
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
screenshot.el
View File

@ -29,13 +29,14 @@
;;; Commentary:
;; Convenience package for creating images of the current region or buffer.
;; Requires `imagemagick' for some visual post-processing, and `xclip' for
;; copying images to the clipboard.
;; Requires `imagemagick' to set metadata and for some visual post-processing,
;; and `xclip' for copying images to the clipboard.
;;; Code:
(require 'transient)
(require 'posframe)
(require 'lisp-mnt)
(defgroup screenshot ()
"Customise group for Screenshot."
@ -446,6 +447,9 @@ Must take a single argument, the file name, and operate in-place."
(list
"-background" "none"
"-layers" "merge"
"-set" "software" (format "Emacs %s; screenshot.el %s"
emacs-version
(lm-version (symbol-file 'screenshot)))
file))))))
(unless (eq result 0)
(error "Could not apply imagemagick commands to image (exit code %d)" result))))