Add quote support to text/gemini typesetting

1 files changed, 18 insertions, 0 deletions

@@ -715,6 +715,9 @@ typeset_gemini() {
                 '*'[[:space:]]*)
                         gemini_list "$REPLY" $pre
                         ;;
+                '>'*)
+                        gemini_quote "$REPLY" $pre
+                        ;;
                 *) gemini_text "$REPLY" $pre ;;
                 esac
         done
@@ -776,6 +779,21 @@ gemini_list() {
         fi
 }
 
+gemini_quote() {
+        local re="^(>)[[:blank:]]*(.*)"
+        local s t a l
+        if ! ${2-false} && [[ "$1" =~ $re ]]; then
+                s="${BASH_REMATCH[1]}"
+                t="${BASH_REMATCH[2]}"
+
+                printf "\e[${C_SIGIL}m%${S_MARGIN}s " "$s"
+                printf -v l "\e[${C_LIST}m%s${C_RESET}\n" "$t"
+                fold_line "$WIDTH" "$l"
+        else
+                gemini_pre "$1"
+        fi
+}
+
 gemini_text() {
         if ! ${2-false}; then
                 printf "%${S_MARGIN}s " ' '