]> Sergey Matveev's repositories - feeder.git/blobdiff - urls2feeds.zsh
Print newly created feed
[feeder.git] / urls2feeds.zsh
index 9eb5c5b18a326364575a4938d586c6ec8e9303f8..486ba8217e06f48b83f8aea2781b230c1d20b33f 100755 (executable)
@@ -1,14 +1,16 @@
 #!/usr/bin/env zsh
 set -e
-autoload regexp-replace
+fpath=($0:h:a/cmd/functions.zsh $fpath)
+autoload url-to-filename
+typeset -A seen
 while read url ; do
     url="$url " # to be sure that next line will work
     url=${${=url}[1]}
-    dir=${url:gs#/#_#}
-    regexp-replace dir "^.*__" ""
-    regexp-replace dir "_$" "" || :
-    dir=feeds/$dir
+    dir=feeds/$(url-to-filename $url)
+    seen[$dir]=1
     [[ -e $dir ]] && continue || :
     mkdir -p $dir/{cur,new,tmp} # make it maildir
     echo "$url" > $dir/url
+    print $dir
 done
+for dir (feeds/*) [[ $seen[$dir] -eq 1 ]] || print disappeared: $dir