Roadmap and small fixes

Author: jayaddison

api/recipes/cucumber_salad.pl

@@ -3,6 +3,7 @@
 serves(cucumber_salad, 1).
 difficulty(cucumber_salad, 1).
 
+tag(X, vegetarian) :- tag(X, vegan).
 % tag(recipe, keyword).
 tag(cucumber_salad, vegan).
 tag(cucumber_salad, vegetarian).

api/recipes/tagliatelle_tomato_basil.pl

@@ -0,0 +1,42 @@
+% properties
+meal(tagliatelle_tomato_basil).
+serves(tagliatelle_tomato_basil, 2).
+difficulty(tagliatelle_tomato_basil, 2).
+
+% tag(recipe, keyword).
+tag(tagliatelle_tomato_basil, vegan).
+tag(tagliatelle_tomato_basil, vegetarian).
+tag(tagliatelle_tomato_basil, italian).
+
+% ingredient(recipe, ingredient, [unit, quantity]).
+ingredient(tagliatelle_tomato_basil, olive_oil, [tablespoon, 2]).
+ingredient(tagliatelle_tomato_basil, cherry_tomato, [gram, 250]).
+ingredient(tagliatelle_tomato_basil, garlic, [clove, 1]).
+ingredient(tagliatelle_tomato_basil, tagliatelle, [gram, 250]).
+ingredient(tagliatelle_tomato_basil, basil, [leaf, 6]).
+
+% step(recipe, output, [requirements], [[utensils]], [duration, quantity]).
+step(tagliatelle_tomato_basil, cherry_tomato_oil, [garlic_oil, cherry_tomato], [], [minutes, 3]).
+step(tagliatelle_tomato_basil, cooked_cherry_tomato_oil, [cherry_tomato_oil], [], [minutes, 5]).
+step(tagliatelle_tomato_basil, cherry_tomato_sauce, [cooked_cherry_tomato_oil, garlic], [], [minutes, 10]).
+step(tagliatelle_tomato_basil, cooked_tagliatelle, [tagliatelle], [], [minutes, 8]).
+step(tagliatelle_tomato_basil, tagliatelle_tomato_basil, [cherry_tomato_sauce, cooked_tagliatelle, basil, ground_pepper], [], [minutes, 1]).
+
+% instructions(language, country, ingredient, text).
+instructions(en, _, cherry_tomato_oil, '').
+instructions(en, _, cooked_cherry_tomato_oil, '').
+instructions(en, _, cherry_tomato_sauce, '').
+instructions(en, _, cooked_tagliatelle, '').
+instructions(en, _, tagliatelle_tomato_basil, '').
+
+% title(language, country, ingredient, text).
+title(en, _, cherry_tomato_sauce, 'Cherry Tomato Sauce').
+title(en, _, cooked_tagliatelle, 'Fresh Tagliatelle').
+title(en, _, tagliatelle_tomato_basil, 'Tagiatelle with Sweet Tomato and Basil Sauce').
+
+% extra(recipe, extras).
+extra(tagliatelle_tomato_basil, salt).
+extra(tagliatelle_tomato_basil, sugar).
+
+% reusable(recipe, output).
+reusable(tagliatelle_tomato_basil, tagliatelle_tomato_basil, [days, 2]).

api/rules.pl

@@ -30,3 +30,39 @@
         prerequisite_ingredients(Request, T, OptimalT),
         append(OptimalSubIngredients, OptimalT, Combined),
         !.
+
+%- Service: User Recipe Options
+% Output: Recipes
+meals_possible(Request, Meals) :-
+        findall(Meal, (meal(Meal), possible(Request, Meal)), Meals).
+
+% Private: Determine if a user can make a given ingredient
+possible(Request, Ingredient) :-
+        stocked(Request, Ingredient, _).
+possible(Request, Recipe) :-
+        step(_, Recipe, Prerequisites, _, _),
+        findall(Ingredient, (member(Ingredient, Prerequisites), possible(Request, Ingredient)), Prerequisites).
+
+%- Service: User Recipe Display
+% Output: Prerequisites, Steps
+meal_display(Request, Meal, Prerequisites, Tree) :-
+        meal(Meal),
+        step(Meal, Meal, Ingredients, _, _),
+        prerequisites(Request, Meal, Ingredients, Prerequisites, Tree).
+
+% Private: Find the best choice of ingredients to prepare a recipe
+prerequisites(_, _, [], [], []).
+prerequisites(Request, Parent, [H|T], [H|P], [H|Tree]) :-
+        stocked(Request, H, _),
+        prerequisites(Request, Parent, T, P, Tree).
+prerequisites(Request, Parent, [H|T], [H|P], [H|Tree]) :-
+        product(H),
+        not(possible(Request, H)),
+        prerequisites(Request, Parent, T, P, Tree).
+prerequisites(Request, Parent, [H|T], Concat, [Parent|[Trees]]) :-
+        step(_, H, P, _, _),
+        prerequisites(Request, H, P, LP, LT),
+        prerequisites(Request, H, T, RP, RT),
+        append(LP, RP, Concat),
+        append(LT, RT, Trees),
+        !.

api/service.pl

@@ -63,3 +63,9 @@
 rows([H|T]) -->
 	html(tr([td(H)])),
 	rows(T).
+
+:- assert(stocked(_, cucumber, 1)).
+:- assert(stocked(_, salt, 1)).
+:- assert(stocked(_, pepper, 1)).
+:- assert(stocked(_, seasoned_rice_vinegar, 1)).
+:- assert(stocked(_, water, 1)).

doc/roadmap

@@ -0,0 +1,11 @@
+autochef roadmap
+===
+
+20100424 - initial recipe load
+20100424 - recipe suggestion service complete
+
+20100424 - recipe service calls
+20100426 - javascript layer to use recipe service json
+
+20100426 - replace login system with facebook connect
+20100428 - persist recipes against facebook ids