diff options
Diffstat (limited to 'cook/parse.scm')
| -rw-r--r-- | cook/parse.scm | 10 |
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) |