Allow jpeg images, and always show output of final imagemagick command

This commit is contained in:
MitchMarq42 2023-10-14 13:41:55 -08:00
parent 66608e92b9
commit 9b266df1d2

View File

@ -28,7 +28,7 @@
;; select the background image
(defvar canvas.src.fullname (--> (f-files wallpapers)
(--filter (string-match-p (rx (* any) "." (or "jpg" "png")) it) it)
(--filter (string-match-p (rx (* any) "." (or "jpg" "jpeg" "png")) it) it)
(seq-random-elt it)
))
(defvar canvas.fullname canvas.src.fullname)
@ -89,4 +89,4 @@
waifu.position.x waifu.position.y
waifu.cachefile))
(shell-command magickcmd)
(shell-command-to-string magickcmd)