From ce699cf11f44eeef72b4890c3cadbe1184cd24c9 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Sat, 26 Aug 2017 10:17:50 -0700
Subject: [PATCH] restore web code page

---
 template.html.p  |  8 ++++++++
 utility.ptree    |  1 +
 web-code.html.pm | 12 ++++++++++++
 3 files changed, 21 insertions(+)
 create mode 100644 web-code.html.pm

diff --git a/template.html.p b/template.html.p
index d202c27..c608551 100644
--- a/template.html.p
+++ b/template.html.p
@@ -72,6 +72,14 @@ document.write('<link rel="stylesheet" type="text/css" media="all" href="/firefo
     var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
   })();
 
+
+  function jumpToCode() {
+    code_value = document.forms['codeform'].elements['codefield'].value;
+    window.location.href = "http://typo.la/" + code_value;
+    return false;
+  }
+
+
 </script>
 
 
diff --git a/utility.ptree b/utility.ptree
index 0656210..0cbe4c7 100644
--- a/utility.ptree
+++ b/utility.ptree
@@ -2,6 +2,7 @@
 ◊(require sugar/coerce sugar/unstable/string sugar/file)
 
 error.html
+web-code.html
 
 fonts/equity-a.css
 fonts/equity-b.css
diff --git a/web-code.html.pm b/web-code.html.pm
new file mode 100644
index 0000000..2b3f3f9
--- /dev/null
+++ b/web-code.html.pm
@@ -0,0 +1,12 @@
+#lang pollen
+
+◊(define-meta title "Enter a web code")
+◊(section-from-metas metas)
+◊(define-meta toolbar-blank "true")
+ 
+Type the code below and press return.
+
+◊form[#:action "javascript:jumpToCode();" #:name "codeform"]{◊input[#:type "text" #:style "border: 1px solid gray;padding: 0.5em" #:name "codefield" #:size "8" #:autofocus "42"]}
+
+
+