diff --git a/Makefile b/Makefile

index 69a241a8825a6a7aa979eb2ae95a26faaf3a0532..3d4df602cd7f7ab4f5a45b47dee0d47729f0739c 100644

--- a/Makefile

+++ b/Makefile

@@ -8,6 +8,10 @@ gmni: $(gmni_objects)

@printf 'CCLD\t$@\n'

@$(CC) $(LDFLAGS) $(LIBS) -o $@ $(gmni_objects)

+gmnlm: $(gmnlm_objects)

• @printf 'CCLD\t$@\n'

• @$(CC) $(LDFLAGS) $(LIBS) -o $@ $(gmnlm_objects)

doc/gmni.1: doc/gmni.scd

.SUFFIXES: .c .o .scd .1

diff --git a/config.sh b/config.sh

index b93815ada4a25ec508e7a86cc79b9e9be3eba428..52931ab241c3177285b56258bf9b67ac4b63a7ea 100644

--- a/config.sh

+++ b/config.sh

@@ -134,6 +134,7 @@

all: ${all}

EOF

gmni >>"$outdir"/config.mk

• gmnlm >>"$outdir"/config.mk

echo done

touch $outdir/cppcache

diff --git a/configure b/configure

index aca6e8a1eaa9a6271f03eb8863640d0d93cdf435..151bdae8c12d9ad07d3a5240d7c554f4c62664c8 100755

--- a/configure

+++ b/configure

@@ -7,10 +7,18 @@ genrules gmni \

	src/client.c \

	src/escape.c \

	src/gmni.c \

•   src/url.c
  

+}

+gmnlm() {

• genrules gmnlm \

•   src/client.c \
  

•   src/escape.c \
  

•   src/gmnlm.c \
  

	src/parser.c \

	src/url.c

}

-all="gmni"

+all="gmni gmnlm"

run_configure

diff --git a/src/gmni.c b/src/gmni.c

index 75c6c5afb6e7f1f286d314d93f2b44ef8414afb3..dc0c5c7f61679369fe4fadafd0508147868cc3c3 100644

--- a/src/gmni.c

+++ b/src/gmni.c

@@ -15,7 +15,7 @@ #include <unistd.h>

#include "gmni.h"

static void

-usage(char *argv_0)

+usage(const char *argv_0)

{

fprintf(stderr,

	"usage: %s [-46lLiIN] [-E cert] [-d input] [-D path] gemini://...\n",

diff --git a/src/gmnlm.c b/src/gmnlm.c

new file mode 100644

index 0000000000000000000000000000000000000000..bc3f647d42372678b4180f539df8637d0ba69a12

--- /dev/null

+++ b/src/gmnlm.c

@@ -0,0 +1,215 @@

+#include <assert.h>

+#include <ctype.h>

+#include <getopt.h>

+#include <openssl/bio.h>

+#include <openssl/err.h>

+#include <stdbool.h>

+#include <stdio.h>

+#include <string.h>

+#include <sys/ioctl.h>

+#include <termios.h>

+#include <unistd.h>

+#include "gmni.h"

+#include "url.h"

+struct link {

• char *url;

• struct link *next;

+};

+static void

+usage(const char *argv_0)

+{

• fprintf(stderr, "usage: %s [gemini://...]\n", argv_0);

+}

+static bool

+set_url(struct Curl_URL *url, char *new_url)

+{

• if (curl_url_set(url, CURLUPART_URL, new_url, 0) != CURLUE_OK) {

•   fprintf(stderr, "Error: invalid URL\n");
  

•   return false;
  

• }

• return true;

+}

+static char *

+trim_ws(char *in)

+{

• for (int i = strlen(in) - 1; in[i] && isspace(in[i]); --i) {

•   in[i] = 0;
  

• }

• for (; *in && isspace(*in); ++in);

• return in;

+}

+static void

+display_gemini(FILE *tty, struct gemini_response *resp,

•   struct link **next, bool pagination)
  

+{

• int nlinks = 0;

• struct gemini_parser p;

• gemini_parser_init(&p, resp->bio);

• struct winsize ws;

• ioctl(fileno(tty), TIOCGWINSZ, &ws);

• int row = 0, col = 0;

• struct gemini_token tok;

• while (gemini_parser_next(&p, &tok) == 0) {

•   switch (tok.token) {
  

•   case GEMINI_TEXT:
  

•   	// TODO: word wrap
  

•   	col += fprintf(tty, "   %s\n", trim_ws(tok.text));
  

•   	break;
  

•   case GEMINI_LINK:
  

•   	(void)next; // TODO: Record links
  

•   	col += fprintf(tty, "[%d] %s\n", nlinks++, trim_ws(
  

•   		tok.link.text ? tok.link.text : tok.link.url));
  

•   	break;
  

•   case GEMINI_PREFORMATTED:
  

•   	continue; // TODO
  

•   case GEMINI_HEADING:
  

•   	for (int n = tok.heading.level; n; --n) {
  

•   		col += fprintf(tty, "#");
  

•   	}
  

•   	col += fprintf(tty, " %s\n", trim_ws(tok.heading.title));
  

•   	break;
  

•   case GEMINI_LIST_ITEM:
  

•   	// TODO: Option to disable Unicode
  

•   	col += fprintf(tty, " • %s\n", trim_ws(tok.list_item));
  

•   	break;
  

•   case GEMINI_QUOTE:
  

•   	// TODO: Option to disable Unicode
  

•   	col += fprintf(tty, " | %s\n", trim_ws(tok.quote_text));
  

•   	break;
  

•   }
  

•   while (col >= ws.ws_col) {
  

•   	col -= ws.ws_col;
  

•   	++row;
  

•   }
  

•   ++row;
  

•   col = 0;
  

•   if (pagination && row >= ws.ws_row - 1) {
  

•   	fprintf(tty, "[Enter for more, or q to stop] ");
  

•   	size_t n = 0;
  

•   	char *l = NULL;
  

•   	if (getline(&l, &n, tty) == -1) {
  

•   		return;
  

•   	}
  

•   	if (strcmp(l, "q\n") == 0) {
  

•   		return;
  

•   	}
  

•   	free(l);
  

•   	row = col = 0;
  

•   }
  

• }

• gemini_parser_finish(&p);

+}

+int

+main(int argc, char *argv[])

+{

• bool pagination = true;

• bool have_url = false;

• struct Curl_URL *url = curl_url();

• FILE *tty = fopen("/dev/tty", "w+");

• int c;

• while ((c = getopt(argc, argv, "hP")) != -1) {

•   switch (c) {
  

•   case 'P':
  

•   	pagination = false;
  

•   	break;
  

•   case 'h':
  

•   	usage(argv[0]);
  

•   	return 0;
  

•   default:
  

•   	fprintf(stderr, "fatal: unknown flag %c\n", c);
  

•   	return 1;
  

•   }
  

• }

• if (optind == argc - 1) {

•   set_url(url, argv[optind]);
  

•   have_url = true;
  

• } else if (optind < argc - 1) {

•   usage(argv[0]);
  

•   return 1;
  

• }

• SSL_load_error_strings();

• ERR_load_crypto_strings();

• struct gemini_options opts = {

•   .ssl_ctx = SSL_CTX_new(TLS_method()),
  

• };

• bool run = true;

• struct gemini_response resp;

• while (run) {

•   assert(have_url); // TODO
  

•   struct link *links;
  

•   static char prompt[4096];
  

•   char *plain_url;
  

•   CURLUcode uc = curl_url_get(url, CURLUPART_URL, &plain_url, 0);
  

•   assert(uc == CURLUE_OK); // Invariant
  

•   snprintf(prompt, sizeof(prompt), "\n\t%s\n"
  

•   	"\tWhere to? [n]: follow Nth link; [o <url>]: open URL; [q]: quit\n"
  

•   	"=> ", plain_url);
  

•   enum gemini_result res = gemini_request(plain_url, &opts, &resp);
  

•   if (res != GEMINI_OK) {
  

•   	fprintf(stderr, "Error: %s\n", gemini_strerr(res, &resp));
  

•   	assert(0); // TODO: Prompt
  

•   }
  

•   switch (gemini_response_class(resp.status)) {
  

•   case GEMINI_STATUS_CLASS_INPUT:
  

•   	assert(0); // TODO
  

•   case GEMINI_STATUS_CLASS_REDIRECT:
  

•   	assert(0); // TODO
  

•   case GEMINI_STATUS_CLASS_CLIENT_CERTIFICATE_REQUIRED:
  

•   	assert(0); // TODO
  

•   case GEMINI_STATUS_CLASS_TEMPORARY_FAILURE:
  

•   case GEMINI_STATUS_CLASS_PERMANENT_FAILURE:
  

•   	fprintf(stderr, "Server returned %s %d %s\n",
  

•   		resp.status / 10 == 4 ?
  

•   		"TEMPORARY FAILURE" : "PERMANENT FALIURE",
  

•   		resp.status, resp.meta);
  

•   	break;
  

•   case GEMINI_STATUS_CLASS_SUCCESS:
  

•   	display_gemini(tty, &resp, &links, pagination);
  

•   	break;
  

•   }
  

•   gemini_response_finish(&resp);
  

•   fprintf(tty, "%s", prompt);
  

•   size_t l = 0;
  

•   char *in = NULL;
  

•   ssize_t n = getline(&in, &l, tty);
  

•   if (n == -1 && feof(tty)) {
  

•   	break;
  

•   }
  

•   if (strcmp(in, "q\n") == 0) {
  

•   	run = false;
  

•   }
  

•   free(in);
  

• }

• SSL_CTX_free(opts.ssl_ctx);

• curl_url_cleanup(url);

• return 0;

+}