mirror of
https://mzte.de/git/LordMZTE/dotfiles.git
synced 2024-12-13 19:32:58 +01:00
playvid: fix weird pathname parsing
This commit is contained in:
parent
74ef348905
commit
17402a5fd4
1 changed files with 1 additions and 1 deletions
|
@ -12,7 +12,7 @@ exec ros -Q -- $0 "$@"
|
|||
(in-package :playvid)
|
||||
|
||||
(defun main (&rest argv)
|
||||
(let* ((vidfile (or (car argv)
|
||||
(let* ((vidfile (or (uiop:parse-native-namestring (car argv))
|
||||
(let ((dir (uiop:directory-files ".")))
|
||||
(nth (random (length dir) (make-random-state t)) dir))))
|
||||
(basename (pathname-name vidfile)))
|
||||
|
|
Loading…
Reference in a new issue