parse: add recipe-* for elementsHEADmaster

1 files changed, 10 insertions, 0 deletions

diff --git a/cook/parse.scm b/cook/parse.scm
index 54ea23c..7092905 100644
--- a/cook/parse.scm
+++ b/cook/parse.scm
@@ -72,6 +72,16 @@ https://github.com/cooklang/spec/blob/main/EBNF.md
   (metadata recipe-metadata)
   (body recipe-body))
 
+(define (recipe-find pred recipe)
+  (concatenate
+    (map (lambda (x) (filter pred x))
+         (map step-elements
+              (filter step? (recipe-body recipe))))))
+
+(define recipe-ingredients (cut recipe-find ingredient? <>))
+(define recipe-cookware    (cut recipe-find cookware?   <>))
+(define recipe-timers      (cut recipe-find timer?      <>))
+
 (define (metadata-line-list->hash-table meta-lines)
   (let ((metadata (make-hash-table)))
     (for-each (lambda (line)