Update 2023-11-03 13:48:17

src/drafts.ps

@@ -20,8 +20,13 @@ EOF
 # print list
 ls -r1 *.ps *.pm *.ph *.pa *.pt 2>/dev/null | fgrep '.draft.' | while read line
 do
-    TITLE="$(echo "${line%%.*}" | tr '_' ' ')"
-    URI="posts/${line%.*}.html"
+    if [ $(echo "${line##*.}") == "pm" ]
+    then
+        TITLE="$(head -1 "$line" | sed 's/^# //g')"
+    else
+        TITLE="$(echo "${line%%.*}" | tr '_' ' ')"
+    fi
+    URI="posts/${line%%.*}.html"
 
 cat <<EOF
     <li>

src/index.ps

@@ -20,7 +20,12 @@ EOF
 # print list
 ls -r1 *.ps *.pm *.ph *.pa *.pt 2>/dev/null | fgrep -v '.draft.' | while read line
 do
-    TITLE="$(echo "${line%%.*}" | tr '_' ' ')"
+    if [ $(echo "${line##*.}") == "pm" ]
+    then
+        TITLE="$(head -1 "$line" | sed 's/^# //g')"
+    else
+        TITLE="$(echo "${line%%.*}" | tr '_' ' ')"
+    fi
     URI="posts/${line%%.*}.html"
 
 cat <<EOF