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