/{s/.*href="\([^"]*\)">.*/\1/;p;}' "$@" 2> /dev/null
+}
\ No newline at end of file
diff --git a/lib/rebuild_all_entries.sh b/lib/rebuild_all_entries.sh
new file mode 100644
index 0000000..e1ecc37
--- /dev/null
+++ b/lib/rebuild_all_entries.sh
@@ -0,0 +1,37 @@
+#!/usr/bin/env bash
+
+# Regenerates all the single post entries, keeping the post content but modifying
+# the title, html structure, etc
+rebuild_all_entries() {
+ declare date_inpost
+ declare date_format_full
+ declare date_format_timestamp
+ echo -n "Rebuilding all entries "
+
+ for i in ./*.html; do
+ is_boilerplate_file "$i" && continue;
+ contentfile=.tmp.$RANDOM
+ while [[ -f $contentfile ]]; do contentfile=.tmp.$RANDOM; done
+
+ echo -n "."
+ # Get the title and entry, and rebuild the html structure from scratch (divs, title, description...)
+ title=$(get_post_title "$i")
+
+ get_html_file_content 'text' 'text' <"$i" >> "$contentfile"
+
+ # Read timestamp from post, if present, and sync file timestamp
+ timestamp=$(awk '// { print }' "$i" | cut -d '#' -f 2)
+ [[ -n $timestamp ]] && touch -t "$timestamp" "$i"
+ # Read timestamp from file in correct format for 'create_html_page'
+ timestamp=$(LC_ALL=C date -r "$i" +"$date_format_full")
+
+ create_html_page "$contentfile" "$i.rebuilt" no "$title" "$timestamp" "$(get_post_author "$i")"
+ # keep the original timestamp!
+ timestamp=$(LC_ALL=C date -r "$i" +"$date_format_timestamp")
+ mv "$i.rebuilt" "$i"
+ chmod 644 "$i"
+ touch -t "$timestamp" "$i"
+ rm "$contentfile"
+ done
+ echo ""
+}
\ No newline at end of file
diff --git a/lib/rebuild_index.sh b/lib/rebuild_index.sh
new file mode 100644
index 0000000..2c8920a
--- /dev/null
+++ b/lib/rebuild_index.sh
@@ -0,0 +1,53 @@
+#!/usr/bin/env bash
+
+# Generate the index.html with the content of the latest posts
+rebuild_index() {
+ declare index_file
+ declare number_of_index_articles
+ declare cut_do
+ declare cut_line
+ declare template_read_more
+ declare template_archive
+ declare template_subscribe
+ declare template_tags_title
+ declare blog_feed
+ declare global_author
+ declare global_feedburner
+ declare global_title
+ declare archive_index
+ declare tags_index
+ echo -n "Rebuilding the index "
+ newindexfile=$index_file.$RANDOM
+ contentfile=$newindexfile.content
+ while [[ -f $newindexfile ]]; do
+ newindexfile=$index_file.$RANDOM
+ contentfile=$newindexfile.content
+ done
+
+ # Create the content file
+ {
+ n=0
+ while IFS='' read -r i; do
+ is_boilerplate_file "$i" && continue;
+ if ((n >= number_of_index_articles)); then break; fi
+ if [[ -n $cut_do ]]; then
+ get_html_file_content 'entry' 'entry' 'cut' <"$i" | awk "/$cut_line/ { print \"$template_read_more
\" ; next } 1"
+ else
+ get_html_file_content 'entry' 'entry' <"$i"
+ fi
+ echo -n "." 1>&3
+ n=$(( n + 1 ))
+ done < <(ls -t ./*.html) # sort by date, newest first
+
+ feed=$blog_feed
+ if [[ -n $global_feedburner ]]; then feed=$global_feedburner; fi
+ echo ""
+ } 3>&1 >"$contentfile"
+
+ echo ""
+
+ create_html_page "$contentfile" "$newindexfile" yes "$global_title" "$global_author"
+ rm "$contentfile"
+ mv "$newindexfile" "$index_file"
+ chmod 644 "$index_file"
+}
\ No newline at end of file
diff --git a/lib/rebuild_tags.sh b/lib/rebuild_tags.sh
new file mode 100644
index 0000000..e1da522
--- /dev/null
+++ b/lib/rebuild_tags.sh
@@ -0,0 +1,67 @@
+#!/usr/bin/env bash
+
+# Rebuilds tag_*.html files
+# if no arguments given, rebuilds all of them
+# if arguments given, they should have this format:
+# "FILE1 [FILE2 [...]]" "TAG1 [TAG2 [...]]"
+# where FILEn are files with posts which should be used for rebuilding tags,
+# and TAGn are names of tags which should be rebuilt.
+# example:
+# rebuild_tags "one_post.html another_article.html" "example-tag another-tag"
+# mind the quotes!
+rebuild_tags() {
+ declare prefix_tags
+ declare cut_do
+ declare cut_line
+ declare template_read_more
+ declare template_tag_title
+ declare global_title
+ declare global_author
+ if (($# < 2)); then
+ # will process all files and tags
+ files=$(ls -t ./*.html)
+ all_tags=yes
+ else
+ # will process only given files and tags
+ files=$(printf '%s\n' "$1" | sort -u)
+ # shellcheck disable=SC2086 # Intended splitting of $files
+ files=$(ls -t $files)
+ tags=$2
+ fi
+ echo -n "Rebuilding tag pages "
+ #n=0
+ if [[ -n $all_tags ]]; then
+ rm ./"$prefix_tags"*.html &> /dev/null
+ else
+ for i in $tags; do
+ rm "./$prefix_tags$i.html" &> /dev/null
+ done
+ fi
+ # First we will process all files and create temporal tag files
+ # with just the content of the posts
+ tmpfile=tmp.$RANDOM
+ while [[ -f $tmpfile ]]; do tmpfile=tmp.$RANDOM; done
+ while IFS='' read -r i; do
+ is_boilerplate_file "$i" && continue;
+ echo -n "."
+ if [[ -n $cut_do ]]; then
+ get_html_file_content 'entry' 'entry' 'cut' <"$i" | awk "/$cut_line/ { print \"$template_read_more
\" ; next } 1"
+ else
+ get_html_file_content 'entry' 'entry' <"$i"
+ fi >"$tmpfile"
+ for tag in $(tags_in_post "$i"); do
+ if [[ -n $all_tags || " $tags " == *" $tag "* ]]; then
+ cat "$tmpfile" >> "$prefix_tags$tag".tmp.html
+ fi
+ done
+ done <<< "$files"
+ rm "$tmpfile"
+ # Now generate the tag files with headers, footers, etc
+ while IFS='' read -r i; do
+ tagname=${i#./"$prefix_tags"}
+ tagname=${tagname%.tmp.html}
+ create_html_page "$i" "$prefix_tags$tagname.html" yes "$global_title — $template_tag_title \"$tagname\"" "$global_author"
+ rm "$i"
+ done < <(ls -t ./"$prefix_tags"*.tmp.html 2>/dev/null)
+ echo
+}
\ No newline at end of file
diff --git a/lib/reset.sh b/lib/reset.sh
new file mode 100644
index 0000000..216620f
--- /dev/null
+++ b/lib/reset.sh
@@ -0,0 +1,15 @@
+#!/usr/bin/env bash
+
+# Delete all generated content, leaving only this script
+reset() {
+ echo "Are you sure you want to delete all blog entries? Please write \"Yes, I am!\" "
+ read -r line
+ if [[ $line == "Yes, I am!" ]]; then
+ rm .*.html ./*.html ./*.css ./*.rss &> /dev/null
+ echo
+ echo "Deleted all posts, stylesheets and feeds."
+ echo "Kept your old '.backup.tar.gz' just in case, please delete it manually if needed."
+ else
+ echo "Phew! You dodged a bullet there. Nothing was modified."
+ fi
+}
\ No newline at end of file
diff --git a/lib/tags_in_post.sh b/lib/tags_in_post.sh
new file mode 100644
index 0000000..35c6eda
--- /dev/null
+++ b/lib/tags_in_post.sh
@@ -0,0 +1,9 @@
+#!/usr/bin/env bash
+
+# Finds all tags referenced in one post.
+# Accepts either filename as first argument, or post content at stdin
+# Prints one line with space-separated tags to stdout
+tags_in_post() {
+ declare template_tags_line_header
+ sed -n "/^$template_tags_line_header/{s/^
$template_tags_line_header//;s/<[^>]*>//g;s/[ ,]\+/ /g;p;}" "$1" | tr ', ' ' '
+}
\ No newline at end of file
diff --git a/lib/test_markdown.sh b/lib/test_markdown.sh
new file mode 100644
index 0000000..1ad49ef
--- /dev/null
+++ b/lib/test_markdown.sh
@@ -0,0 +1,16 @@
+#!/usr/bin/env bash
+
+# Test if the markdown script is working correctly
+test_markdown() {
+ declare markdown_bin
+ if [[ -n $markdown_bin ]]; then
+ local m1; m1=$("$markdown_bin" <<< "$'line 1\n\nline 2'")
+ local m2; m2=$("$markdown_bin" <<< "$'line 1\n\nline 2'")
+ local c1=$'
line 1
\n\nline 2
'
+ local c2=$'line 1
\nline 2
'
+ # shellcheck disable=SC22350 # must enforce order of operations
+ [[ "$m1" == "$c1" ]] || [[ "$m2" == "$c2" ]]
+ else
+ return 1
+ fi
+}
\ No newline at end of file
diff --git a/lib/twitter_card.sh b/lib/twitter_card.sh
new file mode 100644
index 0000000..3366cb7
--- /dev/null
+++ b/lib/twitter_card.sh
@@ -0,0 +1,50 @@
+#!/usr/bin/env bash
+
+# Create a Twitter summary (twitter "card") for the post
+#
+# $1 the post file
+# $2 the title
+twitter_card() {
+ declare global_twitter_username
+ declare template_tags_line_header
+ declare global_url
+ declare global_twitter_cookieless
+ declare template_twitter_button
+ declare template_twitter_comment
+ declare template_comments
+ [[ -z $global_twitter_username ]] && return
+
+ echo ""
+ echo ""
+ echo "" # Twitter truncates at 70 char
+ description=$(grep -v "^$template_tags_line_header" "$1" | sed -e 's/<[^>]*>//g' | head -c 250 | tr '\n' ' ' | sed "s/\"/'/g")
+ echo ""
+ image=$(sed -n 's/.*"
+}
+
+# Adds the code needed by the twitter button
+#
+# $1 the post URL
+twitter() {
+ [[ -z $global_twitter_username ]] && return
+
+ if [[ $global_twitter_cookieless == true ]]; then
+ id=$RANDOM
+
+ search_engine="https://twitter.com/search?q="
+
+ echo ""
+ return;
+ else
+ echo ""
+}
\ No newline at end of file
diff --git a/lib/usage.sh b/lib/usage.sh
new file mode 100644
index 0000000..a5e00bd
--- /dev/null
+++ b/lib/usage.sh
@@ -0,0 +1,24 @@
+#!/usr/bin/env bash
+
+declare global_software_name
+declare global_software_version
+# Displays the help
+usage() {
+ echo "$global_software_name $global_software_version"
+ echo "usage: $0 command [filename]"
+ echo ""
+ echo "Commands:"
+ echo " post [filename] insert a new blog post in markdown, or the filename of a draft to continue editing it"
+ echo " edit [-n] [filename] edit an already published .md file. **NEVER** edit manually a published .html file,"
+ echo " always use this function as it keeps internal data and rebuilds the blog"
+ echo " use '-n' to give the file a new name, if title was changed"
+ echo " delete [filename] deletes the post and rebuilds the blog"
+ echo " rebuild regenerates all the pages and posts, preserving the content of the entries"
+ echo " reset deletes everything except this script. Use with a lot of caution and back up first!"
+ echo " list list all posts"
+ echo " tags [-n] list all tags in alphabetical order"
+ echo " use '-n' to sort list by number of posts"
+ echo ""
+ echo "for more information please see https://tilde.team/wiki/?page=tildeblogs"
+ echo "source here: https://tildegit.org/team/bashblog"
+}
diff --git a/lib/write_entry.sh b/lib/write_entry.sh
new file mode 100644
index 0000000..ed49021
--- /dev/null
+++ b/lib/write_entry.sh
@@ -0,0 +1,103 @@
+#!/usr/bin/env bash
+
+# Manages the creation of the text file and the parsing to html file
+# also the drafts
+write_entry() {
+ declare template_tags_line_header
+ declare global_url
+ declare convert_filename
+ declare save_markdown
+ test_markdown && fmt=md || fmt=html
+ f=$2
+ [[ $2 == -html ]] && fmt=html && f=$3
+
+ if [[ -n $f ]]; then
+ TMPFILE=$f
+ if [[ ! -f $TMPFILE ]]; then
+ echo "The file doesn't exist"
+ delete_includes
+ exit
+ fi
+ # guess format from TMPFILE
+ extension=${TMPFILE##*.}
+ [[ $extension == md || $extension == html ]] && fmt=$extension
+ # but let user override it (`bb.sh post -html file.md`)
+ [[ $2 == -html ]] && fmt=html
+ # Test if Markdown is working before re-posting a .md file
+ if [[ $extension == md ]]; then
+ if test_markdown; then
+ echo "Markdown is not working, please edit HTML file directly."
+ exit
+ fi
+ fi
+ else
+ TMPFILE=.entry-$RANDOM.$fmt
+ echo -e "Title on this line\n" >> "$TMPFILE"
+
+ [[ $fmt == html ]] && cat << EOF >> "$TMPFILE"
+The rest of the text file is an html blog post. The process will continue as soon
+as you exit your editor.
+
+$template_tags_line_header keep-this-tag-format, tags-are-optional, example
+EOF
+
+ [[ $fmt == md ]] && cat << EOF >> "$TMPFILE"
+The rest of the text file is a **Markdown** blog post. The process will continue
+as soon as you exit your editor.
+
+$template_tags_line_header keep-this-tag-format, tags-are-optional, beware-with-underscores-in-markdown, example
+EOF
+ fi
+ chmod 600 "$TMPFILE"
+
+ post_status="E"
+ filename=""
+ while [[ $post_status != "p" && $post_status != "P" ]]; do
+ [[ -n $filename ]] && rm "$filename" # Delete the generated html file, if any
+ $EDITOR "$TMPFILE"
+ if [[ $fmt == md ]]; then
+ html_from_md=$(mrkdwn "$TMPFILE")
+ parse_file "$html_from_md"
+ rm "$html_from_md"
+ else
+ parse_file "$TMPFILE" # this command sets $filename as the html processed file
+ fi
+
+ chmod 644 "$filename"
+ [[ -n $preview_url ]] || preview_url=$global_url
+ echo "To preview the entry, open $preview_url/$filename in your browser"
+
+ echo -n "[P]ost this entry, [E]dit again, [D]raft for later? (p/E/d) "
+ read -r post_status
+ if [[ $post_status == d || $post_status == D ]]; then
+ mkdir -p "drafts/"
+ chmod 700 "drafts/"
+
+ title=$(head -n 1 $TMPFILE)
+ [[ -n $convert_filename ]] && title=$(echo "$title" | eval "$convert_filename")
+ [[ -n $title ]] || title=$RANDOM
+
+ draft=drafts/$title.$fmt
+ mv "$TMPFILE" "$draft"
+ chmod 600 "$draft"
+ rm "$filename"
+ delete_includes
+ echo "Saved your draft as '$draft'"
+ exit
+ fi
+ done
+
+ if [[ $fmt == md && -n $save_markdown ]]; then
+ mv "$TMPFILE" "${filename%%.*}.md"
+ else
+ rm "$TMPFILE"
+ fi
+ chmod 644 "$filename"
+ echo "Posted $filename"
+ relevant_tags=$(tags_in_post "$filename")
+ if [[ -n $relevant_tags ]]; then
+ # shellcheck disable=SC2086 # Intended splitting of $relevant_tags
+ relevant_posts="$(posts_with_tags $relevant_tags) $filename"
+ rebuild_tags "$relevant_posts" "$relevant_tags"
+ fi
+}
\ No newline at end of file
diff --git a/md2gemini.awk b/md2gemini.awk
new file mode 100755
index 0000000..c77c168
--- /dev/null
+++ b/md2gemini.awk
@@ -0,0 +1,11 @@
+#!/bin/awk -f
+#
+# by: Josemar Lohn
+# lo.hn on www/gemini/gopher
+#
+# Based on md2html by Jesus Galan (yiyus) 2009
+#
+#
+# Usage: md2gemini.awk file.md > file.html
+
+1
\ No newline at end of file
diff --git a/md2gopher.awk b/md2gopher.awk
new file mode 100755
index 0000000..7b58a4b
--- /dev/null
+++ b/md2gopher.awk
@@ -0,0 +1,560 @@
+#!/bin/awk -f
+#
+# by: Josemar Lohn
+# lo.hn on www/gemini/gopher
+#
+# Based on md2html by Jesus Galan (yiyus) 2009
+#
+#
+# Usage: md2gopher.awk file.md > file.html
+
+function eschtml(t) {
+ #gsub("&", "\\&", t);
+ #gsub("<", "\\<", t);
+ return t;
+}
+
+function oprint(t){
+ if(nr == 0)
+ print t;
+ else
+ otext = otext "\n" t;
+}
+
+# https://unix.stackexchange.com/a/94751
+function centralize(t,c){
+ L = col - c - length(t);
+ #print("====" length(t) "=====" t "=====\n")
+ for(i=1; i<=int(L/2); i++)
+ t = " "t;
+ for(i=1; i<=int(L/2+.5); i++)
+ t = t " "
+ return t
+}
+
+
+# function from https://unix.stackexchange.com/a/282338
+function justify(t,i,nbchar,nbspc,spaces,spcpf,r){
+$0=t
+if (NF <= 1) { return t }
+else {
+ nbchar = 0
+ for (i = 1; i <= NF; i++) {
+ nbchar += length($i)
+ }
+ nbspc = col - nbchar
+ spcpf = int(nbspc / (NF - 1))
+ for (i = 1; i < NF; i++) {
+ r = r $i
+ spaces = (NF == 2 || i == NF - 1) ? nbspc : spcpf
+ if (spaces < 1) spaces = 1
+ for (j = 0; j < spaces; j++) {
+ r = r " "
+ }
+ nbspc -= spaces
+ }
+ r = r $NF
+}
+return r
+}
+
+function subref(id){
+ for(; nr > 0 && sub("<<" id, ref[id], otext); nr--);
+ if(nr == 0 && otext) {
+ print otext;
+ otext = "";
+ }
+}
+
+function nextil(t) {
+ if(!match(t, /[`<&\[*_\\-]|(!\[)|(\[\^)/))
+ return t;
+ t1 = substr(t, 1, RSTART - 1);
+ tag = substr(t, RSTART, RLENGTH);
+ t2 = substr(t, RSTART + RLENGTH);
+ if(ilcode && tag != "`")
+ return eschtml(t1 tag) nextil(t2);
+ # Backslash escaping
+ if(tag == "\\"){
+ if(match(t2, /^[\\`*_{}\[\]()#+\-\.!]/)){
+ tag = substr(t2, 1, 1);
+ t2 = substr(t2, 2);
+ }
+ return t1 tag nextil(t2);
+ }
+ # Dashes
+ if(tag == "-"){
+ if(sub(/^-/, "", t2))
+ tag = "—";
+ return t1 tag nextil(t2);
+ }
+ # Inline Code
+ if(tag == "`"){
+ if(sub(/^`/, "", t2)){
+ if(!match(t2, /``/))
+ return t1 "”" nextil(t2);
+ ilcode2 = !ilcode2;
+ }
+ else if(ilcode2)
+ return t1 tag nextil(t2);
+ tag = "";
+ if(ilcode){
+ t1 = eschtml(t1);
+ tag = "";
+ }
+ ilcode = !ilcode;
+ return t1 tag nextil(t2);
+ }
+ if(tag == "<"){
+ # Autolinks
+ if(match(t2, /^[^ ]+[\.@][^ ]+>/)){
+ url = eschtml(substr(t2, 1, RLENGTH - 1));
+ t2 = substr(t2, RLENGTH + 1);
+ linktext = url;
+ if(match(url, /@/) && !match(url, /^mailto:/))
+ url = "mailto:" url;
+ return t1 "" linktext "" nextil(t2);
+ }
+ # Html tags
+ if(match(t2, /^[A-Za-z\/!][^>]*>/)){
+ tag = tag substr(t2, RSTART, RLENGTH);
+ t2 = substr(t2, RLENGTH + 1);
+ return t1 tag nextil(t2);
+ }
+ return t1 "<" nextil(t2);
+ }
+ # Html special entities
+ if(tag == "&"){
+ if(match(t2, /^#?[A-Za-z0-9]+;/)){
+ tag = tag substr(t2, RSTART, RLENGTH);
+ t2 = substr(t2, RLENGTH + 1);
+ return t1 tag nextil(t2);
+ }
+ return t1 "&" nextil(t2);
+ }
+ # Images
+ if(tag == "!["){
+ if(!match(t2, /(\[.*\])|(\(.*\))/))
+ return t1 tag nextil(t2);
+ match(t2, /^[^\]]*/);
+ alt = substr(t2, 1, RLENGTH);
+ t2 = substr(t2, RLENGTH + 2);
+ if(match(t2, /^\(/)){
+ # Inline
+ sub(/^\(/, "", t2);
+ match(t2, /^[^\)]+/);
+ url = eschtml(substr(t2, 1, RLENGTH));
+ t2 = substr(t2, RLENGTH + 2);
+ title = "";
+ if(match(url, /[ ]+".*"[ ]*$/)) {
+ title = substr(url, RSTART, RLENGTH);
+ url = substr(url, 1, RSTART - 1);
+ match(title, /".*"/);
+ title = " title=\"" substr(title, RSTART + 1, RLENGTH - 2) "\"";
+ }
+ if(match(url, /^<.*>$/))
+ url = substr(url, 2, RLENGTH - 2);
+ return t1 "![\""](\"")
" nextil(t2);
+ }
+ else{
+ # Referenced
+ sub(/^ ?\[/, "", t2);
+ id = alt;
+ if(match(t2, /^[^\]]+/))
+ id = substr(t2, 1, RLENGTH);
+ t2 = substr(t2, RLENGTH + 2);
+ if(ref[id])
+ r = ref[id];
+ else{
+ r = "<<" id;
+ nr++;
+ }
+ return t1 "" nextil(t2);
+ }
+ }
+ # Footnotes
+ if(tag == "[^"){
+ match(t2, /^[^\]]*(\[[^\]]*\][^\]]*)*/);
+ linktext = substr(t2, 1, RLENGTH);
+ t2 = substr(t2, RLENGTH + 2);
+ return t1 "" linktext "" nextil(t2);
+ }
+ # Links
+ if(tag == "["){
+ if(!match(t2, /(\[.*\])|(\(.*\))/))
+ return t1 tag nextil(t2);
+ match(t2, /^[^\]]*(\[[^\]]*\][^\]]*)*/);
+ linktext = substr(t2, 1, RLENGTH);
+ t2 = substr(t2, RLENGTH + 2);
+ if(match(t2, /^\(/)){
+ # Inline
+ match(t2, /^[^\)]+(\([^\)]+\)[^\)]*)*/);
+ url = substr(t2, 2, RLENGTH - 1);
+ pt2 = substr(t2, RLENGTH + 2);
+ title = "";
+ if(match(url, /[ ]+".*"[ ]*$/)) {
+ title = substr(url, RSTART, RLENGTH);
+ url = substr(url, 1, RSTART - 1);
+ match(title, /".*"/);
+ title = " title=\"" substr(title, RSTART + 1, RLENGTH - 2) "\"";
+ }
+ if(match(url, /^<.*>$/))
+ url = substr(url, 2, RLENGTH - 2);
+ url = eschtml(url);
+ return t1 "" nextil(linktext) "" nextil(pt2);
+ }
+ else{
+ # Referenced
+ sub(/^ ?\[/, "", t2);
+ id = linktext;
+ if(match(t2, /^[^\]]+/))
+ id = substr(t2, 1, RLENGTH);
+ t2 = substr(t2, RLENGTH + 2);
+ if(ref[id])
+ r = ref[id];
+ else{
+ r = "<<" id;
+ nr++;
+ }
+ pt2 = t2;
+ return t1 "" nextil(linktext) "
" nextil(pt2);
+ }
+ }
+ # Emphasis
+ if(match(tag, /[*_]/)){
+ ntag = tag;
+ if(sub("^" tag, "", t2)){
+ if(stag[ns] == tag && match(t2, "^" tag))
+ t2 = tag t2;
+ else
+ ntag = tag tag
+ }
+ n = length(ntag);
+ tag = (n == 2) ? "strong" : "em";
+ if(match(t1, / $/) && match(t2, /^ /))
+ return t1 tag nextil(t2);
+ if(stag[ns] == ntag){
+ tag = "/" tag;
+ ns--;
+ }
+ else
+ stag[++ns] = ntag;
+ tag = "<" tag ">";
+ return t1 tag nextil(t2);
+ }
+}
+
+function inline(t) {
+ ilcode = 0;
+ ilcode2 = 0;
+ ns = 0;
+
+ return nextil(t);
+}
+
+#https://unix.stackexchange.com/a/337656
+function wrap(t,align,q,y,z,final) {
+ while (t)
+ {
+ q = match(t, / |$/); y += q
+ if (y > col) {
+ if (align != 0)
+ {
+ if (align=="c")
+ #print "zzzzzzzzzzzzzzzzzzzzzzzzzzzzz"
+ final = final centralize(z) RS
+ if (align=="j")
+ final = final justify(z) RS
+ }
+ else
+ {
+ final = final z RS
+ }
+ y = q - 1
+ z = ""
+ }
+ else if (z) z = z FS
+ z = z substr(t, 1, q - 1)
+ t = substr(t, q + 1)
+ }
+ if (align=="c")
+ {
+ final = final centralize(z)
+ }
+ else {
+ final = final z
+ }
+ return final
+}
+
+function printp(tag) {
+ if(!match(text, /^[ ]*$/)){
+ text = inline(text);
+ if(tag == "p")
+ {
+ oprint(wrap(text,"j"))
+ }
+ else
+ {
+ oprint(text);
+ }
+ }
+ text = "";
+}
+
+BEGIN {
+ blank = 0;
+ code = 0;
+ hr = 0;
+ html = 0;
+ nl = 0;
+ nr = 0;
+ otext = "";
+ text = "";
+ par = "p";
+ col=70;
+ c=0; do { lineheader = "=" lineheader; c++ } while ( c < col )
+ c=0; do { lineheadersmall = "-" lineheadersmall; c++ } while ( c < col )
+}
+
+# References
+!code && /^ *\[\^![^\]]*\]:[ ]+/ {
+ sub(/^ *\[\^!/, "");
+ match($0, /\]/);
+ id = substr($0, 1, RSTART - 1);
+ sub(id "\\]:[ ]+", "");
+ title = "";
+ if(match($0, /".*"$/))
+ title = "\" title=\"" substr($0, RSTART + 1, RLENGTH - 2);
+ sub(/[ ]+".*"$/, "");
+ url = eschtml($0);
+ ref[id] = url title;
+
+ subref(id);
+ next;
+}
+
+!code && /^ *\[\^[^\]]*\]:[ ]+/ {
+ sub(/^ *\[\^/, "");
+ match($0, /\]/);
+ id = substr($0, 1, RSTART - 1);
+ sub(id "\\]:[ ]+", "");
+ sub(/[ ]+".*"$/, "");
+ url = eschtml($0);
+ fnref[id] = url;
+
+ subref(id);
+ next;
+}
+
+# html
+!html && /^<(address|blockquote|center|dir|div|dl|fieldset|form|h[1-6r]|\
+isindex|menu|noframes|noscript|ol|p|pre|table|ul|!--)/ {
+ if(code)
+ oprint("");
+ for(; !text && block[nl] == "blockquote"; nl--)
+ oprint("");
+ match($0, /^<(address|blockquote|center|dir|div|dl|fieldset|form|h[1-6r]|\
+ isindex|menu|noframes|noscript|ol|p|pre|table|ul|!--)/);
+ htag = substr($0, 2, RLENGTH - 1);
+ if(!match($0, "(<\\/" htag ">)|((^