}
page_title() {
- local mdfile PAGE_TITLE
-
- if ! mdfile="$(mdfile "${1:-${PATH_INFO%/*}}")"; then
- return 1
+ local mdfile='' PAGE_TITLE=''
+
+ if mdfile="$(mdfile "${1}")"; then
+ 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;
+ '
+ )"
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%/*}}"
+ # use last part of page URL as title
+ PAGE_TITLE="${1%/}"
PAGE_TITLE="${PAGE_TITLE##*/}"
fi
printf %s\\n "$PAGE_TITLE"