$nl%s$nl}" - : "${fmtline_quot:=%s$nl}" - : "${fmtbuff_list:=
%s
$nl}" - : "${fmtline_para:=%s$nl}" - : "${fmtline_plnk:=%s$nl}" - : "${fmtbuff_link:=%s\1#' \
- -e 's@---@\—@g' \
- -e 's@--@\–@g'
-
-}
-
-### Processing
-
-## Utility functions
-
-pushline() {
- tag="$1"; shift
- printf "$(eval echo "\$fmtline_$tag")" "$@" >> "$buff"
-}
-
-bufprint() {
- 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
-process() {
- set -f
- while read -r sigil line
- do
- if $verbatimp && test "$sigil" != '```'
- then
- pushline verb "$(filter_line "$sigil $line")"
- continue
- fi
-
- case "$sigil" in
- (*':') # 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
- verbatimp=false
- prev=
- else
- bufprint "$prev"
- verbatimp=true
- fi
- continue
- ;;
- ('=>') # link
- metap=false
-
- printf '%s\n' "$line" > "$lbuf"
- read -r url title < "$lbuf"
- if test "$curr" = para
- then
- pushline plnk "$url" "$title"
- continue
- else curr=link
- fi
- ;;
- ('#'*) # 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"
- ;;
- esac
-
- test "$curr" = "$prev" || bufprint "$prev"
- prev="$curr"
-
- if test "$curr" = verb
- then
- pushline "$curr" "$line"
- continue
- fi
-
- if test "$curr" = link
- then pushline "$curr" "$url" "$(filter_line "$title")"
- else pushline "$curr" "$(filter_line "$line")"
- fi
- done
-
- bufprint "$curr"
-}
-
-templatize() {
- eval "cat<<$te
-$(cat $@)
-$te"
-}
-
-### Entry point
-
-usage() {
- cat <&2
-jimmy: convert gmi to other formats
-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 hxI:t:T: OPT
- do
- case "$OPT" in
- (h) usage 0 ;;
- (x) set -x ;;
- (I) IPATH="$OPTARG:$IPATH" ;;
- (t) to="$OPTARG" ;;
- (T) tmpl="$OPTARG" ;;
- (*) usage 1 ;;
- esac
- done
- shift $((OPTIND - 1))
-
- case "$to" in
- (html|gmi) "$to" ;;
- (*)
- 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 |
- 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
deleted file mode 100644
index 62bed2e..0000000
--- a/test.gmi
+++ /dev/null
@@ -1,37 +0,0 @@
-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.
-it has paragraphs
-=> example.com with links!
-and other things.
-
-## a code example
-```
-for (a=1;a<=4;a++) {
- printf("%d\n", a);
-}
-```
-
-### other examples
-
-> a blockquote is a quote
-> that is blocky.
-
-* list 1
-* list 2
-* list 3
-=> example.com link list 1
-=> example.com link list 2
-=> example.com link list 3
-
-ok, now for another test:
-will *strong* in-line text be converted?
-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?*
--
cgit 1.4.1-21-gabe81