+
+has_tag() {
+ # true if PAGE is tagged with any of TAGS
+ local page="$(page_abs "$1")"; shift 1;
+ local tdir="$_DATA/tags" tag dt df
+
+ for tag in "$@"; do
+ tag="$(printf %s "$tag" |awk '{ sub(/^[#!]/, ""); gsub(/[^[:alnum:]]/, "_"); print toupper($0); }')"
+ dt="$(DBM "${tdir}/${tag}" get "${page}")" || continue
+ df="$(stat -c %Y "$(mdfile "$page")")" || return 1
+ if [ "$df" -gt "$dt" ]; then
+ DBM "${tdir}/${tag}" remove "${page}"
+ continue
+ else
+ return 0
+ fi
+ done
+ return 1
+}
+
+page_title() {
+ local mdfile PAGE_TITLE
+
+ if ! mdfile="$(mdfile "${1:-${PATH_INFO%/*}}")"; then
+ return 1
+ fi
+ PAGE_TITLE="$(
+ sed -nE '
+ s;^%title[ \t]+([[:graph:]][[:print:]]+)\r?$;\1;p; tQ;
+ b; :Q q;
+ ' "$mdfile"
+ )"
+ [ ! "${PAGE_TITLE}" ] && PAGE_TITLE="$(
+ MD_MACROS="" md <"$mdfile" \
+ | sed -nE '
+ s;^.*<h1[^>]*>(.*>)?([^<]+)(<.*)?</h1>.*$;\2;p; tQ;
+ s;^.*<h2[^>]*>(.*>)?([^<]+)(<.*)?</h2>.*$;\2;p; tQ;
+ b; :Q q;
+ '
+ )"
+ if [ ! "${PAGE_TITLE}" ]; then
+ PAGE_TITLE="${1:-${PATH_INFO%/*}}"
+ PAGE_TITLE="${PAGE_TITLE##*/}"
+ fi
+ printf %s\\n "$PAGE_TITLE"
+}