+
+page_title() {
+ local mdfile PAGE_TITLE
+
+ if ! mdfile="$(mdfile "${1:-${PATH_INFO%/*}}")"; then
+ return 1
+ fi
+ PAGE_TITLE="$(
+ # pick title from %title pragma
+ sed -nE '
+ s;^%title[ \t]+([[:graph:]][[:print:]]+)\r?$;\1;p; tQ;
+ b; :Q q;
+ ' "$mdfile"
+ )"
+ [ ! "${PAGE_TITLE}" ] && PAGE_TITLE="$(
+ # pick title from first h1/h2 headline
+ MD_MACROS="" md <"$mdfile" \
+ | sed -nE '
+ s;^.*<h1[^>]*>(.*>)?([^<]+)(<.*)?</h1>.*$;\2;; tQ;
+ s;^.*<h2[^>]*>(.*>)?([^<]+)(<.*)?</h2>.*$;\2;; tQ;
+ b; :Q
+ # reverse escapes of cgilite HTML function,
+ # to prevent later double escaping
+ # later escaping must not be omited
+ s/</</g; s/>/>/g; s/"/'\"'/g; s/'/'\''/g;
+ s/[/[/g; s/]/]/g; s/
/\r/g; s/&/\&/g;
+ p; q;
+ '
+ )"
+ if [ ! "${PAGE_TITLE}" ]; then
+ # use last part of page URL as title
+ PAGE_TITLE="${1:-${PATH_INFO}}"
+ PAGE_TITLE="${PAGE_TITLE%/*}"
+ PAGE_TITLE="${PAGE_TITLE##*/}"
+ fi
+ debug "TITLE: $PAGE_TITLE"
+ printf %s\\n "$PAGE_TITLE"
+}