Index: trunk/font.cfg
===================================================================
--- trunk/font.cfg (revision 2)
+++ trunk/font.cfg (revision 2)
@@ -0,0 +1,19 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: trunk/mkrecipe
===================================================================
--- trunk/mkrecipe (revision 2)
+++ trunk/mkrecipe (revision 2)
@@ -0,0 +1,7 @@
+#!/bin/bash
+
+./recipe2xml $1 | xsltproc --stringparam size 11x8.5 recipe.xsl - > recipe.fo
+
+fop -c font.cfg -fo recipe.fo -pdf $1.pdf 2> /dev/null
+
+rm recipe.fo
Index: trunk/recipe.xsl
===================================================================
--- trunk/recipe.xsl (revision 2)
+++ trunk/recipe.xsl (revision 2)
@@ -0,0 +1,56 @@
+
+
+
+
+
+ 5x8
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: trunk/recipe2xml
===================================================================
--- trunk/recipe2xml (revision 2)
+++ trunk/recipe2xml (revision 2)
@@ -0,0 +1,56 @@
+#!/usr/bin/perl -w
+use strict;
+
+$/ = '';
+
+print "\n";
+while (<>) {
+ chomp;
+ s/^\s+//g;
+ s/\s+$//g;
+ if (/^##\s+(.*)/) {
+ # title
+ print "$1";
+ } elsif (/^\d/) {
+ # ingredient list
+ print '';
+ foreach (split /\n/, $_) {
+ /^\s+/ ? print '' . apply_symbols($_) . ''
+ : print '' . apply_symbols($_) . '';
+ }
+ print '';
+ } else {
+ # TODO: catch special body paragraphs, like "Note:", "Serves", "Yields", etc.
+ # body
+ # fold the lines together
+ s/\n/ /;
+ print '' . apply_symbols($_) . '';
+ }
+}
+print '';
+
+
+sub apply_symbols {
+ my $string = shift;
+ for ($string) {
+ # numeric dimensions
+ s/(\d)x/$1⨯/g;
+ # temperature
+ s/(\d)\s*deg.(\s*F)?/$1℉/g;
+ # fractions
+ s{1/3}{⅓}g;
+ s{2/3}{⅔}g;
+ s{1/4}{¼}g;
+ s{1/2}{½}g;
+ s{3/4}{¾}g;
+ s{1/8}{⅛}g;
+ # inches
+ s/(\d)[ -]?(in\.|in\b|inch)/$1″/g;
+ # numeric range en dashes
+ s/(\d)-(\d)/$1–$2/g;
+ # remove dash before vulgar fractions
+ s/(\d)-([¼½¾⅓⅔])/$1$2/g;
+ }
+ return $string;
+}
+