change how the site is built

copy the kamid/site "framework" here too; in other words: don't maintain
two copies of every page! \o/

1 files changed, 39 insertions, 0 deletions

diff --git a/site/menu.pl b/site/menu.pl
new file mode 100755
index 0000000..6c65eea
--- /dev/null
+++ b/site/menu.pl
@@ -0,0 +1,39 @@
+#!/usr/bin/env perl
+
+use v5.10;
+use strict;
+use warnings;
+
+my $page = shift or die 'missing page';
+my $outtype = shift or die 'missing output type';
+my @pages = ();
+
+while (<>) {
+	chomp;
+	@pages = (@pages, $_);
+}
+
+my $did = 0;
+for (@pages) {
+	my ($href, $text) = m/^([^\s]*)\s*(.*)$/;
+
+	if ($outtype eq 'gemini') {
+		if ($href ne $page) {
+			say "=> $href $text";
+		}
+	} else {
+		if (!$did) {
+			$did = 1;
+		} else {
+			print "| ";
+		}
+
+		if ($href eq $page) {
+			print "$text ";
+		} else {
+			print "<a href='$href'>$text</a> ";
+		}
+	}
+}
+
+say "";