LordMZTE/dotfiles
1
0
Fork 0
mirror of https://mzte.de/git/LordMZTE/dotfiles.git synced 2024-05-18 15:04:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

playvid: fix weird pathname parsing

Browse source
This commit is contained in:
LordMZTE 2023-07-07 21:45:14 +02:00
parent 74ef348905
commit 17402a5fd4
Signed by: LordMZTE
GPG key ID: B64802DC33A64FF6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scripts/playvid.ros
View file

@ -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)))