diff --git a/hyprchan b/hyprchan index a31a72c..d8d4d85 100755 --- a/hyprchan +++ b/hyprchan @@ -17,15 +17,15 @@ (defun get-dimensions (image) "Return the dimensions of IMAGE as cons `(x . y)'." -(--> image - (shell-command-to-string (format "file %s" it)) - (split-string it "," nil " ") - (--filter (string-match-p (rx (+ num) (? " ") "x" (? " ") (+ num)) it) it) - (--remove (string-match-p "density" it) it) - (car it) - (split-string it "x" nil " ") - (--map (string-to-number it) it) - (cons (car it) (cadr it))) + (--> image + (shell-command-to-string (format "file %s" it)) + (split-string it "," nil " ") + (--filter (string-match-p (rx (+ num) (? " ") "x" (? " ") (+ num)) it) it) + (--remove (string-match-p "density" it) it) + (car it) + (split-string it "x" nil " ") + (--map (string-to-number it) it) + (cons (car it) (cadr it))) ) ;; select the background image