gemini: wrap at 78 chars.

diff --git a/extra/gemini/gemini.factor b/extra/gemini/gemini.factor
index 8d5c125d3cdd941fc54ba05c8d3313dcec8d4cbd..5cd9fca45f7e0230fcaaa900d84ef780d817341e 100644 (file)
--- a/extra/gemini/gemini.factor
+++ b/extra/gemini/gemini.factor
@@ -163,7 +163,7 @@ DEFER: gemtext.
     ] while drop ;
 
 : gemini-quoted. ( text -- )
-    78 gemini-pad 78 wrap-lines [ "> " write print ] each ;
+    76 gemini-pad 76 wrap-lines [ "> " write print ] each ;
 
 SYMBOL: pre
 
@@ -177,7 +177,7 @@ SYMBOL: pre
             { [ pre get ] [ print ] }
             { [ "=>" ?head ] [ base-url gemini-link. ] }
             { [ "> " ?head ] [ gemini-quoted. ] }
-            [ 80 gemini-pad 80 wrap-string print ]
+            [ 78 gemini-pad 78 wrap-string print ]
         } cond
     ] if ;