Index: trunk/font.cfg
===================================================================
--- trunk/font.cfg (revision 4)
+++ (revision )
@@ -1,19 +1,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
Index: trunk/mkrecipe
===================================================================
--- trunk/mkrecipe (revision 4)
+++ (revision )
@@ -1,6 +1,0 @@
-#!/bin/bash
-
-fop -c font.cfg \
- -fo <(./recipe2xml $1 | xsltproc --stringparam size 11x8.5 recipe.xsl -) \
- -pdf $1.pdf \
- 2> /dev/null
Index: trunk/recipe.html.xsl
===================================================================
--- trunk/recipe.html.xsl (revision 4)
+++ (revision )
@@ -1,47 +1,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- <xsl:value-of select="."/>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
Index: trunk/recipe.xsl
===================================================================
--- trunk/recipe.xsl (revision 4)
+++ (revision )
@@ -1,57 +1,0 @@
-
-
-
-
-
- 5x8
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
Index: trunk/recipe2xml
===================================================================
--- trunk/recipe2xml (revision 4)
+++ (revision )
@@ -1,58 +1,0 @@
-#!/usr/bin/perl -w
-use strict;
-
-#TODO: look at this existing XML format: http://www.happy-monkey.net/recipebook/doc/author-tutorial.html
-
-$/ = '';
-
-print qq{\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(\.|rees)(\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;
-}
-