Merge pull request #3338 from drzv/master

Use make-process to call imagemagick in showterm.el
This commit is contained in:
Mark Thom
2026-05-24 13:22:33 -06:00
committed by GitHub

View File

@@ -76,16 +76,18 @@
(setq str (buffer-string)) (setq str (buffer-string))
(erase-buffer)) (erase-buffer))
(let ((proc (let (process-connection-type) (let ((proc (let (process-connection-type)
(start-process "convert" (current-buffer) (make-process :name "convert"
"convert" :buffer (current-buffer)
"png:-" :stderr " convert-stderr"
"-gravity" "center" :command `("convert"
"-background" "white" "png:-"
"-scale" (format "%dx%d" "-gravity" "center"
showterm-pixel-width "-background" "white"
showterm-pixel-width) "-scale" ,(format "%dx%d"
"-extent" (format "%dx" showterm-pixel-width) showterm-pixel-width
"png:-")))) showterm-pixel-width)
"-extent" ,(format "%dx" showterm-pixel-width)
"png:-")))))
(process-send-string proc str) (process-send-string proc str)
(process-send-eof proc) (process-send-eof proc)
(showterm-wait-for-process proc)) (showterm-wait-for-process proc))