LordMZTE/dotfiles
1
0
Fork 0
mirror of https://mzte.de/git/LordMZTE/dotfiles.git synced 2024-12-13 12:53:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

playvid: filter out directories

Browse source
This commit is contained in:
LordMZTE 2023-05-14 00:04:07 +02:00
parent 4460f34a41
commit 0951917e27
Signed by: LordMZTE
GPG key ID: B64802DC33A64FF6
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scripts/playvid.rkt
View file

@ -9,10 +9,11 @@
(current-print void) (current-print void)
(define file (define file
(command-line ;; default to random file
;; default to random file (command-line #:args ([f
#:args ([f (let ([dir (directory-list)]) (path->string (list-ref dir (random (length dir)))))]) (let ([dir (filter file-exists? (directory-list))])
f)) (path->string (list-ref dir (random (length dir)))))])
f))
(printf "playing: ~a\n" file) (printf "playing: ~a\n" file)
(system* (find-executable-path "mpv") file) (system* (find-executable-path "mpv") file)