mirror of
https://mzte.de/git/LordMZTE/dotfiles.git
synced 2024-09-27 12:38:58 +02:00
playvid: correctly convert pathname to native namestring
This commit is contained in:
parent
f5f7404e59
commit
9a1510a643
1 changed files with 1 additions and 1 deletions
|
@ -17,7 +17,7 @@ exec ros -Q -- $0 "$@"
|
||||||
(nth (random (length dir) (make-random-state t)) dir))))
|
(nth (random (length dir) (make-random-state t)) dir))))
|
||||||
(basename (pathname-name vidfile)))
|
(basename (pathname-name vidfile)))
|
||||||
(format t "playing video: ~a~%" basename)
|
(format t "playing video: ~a~%" basename)
|
||||||
(uiop:run-program (list "mpv" (file-namestring vidfile))
|
(uiop:run-program (list "mpv" (uiop:native-namestring vidfile))
|
||||||
:input :interactive
|
:input :interactive
|
||||||
:error-output :interactive
|
:error-output :interactive
|
||||||
:output :interactive)
|
:output :interactive)
|
||||||
|
|
Loading…
Reference in a new issue