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
|
||||
(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)
|
||||
|
Loading…
Reference in New Issue
Block a user