-c_tags="$_DATA/.index/tags.cache"; c_tagcategories="$_DATA/.index/tagcategories.cache"
-if [ ! -s "$c_tags" -o ! -s "$c_tagcategories" ] \
- || [ "$(find "$_DATA/" -path '*/.index/meta' -newer "$c_tags")" ]
- then
- w_tags="$( cn=1
- find "$_DATA/" -path '*/.index/meta' -print0 \
- | xargs -0 -r sed -E '
- s;^.*\t.*\t.*\ttags=(.*)\tcomment=.*\t.*\r$;\1;;
- s;,;\n;g;' \
- | UNSTRING \
- | { sort; printf '\n'; } \
- | while read -r tag; do
- [ "$tag" = "$otag" ] \
- && cn=$((cn + 1)) \
- || {
- printf "%i %s\n" "$cn" "$otag"
- cn=1
- }
- otag="$tag"
- done \
- |sort -rn |cut -f2- |HTML \
- |sed "s-
-\n-g; s;\n\n;\n;g;"
- )"
- w_tagcategories="$(printf %s "$w_tags" | sed -rn '/:/s;^-?([^:]+):.*$;\1;p' |sort -u )"
- printf %s "$w_tags" >"$c_tags"
- printf %s "$w_tagcategories" >"$c_tagcategories"
-else
- w_tags="$(cat "$c_tags")"
- w_tagcategories="$(cat "$c_tagcategories")"
-fi
+taglist(){
+ list_meta |sed -E '
+ s;^.*\ttags=([^\t]*)\t.*$;\1;;
+ s;,;\n;g;
+ ' \
+ | sort |uniq -c |sort -rn |sed -E 's;^ *[0-9]+ ;;;' \
+ | UNSTRING | HTML \
+ | sed -E 's;
\;;\n;g; s;\n+;\n;g;'
+}
+tagorder(){
+ printf '*\n%s\n$\n' "$w_tagcategories" \
+ | while read -r category; do
+ printf '%s\n' "$w_tags" \
+ | { [ "$category" = '*' ] && grep -avF ':' || grep -awF "${category}"; } \
+ | { sed -u 10q; sort; }
+ done
+}