shithub: rc

ref: 1fd6a3738a4775ee3a326a31a750778c1d0ddda1
dir: /tpl/

View raw version 
#!/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
}