typo: acrually avoid half width headlines

[shellwiki] / tools.sh

diff --git a/tools.sh b/tools.sh
index 2ee1818f569685c8bd848ba2e7e9fe01bb6d0626..65327d7c38f229e3815b207f173d86823245ae50 100755 (executable)
--- a/tools.sh
+++ b/tools.sh
@@ -3,7 +3,7 @@
 [ "$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
@@ -187,39 +187,36 @@ has_tag() {
 }
 
 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/&lt;/</g; s/&gt;/>/g;  s/&quot;/'\"'/g; s/&#x27;/'\''/g;
+        s/&#x5B;/[/g; s/&#x5D;/]/g;  s/&#x0D;/\r/g; s/&amp;/\&/g;
+        p; q;
+      '
+    )"
   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/&lt;/</g; s/&gt;/>/g;  s/&quot;/'\"'/g; s/&#x27;/'\''/g;
-      s/&#x5B;/[/g; s/&#x5D;/]/g;  s/&#x0D;/\r/g; s/&amp;/\&/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="${1%/}"
     PAGE_TITLE="${PAGE_TITLE##*/}"
   fi
-  debug "TITLE: $PAGE_TITLE"
   printf %s\\n "$PAGE_TITLE"
 }