restore web code page

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>
 
 

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

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"]}
+
+
+