mir/hyprchan
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

re-indent

Browse Source
This commit is contained in:
MitchMarq42 2023-10-14 13:08:58 -08:00
parent 1bbba60b20
commit 92bb4ca230
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
hyprchan
View File

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