christoffer/cookbook-dsl
1
0
Fork 0
Code Issues 5 Pull Requests Packages Projects Releases Wiki Activity

add recipe lookup by title

Browse Source
This commit is contained in:
Christoffer Müller Madsen 2017-04-06 00:22:37 +02:00
parent 989e8747e4
commit 41344fe84c
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
parse.scm
View File

@ -65,3 +65,13 @@
(lambda (recipes search-ingredients)
(filter (lambda (x) (contains-ingredients? x search-ingredients))
recipes)))
(define recipe-by-name
(lambda (recipes name)
(if (null? recipes)
#f
(let ((recipe (car recipes)))
(if (equal? (title recipe)
name)
recipe
(recipe-by-name (cdr recipes) name))))))

8
web/server.rb
View File

@ -6,8 +6,12 @@ get '/' do
`cd ..; echo "(display (html-wrap (cookbook-as-html cookbook)))" | petite -q "batch.scm"`
end
get '/:ingredient' do
get '/ingredient/:ingredient' do
ingredient = HTMLEntities.new.decode params['ingredient']
puts ingredient
`cd ..; echo "(display (html-wrap (cookbook-as-html (recipes-by-ingredients cookbook '(\\"#{ingredient}\\")))))" | petite -q "batch.scm"`
end
get '/recipe/:title' do
title = HTMLEntities.new.decode params['title']
`cd ..; echo "(display (html-wrap (recipe-as-html (recipe-by-name cookbook \\"#{title}\\"))))" | petite -q "batch.scm"`
end