+list_item() {
+ local meta type length width height tags comment name display link
+ meta="${1}"; type="${meta%% *}"; meta="${meta#* }"
+
+ if [ "$type" = dir ]; then
+ name="${meta%% *}";
+ display="$(HTML "$name")"; link="$(URL "${PATH_INFO%/}/$name")"
+ printf '[a .list .dir href="%s" %s]' "${link}?${w_refuri#*\?}" "$name"
+ return 0
+ fi
+
+ length="${meta%% *}"; meta="${meta#* }"
+ width="${meta%% *}"; meta="${meta#* }"
+ height="${meta%% *}"; meta="${meta#* }"
+ tags="${meta%% *}"; meta="${meta#* }"
+ comment="${meta%% *}"; meta="${meta#* }"
+ name="${meta%% *}"; meta="${meta#* }"
+
+ if [ "$type" = metashort ]; then
+ name="$(list_fullname "$(UNSTRING "${name%${CR}}")")"
+ fi
+ if [ -f "$_DATA/${PATH_INFO%/}/$name" ]; then
+ link="$(URL "${PATH_INFO%/}/${name#./}")"
+ name="$(HTML "${PATH_INFO%/}/${name#./}")"
+ printf '[div .list .file
+ [a href="%s" [img src="%s?a=thumbnail"]][label . %s]
+ [span .time %i:%02imin] [span .dim %ix%i] %s
+ [checkbox "select" "%s" id="select_%s"][label for="select_%s" +]
+ ]' \
+ "$link" "$link" "${name##/}" \
+ "$((length / 60))" "$((length % 60))" \
+ "$width" "$height" \
+ "$(UNSTRING "${tags#tags=}" \
+ | sed -r 's;^;,;; s;,+;,;g; s;,$;;;
+ :X s;,-?([^,]+)(,|$); [span .tag\n \1]\2;; tX;'
+ )" "$name" "$link" "$link"
+ else
+ debug "Canning record for nonexist file: $name"
+ meta_purge "$_DATA/$ITEM/$name"
+ fi
+}
+
+
+[ "$FILTER" ] && list_fex="$(
+ fex='p'
+ STRING "$FILTER^" \
+ | sed -E 's;\^;\n;g; s;[]\/\(\)\\\^\$\?\.\+\*\;\[\{\}];\\&;g' \
+ | while read -r f; do
+ [ "${f##*[A-Z]*}" ] && tl="y;ABCDEFGHIJKLMNOPQRSTUVWXYZ;abcdefghijklmnopqrstuvwxyz;;"
+ case $f in
+ ''|~) continue;;
+ ~\\\$:*) fex="h; ${tl} /${f#~\\\$:}/d; g;${fex}";;
+ \\\$:*) fex="h; ${tl} /${f#\\\$:}/{g;${fex}}";;
+ ~*) fex="/(\ttags=([^\t]*,)?)(${f#\~})((,[^\t]*)?\t)/d; ${fex}";;
+ *) fex="/(\ttags=([^\t]*,)?)(${f})((,[^\t]*)?\t)/{${fex}}";;
+ esac
+ printf '%s\n' "${fex}"
+ done \
+ | tail -n1
+)"
+
+list_fullname(){
+ sn="$1"
+ [ ! "${sn%%*/*}" ] && base="${sn%/*}" || base=.
+ file="$(printf '%s' "$_DATA/$ITEM/$sn".*)"
+ file="${file##*/}"
+ [ -e "$_DATA/$ITEM/$base/${file}" ] \
+ && printf '%s\n' "${base}/${file}"
+}
+
+list_filter(){
+ if [ "$FILTER" ]; then
+ debug "FEX:" "$list_fex"
+ sed -nE "$list_fex"
+ elif [ "${SEARCH#!}" != "${SEARCH}" ]; then
+ grep -aviEe "$(STRING "${SEARCH}" \
+ | sed -E ':x s;((^|[^\\])(\\\\)*)\+;\1 ;g; tx;
+ s;((^|[^\\])(\\\\)*)\\\+;\1+;g;
+ s; ;\\+;g;')"
+ elif [ "${SEARCH}" ]; then
+ grep -aiEe "$(STRING "${SEARCH}" \
+ | sed -E ':x s;((^|[^\\])(\\\\)*)\+;\1 ;g; tx;
+ s;((^|[^\\])(\\\\)*)\\\+;\1+;g;
+ s; ;\\+;g;')"