chris/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

making some test scripts

Browse source
This commit is contained in:
Chris Cochrun 2023-03-21 09:49:39 -05:00
parent c934ed25bc
commit 7c3bce4779
3 changed files with 25 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
scripts/mshout.lisp Normal file
View file

@ -0,0 +1,8 @@
(defvar songs (list))
(with-open-file (stream "/home/chris/nextcloud/tfc/mshoutsongs.txt")
(do ((line (read-line stream nil)
(read-line stream nil)))
((null line))
(if (search "Title:" line)
(push line songs))))
(print songs)