Merge pull request #3338 from drzv/master
Use make-process to call imagemagick in showterm.el
This commit is contained in:
@@ -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)
|
||||||
|
:stderr " convert-stderr"
|
||||||
|
:command `("convert"
|
||||||
"png:-"
|
"png:-"
|
||||||
"-gravity" "center"
|
"-gravity" "center"
|
||||||
"-background" "white"
|
"-background" "white"
|
||||||
"-scale" (format "%dx%d"
|
"-scale" ,(format "%dx%d"
|
||||||
showterm-pixel-width
|
showterm-pixel-width
|
||||||
showterm-pixel-width)
|
showterm-pixel-width)
|
||||||
"-extent" (format "%dx" showterm-pixel-width)
|
"-extent" ,(format "%dx" showterm-pixel-width)
|
||||||
"png:-"))))
|
"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))
|
||||||
|
|||||||
Reference in New Issue
Block a user