ref: 940ec8299bcfb502ec6d7fb6b837dc4a3edcc147
parent: d4d16446cdeb941bbbc678f6848f65b87781a729
author: sl <sl@x1yg3>
date: Sat Jul 5 21:58:33 EDT 2025
add tpl
--- /dev/null
+++ b/tpl
@@ -1,0 +1,20 @@
+#!/bin/rc
+# Create tangara playlists in matching directories under ../Playlists/.
+# This program is intended to run on 9front.
+# Usage: cd Music; tpl -r # 1.5tb, 73.91u 178.68s 786.28r
+# https://cooltech.zone/tangara/docs/playlists/
+rfork e
+if(~ $1 -r){+ for(i in `{walk -d `{pwd} | sort -f}){ echo $"i && cd $"i && tpl}+ exit
+}
+formats='flac|FLAC|mp3|MP3|ogg|OGG'
+mdir=`{pwd | sed 's/^.*Music\//Music\//'}+pdir=`{pwd | sed 's/Music\//Playlists\//'}+pname=`{basename `{pwd}^.playlist}+if(ls | grep -s -e $"formats){+ mkdir -p $"pdir &&
+ >$"pdir^/^$"pname &&
+ for(i in `{ls | grep -e $"formats})+ echo $"mdir^/^$i >>$"pdir^/^$"pname
+}
--
⑨