restore font samples

fontrec/amira.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Amira")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://store.typenetwork.com/foundry/occupant/fonts/amira"]{TypeNetwork}

fontrec/amplitude.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Amplitude")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://store.typenetwork.com/foundry/fontbureau/fonts/amplitude"]{TypeNetwork}

fontrec/arno.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Arno")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://typekit.com/fonts/arno"]{Adobe Typekit}

fontrec/bembo-book.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Bembo Book")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.myfonts.com/fonts/mti/bembo-book/"]{MyFonts}

fontrec/brioni.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Brioni")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.typotheque.com/fonts/brioni"]{Typetheque}

fontrec/courier-10-pitch.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Courier 10 Pitch")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.myfonts.com/fonts/bitstream/courier-10-pitch/"]{MyFonts}

fontrec/ff-meta.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "FF Meta")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.fontshop.com/families/ff-meta"]{FontShop}

fontrec/ff-quadraat-sans.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "FF Quadraat Sans")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.fontshop.com/families/ff-quadraat-sans"]{FontShop}

fontrec/ff-quadraat.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "FF Quadraat")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.fontshop.com/families/ff-quadraat"]{FontShop}

fontrec/ff-scala-sans.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "FF Scala Sans")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.fontshop.com/families/ff-scala-sans"]{FontShop}

fontrec/ff-tisa.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "FF Tisa")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.fontshop.com/families/ff-tisa"]{FontShop}

fontrec/frutiger.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Frutiger")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.myfonts.com/fonts/linotype/frutiger/"]{MyFonts}

fontrec/gotham.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Gotham")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.typography.com/fonts/gotham/"]{Hoefler & Co.}

fontrec/helvetica-neue.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Helvetica Neue")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.myfonts.com/fonts/linotype/neue-helvetica/"]{MyFonts}

fontrec/itc-franklin-gothic.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "ITC Franklin Gothic")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.myfonts.com/fonts/itc/franklin-gothic/"]{MyFonts}

fontrec/janson-text.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Janson Text")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.myfonts.com/fonts/linotype/janson-text/"]{MyFonts}

fontrec/lyon.html copy.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Lyon")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://commercialtype.com/catalog/lyon/lyon_text"]{Commercial Type}

fontrec/magma.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Magma")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.myfonts.com/fonts/stone/magma-ii/"]{MyFonts}

fontrec/mercury.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Mercury")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.typography.com/fonts/mercury/"]{Hoefler & Co.}

fontrec/minion.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Minion")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://typekit.com/fonts/minion"]{Adobe Typekit}

fontrec/mr-eaves.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Mr Eaves")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.emigre.com/Fonts/Mr-Eaves-Sans-and-Modern"]{Emigre}

fontrec/mrs-eaves.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Mrs Eaves")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.emigre.com/Fonts/Mrs-Eaves"]{Emigre}

fontrec/myriad.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Myriad")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://typekit.com/fonts/myriad"]{Adobe Typekit}

fontrec/news-gothic.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "News Gothic")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.myfonts.com/fonts/mti/news-gothic-mt/"]{MyFonts}

fontrec/optima-nova.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Optima Nova")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.myfonts.com/fonts/linotype/optima-nova/"]{MyFonts}

fontrec/plantin.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Plantin")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.myfonts.com/fonts/mti/plantin/"]{MyFonts}

fontrec/sabon.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Sabon")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.myfonts.com/fonts/linotype/sabon/"]{MyFonts}

fontrec/sentinel.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Sentinel")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.typography.com/fonts/sentinel/"]{Hoefler & Co.}

fontrec/starling.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Starling")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://store.typenetwork.com/foundry/fontbureau/fonts/starling"]{TypeNetwork}

fontrec/stempel-garamond.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Stempel Garamond")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.myfonts.com/fonts/linotype/stempel-garamond/"]{MyFonts}

fontrec/syntax.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Syntax")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.myfonts.com/fonts/linotype/syntax/"]{MyFonts}

fontrec/univers.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Univers")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.myfonts.com/fonts/linotype/univers/"]{MyFonts}

fontrec/vista-sans.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Vista Sans")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.emigre.com/Fonts/Vista-Sans"]{Emigre}

fontrec/vista-slab.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Vista Slab")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://www.emigre.com/Fonts/Vista-Slab"]{Emigre}

fontrec/williams-caslon.html.pm

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊(define-meta title "Williams Caslon")
+
+◊(pdf-thumbnail-link-from-metas metas)
+
+◊buylink["https://store.typenetwork.com/foundry/fontbureau/fonts/williams-caslon-text"]{TypeNetwork}

web-code.html.pm

@@ -1,12 +1,16 @@
 #lang pollen
+◊(require pollen/unstable/convert)
 
 ◊(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"]}
+◊margin-note{}
 
+Type the code below and press return.
 
+◊html->xexpr{
+<form name="codeform" action="javascript:jumpToCode();"> 
+<input style="border: 1px solid gray;font-size:200%;font-family:advocate-c43;padding:.25em" class="codebox" name="codefield" size="8" type="text" />
+</form>}