[ "$include_tools" ] && return 0
include_tools="$0"
-# Copyright 2022 - 2023 Paul Hänsch
+# Copyright 2022 - 2024 Paul Hänsch
#
# Permission to use, copy, modify, and/or distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
done
return 1
}
+
+page_title() {
+ 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
+ if [ ! "${PAGE_TITLE}" ]; then
+ # use last part of page URL as title
+ PAGE_TITLE="${1%/}"
+ PAGE_TITLE="${PAGE_TITLE##*/}"
+ fi
+ printf %s\\n "$PAGE_TITLE"
+}