: gemini-print ( url body meta -- )
f pre [
PAGE delete-all
- gemini-charset decode string-lines [
+ gemini-charset decode lines [
{ [ pre get not ] [ "=>" ?head ] } 0&& [
swap gemini-link present over 2array PAGE push
PAGE length swap "[%s] %s\n" printf