chore: import upstream snapshot with attribution

examples/splitwise/README.md

@@ -0,0 +1,6 @@
+# SQL-only expense tracker app
+
+This is a small web application that allows you to track shared expenses with your friends.
+It is built entirely in SQL using SQLPage.
+
+![screenshot](../../docs/example-splitwise.png)

examples/splitwise/docker-compose.yml

@@ -0,0 +1,8 @@
+services:
+  web:
+    image: lovasoa/sqlpage:main
+    ports:
+      - "8080:8080"
+    volumes:
+      - .:/var/www
+      - ./sqlpage:/etc/sqlpage

examples/splitwise/group.sql

@@ -0,0 +1,48 @@
+-- Write the name of the group in the title of the page
+SELECT 'title' as component, name as contents FROM expense_group WHERE id = $id;
+
+
+-- Handle the form to add a member to the group (we do it at the top of the page to see it right away)
+INSERT INTO group_member(group_id, name)
+SELECT $id, :new_member_name WHERE :new_member_name IS NOT NULL;
+
+-- List of members of the group
+SELECT 'list' as component, 'Members' as title;
+SELECT name AS title FROM group_member WHERE group_id = $id;
+
+-- Form to add a new member to the group
+SELECT 'form' as component, 'Add a member to the group' as validate;
+SELECT 'Member Name' AS 'label', 'new_member_name' AS name;
+
+SELECT 'title' as component, 'Expenses' as contents
+
+-- Form to add an expense
+SELECT 'form' as component, 'Add an expense' as title, 'Add' as validate;
+SELECT 'Description' AS name;
+SELECT 'Amount' AS name, 'number' AS type;
+SELECT 'Spent By' AS name, 'select' as type,
+    json_group_array(json_object('label', name, 'value', id)) as options
+FROM group_member WHERE group_id = $id;
+
+-- Insert the expense posted by the form into the database
+INSERT INTO expense(spent_by, name, amount)
+SELECT :"Spent By", :Description, :Amount WHERE :Amount IS NOT NULL;
+
+-- List of expenses of the group
+SELECT 'card' as component, 'Expenses' as title;
+SELECT expense.name as title,
+    'By ' || group_member.name || ', on ' || expense.date as description,
+    expense.amount || ' €' as footer,
+    CASE
+        WHEN expense.amount > 100 THEN 'red'
+        WHEN expense.amount > 50 THEN 'orange'
+        ELSE 'blue'
+    END AS color
+FROM expense
+    INNER JOIN group_member on expense.spent_by = group_member.id
+WHERE group_member.group_id = $id;
+
+-- Show the positive and negative debts of each member
+SELECT 'chart' AS component, 'Debts by Person' AS title, 'bar' AS type, TRUE AS horizontal;
+SELECT member_name AS label, is_owed AS value FROM individual_debts
+WHERE group_id = $id ORDER BY is_owed DESC;

examples/splitwise/index.sql

@@ -0,0 +1,18 @@
+-- Simple form to create a shared expense account
+SELECT 'form' as component,
+    'New shared expense account' as title,
+    'Create the shared expense account!' as validate;
+SELECT 'Account Name' AS label,
+    'shared_expense_name' AS name;
+
+-- Insert the shared expense account posted by the form into the database
+INSERT INTO expense_group(name)
+SELECT :shared_expense_name
+WHERE :shared_expense_name IS NOT NULL;
+
+-- List of shared expense accounts
+-- (we put it after the insertion because we want to see new accounts right away when they are created)
+SELECT 'list' as component;
+SELECT name AS title,
+    'group.sql?id=' || id AS link
+FROM expense_group;

examples/splitwise/sqlpage/migrations/0000_schema.sql

@@ -0,0 +1,16 @@
+CREATE TABLE expense_group(
+    id INTEGER PRIMARY KEY AUTOINCREMENT,
+    name TEXT
+);
+CREATE TABLE group_member(
+    id INTEGER PRIMARY KEY AUTOINCREMENT,
+    group_id INTEGER REFERENCES expense_group(id),
+    name TEXT
+);
+CREATE TABLE expense(
+    id INTEGER PRIMARY KEY AUTOINCREMENT,
+    spent_by INTEGER REFERENCES group_member(id),
+    date TIMESTAMP DEFAULT CURRENT_TIMESTAMP,
+    name TEXT,
+    amount DECIMAL
+);

examples/splitwise/sqlpage/migrations/0001_views.sql

@@ -0,0 +1,27 @@
+-- A view that shows all the expenses of a group, with at least one line per member
+DROP VIEW IF EXISTS members_with_expenses;
+CREATE VIEW members_with_expenses AS
+SELECT group_member.group_id AS group_id,
+    group_member.id AS spent_by_id,
+    COALESCE(expense.amount, 0) AS amount,
+    group_member.name AS spent_by_name
+FROM group_member
+    LEFT JOIN expense on expense.spent_by = group_member.id;
+-- A view that shows the total amount of expense per person of a group
+DROP VIEW IF EXISTS average_debt_per_person;
+CREATE VIEW average_debt_per_person AS
+SELECT group_id,
+    sum(amount) / count(distinct spent_by_id) AS debt
+FROM members_with_expenses
+GROUP BY group_id;
+-- A view that shows the total amount a person is owed in a group
+DROP VIEW IF EXISTS individual_debts;
+CREATE VIEW individual_debts AS
+SELECT members_with_expenses.group_id AS group_id,
+    spent_by_id AS member_id,
+    spent_by_name AS member_name,
+    sum(members_with_expenses.amount) - average_debt_per_person.debt AS is_owed
+FROM members_with_expenses
+    INNER JOIN average_debt_per_person ON average_debt_per_person.group_id = members_with_expenses.group_id
+GROUP BY spent_by_id
+ORDER BY is_owed DESC;

examples/splitwise/test.hurl

@@ -0,0 +1,44 @@
+GET http://localhost:8080/
+HTTP 200
+[Asserts]
+body contains "New shared expense account"
+
+POST http://localhost:8080/
+Content-Type: application/x-www-form-urlencoded
+[FormParams]
+shared_expense_name: Hurl Trip
+HTTP 200
+[Captures]
+group_id: xpath "substring-after(string((//a[contains(., 'Hurl Trip')])[last()]/@href), 'id=')"
+[Asserts]
+body contains "Hurl Trip"
+
+POST http://localhost:8080/group.sql?id={{group_id}}
+Content-Type: application/x-www-form-urlencoded
+[FormParams]
+new_member_name: Alice
+HTTP 200
+[Asserts]
+body contains "Alice"
+body contains "Add an expense"
+
+POST http://localhost:8080/group.sql?id={{group_id}}
+Content-Type: application/x-www-form-urlencoded
+[FormParams]
+new_member_name: Bob
+HTTP 200
+[Captures]
+alice_id: xpath "string(//select[@name='Spent By']/option[normalize-space(.)='Alice']/@value)"
+[Asserts]
+body contains "Bob"
+
+POST http://localhost:8080/group.sql?id={{group_id}}
+Content-Type: application/x-www-form-urlencoded
+`Description=Train+tickets&Amount=90&Spent+By={{alice_id}}`
+HTTP 200
+[Asserts]
+body contains "Train tickets"
+body contains "90 €"
+body contains "Debts by Person"
+body htmlUnescape contains "\"Alice\",45"
+body htmlUnescape contains "\"Bob\",-45"