Change meta to two-stage process

Now 'meta_init' must be run before attempting to access the meta file.  The meta
file name is now kept in the environment variable "$META".

1 files changed, 28 insertions, 6 deletions

@@ -263,7 +263,29 @@ phtml() { # phtml < INPUT
                         s#.*#<p>&</p>#'
 }
 
-meta() { # meta FIELD [FILE] < INPUT
+meta_init() { # meta_init FILE
+    ## Extract metadata from FILE for later processing.
+    # Metadata should exist as colon-separated data in HTML comments in the
+    # input file.
+    metafile=
+    m=false
+    t=false
+    while read -r line; do
+        case "$line" in
+            '<!--') m=true ;;
+            '-->') m=false ;;
+            *title:*) t=true && print "$line" ;;
+            *) "$m" && print "$line" ;;
+        esac
+    done <"$1"
+    if ! "$t"; then
+        title="${1##*/}"
+        title="${title%.*}"
+        print "title: ${title%.*}"
+    fi
+}
+
+meta() { # meta FIELD [FILE]
     ## Extract metadata FIELDS from INPUT.
     # FILE gives the filename to save metadata to in the $WORKD.  It
     # defaults to the current value for $FILE.
@@ -271,11 +293,8 @@ meta() { # meta FIELD [FILE] < INPUT
     # Metadata should exist as colon-separated data in an HTML comment at
     # the beginning of an input file.
     field="$1"
-    file="${2:-$FILE}"
-    metafile="${TMPD:=.}/${file}.meta"
-    test -f "$metafile" ||
-        sed -n '/<!--/!q;/<!--/n;p;/-->/q' >"$metafile"
-    sed -n "s/^[ \t]*$field:[ \t]*//p" <"$metafile"
+    file="${2:-$META}"
+    sed -n "s/^[ \t]*$field:[ \t]*//p" <"$file"
 }
 
 ## Customizable bits
@@ -316,7 +335,9 @@ genpage() { # genpage PAGE...
         outd="$OUTD/${FILE%.$PAGE_RAW_EXT}"
         outf="$outd/index.html"
         tmpf="$TMPD/$FILE.tmp"
+        META="$TMPD/$FILE.meta"
         mkdir -p "$outd"
+        meta_init "$FILE" >"$META"
         filters <"$FILE" >"$tmpf"
         expand "$PAGE_TEMPLATE" <"$tmpf" >"$outf"
     done
@@ -335,6 +356,7 @@ genlist() { # genlist PERITEM_FUNC TEMPLATE_FILE PAGE...
     for FILE; do
         log genlist "$peritem_func" "$FILE"
         LINK="$DOMAIN${DOMAIN:+/}${FILE%.$PAGE_RAW_EXT}"
+        META="$TMPD/$FILE.meta"
         "$peritem_func" "$FILE"
     done | expand "$template_file"
 }