$nl%s$nl" - fmtline_quot="%s$nl" - fmtbuff_list="
%s
$nl" - fmtline_para="%s$nl" - fmtline_plnk="%s$nl" - fmtbuff_link="%s$nl%s$nl}" + : "${fmtline_quot:=%s$nl}" + : "${fmtbuff_list:=
%s
$nl}" + : "${fmtline_para:=%s$nl}" + : "${fmtline_plnk:=%s$nl}" + : "${fmtbuff_link:=%s\1#'
+ # s@@@ : smart versions of things
+ sed \
+ -e 's/&/\&/g' \
+ -e 's//\>/g' \
+ -e 's#\*\([^*]*\)\*#\1#g' \
+ -e 's#_\([^_]*\)_#\1#g' \
+ -e 's#`\([^`]*\)`#\1#' \
+ -e 's@---@\—@g' \
+ -e 's@--@\–@g'
}
@@ -108,46 +116,55 @@ pushline() {
}
bufprint() {
- b="$(cat<"$buff")"
- printf "$(eval echo "\$fmtbuff_$1")" "$b" | filter_buff
+ b="$(filter_buff<"$buff")"
+ printf "$(eval echo "\$fmtbuff_$1")" "$b" |
+ sed -e "s/$nl/\n/g" -e "s/$sp/ /g" # fix whitespace
: > "$buff"
}
-## Where the magic happens
+### Where the magic happens
process() {
set -f
while read -r sigil line
do
- if $verbatim && test "$sigil" != '```'
+ if $verbatimp && test "$sigil" != '```'
then
pushline verb "$(filter_line "$sigil $line")"
continue
fi
case "$sigil" in
- ('```')
- if $verbatim
+ (*':') # metadata
+ if $metap
+ then printf 'export %s="%s"\n' \
+ "${sigil%:}" "$line" >>"$meta"
+ fi
+ ;;
+ ('```') # verbatim
+ # CONSIDER: "types" of verbatim
+ # designated by extra fields after the
+ # sigil
+ ## ``` class_of_content
+ # ^--- change the class of the content,
+ # eg. in html do
+ # other formats might do other things
+ ## ``` | some_program
+ # ^--- pipe the buffer to some_program
+ metap=false
+ if $verbatimp
then
bufprint verb
- verbatim=false
+ verbatimp=false
prev=
else
- # CONSIDER: "types" of verbatim
- # designated by extra fields after the
- # sigil
- ## ``` class_of_content
- # ^- change the class of the content,
- # eg. in html do
- # other formats might do other things
- ## ``` | some_program
- # ^- pipe the buffer to some_program
- ## others?
bufprint "$prev"
- verbatim=true
+ verbatimp=true
fi
continue
;;
- ('=>')
+ ('=>') # link
+ metap=false
+
printf '%s\n' "$line" > "$lbuf"
read -r url title < "$lbuf"
if test "$curr" = para
@@ -157,11 +174,20 @@ process() {
else curr=link
fi
;;
- ('#'*) curr=hd_${#sigil} ;;
- ('>') curr=quot ;;
- ('*') curr=list ;;
- ('') curr=blank ;;
- (*)
+ ('#'*) # header
+ metap=false
+ curr=hd_${#sigil} ;;
+ ('>') # quote
+ metap=false
+ curr=quot ;;
+ ('*') # list
+ metap=false
+ curr=list ;;
+ ('') # blank line
+ metap=false
+ curr=blank ;;
+ (*) # paragraph
+ metap=false
curr=para
line="$sigil $line"
;;
@@ -185,28 +211,43 @@ process() {
bufprint "$curr"
}
+templatize() {
+ eval "cat<<$te
+$(cat $@)
+$te"
+}
+
### Entry point
usage() {
cat <&2
jimmy: convert gmi to other formats
-usage: jimmy [-h] [-t FORMAT] [FILE...]
+usage: jimmy [-h] [-t FORMAT] [-I DIRECTORY] [-T FILE] [FILE...]
If no FILE is given on the command line, jimmy reads standard input.
options:
-h show this help and exit
+ -x enable xtrace (set -x)
-t FORMAT
convert gmi to FORMAT. html is default, gmi is built-in.
you can also pass the name of a file that will be sourced.
+ -I DIRECTORY
+ add DIRECTORY to the include path for -t. the current
+ directory is always in the include path.
+ -T FILE
+ use FILE as a template for the output text.
EOF
+ exit $1
}
main() {
- while getopts ht:x OPT
+ while getopts hxI:t:T: OPT
do
case "$OPT" in
(h) usage 0 ;;
- (t) to="$OPTARG" ;;
(x) set -x ;;
+ (I) IPATH="$OPTARG:$IPATH" ;;
+ (t) to="$OPTARG" ;;
+ (T) tmpl="$OPTARG" ;;
(*) usage 1 ;;
esac
done
@@ -214,15 +255,36 @@ main() {
case "$to" in
(html|gmi) "$to" ;;
- (*) . "$to" || {
- echo >&2 "Can't find file: '$to'"
- exit 2
- }
- ;;
+ (*)
+ found=false
+ for p in $(echo "$IPATH"|tr : ' ')
+ do
+ if test -f "$p/$to"
+ then . "$p/$to"; found=true
+ elif test -f "$p/$to.sh"
+ then . "$p/$to.sh"; found=true
+ fi
+ done
+ if ! $found
+ then
+ echo >&2 "Can't find file: '$to'"
+ echo >&2 "Looked in $IPATH"
+ exit 2
+ fi
+ ;;
esac
# while read requires a final newline
- (cat "${@:--}"; echo) | process
+ (cat "${@:--}"; echo) |
+ process |
+ if test -n "$tmpl"
+ then
+ # use eval cat instead of source for pipe sequencing
+ # reasons
+ eval "$(cat "$meta")"
+ templatize "$tmpl"
+ else cat
+ fi
}
main "$@"
diff --git a/test.gmi b/test.gmi
index f2dc0dc..62bed2e 100644
--- a/test.gmi
+++ b/test.gmi
@@ -1,3 +1,7 @@
+title: a test document
+date: 2024-05-13T03:02:45Z
+uuid: b3daebf1-440b-4828-a4d9-9089c7bd7c61
+
# a test document of some kind
here is a test document.
@@ -30,4 +34,4 @@ as well as `code`, _emph_ and such?
what if *i _nest_ them*
what if *i _nest them* wrong_ ?
what about *breaking them
-over two lines?*
\ No newline at end of file
+over two lines?*
--
cgit 1.4.1-21-gabe81