urls2feeds

   1 #!/usr/bin/env zsh
   2 setopt ERR_EXIT
   3 fpath=($0:h:a/cmd/functions.zsh $fpath)
   4 autoload url-to-filename
   5 typeset -A seen
   6 while read url ; do
   7     url="$url " # to be sure that next line will work
   8     url=${${=url}[1]}
   9     dir=feeds/$(url-to-filename $url)
  10     seen[$dir]=1
  11     [[ -e $dir ]] && continue || :
  12     mkdir -p $dir/{cur,new,tmp} # make it maildir
  13     print -- "$url" > $dir/url
  14     print $dir
  15 done
  16 for dir (feeds/*) [[ $seen[$dir] -eq 1 ]] || print disappeared: $dir