-w_tags="$(find "$_DATA/" -path '*/.index/meta' -print0 \
- | xargs -r0 sed -r '
- s;^.*\t.*\t.*\ttags=(.*)\tcomment=.*\t.*\r$;\1;;
- s;,;\n;g;'"$UNSTRING" \
- | sort -u |HTML |sed 's;:\;;:;g; s;
\;;\n;g;')"
-w_tagcategories="$(printf %s "$w_tags" | cut -sd: -f1 | uniq)"
+w_str_s="$(STRING "$SEARCH")"
+w_str_f="$(STRING "$FILTER")"
+
+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;' \
+ | { sort; printf '\n'; } \
+ | while read -r tag; do
+ if [ "$tag" = "$otag" ]; then
+ cn=$((cn + 1))
+ else
+ printf "%i %s\n" "$cn" "$(UNSTRING "$otag")"
+ cn=1
+ fi
+ 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
+