total rework. full stack stuff. main logic now in server

.github/workflows/test.yml

···
+name: test
+
+on:
+  push:
+    branches:
+      - master
+      - main
+  pull_request:
+
+jobs:
+  test:
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v4
+      - uses: erlef/setup-beam@v1
+        with:
+          otp-version: "28"
+          gleam-version: "1.13.0"
+          rebar3-version: "3"
+          # elixir-version: "1"
+      - run: gleam deps download
+      - run: gleam test
+      - run: gleam format --check src test

.gitignore

···
+*.beam
+*.ez
+server/build
+client/build
+shared/build
+erl_crash.dump

client/README.md

···
+# client
+
+[![Package Version](https://img.shields.io/hexpm/v/client)](https://hex.pm/packages/client)
+[![Hex Docs](https://img.shields.io/badge/hex-docs-ffaff3)](https://hexdocs.pm/client/)
+
+```sh
+gleam add client@1
+```
+```gleam
+import client
+
+pub fn main() -> Nil {
+  // TODO: An example of the project in use
+}
+```
+
+Further documentation can be found at <https://hexdocs.pm/client>.
+
+## Development
+
+```sh
+gleam run   # Run the project
+gleam test  # Run the tests
+```

client/gleam.toml

···
+name = "client"
+version = "1.0.0"
+target = "javascript"
+
+# Fill out these fields if you intend to generate HTML documentation or publish
+# your project to the Hex package manager.
+#
+# description = ""
+# licences = ["Apache-2.0"]
+# repository = { type = "github", user = "", repo = "" }
+# links = [{ title = "Website", href = "" }]
+#
+# For a full reference of all the available options, you can have a look at
+# https://gleam.run/writing-gleam/gleam-toml/.
+
+[dependencies]
+gleam_stdlib = ">= 0.44.0 and < 2.0.0"
+lustre = ">= 5.4.0 and < 6.0.0"
+rsvp = ">= 1.1.3 and < 2.0.0"
+gleam_json = ">= 3.1.0 and < 4.0.0"
+gleam_http = ">= 4.3.0 and < 5.0.0"
+plinth = ">= 0.8.1 and < 1.0.0"
+shared = { path = "../shared" }
+
+[dev-dependencies]
+gleeunit = ">= 1.0.0 and < 2.0.0"
+lustre_dev_tools = ">= 2.3.2 and < 3.0.0"

client/manifest.toml

···
+# This file was generated by Gleam
+# You typically do not need to edit this file
+
+packages = [
+  { name = "argv", version = "1.0.2", build_tools = ["gleam"], requirements = [], otp_app = "argv", source = "hex", outer_checksum = "BA1FF0929525DEBA1CE67256E5ADF77A7CDDFE729E3E3F57A5BDCAA031DED09D" },
+  { name = "booklet", version = "1.1.0", build_tools = ["gleam"], requirements = [], otp_app = "booklet", source = "hex", outer_checksum = "08E0FDB78DC4D8A5D3C80295B021505C7D2A2E7B6C6D5EAB7286C36F4A53C851" },
+  { name = "directories", version = "1.2.0", build_tools = ["gleam"], requirements = ["envoy", "gleam_stdlib", "platform", "simplifile"], otp_app = "directories", source = "hex", outer_checksum = "D13090CFCDF6759B87217E8DDD73A75903A700148A82C1D33799F333E249BF9E" },
+  { name = "envoy", version = "1.1.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "envoy", source = "hex", outer_checksum = "850DA9D29D2E5987735872A2B5C81035146D7FE19EFC486129E44440D03FD832" },
+  { name = "exception", version = "2.1.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "exception", source = "hex", outer_checksum = "329D269D5C2A314F7364BD2711372B6F2C58FA6F39981572E5CA68624D291F8C" },
+  { name = "filepath", version = "1.1.2", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "filepath", source = "hex", outer_checksum = "B06A9AF0BF10E51401D64B98E4B627F1D2E48C154967DA7AF4D0914780A6D40A" },
+  { name = "gleam_community_ansi", version = "1.4.3", build_tools = ["gleam"], requirements = ["gleam_community_colour", "gleam_regexp", "gleam_stdlib"], otp_app = "gleam_community_ansi", source = "hex", outer_checksum = "8A62AE9CC6EA65BEA630D95016D6C07E4F9973565FA3D0DE68DC4200D8E0DD27" },
+  { name = "gleam_community_colour", version = "2.0.2", build_tools = ["gleam"], requirements = ["gleam_json", "gleam_stdlib"], otp_app = "gleam_community_colour", source = "hex", outer_checksum = "E34DD2C896AC3792151EDA939DA435FF3B69922F33415ED3C4406C932FBE9634" },
+  { name = "gleam_crypto", version = "1.5.1", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_crypto", source = "hex", outer_checksum = "50774BAFFF1144E7872814C566C5D653D83A3EBF23ACC3156B757A1B6819086E" },
+  { name = "gleam_erlang", version = "1.3.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_erlang", source = "hex", outer_checksum = "1124AD3AA21143E5AF0FC5CF3D9529F6DB8CA03E43A55711B60B6B7B3874375C" },
+  { name = "gleam_fetch", version = "1.3.0", build_tools = ["gleam"], requirements = ["gleam_http", "gleam_javascript", "gleam_stdlib"], otp_app = "gleam_fetch", source = "hex", outer_checksum = "2CBF9F2E1C71AEBBFB13A9D5720CD8DB4263EB02FE60C5A7A1C6E17B0151C20C" },
+  { name = "gleam_http", version = "4.3.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_http", source = "hex", outer_checksum = "82EA6A717C842456188C190AFB372665EA56CE13D8559BF3B1DD9E40F619EE0C" },
+  { name = "gleam_httpc", version = "5.0.0", build_tools = ["gleam"], requirements = ["gleam_erlang", "gleam_http", "gleam_stdlib"], otp_app = "gleam_httpc", source = "hex", outer_checksum = "C545172618D07811494E97AAA4A0FB34DA6F6D0061FDC8041C2F8E3BE2B2E48F" },
+  { name = "gleam_javascript", version = "1.0.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_javascript", source = "hex", outer_checksum = "EF6C77A506F026C6FB37941889477CD5E4234FCD4337FF0E9384E297CB8F97EB" },
+  { name = "gleam_json", version = "3.1.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_json", source = "hex", outer_checksum = "44FDAA8847BE8FC48CA7A1C089706BD54BADCC4C45B237A992EDDF9F2CDB2836" },
+  { name = "gleam_otp", version = "1.2.0", build_tools = ["gleam"], requirements = ["gleam_erlang", "gleam_stdlib"], otp_app = "gleam_otp", source = "hex", outer_checksum = "BA6A294E295E428EC1562DC1C11EA7530DCB981E8359134BEABC8493B7B2258E" },
+  { name = "gleam_regexp", version = "1.1.1", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_regexp", source = "hex", outer_checksum = "9C215C6CA84A5B35BB934A9B61A9A306EC743153BE2B0425A0D032E477B062A9" },
+  { name = "gleam_stdlib", version = "0.67.1", build_tools = ["gleam"], requirements = [], otp_app = "gleam_stdlib", source = "hex", outer_checksum = "6CE3E4189A8B8EC2F73AB61A2FBDE49F159D6C9C61C49E3B3082E439F260D3D0" },
+  { name = "gleam_time", version = "1.6.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_time", source = "hex", outer_checksum = "0DF3834D20193F0A38D0EB21F0A78D48F2EC276C285969131B86DF8D4EF9E762" },
+  { name = "gleam_yielder", version = "1.1.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_yielder", source = "hex", outer_checksum = "8E4E4ECFA7982859F430C57F549200C7749823C106759F4A19A78AEA6687717A" },
+  { name = "gleeunit", version = "1.9.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleeunit", source = "hex", outer_checksum = "DA9553CE58B67924B3C631F96FE3370C49EB6D6DC6B384EC4862CC4AAA718F3C" },
+  { name = "glint", version = "1.2.1", build_tools = ["gleam"], requirements = ["gleam_community_ansi", "gleam_community_colour", "gleam_stdlib", "snag"], otp_app = "glint", source = "hex", outer_checksum = "2214C7CEFDE457CEE62140C3D4899B964E05236DA74E4243DFADF4AF29C382BB" },
+  { name = "glisten", version = "8.0.1", build_tools = ["gleam"], requirements = ["gleam_erlang", "gleam_otp", "gleam_stdlib", "logging", "telemetry"], otp_app = "glisten", source = "hex", outer_checksum = "534BB27C71FB9E506345A767C0D76B17A9E9199934340C975DC003C710E3692D" },
+  { name = "gramps", version = "6.0.0", build_tools = ["gleam"], requirements = ["gleam_crypto", "gleam_erlang", "gleam_http", "gleam_stdlib"], otp_app = "gramps", source = "hex", outer_checksum = "8B7195978FBFD30B43DF791A8A272041B81E45D245314D7A41FC57237AA882A0" },
+  { name = "group_registry", version = "1.0.0", build_tools = ["gleam"], requirements = ["gleam_erlang", "gleam_otp", "gleam_stdlib"], otp_app = "group_registry", source = "hex", outer_checksum = "BC798A53D6F2406DB94E27CB45C57052CB56B32ACF7CC16EA20F6BAEC7E36B90" },
+  { name = "houdini", version = "1.2.0", build_tools = ["gleam"], requirements = [], otp_app = "houdini", source = "hex", outer_checksum = "5DB1053F1AF828049C2B206D4403C18970ABEF5C18671CA3C2D2ED0DD64F6385" },
+  { name = "hpack_erl", version = "0.3.0", build_tools = ["rebar3"], requirements = [], otp_app = "hpack", source = "hex", outer_checksum = "D6137D7079169D8C485C6962DFE261AF5B9EF60FBC557344511C1E65E3D95FB0" },
+  { name = "justin", version = "1.0.1", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "justin", source = "hex", outer_checksum = "7FA0C6DB78640C6DC5FBFD59BF3456009F3F8B485BF6825E97E1EB44E9A1E2CD" },
+  { name = "logging", version = "1.3.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "logging", source = "hex", outer_checksum = "1098FBF10B54B44C2C7FDF0B01C1253CAFACDACABEFB4B0D027803246753E06D" },
+  { name = "lustre", version = "5.4.0", build_tools = ["gleam"], requirements = ["gleam_erlang", "gleam_json", "gleam_otp", "gleam_stdlib", "houdini"], otp_app = "lustre", source = "hex", outer_checksum = "40E097BABCE65FB7C460C073078611F7F5802EB07E1A9BFB5C229F71B60F8E50" },
+  { name = "lustre_dev_tools", version = "2.3.2", build_tools = ["gleam"], requirements = ["argv", "booklet", "filepath", "gleam_community_ansi", "gleam_crypto", "gleam_erlang", "gleam_http", "gleam_httpc", "gleam_json", "gleam_otp", "gleam_regexp", "gleam_stdlib", "glint", "group_registry", "justin", "lustre", "mist", "polly", "simplifile", "tom", "wisp"], otp_app = "lustre_dev_tools", source = "hex", outer_checksum = "A2D7751DC679199A0A6046016A1D9BE4516D5EC0101E2282E4D5005587A5CB9B" },
+  { name = "marceau", version = "1.3.0", build_tools = ["gleam"], requirements = [], otp_app = "marceau", source = "hex", outer_checksum = "2D1C27504BEF45005F5DFB18591F8610FB4BFA91744878210BDC464412EC44E9" },
+  { name = "mist", version = "5.0.3", build_tools = ["gleam"], requirements = ["exception", "gleam_erlang", "gleam_http", "gleam_otp", "gleam_stdlib", "gleam_yielder", "glisten", "gramps", "hpack_erl", "logging"], otp_app = "mist", source = "hex", outer_checksum = "7C4BE717A81305323C47C8A591E6B9BA4AC7F56354BF70B4D3DF08CC01192668" },
+  { name = "platform", version = "1.0.0", build_tools = ["gleam"], requirements = [], otp_app = "platform", source = "hex", outer_checksum = "8339420A95AD89AAC0F82F4C3DB8DD401041742D6C3F46132A8739F6AEB75391" },
+  { name = "plinth", version = "0.8.1", build_tools = ["gleam"], requirements = ["gleam_javascript", "gleam_json", "gleam_stdlib"], otp_app = "plinth", source = "hex", outer_checksum = "012E65087018F9C7B48513EB47D0F452D6E57AF257555B46BB82BC0B58D9C482" },
+  { name = "polly", version = "2.1.0", build_tools = ["gleam"], requirements = ["filepath", "gleam_stdlib", "simplifile"], otp_app = "polly", source = "hex", outer_checksum = "1BA4D0ACE9BCF52AEA6AD9DE020FD8220CCA399A379E50A1775FC5C1204FCF56" },
+  { name = "rsvp", version = "1.1.3", build_tools = ["gleam"], requirements = ["gleam_erlang", "gleam_fetch", "gleam_http", "gleam_httpc", "gleam_javascript", "gleam_json", "gleam_stdlib", "lustre"], otp_app = "rsvp", source = "hex", outer_checksum = "4A582C9C49B4EC3197631E78FDB4D0A8703F14043EC12EAAC608E7B9347C2211" },
+  { name = "shared", version = "1.0.0", build_tools = ["gleam"], requirements = ["gleam_json", "gleam_stdlib"], source = "local", path = "../shared" },
+  { name = "simplifile", version = "2.3.2", build_tools = ["gleam"], requirements = ["filepath", "gleam_stdlib"], otp_app = "simplifile", source = "hex", outer_checksum = "E049B4DACD4D206D87843BCF4C775A50AE0F50A52031A2FFB40C9ED07D6EC70A" },
+  { name = "snag", version = "1.2.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "snag", source = "hex", outer_checksum = "274F41D6C3ECF99F7686FDCE54183333E41D2C1CA5A3A673F9A8B2C7A4401077" },
+  { name = "telemetry", version = "1.3.0", build_tools = ["rebar3"], requirements = [], otp_app = "telemetry", source = "hex", outer_checksum = "7015FC8919DBE63764F4B4B87A95B7C0996BD539E0D499BE6EC9D7F3875B79E6" },
+  { name = "tom", version = "2.0.0", build_tools = ["gleam"], requirements = ["gleam_stdlib", "gleam_time"], otp_app = "tom", source = "hex", outer_checksum = "74D0C5A3761F7A7D06994755D4D5AD854122EF8E9F9F76A3E7547606D8C77091" },
+  { name = "wisp", version = "2.1.1", build_tools = ["gleam"], requirements = ["directories", "exception", "filepath", "gleam_crypto", "gleam_erlang", "gleam_http", "gleam_json", "gleam_stdlib", "houdini", "logging", "marceau", "mist", "simplifile"], otp_app = "wisp", source = "hex", outer_checksum = "46E2E31DECD61A3748CF6CB317D9AC432BBC8D8A6E65655A9E787BDC69389DE0" },
+]
+
+[requirements]
+gleam_http = { version = ">= 4.3.0 and < 5.0.0" }
+gleam_json = { version = ">= 3.1.0 and < 4.0.0" }
+gleam_stdlib = { version = ">= 0.44.0 and < 2.0.0" }
+gleeunit = { version = ">= 1.0.0 and < 2.0.0" }
+lustre = { version = ">= 5.4.0 and < 6.0.0" }
+lustre_dev_tools = { version = ">= 2.3.2 and < 3.0.0" }
+plinth = { version = ">= 0.8.1 and < 1.0.0" }
+rsvp = { version = ">= 1.1.3 and < 2.0.0" }
+shared = { path = "../shared" }

client/src/client.gleam

···
+import gleam/io
+
+pub fn main() -> Nil {
+  io.println("Hello from client!")
+}

client/test/client_test.gleam

···
+import gleeunit
+
+pub fn main() -> Nil {
+  gleeunit.main()
+}
+
+// gleeunit test functions end in `_test`
+pub fn hello_world_test() {
+  let name = "Joe"
+  let greeting = "Hello, " <> name <> "!"
+
+  assert greeting == "Hello, Joe!"
+}

server/README.md

···
+# server
+
+[![Package Version](https://img.shields.io/hexpm/v/server)](https://hex.pm/packages/server)
+[![Hex Docs](https://img.shields.io/badge/hex-docs-ffaff3)](https://hexdocs.pm/server/)
+
+```sh
+gleam add server@1
+```
+```gleam
+import server
+
+pub fn main() -> Nil {
+  // TODO: An example of the project in use
+}
+```
+
+Further documentation can be found at <https://hexdocs.pm/server>.
+
+## Development
+
+```sh
+gleam run   # Run the project
+gleam test  # Run the tests
+```

server/birdie_snapshots/full_reciple_read.accepted

···
+---
+version: 1.5.3
+title: full reciple read
+file: ./test/server_test.gleam
+test_name: read_full_recipe_test
+---
+Ok(RecipeDetailView("Soup", "Mom", 4, "It's soup, whaddya want?", [Ingredient("tomato", "cup", 2), Ingredient("onion", "cup", 1), Ingredient("olive oil", "tbsp", 1)], [Instruction(1, "Chop the onion."), Instruction(2, "Simmer everything until it tastes like soup."), Instruction(3, "Serve hot.")]))

server/birdie_snapshots/indexed_recipes.accepted

···
+---
+version: 1.5.3
+title: indexed recipes
+file: ./test/server_test.gleam
+test_name: get_indexed_recipes_test
+---
+Ok([RecipeStub(2, "pie"), RecipeStub(1, "Soup")])

server/birdie_snapshots/read_recipe_ingredients_table.accepted

···
+---
+version: 1.5.3
+title: read recipe_ingredients table
+file: ./test/server_test.gleam
+test_name: recipe_ingredients_read_test
+---
+Ok([#(1, 1, 1, 1, 2), #(2, 1, 2, 1, 1), #(3, 1, 3, 2, 1)])

server/birdie_snapshots/read_recipe_table.accepted

···
+---
+version: 1.5.3
+title: read recipe table
+file: ./test/server_test.gleam
+test_name: recipe_read_test
+---
+Ok([#(1, "Soup", 1, 4, "It's soup, whaddya want?")])

server/data/seed.sql

···
+CREATE TABLE authors (
+  id INTEGER PRIMARY KEY,
+  name TEXT UNIQUE COLLATE NOCASE NOT NULL
+
+); 
+
+CREATE TABLE ingredients (
+id INTEGER PRIMARY KEY,
+name TEXT UNIQUE COLLATE NOCASE NOT NULL 
+
+);
+
+CREATE TABLE units (
+id INTEGER PRIMARY KEY,
+name TEXT UNIQUE COLLATE NOCASE NOT NULL
+);
+
+CREATE TABLE recipes (
+id INTEGER PRIMARY KEY,
+title TEXT UNIQUE COLLATE NOCASE NOT NULL,
+author_id INTEGER REFERENCES authors(id) ON DELETE SET NULL,
+servings INT NOT NULL DEFAULT 4,
+description TEXT NOT NULL DEFAULT 'no description',
+  UNIQUE(author_id, title)
+);
+
+CREATE TABLE recipe_ingredients (
+
+id INTEGER PRIMARY KEY,
+recipe_id INTEGER NOT NULL REFERENCES recipes(id) ON DELETE CASCADE,
+ingredient_id INTEGER NOT NULL REFERENCES ingredients(id),
+unit_id INTEGER NOT NULL REFERENCES units(id),
+quantity INTEGER NOT NULL,
+  UNIQUE(recipe_id, ingredient_id)
+
+);
+CREATE TABLE recipe_instructions (
+
+id INTEGER PRIMARY KEY,
+recipe_id INTEGER NOT NULL REFERENCES recipes(id) ON DELETE CASCADE,
+step INTEGER NOT NULL,
+instruction TEXT NOT NULL,
+  UNIQUE(recipe_id, step)
+
+);
+

server/data/test_db.sql

···
+CREATE TABLE authors (
+  id INTEGER PRIMARY KEY,
+  name TEXT UNIQUE COLLATE NOCASE NOT NULL
+
+); 
+
+CREATE TABLE ingredients (
+id INTEGER PRIMARY KEY,
+name TEXT UNIQUE COLLATE NOCASE NOT NULL 
+
+);
+
+CREATE TABLE units (
+id INTEGER PRIMARY KEY,
+name TEXT UNIQUE COLLATE NOCASE NOT NULL
+);
+
+CREATE TABLE recipes (
+id INTEGER PRIMARY KEY,
+title TEXT UNIQUE COLLATE NOCASE NOT NULL,
+author_id INTEGER REFERENCES authors(id) ON DELETE SET NULL,
+servings INT NOT NULL DEFAULT 4,
+description TEXT NOT NULL DEFAULT 'no description',
+  UNIQUE(author_id, title)
+);
+
+CREATE TABLE recipe_ingredients (
+
+id INTEGER PRIMARY KEY,
+recipe_id INTEGER NOT NULL REFERENCES recipes(id) ON DELETE CASCADE,
+ingredient_id INTEGER NOT NULL REFERENCES ingredients(id),
+unit_id INTEGER NOT NULL REFERENCES units(id),
+quantity INTEGER NOT NULL,
+  UNIQUE(recipe_id, ingredient_id)
+
+);
+CREATE TABLE recipe_instructions (
+
+id INTEGER PRIMARY KEY,
+recipe_id INTEGER NOT NULL REFERENCES recipes(id) ON DELETE CASCADE,
+step INTEGER NOT NULL,
+instruction TEXT NOT NULL,
+  UNIQUE(recipe_id, step)
+
+);
+
+pragma foreign_keys = on
+;
+begin
+;
+
+INSERT OR IGNORE INTO authors (name) VALUES ('Mom');
+INSERT OR IGNORE INTO units (name) VALUES ('cup');
+INSERT OR IGNORE INTO units (name) VALUES ('tbsp');
+
+INSERT OR IGNORE INTO ingredients (name) VALUES ('tomato');
+INSERT OR IGNORE INTO ingredients (name) VALUES ('onion');
+INSERT OR IGNORE INTO ingredients (name) VALUES ('olive oil');
+
+INSERT INTO recipes (title, author_id, servings, description)
+VALUES (
+  'Soup',
+  (SELECT id FROM authors WHERE name = 'Mom'),
+  4,
+  'It''s soup, whaddya want?'
+)
+ON CONFLICT(title) DO UPDATE SET
+  author_id = excluded.author_id,
+  servings = excluded.servings,
+  description = excluded.description;
+
+INSERT INTO recipe_ingredients (recipe_id, ingredient_id, unit_id, quantity)
+VALUES
+(
+  (SELECT id FROM recipes WHERE title = 'Soup'),
+  (SELECT id FROM ingredients WHERE name = 'tomato'),
+  (SELECT id FROM units WHERE name = 'cup'),
+  2
+),
+(
+  (SELECT id FROM recipes WHERE title = 'Soup'),
+  (SELECT id FROM ingredients WHERE name = 'onion'),
+  (SELECT id FROM units WHERE name = 'cup'),
+  1
+),
+(
+  (SELECT id FROM recipes WHERE title = 'Soup'),
+  (SELECT id FROM ingredients WHERE name = 'olive oil'),
+  (SELECT id FROM units WHERE name = 'tbsp'),
+  1
+)
+ON CONFLICT(recipe_id, ingredient_id) DO UPDATE SET
+  unit_id = excluded.unit_id,
+  quantity = excluded.quantity;
+
+INSERT INTO recipe_instructions (recipe_id, step, instruction)
+VALUES
+((SELECT id FROM recipes WHERE title = 'Soup'), 1, 'Chop the onion.'),
+((SELECT id FROM recipes WHERE title = 'Soup'), 2, 'Simmer everything until it tastes like soup.'),
+((SELECT id FROM recipes WHERE title = 'Soup'), 3, 'Serve hot.')
+ON CONFLICT(recipe_id, step) DO UPDATE SET
+  instruction = excluded.instruction;
+
+commit
+;
+

server/gleam.toml

···
+name = "server"
+version = "1.0.0"
+
+# Fill out these fields if you intend to generate HTML documentation or publish
+# your project to the Hex package manager.
+#
+# description = ""
+# licences = ["Apache-2.0"]
+# repository = { type = "github", user = "", repo = "" }
+# links = [{ title = "Website", href = "" }]
+#
+# For a full reference of all the available options, you can have a look at
+# https://gleam.run/writing-gleam/gleam-toml/.
+
+[dependencies]
+gleam_stdlib = ">= 0.44.0 and < 2.0.0"
+sqlight = ">= 1.0.3 and < 2.0.0"
+simplifile = ">= 2.3.1 and < 3.0.0"
+wisp = ">= 2.1.1 and < 3.0.0"
+shared = { path = "../shared" }
+gleam_erlang = ">= 1.3.0 and < 2.0.0"
+gleam_http = ">= 4.3.0 and < 5.0.0"
+gleam_json = ">= 3.1.0 and < 4.0.0"
+mist = ">= 5.0.3 and < 6.0.0"
+lustre = ">= 5.4.0 and < 6.0.0"
+
+[dev-dependencies]
+gleeunit = ">= 1.0.0 and < 2.0.0"
+birdie = ">= 1.5.3 and < 2.0.0"

server/manifest.toml

···
+# This file was generated by Gleam
+# You typically do not need to edit this file
+
+packages = [
+  { name = "argv", version = "1.0.2", build_tools = ["gleam"], requirements = [], otp_app = "argv", source = "hex", outer_checksum = "BA1FF0929525DEBA1CE67256E5ADF77A7CDDFE729E3E3F57A5BDCAA031DED09D" },
+  { name = "birdie", version = "1.5.3", build_tools = ["gleam"], requirements = ["argv", "edit_distance", "envoy", "filepath", "glance", "gleam_community_ansi", "gleam_stdlib", "global_value", "justin", "rank", "simplifile", "term_size", "tom", "trie_again"], otp_app = "birdie", source = "hex", outer_checksum = "64E7D9CC9E84272DA07061628E1B8F31F34FCD2008BCED47AB8FD58457CA63E2" },
+  { name = "directories", version = "1.2.0", build_tools = ["gleam"], requirements = ["envoy", "gleam_stdlib", "platform", "simplifile"], otp_app = "directories", source = "hex", outer_checksum = "D13090CFCDF6759B87217E8DDD73A75903A700148A82C1D33799F333E249BF9E" },
+  { name = "edit_distance", version = "3.0.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "edit_distance", source = "hex", outer_checksum = "7DC465C34695F9E57D79FC65670C53C992CE342BF29E0AA41FF44F61AF62FC56" },
+  { name = "envoy", version = "1.1.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "envoy", source = "hex", outer_checksum = "850DA9D29D2E5987735872A2B5C81035146D7FE19EFC486129E44440D03FD832" },
+  { name = "esqlite", version = "0.9.0", build_tools = ["rebar3"], requirements = [], otp_app = "esqlite", source = "hex", outer_checksum = "CCF72258A4EE152EC7AD92AA9A03552EB6CA1B06B65C93AD5B6E55C302E05855" },
+  { name = "exception", version = "2.1.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "exception", source = "hex", outer_checksum = "329D269D5C2A314F7364BD2711372B6F2C58FA6F39981572E5CA68624D291F8C" },
+  { name = "filepath", version = "1.1.2", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "filepath", source = "hex", outer_checksum = "B06A9AF0BF10E51401D64B98E4B627F1D2E48C154967DA7AF4D0914780A6D40A" },
+  { name = "glance", version = "6.0.0", build_tools = ["gleam"], requirements = ["gleam_stdlib", "glexer"], otp_app = "glance", source = "hex", outer_checksum = "49E0ED4793BB3F56C3E5ED00528D70CAE21D263F70A735604124B95C5F62E2DB" },
+  { name = "gleam_community_ansi", version = "1.4.3", build_tools = ["gleam"], requirements = ["gleam_community_colour", "gleam_regexp", "gleam_stdlib"], otp_app = "gleam_community_ansi", source = "hex", outer_checksum = "8A62AE9CC6EA65BEA630D95016D6C07E4F9973565FA3D0DE68DC4200D8E0DD27" },
+  { name = "gleam_community_colour", version = "2.0.2", build_tools = ["gleam"], requirements = ["gleam_json", "gleam_stdlib"], otp_app = "gleam_community_colour", source = "hex", outer_checksum = "E34DD2C896AC3792151EDA939DA435FF3B69922F33415ED3C4406C932FBE9634" },
+  { name = "gleam_crypto", version = "1.5.1", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_crypto", source = "hex", outer_checksum = "50774BAFFF1144E7872814C566C5D653D83A3EBF23ACC3156B757A1B6819086E" },
+  { name = "gleam_erlang", version = "1.3.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_erlang", source = "hex", outer_checksum = "1124AD3AA21143E5AF0FC5CF3D9529F6DB8CA03E43A55711B60B6B7B3874375C" },
+  { name = "gleam_http", version = "4.3.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_http", source = "hex", outer_checksum = "82EA6A717C842456188C190AFB372665EA56CE13D8559BF3B1DD9E40F619EE0C" },
+  { name = "gleam_json", version = "3.1.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_json", source = "hex", outer_checksum = "44FDAA8847BE8FC48CA7A1C089706BD54BADCC4C45B237A992EDDF9F2CDB2836" },
+  { name = "gleam_otp", version = "1.2.0", build_tools = ["gleam"], requirements = ["gleam_erlang", "gleam_stdlib"], otp_app = "gleam_otp", source = "hex", outer_checksum = "BA6A294E295E428EC1562DC1C11EA7530DCB981E8359134BEABC8493B7B2258E" },
+  { name = "gleam_regexp", version = "1.1.1", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_regexp", source = "hex", outer_checksum = "9C215C6CA84A5B35BB934A9B61A9A306EC743153BE2B0425A0D032E477B062A9" },
+  { name = "gleam_stdlib", version = "0.67.1", build_tools = ["gleam"], requirements = [], otp_app = "gleam_stdlib", source = "hex", outer_checksum = "6CE3E4189A8B8EC2F73AB61A2FBDE49F159D6C9C61C49E3B3082E439F260D3D0" },
+  { name = "gleam_time", version = "1.6.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_time", source = "hex", outer_checksum = "0DF3834D20193F0A38D0EB21F0A78D48F2EC276C285969131B86DF8D4EF9E762" },
+  { name = "gleam_yielder", version = "1.1.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_yielder", source = "hex", outer_checksum = "8E4E4ECFA7982859F430C57F549200C7749823C106759F4A19A78AEA6687717A" },
+  { name = "gleeunit", version = "1.9.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleeunit", source = "hex", outer_checksum = "DA9553CE58B67924B3C631F96FE3370C49EB6D6DC6B384EC4862CC4AAA718F3C" },
+  { name = "glexer", version = "2.3.0", build_tools = ["gleam"], requirements = ["gleam_stdlib", "splitter"], otp_app = "glexer", source = "hex", outer_checksum = "40A1FB0919FA080AD6C5809B4C7DBA545841CAAC8168FACDFA0B0667C22475CC" },
+  { name = "glisten", version = "8.0.1", build_tools = ["gleam"], requirements = ["gleam_erlang", "gleam_otp", "gleam_stdlib", "logging", "telemetry"], otp_app = "glisten", source = "hex", outer_checksum = "534BB27C71FB9E506345A767C0D76B17A9E9199934340C975DC003C710E3692D" },
+  { name = "global_value", version = "1.0.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "global_value", source = "hex", outer_checksum = "23F74C91A7B819C43ABCCBF49DAD5BB8799D81F2A3736BA9A534BD47F309FF4F" },
+  { name = "gramps", version = "6.0.0", build_tools = ["gleam"], requirements = ["gleam_crypto", "gleam_erlang", "gleam_http", "gleam_stdlib"], otp_app = "gramps", source = "hex", outer_checksum = "8B7195978FBFD30B43DF791A8A272041B81E45D245314D7A41FC57237AA882A0" },
+  { name = "houdini", version = "1.2.0", build_tools = ["gleam"], requirements = [], otp_app = "houdini", source = "hex", outer_checksum = "5DB1053F1AF828049C2B206D4403C18970ABEF5C18671CA3C2D2ED0DD64F6385" },
+  { name = "hpack_erl", version = "0.3.0", build_tools = ["rebar3"], requirements = [], otp_app = "hpack", source = "hex", outer_checksum = "D6137D7079169D8C485C6962DFE261AF5B9EF60FBC557344511C1E65E3D95FB0" },
+  { name = "justin", version = "1.0.1", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "justin", source = "hex", outer_checksum = "7FA0C6DB78640C6DC5FBFD59BF3456009F3F8B485BF6825E97E1EB44E9A1E2CD" },
+  { name = "logging", version = "1.3.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "logging", source = "hex", outer_checksum = "1098FBF10B54B44C2C7FDF0B01C1253CAFACDACABEFB4B0D027803246753E06D" },
+  { name = "lustre", version = "5.4.0", build_tools = ["gleam"], requirements = ["gleam_erlang", "gleam_json", "gleam_otp", "gleam_stdlib", "houdini"], otp_app = "lustre", source = "hex", outer_checksum = "40E097BABCE65FB7C460C073078611F7F5802EB07E1A9BFB5C229F71B60F8E50" },
+  { name = "marceau", version = "1.3.0", build_tools = ["gleam"], requirements = [], otp_app = "marceau", source = "hex", outer_checksum = "2D1C27504BEF45005F5DFB18591F8610FB4BFA91744878210BDC464412EC44E9" },
+  { name = "mist", version = "5.0.3", build_tools = ["gleam"], requirements = ["exception", "gleam_erlang", "gleam_http", "gleam_otp", "gleam_stdlib", "gleam_yielder", "glisten", "gramps", "hpack_erl", "logging"], otp_app = "mist", source = "hex", outer_checksum = "7C4BE717A81305323C47C8A591E6B9BA4AC7F56354BF70B4D3DF08CC01192668" },
+  { name = "platform", version = "1.0.0", build_tools = ["gleam"], requirements = [], otp_app = "platform", source = "hex", outer_checksum = "8339420A95AD89AAC0F82F4C3DB8DD401041742D6C3F46132A8739F6AEB75391" },
+  { name = "rank", version = "1.0.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "rank", source = "hex", outer_checksum = "5660E361F0E49CBB714CC57CC4C89C63415D8986F05B2DA0C719D5642FAD91C9" },
+  { name = "shared", version = "1.0.0", build_tools = ["gleam"], requirements = ["gleam_json", "gleam_stdlib"], source = "local", path = "../shared" },
+  { name = "simplifile", version = "2.3.2", build_tools = ["gleam"], requirements = ["filepath", "gleam_stdlib"], otp_app = "simplifile", source = "hex", outer_checksum = "E049B4DACD4D206D87843BCF4C775A50AE0F50A52031A2FFB40C9ED07D6EC70A" },
+  { name = "splitter", version = "1.2.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "splitter", source = "hex", outer_checksum = "3DFD6B6C49E61EDAF6F7B27A42054A17CFF6CA2135FF553D0CB61C234D281DD0" },
+  { name = "sqlight", version = "1.0.3", build_tools = ["gleam"], requirements = ["esqlite", "gleam_stdlib"], otp_app = "sqlight", source = "hex", outer_checksum = "CADD79663C9B61D4BAC960A47CC2D42CA8F48EAF5804DBEB79977287750F4B16" },
+  { name = "telemetry", version = "1.3.0", build_tools = ["rebar3"], requirements = [], otp_app = "telemetry", source = "hex", outer_checksum = "7015FC8919DBE63764F4B4B87A95B7C0996BD539E0D499BE6EC9D7F3875B79E6" },
+  { name = "term_size", version = "1.0.1", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "term_size", source = "hex", outer_checksum = "D00BD2BC8FB3EBB7E6AE076F3F1FF2AC9D5ED1805F004D0896C784D06C6645F1" },
+  { name = "tom", version = "2.0.0", build_tools = ["gleam"], requirements = ["gleam_stdlib", "gleam_time"], otp_app = "tom", source = "hex", outer_checksum = "74D0C5A3761F7A7D06994755D4D5AD854122EF8E9F9F76A3E7547606D8C77091" },
+  { name = "trie_again", version = "1.1.4", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "trie_again", source = "hex", outer_checksum = "E3BD66B4E126EF567EA8C4944EAB216413392ADF6C16C36047AF79EE5EF13466" },
+  { name = "wisp", version = "2.1.1", build_tools = ["gleam"], requirements = ["directories", "exception", "filepath", "gleam_crypto", "gleam_erlang", "gleam_http", "gleam_json", "gleam_stdlib", "houdini", "logging", "marceau", "mist", "simplifile"], otp_app = "wisp", source = "hex", outer_checksum = "46E2E31DECD61A3748CF6CB317D9AC432BBC8D8A6E65655A9E787BDC69389DE0" },
+]
+
+[requirements]
+birdie = { version = ">= 1.5.3 and < 2.0.0" }
+gleam_erlang = { version = ">= 1.3.0 and < 2.0.0" }
+gleam_http = { version = ">= 4.3.0 and < 5.0.0" }
+gleam_json = { version = ">= 3.1.0 and < 4.0.0" }
+gleam_stdlib = { version = ">= 0.44.0 and < 2.0.0" }
+gleeunit = { version = ">= 1.0.0 and < 2.0.0" }
+lustre = { version = ">= 5.4.0 and < 6.0.0" }
+mist = { version = ">= 5.0.3 and < 6.0.0" }
+shared = { path = "../shared" }
+simplifile = { version = ">= 2.3.1 and < 3.0.0" }
+sqlight = { version = ">= 1.0.3 and < 2.0.0" }
+wisp = { version = ">= 2.1.1 and < 3.0.0" }

server/src/queries/read.gleam

···
+import gleam/dynamic/decode
+import gleam/result
+import shared/types as t
+import sqlight
+
+pub fn decode_int() {
+  use id <- decode.field(0, decode.int)
+  decode.success(id)
+}
+
+pub fn single_col_decode() {
+  use id <- decode.field(0, decode.int)
+  use name <- decode.field(1, decode.string)
+  decode.success(#(id, name))
+}
+
+pub fn recipe_decode() {
+  use id <- decode.field(0, decode.int)
+  use title <- decode.field(1, decode.string)
+  use author_id <- decode.field(2, decode.int)
+  use servings <- decode.field(3, decode.int)
+  use description <- decode.field(4, decode.string)
+  decode.success(#(id, title, author_id, servings, description))
+}
+
+pub fn recipe_ingredient_decode() {
+  use id <- decode.field(0, decode.int)
+  use recipe_id <- decode.field(1, decode.int)
+  use ingredient_id <- decode.field(2, decode.int)
+  use unit_id <- decode.field(3, decode.int)
+  use quantity <- decode.field(4, decode.int)
+  decode.success(#(id, recipe_id, ingredient_id, unit_id, quantity))
+}
+
+pub fn recipe_view_decode() {
+  use id <- decode.field(0, decode.int)
+  use title <- decode.field(1, decode.string)
+  use author <- decode.field(2, decode.string)
+  use servings <- decode.field(3, decode.int)
+  use description <- decode.field(4, decode.string)
+  decode.success(t.RecipeRow(id:, title:, author:, servings:, description:))
+}
+
+pub fn ingredient_view_decode() {
+  use name <- decode.field(0, decode.string)
+  use unit <- decode.field(1, decode.string)
+  use quantity <- decode.field(2, decode.int)
+  decode.success(t.Ingredient(name, unit, quantity))
+}
+
+pub fn instruction_decode() {
+  use id <- decode.field(0, decode.int)
+  use recipe_id <- decode.field(1, decode.int)
+  use step <- decode.field(3, decode.int)
+  use instruction <- decode.field(4, decode.string)
+  decode.success(#(id, recipe_id, step, instruction))
+}
+
+pub fn instruction_view_decode() {
+  use step <- decode.field(0, decode.int)
+  use instruction <- decode.field(1, decode.string)
+  decode.success(t.Instruction(step:, instruction:))
+}
+
+pub fn recipe_stub_decode() {
+  use recipe_id <- decode.field(0, decode.int)
+  use title <- decode.field(1, decode.string)
+  decode.success(t.RecipeStub(recipe_id:, title:))
+}
+
+pub fn get_indexed_recipes(
+  conn: sqlight.Connection,
+) -> Result(List(t.RecipeStub), sqlight.Error) {
+  let sql = "SELECT id, title FROM recipes"
+  sqlight.query(sql, on: conn, with: [], expecting: recipe_stub_decode())
+}
+
+pub fn get_full_recipe(
+  name: String,
+  conn: sqlight.Connection,
+) -> Result(t.RecipeDetailView, sqlight.Error) {
+  // start with the name, pull the recipe record
+  let sql =
+    "
+SELECT
+  r.id,
+  r.title,
+  COALESCE(a.name, '') AS author,
+  r.servings,
+  r.description
+FROM recipes r
+LEFT JOIN authors a ON a.id = r.author_id
+WHERE r.title = ?;
+    "
+  use raw_recipe <- result.try(sqlight.query(
+    sql,
+    conn,
+    [sqlight.text(name)],
+    recipe_view_decode(),
+  ))
+  let assert [recipe] = raw_recipe
+
+  let sql =
+    "
+SELECT
+  i.name      AS ingredient_name,
+  u.name      AS unit_name,
+  ri.quantity AS quantity
+FROM recipe_ingredients ri
+JOIN ingredients i ON i.id = ri.ingredient_id
+JOIN units u       ON u.id = ri.unit_id
+WHERE ri.recipe_id = ?
+ORDER BY ri.id;
+    "
+  use ingredient_list <- result.try(sqlight.query(
+    sql,
+    conn,
+    [sqlight.int(recipe.id)],
+    ingredient_view_decode(),
+  ))
+
+  let sql =
+    "SELECT step, instruction FROM recipe_instructions WHERE recipe_id = ?"
+
+  use instruction_list <- result.map(sqlight.query(
+    sql,
+    conn,
+    [sqlight.int(recipe.id)],
+    instruction_view_decode(),
+  ))
+
+  t.RecipeDetailView(
+    title: recipe.title,
+    author: recipe.author,
+    servings: recipe.servings,
+    description: recipe.description,
+    ingredients: ingredient_list,
+    instructions: instruction_list,
+  )
+}

server/src/queries/write.gleam

···
+import gleam/list
+import gleam/string
+import queries/read
+import simplifile
+import sqlight
+
+import shared/types as t
+
+/// Takes a list of Ingredient type, along with the rowid of a recipe(normally passed in through the write_full_recipe function. If you're calling it separately, have the recipe_id handy from a previous query.)
+///
+pub fn write_recipe_ingredients(
+  ingredients: List(t.Ingredient),
+  recipe_id: Int,
+  conn: sqlight.Connection,
+) {
+  let ingredient_names = ingredients |> list.map(fn(i) { i.name })
+  write_single_column(ingredient_names, t.Ingredients, conn)
+
+  let unit_names = ingredients |> list.map(fn(i) { i.unit })
+  write_single_column(unit_names, t.Units, conn)
+
+  let sql =
+    "INSERT INTO recipe_ingredients (recipe_id, ingredient_id, unit_id, quantity) VALUES"
+    <> list.repeat(
+      "(?,
+(SELECT id FROM ingredients WHERE name = ?),
+(SELECT id FROM units WHERE name = ?),
+?)",
+      list.length(ingredients),
+    )
+    |> string.join(",")
+  let args =
+    list.flat_map(ingredients, fn(ingredient) {
+      [
+        sqlight.int(recipe_id),
+        sqlight.text(ingredient.name),
+        sqlight.text(ingredient.unit),
+        sqlight.int(ingredient.quantity),
+      ]
+    })
+
+  sqlight.query(sql, on: conn, with: args, expecting: read.single_col_decode())
+}
+
+/// Takes a NewRecipe and writes to the db. This is effectively the meta data consisting of the recipe title, author, servings, and description. 
+///
+pub fn write_recipe(
+  recipe: t.NewRecipe,
+  conn: sqlight.Connection,
+) -> Result(List(#(Int, String, Int, Int, String)), sqlight.Error) {
+  write_single_column([recipe.author], t.Authors, conn)
+
+  let sql =
+    "
+    insert into recipes (title, author_id, servings, description)
+    values
+    (?, 
+(select id from authors where name = ?),
+    ?,
+    ?)
+    "
+  sqlight.query(
+    sql,
+    on: conn,
+    with: [
+      sqlight.text(recipe.title),
+      sqlight.text(recipe.author),
+      sqlight.int(recipe.servings),
+      sqlight.text(recipe.description),
+    ],
+    expecting: read.recipe_decode(),
+  )
+}
+
+/// Writes a row in one of the single-column tables: authors, units, or ingredients. Will ignore duplicates. Takes a list of strings.
+///
+pub fn write_single_column(
+  names: List(String),
+  table: t.SingleColumnTable,
+  conn: sqlight.Connection,
+) {
+  let table = case table {
+    t.Authors -> "authors"
+    t.Units -> "units"
+    t.Ingredients -> "ingredients"
+  }
+  let sql = "
+INSERT OR IGNORE INTO " <> table <> " ('name') VALUES " <> list.repeat(
+      "(?)",
+      list.length(names),
+    )
+    |> string.join(",")
+
+  let args =
+    list.flat_map(names, fn(name) {
+      [
+        sqlight.text(name),
+      ]
+    })
+  sqlight.query(sql, on: conn, with: args, expecting: read.single_col_decode())
+}
+
+pub fn write_instructions(
+  instructions: List(t.Instruction),
+  recipe_id: Int,
+  conn: sqlight.Connection,
+) {
+  let sql =
+    "INSERT INTO recipe_instructions (recipe_id, step, instruction) VALUES "
+    <> list.repeat("(?,?,?)", list.length(instructions))
+    |> string.join(",")
+
+  let args =
+    list.flat_map(instructions, fn(instruction) {
+      [
+        sqlight.int(recipe_id),
+        sqlight.int(instruction.step),
+        sqlight.text(instruction.instruction),
+      ]
+    })
+
+  sqlight.query(sql, on: conn, with: args, expecting: read.instruction_decode())
+}
+
+pub fn write_full_recipe(recipe: t.RecipeDetailView, conn: sqlight.Connection) {
+  let core_recipe =
+    t.NewRecipe(
+      title: recipe.title,
+      author: recipe.author,
+      servings: recipe.servings,
+      description: recipe.description,
+    )
+  write_recipe(core_recipe, conn)
+
+  let assert Ok([row_id]) =
+    sqlight.query(
+      "SELECT last_insert_rowid()",
+      on: conn,
+      with: [],
+      expecting: read.decode_int(),
+    )
+  write_recipe_ingredients(recipe.ingredients, row_id, conn)
+  write_instructions(recipe.instructions, row_id, conn)
+}
+
+pub fn optional_db_setup(conn: sqlight.Connection) -> Nil {
+  let assert Ok(schema) = simplifile.read("./data/test_db.sql")
+  // test recipe is "Soup"
+  let _ = sqlight.exec(schema, conn)
+  let _ = read.get_full_recipe("Soup", conn)
+  let new_recipe =
+    t.RecipeDetailView(
+      title: "pizza",
+      author: "dean martin",
+      servings: 8,
+      description: "oh my thats a lovely pizza",
+      ingredients: [
+        t.Ingredient(name: "pepperoni", unit: "oz", quantity: 8),
+        t.Ingredient(name: "tomato", unit: "cans", quantity: 2),
+        t.Ingredient(name: "cheez", unit: "g", quantity: 54),
+      ],
+      instructions: [
+        t.Instruction(step: 1, instruction: "make-a the dough"),
+        t.Instruction(step: 2, instruction: "make-a the sauce"),
+        t.Instruction(step: 3, instruction: "make-a the pizza"),
+      ],
+    )
+  let _ = write_full_recipe(new_recipe, conn)
+  let _ = read.get_full_recipe("pizza", conn)
+  Nil
+}

server/src/server.gleam

···
+import gleam/dynamic/decode
+import gleam/http/response
+import gleam/string
+import queries/read
+import queries/write
+import shared/types as t
+import sqlight
+
+import gleam/erlang/process
+import gleam/http.{Get, Post}
+import gleam/json
+import gleam/result
+import lustre/attribute
+import lustre/element
+import lustre/element/html
+import mist
+import wisp.{type Request, type Response}
+import wisp/wisp_mist
+
+pub fn main() {
+  wisp.configure_logger()
+  let base_key = wisp.random_string(64)
+
+  let assert Ok(conn) = sqlight.open("data/db.db")
+
+  let assert Ok(priv_directory) = wisp.priv_directory("server")
+  let static_directory = priv_directory <> "/static"
+
+  let assert Ok(_) =
+    handle_request(conn, static_directory, _)
+    |> wisp_mist.handler(base_key)
+    |> mist.new
+    |> mist.port(3000)
+    |> mist.start
+
+  process.sleep_forever()
+}
+
+fn app_middleware(
+  req: Request,
+  static_directory: String,
+  next: fn(Request) -> Response,
+) -> Response {
+  let req = wisp.method_override(req)
+  use <- wisp.log_request(req)
+  use <- wisp.rescue_crashes
+  use req <- wisp.handle_head(req)
+  use <- wisp.serve_static(req, under: "/static", from: static_directory)
+
+  next(req)
+}
+
+fn handle_request(
+  db: sqlight.Connection,
+  static_directory: String,
+  req: Request,
+) -> Response {
+  use req <- app_middleware(req, static_directory)
+
+  case wisp.path_segments(req) {
+    ["api", "list"] -> show_list(db)
+    [title] -> show_recipe(db, title)
+    [] -> show_home(db)
+    _ -> wisp.not_found()
+  }
+}
+
+fn show_recipe(
+  db: sqlight.Connection,
+  title: String,
+) -> response.Response(wisp.Body) {
+  let string =
+    read.get_full_recipe(title, db)
+    |> string.inspect
+    |> echo
+  wisp.ok()
+  |> wisp.html_body(string)
+}
+
+fn show_home(db: sqlight.Connection) -> response.Response(wisp.Body) {
+  wisp.ok()
+  |> wisp.html_body("homepage")
+}
+
+fn show_list(db: sqlight.Connection) -> response.Response(wisp.Body) {
+  let list =
+    read.get_indexed_recipes(db)
+    |> string.inspect
+
+  wisp.ok()
+  |> wisp.html_body(list)
+}

server/test/server_test.gleam

···
+import birdie
+import gleam/string
+import gleeunit
+import queries/read
+import queries/write
+import shared/types as t
+import simplifile
+import sqlight
+
+pub fn main() -> Nil {
+  gleeunit.main()
+}
+
+pub fn write_schema_test() {
+  use conn <- sqlight.with_connection(":memory:")
+
+  let assert Ok(schema) = simplifile.read("./data/seed.sql")
+  let assert Ok(Nil) = sqlight.exec(schema, conn)
+}
+
+pub fn write_single_column_test() {
+  use conn <- sqlight.with_connection(":memory:")
+  let assert Ok(schema) = simplifile.read("./data/seed.sql")
+  let _ = sqlight.exec(schema, conn)
+  let assert Ok([]) = write.write_single_column(["mom"], t.Authors, conn)
+}
+
+pub fn write_recipe_test() {
+  use conn <- sqlight.with_connection(":memory:")
+  let assert Ok(schema) = simplifile.read("./data/seed.sql")
+  let _ = sqlight.exec(schema, conn)
+
+  let soup =
+    t.NewRecipe(
+      title: "soup",
+      author: "mom",
+      servings: 3,
+      description: "its-a soup!",
+    )
+
+  let assert Ok([]) = write.write_recipe(soup, conn)
+}
+
+pub fn write_ingredient_test() {
+  use conn <- sqlight.with_connection(":memory:")
+  let assert Ok(schema) = simplifile.read("./data/seed.sql")
+  let _ = sqlight.exec(schema, conn)
+
+  let soup =
+    t.NewRecipe(
+      title: "soup",
+      author: "mom",
+      servings: 3,
+      description: "its-a soup!",
+    )
+
+  let _ = write.write_recipe(soup, conn)
+  let ingredients = [
+    t.Ingredient(name: "onion", unit: "lb", quantity: 7),
+    t.Ingredient(name: "water", unit: "cup", quantity: 1),
+    t.Ingredient(name: "tarragon", unit: "tbsp", quantity: 69),
+  ]
+
+  let assert Ok([]) = write.write_recipe_ingredients(ingredients, 1, conn)
+}
+
+pub fn write_instruction_test() {
+  use conn <- sqlight.with_connection(":memory:")
+  let assert Ok(schema) = simplifile.read("./data/seed.sql")
+  let _ = sqlight.exec(schema, conn)
+
+  let soup =
+    t.NewRecipe(
+      title: "soup",
+      author: "mom",
+      servings: 3,
+      description: "its-a soup!",
+    )
+
+  let _ = write.write_recipe(soup, conn)
+  let instructions = [
+    t.Instruction(1, "chop"),
+    t.Instruction(2, "fry"),
+    t.Instruction(3, "bake"),
+  ]
+
+  let assert Ok([]) = write.write_instructions(instructions, 1, conn)
+}
+
+pub fn test_db_population_test() {
+  use conn <- sqlight.with_connection(":memory:")
+  let assert Ok(schema) = simplifile.read("./data/test_db.sql")
+  let assert Ok(Nil) = sqlight.exec(schema, conn)
+}
+
+pub fn recipe_read_test() {
+  use conn <- sqlight.with_connection(":memory:")
+  let assert Ok(schema) = simplifile.read("./data/test_db.sql")
+  let _ = sqlight.exec(schema, conn)
+  sqlight.query("select * from recipes", conn, [], read.recipe_decode())
+  |> string.inspect()
+  |> birdie.snap(title: "read recipe table")
+}
+
+pub fn recipe_ingredients_read_test() {
+  use conn <- sqlight.with_connection(":memory:")
+  let assert Ok(schema) = simplifile.read("./data/test_db.sql")
+  let _ = sqlight.exec(schema, conn)
+  sqlight.query(
+    "select * from recipe_ingredients",
+    conn,
+    [],
+    read.recipe_ingredient_decode(),
+  )
+  |> string.inspect()
+  |> birdie.snap(title: "read recipe_ingredients table")
+}
+
+pub fn read_full_recipe_test() {
+  use conn <- sqlight.with_connection(":memory:")
+  let assert Ok(schema) = simplifile.read("./data/test_db.sql")
+  let _ = sqlight.exec(schema, conn)
+  read.get_full_recipe("Soup", conn)
+  |> string.inspect()
+  |> birdie.snap(title: "full reciple read")
+}
+
+pub fn get_indexed_recipes_test() {
+  use conn <- sqlight.with_connection(":memory:")
+  let assert Ok(schema) = simplifile.read("./data/test_db.sql")
+  let _ = sqlight.exec(schema, conn)
+  let pie =
+    t.NewRecipe(
+      title: "pie",
+      author: "mom",
+      servings: 3,
+      description: "delicious pie",
+    )
+
+  let _ = write.write_recipe(pie, conn)
+  read.get_indexed_recipes(conn)
+  |> string.inspect()
+  |> birdie.snap(title: "indexed recipes")
+}
+
+pub fn full_recipe_write_test() {
+  use conn <- sqlight.with_connection(":memory:")
+  let assert Ok(schema) = simplifile.read("./data/seed.sql")
+  let _ = sqlight.exec(schema, conn)
+
+  let new_recipe =
+    t.RecipeDetailView(
+      title: "pizza",
+      author: "dean martin",
+      servings: 8,
+      description: "oh my thats a lovely pizza",
+      ingredients: [
+        t.Ingredient(name: "pepperoni", unit: "oz", quantity: 8),
+        t.Ingredient(name: "tomato", unit: "cans", quantity: 2),
+        t.Ingredient(name: "cheez", unit: "g", quantity: 54),
+      ],
+      instructions: [
+        t.Instruction(step: 1, instruction: "make-a the dough"),
+        t.Instruction(step: 2, instruction: "make-a the sauce"),
+        t.Instruction(step: 3, instruction: "make-a the pizza"),
+      ],
+    )
+
+  let assert Ok([]) = write.write_full_recipe(new_recipe, conn)
+}

shared/README.md

···
+# shared
+
+[![Package Version](https://img.shields.io/hexpm/v/shared)](https://hex.pm/packages/shared)
+[![Hex Docs](https://img.shields.io/badge/hex-docs-ffaff3)](https://hexdocs.pm/shared/)
+
+```sh
+gleam add shared@1
+```
+```gleam
+import shared
+
+pub fn main() -> Nil {
+  // TODO: An example of the project in use
+}
+```
+
+Further documentation can be found at <https://hexdocs.pm/shared>.
+
+## Development
+
+```sh
+gleam run   # Run the project
+gleam test  # Run the tests
+```

shared/gleam.toml

···
+name = "shared"
+version = "1.0.0"
+
+# Fill out these fields if you intend to generate HTML documentation or publish
+# your project to the Hex package manager.
+#
+# description = ""
+# licences = ["Apache-2.0"]
+# repository = { type = "github", user = "", repo = "" }
+# links = [{ title = "Website", href = "" }]
+#
+# For a full reference of all the available options, you can have a look at
+# https://gleam.run/writing-gleam/gleam-toml/.
+
+[dependencies]
+gleam_stdlib = ">= 0.44.0 and < 2.0.0"
+gleam_json = ">= 3.1.0 and < 4.0.0"
+
+[dev-dependencies]
+gleeunit = ">= 1.0.0 and < 2.0.0"

shared/manifest.toml

···
+# This file was generated by Gleam
+# You typically do not need to edit this file
+
+packages = [
+  { name = "gleam_json", version = "3.1.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_json", source = "hex", outer_checksum = "44FDAA8847BE8FC48CA7A1C089706BD54BADCC4C45B237A992EDDF9F2CDB2836" },
+  { name = "gleam_stdlib", version = "0.67.1", build_tools = ["gleam"], requirements = [], otp_app = "gleam_stdlib", source = "hex", outer_checksum = "6CE3E4189A8B8EC2F73AB61A2FBDE49F159D6C9C61C49E3B3082E439F260D3D0" },
+  { name = "gleeunit", version = "1.9.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleeunit", source = "hex", outer_checksum = "DA9553CE58B67924B3C631F96FE3370C49EB6D6DC6B384EC4862CC4AAA718F3C" },
+]
+
+[requirements]
+gleam_json = { version = ">= 3.1.0 and < 4.0.0" }
+gleam_stdlib = { version = ">= 0.44.0 and < 2.0.0" }
+gleeunit = { version = ">= 1.0.0 and < 2.0.0" }

shared/src/shared/types.gleam

···
+import gleam/dynamic/decode
+import gleam/json
+
+pub type NewRecipe {
+  NewRecipe(title: String, author: String, servings: Int, description: String)
+}
+
+pub type RecipeRow {
+  RecipeRow(
+    id: Int,
+    title: String,
+    author: String,
+    servings: Int,
+    description: String,
+  )
+}
+
+pub type RecipeDetailView {
+  RecipeDetailView(
+    title: String,
+    author: String,
+    servings: Int,
+    description: String,
+    ingredients: List(Ingredient),
+    instructions: List(Instruction),
+  )
+}
+
+pub type RecipeStub {
+  RecipeStub(recipe_id: Int, title: String)
+}
+
+pub type Ingredient {
+  Ingredient(name: String, unit: String, quantity: Int)
+}
+
+pub type Instruction {
+  Instruction(step: Int, instruction: String)
+}
+
+pub type SingleColumnTable {
+  Authors
+  Ingredients
+  Units
+}
+
+fn recipe_detail_view_to_json(recipe_detail_view: RecipeDetailView) -> json.Json {
+  let RecipeDetailView(
+    title:,
+    author:,
+    servings:,
+    description:,
+    ingredients:,
+    instructions:,
+  ) = recipe_detail_view
+  json.object([
+    #("title", json.string(title)),
+    #("author", json.string(author)),
+    #("servings", json.int(servings)),
+    #("description", json.string(description)),
+    #("ingredients", json.array(ingredients, ingredient_to_json)),
+    #("instructions", json.array(instructions, instruction_to_json)),
+  ])
+}
+
+pub fn ingredient_to_json(ingredient: Ingredient) -> json.Json {
+  let Ingredient(name:, unit:, quantity:) = ingredient
+  json.object([
+    #("name", json.string(name)),
+    #("unit", json.string(unit)),
+    #("quantity", json.int(quantity)),
+  ])
+}
+
+pub fn instruction_to_json(instruction: Instruction) -> json.Json {
+  let Instruction(step:, instruction:) = instruction
+  json.object([
+    #("step", json.int(step)),
+    #("instruction", json.string(instruction)),
+  ])
+}
+
+pub fn new_recipe_to_json(new_recipe: NewRecipe) -> json.Json {
+  let NewRecipe(title:, author:, servings:, description:) = new_recipe
+  json.object([
+    #("title", json.string(title)),
+    #("author", json.string(author)),
+    #("servings", json.int(servings)),
+    #("description", json.string(description)),
+  ])
+}
+
+pub fn recipe_detail_view_decoder() -> decode.Decoder(RecipeDetailView) {
+  use title <- decode.field("title", decode.string)
+  use author <- decode.field("author", decode.string)
+  use servings <- decode.field("servings", decode.int)
+  use description <- decode.field("description", decode.string)
+  use ingredients <- decode.field(
+    "ingredients",
+    decode.list(ingredient_decoder()),
+  )
+  use instructions <- decode.field(
+    "instructions",
+    decode.list(instruction_decoder()),
+  )
+  decode.success(RecipeDetailView(
+    title:,
+    author:,
+    servings:,
+    description:,
+    ingredients:,
+    instructions:,
+  ))
+}
+
+pub fn instruction_decoder() -> decode.Decoder(Instruction) {
+  use step <- decode.field("step", decode.int)
+  use instruction <- decode.field("instruction", decode.string)
+  decode.success(Instruction(step:, instruction:))
+}
+
+pub fn ingredient_decoder() -> decode.Decoder(Ingredient) {
+  use name <- decode.field("name", decode.string)
+  use unit <- decode.field("unit", decode.string)
+  use quantity <- decode.field("quantity", decode.int)
+  decode.success(Ingredient(name:, unit:, quantity:))
+}

shared/test/shared_test.gleam

···
+import gleeunit
+
+pub fn main() -> Nil {
+  gleeunit.main()
+}
+
+// gleeunit test functions end in `_test`
+pub fn hello_world_test() {
+  let name = "Joe"
+  let greeting = "Hello, " <> name <> "!"
+
+  assert greeting == "Hello, Joe!"
+}