Allow jpeg
images, and always show output of final imagemagick command
This commit is contained in:
parent
66608e92b9
commit
9b266df1d2
4
hyprchan
4
hyprchan
@ -28,7 +28,7 @@
|
|||||||
|
|
||||||
;; select the background image
|
;; select the background image
|
||||||
(defvar canvas.src.fullname (--> (f-files wallpapers)
|
(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)
|
(seq-random-elt it)
|
||||||
))
|
))
|
||||||
(defvar canvas.fullname canvas.src.fullname)
|
(defvar canvas.fullname canvas.src.fullname)
|
||||||
@ -89,4 +89,4 @@
|
|||||||
waifu.position.x waifu.position.y
|
waifu.position.x waifu.position.y
|
||||||
waifu.cachefile))
|
waifu.cachefile))
|
||||||
|
|
||||||
(shell-command magickcmd)
|
(shell-command-to-string magickcmd)
|
||||||
|
Loading…
Reference in New Issue
Block a user