Prompt Lab · Solids

GDL + SMLib

Working...Failed

Build a geometry model web app

This is the free public lab: everything made here -- your prompts, the model and its code -- is public the moment it is made, in the archive for anyone to read and reuse. Nothing is sold here; a private lab of your own, where you can sell what you make, is a rung up the ladder.

the agent is working...

I acknowledge this file will be shared

Upload a drawing or file

Build from a drawing: a PDF of up to 10 pages, an image or a text file (DXF, SVG, CSV, STEP), 2.0 MB at most.

Uploaded files

nutrients.txt (txt text, 4 KB)

Public, with the session.

Archived session bold-collet-632026-10-20 01:15 UTCbuilt on gendl: open it thereversions: 1 2 3 last

Rivets

3,833 rivets left in the community pot

A question or a problem: [email protected]; a fault in the lab's code, its issue tracker.

Download

The model's drawings and files, once it is built.

Log

stoppedThe reply hit its length limit.

promptcontinue

stoppedThe reply hit its length limit.

toolsearch_docs

tooldescribe_object

toolsearch_docs

promptlet's expand our known foods list to be a much larger database of known foodstuff, including chinese and indian, as well as fast food meals. Are there public databases of this stuff we could just link to? Or do we want to carry all the data. You decide. and can we have some lookup mechanisms for entering the daily eating diary.

doneI've built the app: you type what you ate in plain words, and it gives you a nutrition breakdown laid out like your ChatGPT example. With your example day as the input, it comes to 990 kcal, the same total as ChatGPT's. I checked that the page builds and the parser handles mixed input, but I haven't tested it in a browser. The **Open the app** link opens it. **How to use it** - **"What did you eat?"**: one food per line, or separate them with commas, semicolons, "and" or "with". Start each with an amount: "3 steamed eggs", "1 1/2 cups milk", "1½ cups milk", "half an avocado", "a slice of toast". You can also give a weight ("150 g walleye", "8oz steak", "1 lb chicken") and it is worked out from the food's weight. With no amount, it counts one serving. The results update when you click out of the box. - **"Compare with daily needs of"**: pick Woman or Man, aged 19–50 or 51–70. This sets the daily targets. **What it shows** 1. **Summary**: - Total calories, as a share of a typical day's calories for the chosen profile. - How it read each line, e.g. "1/2 cup stir-fried pumpkin → 0.5 × 1 cup Pumpkin, stir-fried". This plays the part of ChatGPT's list of assumptions. - Your strongest nutrients and the ones that need the most attention. - A warning when calories are low for a whole day. - Anything it didn't recognise, in red. These are left out of the totals. 2. **Macronutrients** for each food, with totals: calories, protein, carbs, fat and fiber. 3. **Vitamins**: A, C, D, B12 and folate. 4. **Minerals**: calcium, iron, magnesium, potassium and zinc. 5. **Comparison with daily needs**: your intake, the target, the percentage, and a rating: Good (100% or more), Slightly low (75–99%) or Low (under 75%). At the bottom is a list of every food the app knows and the serving size it counts. **How it differs from ChatGPT** - **Fixed food list:** it uses a built-in table of about 45 common foods. Each value is a standard estimate for one serving. Your 8 foods use the figures from your example, so the totals match. A food that isn't in the table is flagged rather than guessed. To add foods, add rows to the food table at the top of the source file. - **Cup, tbsp and slice aren't converted:** the amount you type just counts servings of the size shown in the list. "1 tbsp peanut butter" is right because that serving is 1 tbsp. "2 tbsp butter" is also right, since butter's serving is 1 tbsp. Only grams, ounces, pounds and kilograms are converted by weight. - **Stir-fried dishes include oil:** pumpkin and chayote include 2 tsp of oil per cup, which is 1 tsp per ½ cup as in your example. - **No follow-up questions:** it doesn't ask about your goals, as ChatGPT did at the end. The calorie figure for each profile is a rough estimate for a moderately active adult.

toolevaluate

toolcheck_app

toolwrite_model

promptcontinue, it seems you had some simple syntax errors. use paredit and similar tools to keep your parens balanced.

stoppedStopped after 12 rounds of tool calls.

toolevaluate

tool-errorwrite_model: Error compiling or loading the model file: Reader error on #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/state/prompt-lab/bold-collet-63/model.lisp"/:closed #x302003FDBCBD>: Unmatched ')' near position 23219.

toolwrite_model

toolevaluate

toolread_model

tool-errorevaluate: Error: Undefined function MEAL-REPLACE-ALL-TMP called with arguments (";; Prompt lab session bold-collet-63 -- the model file. ;; Written by the modeling agent; edit it freely. The object named MODEL ;; is what (make-object 'model) builds and the viewer shows; ;; the object named APP is the web app, a GWL page the lab serves. (in-package \"PL-BOLD-COLLET-63\") ;;; Meal nutrition breakdown -- a small food database, a free-text parser ;;; and the tables of a daily nutrition report. ;; Nutrient order used in every food's :n list. (defparameter *meal-nutrients* '((\"Calories\" \"kcal\") (\"Protein\" \"g\") (\"Carbs\" \"g\") (\"Fat\" \"g\") (\"Fiber\" \"g\") (\"Vitamin A\" \"mcg\") (\"Vitamin C\" \"mg\") (\"Vitamin D\" \"mcg\") (\"Vitamin B12\" \"mcg\") (\"Folate\" \"mcg\") (\"Calcium\" \"mg\") (\"Iron\" \"mg\") (\"Magnesium\" \"mg\") (\"Potassium\" \"mg\") (\"Zinc\" \"mg\"))) ;; Each food: one natural serving. :n = cal pro carb fat fib | A C D B12 folate | Ca Fe Mg K Zn (defparameter *meal-foods* '((:name \"Pear\" :serving \"1 medium\" :grams 178 :aliases (\"pear\") :n (101 0.6 27 0.3 5.5 1 7.5 0 0 12 16 0.3 12 206 0.2)) (:name \"Apple\" :serving \"1 medium\" :grams 182 :aliases (\"apple\") :n (95 0.5 25 0.3 4.4 5 8.4 0 0 5 11 0.2 9 195 0.1)) (:name \"Banana\" :serving \"1 medium\" :grams 118 :aliases (\"banana\") :n (105 1.3 27 0.4 3.1 4 10.3 0 0 24 6 0.3 32 422 0.2)) (:name \"Orange\" :serving \"1 medium\" :grams 131 :aliases (\"orange\") :n (62 1.2 15.4 0.2 3.1 14 70 0 0 39 52 0.1 13 237 0.1)) (:name \"Orange juice\" :serving \"1 cup\" :grams 248 :aliases (\"orange juice\" \"oj\") :n (112 1.7 25.8 0.5 0.5 25 124 0 0 74 27 0.5 27 496 0.1)) (:name \"Strawberries\" :serving \"1 cup\" :grams 152 :aliases (\"strawberr\") :n (49 1 11.7 0.5 3 2 89 0 0 36 24 0.6 20 233 0.2)) (:name \"Blueberries\" :serving \"1 cup\" :grams 148 :aliases (\"blueberr\") :n (84 1.1 21 0.5 3.6 4 14 0 0 9 9 0.4 9 114 0.2)) (:name \"Grapes\" :serving \"1 cup\" :grams 151 :aliases (\"grape\") :n (104 1.1 27 0.2 1.4 5 4.8 0 0 3 15 0.5 11 288 0.1)) (:name \"Avocado\" :serving \"1 whole\" :grams 150 :aliases (\"avocado\") :n (240 3 12.8 22 10 10 15 0 0 122 18 0.8 44 728 1)) (:name \"Whole milk\" :serving \"1 cup\" :grams 244 :aliases (\"milk\" \"whole milk\") :n (149 7.7 11.7 8 0 113 0 2.9 1.13 12 276 0.07 24 322 1)) (:name \"Skim milk\" :serving \"1 cup\" :grams 245 :aliases (\"skim milk\" \"nonfat milk\" \"low-fat milk\" \"low fat milk\") :n (83 8.3 12.2 0.2 0 149 0 2.9 1.3 12 299 0.1 27 382 1)) (:name \"Plain yogurt\" :serving \"1 cup\" :grams 245 :aliases (\"yogurt\" \"yoghurt\") :n (149 8.5 11.4 8 0 66 1.2 0.1 0.9 17 296 0.1 29 380 1.4)) (:name \"Greek yogurt, nonfat\" :serving \"1 container (170 g)\" :grams 170 :aliases (\"greek yogurt\" \"greek yoghurt\") :n (100 17 6 0.7 0 2 0 0 1.3 12 187 0.1 19 240 0.9)) (:name \"Cheddar cheese\" :serving \"1 oz\" :grams 28 :aliases (\"cheese\" \"cheddar\") :n (114 7 0.4 9.4 0 75 0 0.2 0.2 5 200 0.2 8 21 1)) (:name \"Egg\" :serving \"1 large\" :grams 50 :aliases (\"egg\") :n (72 6.3 0.4 4.8 0 80 0 1.1 0.57 24 28 0.87 6 69 0.63)) (:name \"Walleye fillet, cooked\" :serving \"1 fillet (150 g)\" :grams 150 :aliases (\"walleye\") :n (180 36 0 3 0 20 0 4 3 20 25 0.8 45 585 1)) (:name \"Salmon fillet, cooked\" :serving \"1 fillet (150 g)\" :grams 150 :aliases (\"salmon\") :n (309 33 0 18.5 0 18 0 16 4.2 11 13 0.5 45 570 0.6)) (:name \"Tuna, canned in water\" :serving \"1 can (165 g)\" :grams 165 :aliases (\"tuna\") :n (191 42 0 1.4 0 28 0 2 4.9 7 18 2.5 45 393 1.2)) (:name \"Chicken breast, cooked\" :serving \"1 breast (150 g)\" :grams 150 :aliases (\"chicken\") :n (248 46.5 0 5.4 0 14 0 0.2 0.5 6 23 1.6 44 384 1.5)) (:name \"Ground beef 85%, cooked\" :serving \"100 g\" :grams 100 :aliases (\"beef\" \"ha [... 19926 more characters cut]

toolevaluate

tool-errorevaluate: Error: Reader error on #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/state/prompt-lab/bold-collet-63/model.lisp"/:closed #x302003EB81DD>: Unmatched ')' near position 23143.

toolevaluate

tool-errorwrite_model: Error compiling or loading the model file: No such toplevel define-object keyword exists as (PL-BOLD-COLLET-63::COMPARISON-HTML (GWL:WITH-LHTML-STRING NIL (:DIV :CLASS "p-6" :STYLE "overflow-x: auto;" (:TABLE :STYLE "width: 100%; border-collapse: collapse;" (:THEAD (:TR (:TH :STYLE (THE PL-BOLD-COLLET-63::TH-LEFT) "Nutrient") (:TH :STYLE (THE PL-BOLD-COLLET-63::TH-RIGHT) "Your intake") (:TH :STYLE (THE PL-BOLD-COLLET-63::TH-RIGHT) "Daily target") (:TH :STYLE (THE PL-BOLD-COLLET-63::TH-RIGHT) "% of target") (:TH :STYLE (THE PL-BOLD-COLLET-63::TH-LEFT) "Assessment"))) (:TBODY (DOLIST (PL-BOLD-COLLET-63::C (THE PL-BOLD-COLLET-63::COMPARISONS)) (CL-WHO:HTM (:TR (:TD :STYLE (THE PL-BOLD-COLLET-63::TD-LEFT) (CL-WHO:STR (GETF PL-BOLD-COLLET-63::C :LABEL))) (:TD :STYLE (THE PL-BOLD-COLLET-63::TD-RIGHT) (CL-WHO:FMT "~a ~a" (PL-BOLD-COLLET-63::MEAL-AMOUNT-STRING (GETF PL-BOLD-COLLET-63::C :TOTAL)) (GETF PL-BOLD-COLLET-63::C :UNIT))) (:TD :STYLE (THE PL-BOLD-COLLET-63::TD-RIGHT) (CL-WHO:FMT "~a ~a" (PL-BOLD-COLLET-63::MEAL-AMOUNT-STRING (GETF PL-BOLD-COLLET-63::C :TARGET)) (GETF PL-BOLD-COLLET-63::C :UNIT))) (:TD :STYLE (THE PL-BOLD-COLLET-63::TD-RIGHT) (CL-WHO:FMT "~d%" (ROUND (GETF PL-BOLD-COLLET-63::C :PCT)))) (:TD :STYLE (CONCATENATE 'STRING (THE PL-BOLD-COLLET-63::TD-LEFT) (CASE (GETF PL-BOLD-COLLET-63::C :RATING) (:GOOD " color: #15803d;") (:SLIGHTLY-LOW " color: #b45309;") (T " color: #b91c1c;"))) (CL-WHO:STR (CASE (GETF PL-BOLD-COLLET-63::C :RATING) (:GOOD "Good") (:SLIGHTLY-LOW "Slightly low") (T "Low")))))))))))).

toolwrite_model

tooldescribe_object

toolsearch_docs

toolread_file

promptan app where i can tell it what I ate, and it gives me a nutrition breakdown. I'm uploading an example of output directly from a ChatGPT session, but we'd like to approximate something like this in a discrete Gendl/GWL app.

noteThis session now builds a web app.

noteUploaded nutrients.txt (txt text, 4 KB). The visitor declared the right to use and share it; it is public with the session. It goes to the agent with the next prompt.

noteSession bold-collet-63 opened. Describe what to build.

viewport 1Wireframe · trimetric

Welcome to Sluice.

Sluice is for inspecting Gendl models while you're developing them. You can see your model structure in the tree at the upper left.

The display list of this viewport is empty. Click a node in the tree to apply the add-leaves operation.

The rendering mode is Wireframe (this viewport's View menu). Wireframe is a pannable, zoomable SVG; the shaded modes are navigable X3D scenes, in either of two X3D browsers. The X_ITE scene offers a headset button where WebXR is available.

Your web app

It shows here, live, once the agent has built it. Describe it on the left and press Build.

Model file

;;; Meal nutrition breakdown -- a small food database, a free-text parser
;;; and the tables of a daily nutrition report.

;; Nutrient order used in every food's :n list.
(defparameter *meal-nutrients*
  '(("Calories" "kcal") ("Protein" "g") ("Carbs" "g") ("Fat" "g") ("Fiber" "g")
    ("Vitamin A" "mcg") ("Vitamin C" "mg") ("Vitamin D" "mcg") ("Vitamin B12" "mcg") ("Folate" "mcg")
    ("Calcium" "mg") ("Iron" "mg") ("Magnesium" "mg") ("Potassium" "mg") ("Zinc" "mg")))

;; Each food: one natural serving.  :n = cal pro carb fat fib | A C D B12 folate | Ca Fe Mg K Zn
(defparameter *meal-foods*
  '((:name "Pear" :serving "1 medium" :grams 178 :aliases ("pear")
     :n (101 0.6 27 0.3 5.5  1 7.5 0 0 12  16 0.3 12 206 0.2))
    (:name "Apple" :serving "1 medium" :grams 182 :aliases ("apple")
     :n (95 0.5 25 0.3 4.4  5 8.4 0 0 5  11 0.2 9 195 0.1))
    (:name "Banana" :serving "1 medium" :grams 118 :aliases ("banana")
     :n (105 1.3 27 0.4 3.1  4 10.3 0 0 24  6 0.3 32 422 0.2))
    (:name "Orange" :serving "1 medium" :grams 131 :aliases ("orange")
     :n (62 1.2 15.4 0.2 3.1  14 70 0 0 39  52 0.1 13 237 0.1))
    (:name "Orange juice" :serving "1 cup" :grams 248 :aliases ("orange juice" "oj")
     :n (112 1.7 25.8 0.5 0.5  25 124 0 0 74  27 0.5 27 496 0.1))
    (:name "Strawberries" :serving "1 cup" :grams 152 :aliases ("strawberr")
     :n (49 1 11.7 0.5 3  2 89 0 0 36  24 0.6 20 233 0.2))
    (:name "Blueberries" :serving "1 cup" :grams 148 :aliases ("blueberr")
     :n (84 1.1 21 0.5 3.6  4 14 0 0 9  9 0.4 9 114 0.2))
    (:name "Grapes" :serving "1 cup" :grams 151 :aliases ("grape")
     :n (104 1.1 27 0.2 1.4  5 4.8 0 0 3  15 0.5 11 288 0.1))
    (:name "Avocado" :serving "1 whole" :grams 150 :aliases ("avocado")
     :n (240 3 12.8 22 10  10 15 0 0 122  18 0.8 44 728 1))
    (:name "Whole milk" :serving "1 cup" :grams 244 :aliases ("milk" "whole milk")
     :n (149 7.7 11.7 8 0  113 0 2.9 1.13 12  276 0.07 24 322 1))
    (:name "Skim milk" :serving "1 cup" :grams 245 :aliases ("skim milk" "nonfat milk" "low-fat milk" "low fat milk")
     :n (83 8.3 12.2 0.2 0  149 0 2.9 1.3 12  299 0.1 27 382 1))
    (:name "Plain yogurt" :serving "1 cup" :grams 245 :aliases ("yogurt" "yoghurt")
     :n (149 8.5 11.4 8 0  66 1.2 0.1 0.9 17  296 0.1 29 380 1.4))
    (:name "Greek yogurt, nonfat" :serving "1 container (170 g)" :grams 170 :aliases ("greek yogurt" "greek yoghurt")
     :n (100 17 6 0.7 0  2 0 0 1.3 12  187 0.1 19 240 0.9))
    (:name "Cheddar cheese" :serving "1 oz" :grams 28 :aliases ("cheese" "cheddar")
     :n (114 7 0.4 9.4 0  75 0 0.2 0.2 5  200 0.2 8 21 1))
    (:name "Egg" :serving "1 large" :grams 50 :aliases ("egg")
     :n (72 6.3 0.4 4.8 0  80 0 1.1 0.57 24  28 0.87 6 69 0.63))
    (:name "Walleye fillet, cooked" :serving "1 fillet (150 g)" :grams 150 :aliases ("walleye")
     :n (180 36 0 3 0  20 0 4 3 20  25 0.8 45 585 1))
    (:name "Salmon fillet, cooked" :serving "1 fillet (150 g)" :grams 150 :aliases ("salmon")
     :n (309 33 0 18.5 0  18 0 16 4.2 11  13 0.5 45 570 0.6))
    (:name "Tuna, canned in water" :serving "1 can (165 g)" :grams 165 :aliases ("tuna")
     :n (191 42 0 1.4 0  28 0 2 4.9 7  18 2.5 45 393 1.2))
    (:name "Chicken breast, cooked" :serving "1 breast (150 g)" :grams 150 :aliases ("chicken")
     :n (248 46.5 0 5.4 0  14 0 0.2 0.5 6  23 1.6 44 384 1.5))
    (:name "Ground beef 85%, cooked" :serving "100 g" :grams 100 :aliases ("beef" "hamburger" "steak")
     :n (250 26 0 15 0  0 0 0.1 2.6 9  18 2.6 21 330 6.3))
    (:name "Pork chop, cooked" :serving "1 chop (150 g)" :grams 150 :aliases ("pork")
     :n (300 40 0 14 0  3 0.9 0.9 1 3  30 1.2 40 600 3.5))
    (:name "Tofu, firm" :serving "1/2 cup" :grams 126 :aliases ("tofu")
     :n (181 21.8 3.5 11 2.9  10 0.3 0 0 33  861 3.4 73 299 2))
    (:name "Lentils, cooked" :serving "1 cup" :grams 198 :aliases ("lentil")
     :n (230 17.9 39.9 0.8 15.6  1 3 0 0 358  38 6.6 71 731 2.5))
    (:name "Black beans, cooked" :serving "1 cup" :grams 172 :aliases ("black bean" "kidney bean" "pinto bean")
     :n (227 15.2 40.8 0.9 15  1 0 0 0 256  46 3.6 120 611 1.9))
    (:name "Green beans, cooked" :serving "1 cup" :grams 125 :aliases ("green bean" "string bean")
     :n (44 2.4 10 0.4 4  35 12 0 0 41  55 1 25 180 0.3))
    (:name "Broccoli, cooked" :serving "1 cup" :grams 156 :aliases ("broccoli")
     :n (55 3.7 11.2 0.6 5.1  120 101 0 0 168  62 1 33 457 0.7))
    (:name "Spinach, cooked" :serving "1 cup" :grams 180 :aliases ("spinach")
     :n (41 5.3 6.8 0.5 4.3  943 17.6 0 0 263  245 6.4 157 839 1.4))
    (:name "Carrot" :serving "1 medium" :grams 61 :aliases ("carrot")
     :n (25 0.6 5.8 0.1 1.7  509 3.6 0 0 12  20 0.2 7 195 0.1))
    (:name "Sweet potato, baked" :serving "1 medium" :grams 114 :aliases ("sweet potato" "yam")
     :n (103 2.3 23.6 0.2 3.8  1096 22.3 0 0 7  43 0.8 31 542 0.4))
    (:name "Potato, baked" :serving "1 medium" :grams 173 :aliases ("potato")
     :n (161 4.3 36.6 0.2 3.8  2 16.6 0 0 48  26 1.9 48 926 0.6))
    (:name "Tomato" :serving "1 medium" :grams 123 :aliases ("tomato")
     :n (22 1.1 4.8 0.2 1.5  52 16.9 0 0 18  12 0.3 14 292 0.2))
    (:name "Green salad (romaine)" :serving "2 cups" :grams 94 :aliases ("salad" "lettuce" "romaine")
     :n (16 1.2 3.1 0.3 2  409 3.8 0 0 128  31 0.9 13 232 0.2))
    (:name "Pumpkin, stir-fried" :serving "1 cup, with 2 tsp oil" :grams 245 :aliases ("pumpkin" "squash")
     :n (140 2 14 9 3  950 10 0 0 20  40 1 24 460 0.6))
    (:name "Chayote, stir-fried" :serving "1 cup, with 2 tsp oil" :grams 160 :aliases ("chayote")
     :n (120 1 8 9 3  0 12 0 0 90  20 0.4 20 250 0.4))
    (:name "White rice, cooked" :serving "1 cup" :grams 158 :aliases ("rice" "white rice")
     :n (205 4.3 44.5 0.4 0.6  0 0 0 0 92  16 1.9 19 55 0.8))
    (:name "Brown rice, cooked" :serving "1 cup" :grams 195 :aliases ("brown rice")
     :n (218 4.5 45.8 1.6 3.5  0 0 0 0 8  20 0.8 79 154 1.2))
    (:name "Oatmeal, cooked" :serving "1 cup" :grams 234 :aliases ("oatmeal" "oats" "porridge")
     :n (166 5.9 28 3.6 4  0 0 0 0 14  21 2.1 63 164 2.3))
    (:name "Pasta, cooked" :serving "1 cup" :grams 140 :aliases ("pasta" "spaghetti" "noodle")
     :n (221 8.1 43.2 1.3 2.5  0 0 0 0 102  10 1.8 25 62 0.7))
    (:name "Whole wheat bread" :serving "1 slice" :grams 32 :aliases ("bread" "toast" "whole wheat bread")
     :n (81 4 13.8 1.1 1.9  0 0 0 0 14  52 0.8 24 81 0.6))
    (:name "White bread" :serving "1 slice" :grams 25 :aliases ("white bread")
     :n (67 1.9 12.7 0.8 0.6  0 0 0 0 28  38 0.9 6 30 0.2))
    (:name "Cheese pizza" :serving "1 slice" :grams 107 :aliases ("pizza")
     :n (285 12 36 10 2.5  70 1 0.2 0.5 65  200 2.6 25 180 1.6))
    (:name "Almonds" :serving "1 oz (23 nuts)" :grams 28 :aliases ("almond" "nuts")
     :n (164 6 6.1 14.2 3.5  0 0 0 0 14  76 1.1 77 208 0.9))
    (:name "Peanut butter" :serving "1 tbsp" :grams 16 :aliases ("peanut butter")
     :n (94 4 3.2 8 1  0 0 0 0 12  9 0.3 27 90 0.45))
    (:name "Butter" :serving "1 tbsp" :grams 14 :aliases ("butter")
     :n (102 0.1 0 11.5 0  97 0 0 0 0  3 0 0 3 0))
    (:name "Cooking / olive oil" :serving "1 tsp" :grams 4.5 :aliases ("oil")
     :n (40 0 0 4.5 0  0 0 0 0 0  0 0 0 0 0))
    (:name "Dark chocolate" :serving "1 oz" :grams 28 :aliases ("chocolate")
     :n (170 2.2 13 12 3.1  1 0 0 0 0  20 3.4 64 203 0.9))
    (:name "Coffee, black" :serving "1 cup" :grams 237 :aliases ("coffee")
     :n (2 0.3 0 0 0  0 0 0 0 5  5 0 7 116 0))))

;; Daily targets per profile, in nutrient order (nil = no target);
;; :cal is a rough energy need for a moderately active adult.
(defparameter *meal-profiles*
  '((:woman-19-50 :label "Woman, 19-50" :cal 2000
     :targets (nil 46 nil nil 25  700 75 15 2.4 400  1000 18 320 2600 8))
    (:woman-51-70 :label "Woman, 51-70" :cal 1800
     :targets (nil 46 nil nil 21  700 75 15 2.4 400  1200 8 320 2600 8))
    (:man-19-50 :label "Man, 19-50" :cal 2600
     :targets (nil 56 nil nil 38  900 90 15 2.4 400  1000 8 420 3400 11))
    (:man-51-70 :label "Man, 51-70" :cal 2200
     :targets (nil 56 nil nil 30  900 90 15 2.4 400  1000 8 420 3400 11))))

(defun meal-replace-all (text old new)
  (with-output-to-string (out)
    (loop with start = 0
          for pos = (search old text :start2 start)
          do (write-string text out :start start :end (or pos (length text)))
             (if pos (progn (write-string new out) (setf start (+ pos (length old))))
                 (return)))))

(defun meal-split-entries (text)
  (let ((s (concatenate 'string " " (string-downcase (or text "")) " ")))
    (dolist (sep '(" and " " with " " plus " " & "))
      (setf s (meal-replace-all s sep "|")))
    (setf s (substitute-if #\| (lambda (c) (member c '(#\Newline #\Return #\, #\;))) s))
    (loop with start = 0
          for pos = (position #\| s :start start)
          for piece = (string-trim '(#\Space #\Tab #\. #\-) (subseq s start (or pos (length s))))
          unless (zerop (length piece)) collect piece
          while pos do (setf start (1+ pos)))))

(defun meal-plain-number (s)
  (cond ((zerop (length s)) nil)
        ((find #\/ s)
         (let* ((p (position #\/ s))
                (a (ignore-errors (parse-integer s :end p)))
                (b (ignore-errors (parse-integer s :start (1+ p)))))
           (and a b (plusp b) (/ a b))))
        ((and (every (lambda (c) (or (digit-char-p c) (char= c #\.))) s)
              (some #'digit-char-p s) (<= (count #\. s) 1))
         (let* ((*read-eval* nil) (v (ignore-errors (read-from-string s))))
           (and (numberp v) v)))))

(defun meal-token-number (tok)
  (let ((word (assoc tok '(("a" . 1) ("an" . 1) ("one" . 1) ("two" . 2) ("three" . 3)
                           ("four" . 4) ("five" . 5) ("six" . 6) ("seven" . 7) ("eight" . 8)
                           ("nine" . 9) ("ten" . 10) ("half" . 1/2) ("quarter" . 1/4)
                           ("dozen" . 12) ("couple" . 2))
                     :test #'string=)))
    (if word (cdr word)
        (let* ((n (length tok))
               (last (and (> n 0) (char tok (1- n))))
               (frac (case (and last (char-code last))
                       (189 1/2) (188 1/4) (190 3/4) (8531 1/3) (8532 2/3))))
          (if frac
              (if (= n 1) frac
                  (let ((pre (meal-plain-number (subseq tok 0 (1- n)))))
                    (and pre (+ pre frac))))
              (meal-plain-number tok))))))

(defparameter *meal-weight-units*
  '(("g" . 1) ("gram" . 1) ("grams" . 1) ("kg" . 1000) ("oz" . 28.35) ("ounce" . 28.35)
    ("ounces" . 28.35) ("lb" . 453.6) ("lbs" . 453.6) ("pound" . 453.6) ("pounds" . 453.6)))

(defun meal-unit-factor (tok) (cdr (assoc tok *meal-weight-units* :test #'string=)))

(defun meal-split-on-space (s)
  (loop with start = 0
        for pos = (position #\Space s :start start)
        collect (subseq s start (or pos (length s)))
        while pos do (setf start (1+ pos))))

(defun meal-parse-amount (entry)
  "Returns (values quantity grams-or-nil)."
  (let* ((toks (remove "" (meal-split-on-space entry) :test #'string=))
         (t0 (first toks)) (t1 (second toks)) (t2 (third toks))
         (q (and t0 (meal-token-number t0))))
    (cond (q
           (let ((q2 (and t1 (meal-token-number t1))) (unit t1))
             (when (and q2 (< q2 1) (integerp q)) (setf q (+ q q2) unit t2))
             (let ((f (and unit (meal-unit-factor unit))))
               (values q (and f (* q f))))))
          (t0
           ;; "150g", "8oz"
           (dolist (u *meal-weight-units* (values 1 nil))
             (let ((ul (length (car u))) (n (length t0)))
               (when (and (> n ul) (string= (car u) t0 :start2 (- n ul)))
                 (let ((v (meal-plain-number (subseq t0 0 (- n ul)))))
                   (when v (return (values v (* v (cdr u))))))))))
          (t (values 1 nil)))))

(defun meal-word-search (alias text)
  (loop with start = 0
        for pos = (search alias text :start2 start)
        while pos
        do (when (or (zerop pos) (not (alpha-char-p (char text (1- pos)))))
             (return t))
           (setf start (1+ pos))))

(defun meal-find-food (text)
  (let ((best nil) (best-len 0))
    (dolist (food *meal-foods* best)
      (dolist (alias (getf food :aliases))
        (when (and (> (length alias) best-len) (meal-word-search alias text))
          (setf best food best-len (length alias)))))))

(defun meal-amount-string (x)
  (cond ((null x) "-")
        ((zerop x) "0")
        ((>= (abs x) 100) (format nil "~:d" (round x)))
        (t (let ((s (format nil "~,1f" x)))
             (if (and (> (length s) 2) (string= ".0" s :start2 (- (length s) 2)))
                 (subseq s 0 (- (length s) 2)) s)))))

(defun meal-servings-string (x)
  (meal-amount-string (/ (round (* x 100)) 100.0)))

(defun meal-row-label (row)
  (let ((food (getf row :food)))
    (format nil "~a &times; ~a ~a" (meal-servings-string (getf row :servings))
            (getf food :serving) (getf food :name))))

(define-object app (prompt-lab:web-app)
  :input-slots
  ((title "What I ate today: nutrition breakdown")
   (objects nil))

:computed-slots
  ((parsed-entries
    (mapcar (lambda (entry)
              (multiple-value-bind (qty grams) (meal-parse-amount entry)
                (let ((food (meal-find-food entry)))
                  (list :entry entry :food food :qty qty :grams grams
                        :servings (when food
                                    (if grams (/ grams (getf food :grams)) qty))))))
            (meal-split-entries (the meal-input value))))
   (rows (remove nil (the parsed-entries) :key (lambda (r) (getf r :food))))
   (unknown-entries (mapcar (lambda (r) (getf r :entry))
                            (remove-if (lambda (r) (getf r :food)) (the parsed-entries))))
   (row-values
    (mapcar (lambda (r) (mapcar (lambda (v) (* v (getf r :servings))) (getf (getf r :food) :n)))
            (the rows)))
   (totals (if (the row-values) (apply #'mapcar #'+ (the row-values))
               (make-list 15 :initial-element 0)))
   (profile (cdr (assoc (the profile-control value) *meal-profiles*)))
   (comparisons
    (loop for target in (getf (the profile) :targets)
          for total in (the totals)
          for (label unit) in *meal-nutrients*
          when target
            collect (let ((pct (* 100 (/ total target))))
                      (list :label label :unit unit :total total :target target :pct pct
                            :rating (cond ((>= pct 100) :good) ((>= pct 75) :slightly-low) (t :low))))))

(body
    (with-lhtml-string ()
      (:div :class "max-w-5xl mx-auto p-8"
        (:h1 :class "text-3xl font-bold text-gray-900 mb-6" "What I ate today")
        (str (the (card :title "Your food"
                        :subtitle "One food per line (or separated by commas). Start with an amount: 2 eggs, 1 1/2 cups milk, 150 g salmon, half an avocado."
                        :content (with-lhtml-string ()
                                   (:div :class "p-6" (str (the control-form)))))))
        (str (the results-section div))
        (str (the (card :title "Foods this app knows"
                        :subtitle "Amounts count servings of the size shown; grams, oz and lb are converted by weight."
                        :content (the food-list-html)))))))

(control-form
    (with-form-string (:class "grid grid-cols-1 gap-6")
      (str (the (param-field "What did you eat?" (the meal-input))))
      (str (the (param-field "Compare with daily needs of" (the profile-control))))))

(food-list-html
    (with-lhtml-string ()
      (:div :class "p-6" :style "columns: 2; font-size: 0.9em;"
        (dolist (f (sort (copy-list *meal-foods*) #'string< :key (lambda (f) (getf f :name))))
          (htm (:div (:b (str (getf f :name))) (fmt " - ~a" (getf f :serving))))))))

(results-html
    (with-lhtml-string ()
      (:div
        (str (the (card :title "Summary" :content (the summary-html))))
        (str (the (card :title "1. Macronutrients for each food"
                        :content (the (nutrient-table '(0 1 2 3 4))))))
        (str (the (card :title "2. Vitamins in each food"
                        :subtitle "Vitamin A as RAE; milk values assume vitamin A and D fortification."
                        :content (the (nutrient-table '(5 6 7 8 9))))))
        (str (the (card :title "3. Minerals in each food"
                        :content (the (nutrient-table '(10 11 12 13 14))))))
        (str (the (card :title (format nil "4. How this compares with daily needs (~a)"
                                       (getf (the profile) :label))
                        :content (the comparison-html)))))))

(counted-html
    (with-lhtml-string ()
      (:ul :style "margin-left: 1.5em; list-style: disc;"
        (dolist (r (the rows))
          (htm (:li (:i (esc (getf r :entry)))
                    (fmt " &rarr; ~a" (meal-row-label r))
                    (when (getf r :grams)
                      (htm (fmt " (~a g)" (meal-amount-string (getf r :grams)))))))))))

(unknown-html
    (with-lhtml-string ()
      (:p :style "margin-top: 0.75em; color: #b91c1c;"
        (:b "Not recognised (left out of the totals): ")
        (dolist (e (the unknown-entries))
          (htm (:i (esc e)) "; "))
        "see the list of known foods below.")))

(good-list
    (sort (remove-if-not (lambda (c) (eq (getf c :rating) :good)) (copy-list (the comparisons)))
          #'> :key (lambda (c) (getf c :pct))))
   (low-list
    (sort (remove-if-not (lambda (c) (eq (getf c :rating) :low)) (copy-list (the comparisons)))
          #'< :key (lambda (c) (getf c :pct))))
   (calories (first (the totals)))
   (calorie-need (getf (the profile) :cal))

(summary-html
    (with-lhtml-string ()
      (:div :class "p-6"
        (when (null (the rows))
          (htm (:p "Nothing recognised yet: type what you ate above.")))
        (when (the rows)
          (htm (:p :style "font-size: 1.25em;"
                 (:b (fmt "~:d kcal" (round (the calories))))
                 (fmt " from ~d food~:p, about ~d% of a typical ~:d kcal day."
                      (length (the rows))
                      (round (* 100 (/ (the calories) (the calorie-need))))
                      (the calorie-need)))
               (:p :style "margin-top: 0.75em;" (:b "How each line was counted:"))
               (str (the counted-html))))
        (when (and (the rows) (the good-list))
          (htm (:p :style "margin-top: 0.75em;"
                 (:b "Strongest today: ")
                 (str (format nil "~{~a~^, ~}" (mapcar (lambda (c) (getf c :label)) (the good-list)))))))
        (when (and (the rows) (the low-list))
          (htm (:p :style "margin-top: 0.25em;"
                 (:b "Needs the most attention: ")
                 (str (format nil "~{~a~^, ~}" (mapcar (lambda (c) (getf c :label)) (the low-list)))))))
        (when (and (the rows) (< (the calories) (* 0.7 (the calorie-need))))
          (htm (:p :style "margin-top: 0.5em; color: #92400e;"
                 (fmt "About ~:d kcal is low for a whole day, especially if you are active. Real needs depend on height, weight and activity."
                      (round (the calories))))))
        (when (the unknown-entries)
          (str (the unknown-html)))
        (:p :style "margin-top: 0.75em; font-size: 0.85em; color: #6b7280;"
          "Estimates from standard portions; actual values vary with variety, size and cooking."))))

(comparison-html
    (with-lhtml-string ()
      (:div :class "p-6" :style "overflow-x: auto;"
        (:table :style "width: 100%; border-collapse: collapse;"
          (:thead
           (:tr (:th :style (the th-left) "Nutrient")
                (:th :style (the th-right) "Your intake")
                (:th :style (the th-right) "Daily target")
                (:th :style (the th-right) "% of target")
                (:th :style (the th-left) "Assessment")))
          (:tbody
           (dolist (c (the comparisons))
             (str (the (comparison-row c)))))))))

(th-left "text-align: left; padding: 6px 10px; border-bottom: 2px solid #d1d5db;")
   (th-right "text-align: right; padding: 6px 10px; border-bottom: 2px solid #d1d5db;")
   (td-left "text-align: left; padding: 5px 10px; border-bottom: 1px solid #e5e7eb;")
   (td-right "text-align: right; padding: 5px 10px; border-bottom: 1px solid #e5e7eb;"))

:functions
  ((comparison-row
    (c)
    (let ((color (case (getf c :rating)
                   (:good " color: #15803d;")
                   (:slightly-low " color: #b45309;")
                   (t " color: #b91c1c;")))
          (word (case (getf c :rating)
                  (:good "Good")
                  (:slightly-low "Slightly low")
                  (t "Low"))))
      (with-lhtml-string ()
        (:tr (:td :style (the td-left) (str (getf c :label)))
             (:td :style (the td-right)
                  (fmt "~a ~a" (meal-amount-string (getf c :total)) (getf c :unit)))
             (:td :style (the td-right)
                  (fmt "~a ~a" (meal-amount-string (getf c :target)) (getf c :unit)))
             (:td :style (the td-right) (fmt "~d%" (round (getf c :pct))))
             (:td :style (concatenate 'string (the td-left) color) (str word))))))

(table-head
    (indices)
    (with-lhtml-string ()
      (:tr (:th :style (the th-left) "Food")
           (dolist (i indices)
             (let ((spec (nth i *meal-nutrients*)))
               (htm (:th :style (the th-right)
                         (fmt "~a (~a)" (first spec) (second spec)))))))))

(table-row
    (label vals indices)
    (with-lhtml-string ()
      (:tr (:td :style (the td-left) (str label))
           (dolist (i indices)
             (htm (:td :style (the td-right)
                       (str (meal-amount-string (nth i vals)))))))))

(nutrient-table
    (indices)
    (with-lhtml-string ()
      (:div :class "p-6" :style "overflow-x: auto;"
        (:table :style "width: 100%; border-collapse: collapse;"
          (:thead (str (the (table-head indices))))
          (:tbody
           (loop for r in (the rows)
                 for vals in (the row-values)
                 do (str (the (table-row (meal-row-label r) vals indices))))
           (str (the (table-row "<b>TOTAL</b>" (the totals) indices)))))))))

:objects
  ((meal-input :type 'text-form-control
               :rows 9 :cols 60 :domain :string :ajax-submit-on-change? t
               :default (format nil "1 pear~%1 1/2 cups whole milk~%1 apple~%3 steamed eggs~%1 cup green beans~%150 g walleye~%1/2 cup stir-fried pumpkin~%1/2 cup stir-fried chayote"))
   (profile-control :type 'menu-form-control
                    :default :woman-51-70 :size 1 :ajax-submit-on-change? t
                    :choice-plist (loop for (key . plist) in *meal-profiles*
                                        append (list key (getf plist :label))))
   (results-section :type 'base-html-div :inner-html (the results-html))))