pgkiln 0.53.0 → 0.55.0

package/examples/gallery/samples/sample-calendar.sql

@@ -0,0 +1,172 @@
+-- =====================================================================
+-- Sample app "Sample Calendar" (App Gallery → Sample Apps)
+--
+-- The calendar region: month, week, day and list views, all-day and timed
+-- events, events over several days, create on click, drag and drop through
+-- a PL/pgSQL function with its own rule, and a calendar filtered by an item.
+-- The events are placed around today, so there is always something to see.
+--
+-- Installed by an administrator from the App Gallery, or with
+--   psql "$DATABASE_URL" -1 -f examples/gallery/samples/sample-calendar.sql
+-- then open /a/sample-calendar and sign in as demo / demo.
+-- =====================================================================
+
+create or replace function pg_temp.page_id(p_alias text, p_page int) returns int language sql stable as
+  $$ select p.id from meta.page p join meta.app a on a.id = p.app_id where a.alias = p_alias and p.page_no = p_page $$;
+
+-- 1. Schema and data ---------------------------------------------------------
+create schema sample_calendar;
+
+create table sample_calendar.event (
+  id       int generated always as identity primary key,
+  title    text not null,
+  category text not null default 'Meeting' check (category in ('Meeting', 'Training', 'Travel', 'Holiday')),
+  starts   timestamp not null,
+  ends     timestamp,
+  location text,
+  notes    text,
+  check (ends is null or ends >= starts)
+);
+
+-- this week's Monday as the anchor: meetings by the hour, all-day and multi-day events
+insert into sample_calendar.event (title, category, starts, ends, location)
+select e.title, e.category, w.monday + e.day_offset + e.start_at, case when e.end_at is null then null else w.monday + e.end_day + e.end_at end, e.location
+  from (select date_trunc('week', current_date)::date as monday) w,
+  (values
+  ('Team stand-up', 'Meeting', 0, interval '9 hours', 0, interval '9 hours 15 minutes', 'Room 1'),
+  ('Planning', 'Meeting', 0, interval '10 hours', 0, interval '11 hours 30 minutes', 'Room 2'),
+  ('Customer call', 'Meeting', 1, interval '14 hours', 1, interval '15 hours', 'Online'),
+  ('Team stand-up', 'Meeting', 2, interval '9 hours', 2, interval '9 hours 15 minutes', 'Room 1'),
+  ('SQL course', 'Training', 2, interval '0 hours', 3, interval '0 hours', 'Training centre'),
+  ('Trip to the trade fair', 'Travel', 7, interval '0 hours', 9, interval '0 hours', 'Utrecht'),
+  ('Review', 'Meeting', 4, interval '13 hours', 4, interval '14 hours', 'Room 2'),
+  ('Lunch and learn', 'Training', 8, interval '12 hours', 8, interval '13 hours', 'Canteen'),
+  ('Retrospective', 'Meeting', 11, interval '15 hours', 11, interval '16 hours', 'Room 1'),
+  ('Public holiday', 'Holiday', 14, interval '0 hours', null, null, null),
+  ('Budget meeting', 'Meeting', -3, interval '10 hours', -3, interval '12 hours', 'Board room'),
+  ('First aid course', 'Training', -7, interval '0 hours', -6, interval '0 hours', 'Training centre'),
+  ('Quarter review', 'Meeting', 18, interval '9 hours', 18, interval '11 hours', 'Board room'),
+  ('Holiday', 'Holiday', 21, interval '0 hours', 25, interval '0 hours', null)
+  ) as e (title, category, day_offset, start_at, end_day, end_at, location);
+
+-- drag and drop: the calendar calls this with the new start and end; holidays stay where they are
+create function sample_calendar.move_event(p_id int, p_start timestamp, p_end timestamp) returns void
+language plpgsql as $$
+begin
+  if exists (select 1 from sample_calendar.event where id = p_id and category = 'Holiday') then
+    raise exception 'Holidays can''t be moved.';
+  end if;
+  update sample_calendar.event set starts = p_start, ends = p_end where id = p_id;
+end
+$$;
+
+-- 2. The application's database role ----------------------------------------
+do $$ begin
+  if not exists (select 1 from pg_roles where rolname = 'app_sample_calendar') then create role app_sample_calendar nologin; end if;
+end $$;
+grant app_sample_calendar to pgkiln_runtime;
+grant usage on schema sample_calendar to app_sample_calendar;
+grant select, insert, update, delete on all tables in schema sample_calendar to app_sample_calendar;
+grant execute on all functions in schema sample_calendar to app_sample_calendar;
+
+-- 3. The application ----------------------------------------------------------
+insert into meta.app (alias, name, home_page, authentication, db_role)
+values ('sample-calendar', 'Sample Calendar', 1, 'app_users', 'app_sample_calendar');
+
+insert into meta.app_user (app_id, username, password_hash, roles)
+select id, 'demo', meta.hash_password('demo'), '{}' from meta.app where alias = 'sample-calendar';
+
+insert into meta.page (app_id, page_no, name, title, parent_page)
+select a.id, p.no, p.name, p.name, p.parent
+  from meta.app a, (values
+  (1, 'Sample Calendar', null), (2, 'Month', 1), (4, 'Week planner', 1), (5, 'Agenda', 1), (6, 'By category', 1)
+  ) as p (no, name, parent)
+ where a.alias = 'sample-calendar';
+
+-- page 3: the event form, a modal dialog (the Form wizard), opened from the calendars
+select meta.generate_page('sample-calendar', 'form', 'sample_calendar.event', 3,
+  '{"label": "Event", "mode": "modal", "return_page": 2, "nav": false}');
+update meta.page set parent_page = 2 where id = pg_temp.page_id('sample-calendar', 3);
+update meta.item set type = 'select', lov = 'STATIC:Meeting,Training,Travel,Holiday'
+ where page_id = pg_temp.page_id('sample-calendar', 3) and name = 'P3_CATEGORY';
+update meta.item set help = 'Leave it empty for an event without an end (all day when the start is at midnight).'
+ where page_id = pg_temp.page_id('sample-calendar', 3) and name = 'P3_ENDS';
+
+insert into meta.nav_entry (app_id, seq, label, icon, target_page)
+select a.id, n.seq, n.label, n.icon, n.page
+  from meta.app a, (values
+  (10, 'Home', 'home', 1), (20, 'Month', 'calendar', 2), (30, 'Week planner', 'clock', 4),
+  (40, 'Agenda', 'list', 5), (50, 'By category', 'filter', 6)
+  ) as n (seq, label, icon, page)
+ where a.alias = 'sample-calendar';
+
+insert into meta.list (app_id, name, type, description)
+select id, 'CALENDAR_TOPICS', 'static', 'The pages of Sample Calendar' from meta.app where alias = 'sample-calendar';
+
+insert into meta.list_entry (app_id, list_name, seq, label, icon, target_page, description)
+select a.id, 'CALENDAR_TOPICS', e.seq, e.label, e.icon, e.page, e.description
+  from meta.app a, (values
+  (10, 'Month', 'calendar', 2, 'All four views; click a day to add an event, drag an event to move it.'),
+  (20, 'Week planner', 'clock', 4, 'Week and day views from 7:00 to 19:00, opened on the week.'),
+  (30, 'Agenda', 'list', 5, 'The list view only: a month of events per day.'),
+  (40, 'By category', 'filter', 6, 'A calendar whose query uses a page item, refreshed when it changes.')
+  ) as e (seq, label, icon, page, description)
+ where a.alias = 'sample-calendar';
+
+insert into meta.region (page_id, seq, title, type, columns, template, source, config, static_id)
+select pg_temp.page_id('sample-calendar', r.page), r.seq, r.title, r.type, r.cols, r.template, r.source, r.config::jsonb, r.sid
+  from (values
+  -- 1 Home
+  (1, 10, 'Sample Calendar', 'static', 12, 'hero',
+   '<p>A calendar region shows the rows of a SELECT with a <code>start_date</code>, an optional <code>end_date</code> and a <code>title</code>. Dates are all-day events, timestamps events with a time. Every view is a plain link, so the calendar works without JavaScript and can be bookmarked.</p>',
+   '{"icon": "calendar"}', null),
+  (1, 20, 'Topics', 'list', 12, 'plain', null, '{"list": "CALENDAR_TOPICS", "template": "cards"}', null),
+  (1, 30, 'Today and tomorrow', 'calendar', 12, 'standard',
+   E'select starts as start_date, ends as end_date, title, id\n  from sample_calendar.event\n where starts < current_date + 2 and coalesce(ends, starts) >= current_date',
+   '{"views": ["list"], "link": {"page": 3, "items": {"P3_ID": "#id#"}}}', null),
+
+  -- 2 Month
+  (2, 5, 'About this page', 'static', 12, 'plain',
+   '<p class="lead">The attribute <code>link</code> opens an event in the form; <code>create</code> adds a <strong>+</strong> to every day and hour that opens the form with <code>#start#</code> and <code>#end#</code> filled in; <code>move</code> lets you drag events to another day or hour. The move runs <code>sample_calendar.move_event</code>, which refuses to move a holiday: try it.</p>',
+   '{}', null),
+  (2, 10, 'Events', 'calendar', 12, 'standard',
+   E'select starts as start_date, ends as end_date, title || coalesce('' ('' || location || '')'', '''') as title, id\n  from sample_calendar.event',
+   '{"views": ["month", "week", "day", "list"], "link": {"page": 3, "items": {"P3_ID": "#id#"}},
+     "create": {"page": 3, "items": {"P3_STARTS": "#start#", "P3_ENDS": "#end#"}},
+     "move": "select sample_calendar.move_event(:EVENT_ID::int, :NEW_START::timestamp, :NEW_END::timestamp)"}', 'events'),
+
+  -- 4 Week planner
+  (4, 5, 'About this page', 'static', 12, 'plain',
+   '<p class="lead">With <code>"views": ["week", "day"]</code> and <code>"view": "week"</code> the calendar opens on the week; <code>day_start</code> and <code>day_end</code> set its hours (widened when an event needs it). On a phone the week becomes an agenda list.</p>',
+   '{}', null),
+  (4, 10, 'This week', 'calendar', 12, 'standard',
+   E'select starts as start_date, ends as end_date, title, id\n  from sample_calendar.event where category in (''Meeting'', ''Training'')',
+   '{"views": ["week", "day"], "view": "week", "day_start": 7, "day_end": 19, "link": {"page": 3, "items": {"P3_ID": "#id#"}},
+     "create": {"page": 3, "items": {"P3_STARTS": "#start#", "P3_ENDS": "#end#"}}}', null),
+
+  -- 5 Agenda
+  (5, 5, 'About this page', 'static', 12, 'plain',
+   '<p class="lead">The <code>list</code> view alone: the month''s events per day, with ‹ and › to move by a month.</p>',
+   '{}', null),
+  (5, 10, 'Agenda', 'calendar', 12, 'standard',
+   E'select starts as start_date, ends as end_date, category || '': '' || title as title, id\n  from sample_calendar.event',
+   '{"views": ["list"], "link": {"page": 3, "items": {"P3_ID": "#id#"}}}', null),
+
+  -- 6 By category
+  (6, 5, 'About this page', 'static', 12, 'plain',
+   '<p class="lead">The query uses the page item <code>:P6_CATEGORY</code>. A dynamic action refreshes the calendar when the item changes (without JavaScript, the item submits the page).</p>',
+   '{}', null),
+  (6, 10, 'Filter', 'static', 12, 'standard', null, '{}', 'filter'),
+  (6, 20, 'Events of the category', 'calendar', 12, 'standard',
+   E'select starts as start_date, ends as end_date, title, id\n  from sample_calendar.event\n where :P6_CATEGORY is null or category = :P6_CATEGORY',
+   '{"views": ["month", "list"], "link": {"page": 3, "items": {"P3_ID": "#id#"}}}', 'category-calendar')
+  ) as r (page, seq, title, type, cols, template, source, config, sid);
+
+insert into meta.item (page_id, region_id, seq, name, label, type, lov, config)
+select pg_temp.page_id('sample-calendar', 6), r.id, 10, 'P6_CATEGORY', 'Category', 'radio',
+       'STATIC:Meeting,Training,Travel,Holiday', '{"warn_unsaved": false}'
+  from meta.region r where r.page_id = pg_temp.page_id('sample-calendar', 6) and r.static_id = 'filter';
+
+insert into meta.dynamic_action (page_id, seq, name, event, trigger_element, action, affected_region_id, items_to_submit)
+select pg_temp.page_id('sample-calendar', 6), 10, 'Refresh the calendar', 'change', 'P6_CATEGORY', 'refresh_region', r.id, 'P6_CATEGORY'
+  from meta.region r where r.page_id = pg_temp.page_id('sample-calendar', 6) and r.static_id = 'category-calendar';

package/examples/gallery/samples/sample-cards.sql

@@ -0,0 +1,157 @@
+-- =====================================================================
+-- Sample app "Sample Cards" (App Gallery → Sample Apps)
+--
+-- Cards in all the forms pgkiln has: a cards region with title, subtitle,
+-- body, badge and icon that opens a form; KPI tiles (style metric); a list
+-- region as cards, badges, links and tabs; and the built-in template
+-- components (media list, metric cards, badges, avatars) as cards.
+--
+-- Installed by an administrator from the App Gallery, or with
+--   psql "$DATABASE_URL" -1 -f examples/gallery/samples/sample-cards.sql
+-- then open /a/sample-cards and sign in as demo / demo.
+-- =====================================================================
+
+create or replace function pg_temp.page_id(p_alias text, p_page int) returns int language sql stable as
+  $$ select p.id from meta.page p join meta.app a on a.id = p.app_id where a.alias = p_alias and p.page_no = p_page $$;
+
+-- 1. Schema and data ---------------------------------------------------------
+create schema sample_cards;
+
+create table sample_cards.product (
+  id          int generated always as identity primary key,
+  name        text not null unique,
+  category    text not null check (category in ('Furniture', 'Lighting', 'Accessories', 'Plants')),
+  price       numeric(10, 2) not null check (price >= 0),
+  stock       int not null default 0 check (stock >= 0),
+  rating      int check (rating between 1 and 5),
+  icon        text not null default 'box',
+  description text
+);
+
+insert into sample_cards.product (name, category, price, stock, rating, icon, description) values
+  ('Oak desk', 'Furniture', 640, 12, 5, 'briefcase', 'A solid oak desk, 160 by 80 cm, with a cable tray.'),
+  ('Task chair', 'Furniture', 290, 3, 4, 'user', 'Adjustable seat, arms and lumbar support.'),
+  ('Bookcase', 'Furniture', 210, 0, 4, 'book', 'Five shelves of birch plywood.'),
+  ('Desk lamp', 'Lighting', 79, 25, 5, 'lightbulb', 'Warm LED light with a dimmer.'),
+  ('Floor lamp', 'Lighting', 149, 7, 3, 'sun', 'A reading light that bends where you need it.'),
+  ('Monitor arm', 'Accessories', 95, 40, 4, 'tool', 'Holds one screen up to 32 inches.'),
+  ('Desk mat', 'Accessories', 29, 60, 4, 'layers', 'Felt, 90 by 40 cm.'),
+  ('Cable box', 'Accessories', 24, 2, 3, 'box', 'Hides a power strip and its cables.'),
+  ('Fiddle-leaf fig', 'Plants', 59, 9, 5, 'leaf', 'Large leaves; likes bright, indirect light.'),
+  ('Snake plant', 'Plants', 35, 18, 4, 'leaf', 'Thrives on neglect.');
+
+-- 2. The application's database role ----------------------------------------
+do $$ begin
+  if not exists (select 1 from pg_roles where rolname = 'app_sample_cards') then create role app_sample_cards nologin; end if;
+end $$;
+grant app_sample_cards to pgkiln_runtime;
+grant usage on schema sample_cards to app_sample_cards;
+grant select, insert, update, delete on all tables in schema sample_cards to app_sample_cards;
+
+-- 3. The application ----------------------------------------------------------
+insert into meta.app (alias, name, home_page, authentication, db_role)
+values ('sample-cards', 'Sample Cards', 1, 'app_users', 'app_sample_cards');
+
+insert into meta.app_user (app_id, username, password_hash, roles)
+select id, 'demo', meta.hash_password('demo'), '{}' from meta.app where alias = 'sample-cards';
+
+insert into meta.page (app_id, page_no, name, title, parent_page)
+select a.id, p.no, p.name, p.name, p.parent
+  from meta.app a, (values
+  (1, 'Sample Cards', null), (2, 'Cards', 1), (4, 'KPI tiles', 1), (5, 'Lists as cards', 1), (6, 'Template components', 1)
+  ) as p (no, name, parent)
+ where a.alias = 'sample-cards';
+
+-- page 3: the product form, a modal dialog opened from the cards (the Form wizard)
+select meta.generate_page('sample-cards', 'form', 'sample_cards.product', 3,
+  '{"label": "Product", "mode": "modal", "return_page": 2, "nav": false}');
+update meta.page set parent_page = 2 where id = pg_temp.page_id('sample-cards', 3);
+update meta.item set type = 'select', lov = 'STATIC:Furniture,Lighting,Accessories,Plants'
+ where page_id = pg_temp.page_id('sample-cards', 3) and name = 'P3_CATEGORY';
+update meta.item set type = 'rating'
+ where page_id = pg_temp.page_id('sample-cards', 3) and name = 'P3_RATING';
+
+insert into meta.nav_entry (app_id, seq, label, icon, target_page)
+select a.id, n.seq, n.label, n.icon, n.page
+  from meta.app a, (values
+  (10, 'Home', 'home', 1), (20, 'Cards', 'layers', 2), (30, 'KPI tiles', 'dashboard', 4),
+  (40, 'Lists as cards', 'list', 5), (50, 'Template components', 'grid', 6)
+  ) as n (seq, label, icon, page)
+ where a.alias = 'sample-cards';
+
+insert into meta.list (app_id, name, type, description, query)
+select a.id, l.name, l.type, l.description, l.query
+  from meta.app a, (values
+  ('CARD_TOPICS', 'static', 'The pages of Sample Cards', null),
+  ('CATEGORIES', 'sql', 'The categories with the number of products, from a query',
+   E'select category as label, 2 as page, null::jsonb as items,\n       case category when ''Furniture'' then ''briefcase'' when ''Lighting'' then ''lightbulb'' when ''Plants'' then ''leaf'' else ''box'' end as icon,\n       count(*)::text as badge, count(*) filter (where stock = 0) || '' out of stock'' as description\n  from sample_cards.product group by category order by category')
+  ) as l (name, type, description, query)
+ where a.alias = 'sample-cards';
+
+insert into meta.list_entry (app_id, list_name, seq, label, icon, target_page, description)
+select a.id, 'CARD_TOPICS', e.seq, e.label, e.icon, e.page, e.description
+  from meta.app a, (values
+  (10, 'Cards', 'layers', 2, 'A cards region: title, subtitle, body, badge and icon from the query, each card a link to the form.'),
+  (20, 'KPI tiles', 'dashboard', 4, 'Key figures as tiles: the style metric, a format mask and an empty text.'),
+  (30, 'Lists as cards', 'list', 5, 'A list (Shared Components) shown as cards, badges, links or tabs.'),
+  (40, 'Template components', 'grid', 6, 'Media list, metric cards, badges and avatars: the built-in template components.')
+  ) as e (seq, label, icon, page, description)
+ where a.alias = 'sample-cards';
+
+insert into meta.region (page_id, seq, title, type, columns, template, source, config)
+select pg_temp.page_id('sample-cards', r.page), r.seq, r.title, r.type, r.cols, r.template, r.source, r.config::jsonb
+  from (values
+  -- 1 Home
+  (1, 10, 'Sample Cards', 'static', 12, 'hero',
+   '<p>Cards show rows as tiles instead of table rows: good for a few dozen things with a name, a picture or icon and a key figure. pgkiln has a cards region, KPI tiles, lists shown as cards and template components; this application shows each on a page of its own.</p>',
+   '{"icon": "layers"}'),
+  (1, 20, 'Topics', 'list', 12, 'plain', null, '{"list": "CARD_TOPICS", "template": "cards"}'),
+
+  -- 2 Cards
+  (2, 5, 'About this page', 'static', 12, 'plain',
+   '<p class="lead">A <strong>cards</strong> region reads the columns <code>title</code>, <code>subtitle</code>, <code>body</code>, <code>badge</code> and <code>icon</code> of its query; other columns can be used in its link. Here every card opens the product form as a dialog (the attribute <code>link</code>), and the badge shows the price with a format mask.</p>',
+   '{}'),
+  (2, 10, 'Products', 'cards', 12, 'plain',
+   E'select name as title, category || '' · '' || stock || '' in stock'' as subtitle, description as body,\n       price as badge, icon, id\n  from sample_cards.product order by category, name',
+   '{"link": {"page": 3, "items": {"P3_ID": "#id#"}}, "formats": {"badge": "FML999G990D00"}, "empty": "No products yet."}'),
+
+  -- 4 KPI tiles
+  (4, 5, 'About this page', 'static', 12, 'plain',
+   '<p class="lead">With <code>{"style": "metric"}</code> a cards region shows KPI tiles: the <code>badge</code> as a big value and the <code>title</code> as its label. A query with no rows shows the region''s <code>empty</code> text instead.</p>',
+   '{}'),
+  (4, 10, 'Key figures', 'cards', 12, 'plain',
+   E'select ''Products'' as title, count(*)::text as badge, ''box'' as icon from sample_cards.product\nunion all\nselect ''Stock value'', to_char(sum(price * stock), ''FM999G999G990''), ''coins'' from sample_cards.product\nunion all\nselect ''Average rating'', to_char(avg(rating), ''FM0D0''), ''star'' from sample_cards.product\nunion all\nselect ''Out of stock'', count(*) filter (where stock = 0)::text, ''alert'' from sample_cards.product',
+   '{"style": "metric"}'),
+  (4, 20, 'Stock per category', 'cards', 12, 'standard',
+   E'select category as title, sum(stock)::text as badge,\n       case category when ''Furniture'' then ''briefcase'' when ''Lighting'' then ''lightbulb'' when ''Plants'' then ''leaf'' else ''box'' end as icon\n  from sample_cards.product group by category order by category',
+   '{"style": "metric"}'),
+  (4, 30, 'Products to reorder today', 'cards', 12, 'standard',
+   E'select name as title, stock || '' left'' as subtitle, ''alert'' as icon from sample_cards.product where stock < 0',
+   '{"empty": "Nothing to reorder: every product has stock. (This region''s query finds no rows, so it shows its empty text.)"}'),
+
+  -- 5 Lists as cards
+  (5, 5, 'About this page', 'static', 12, 'plain',
+   '<p class="lead">A <strong>list</strong> region shows a list from Shared Components → Lists with a template: <code>cards</code>, <code>badges</code>, <code>links</code> or <code>tabs</code>. The list here comes from a query (a dynamic list): a label, a page, an icon, a badge and a description per row.</p>',
+   '{}'),
+  (5, 10, 'Categories as cards', 'list', 12, 'standard', null, '{"list": "CATEGORIES", "template": "cards"}'),
+  (5, 20, 'Categories as badges', 'list', 6, 'standard', null, '{"list": "CATEGORIES", "template": "badges"}'),
+  (5, 30, 'Categories as links', 'list', 6, 'standard', null, '{"list": "CATEGORIES", "template": "links"}'),
+  (5, 40, 'Categories as tabs', 'list', 12, 'standard', null, '{"list": "CATEGORIES", "template": "tabs"}'),
+
+  -- 6 Template components
+  (6, 5, 'About this page', 'static', 12, 'plain',
+   '<p class="lead">A <strong>template component</strong> region draws each row of its query through a component; shown as <code>multiple</code>, the rows go into the component''s group. These are the built-in components every application has: <code>ut_metric_card</code>, <code>ut_media_list</code>, <code>ut_badge</code> and <code>ut_avatar</code>.</p>',
+   '{}'),
+  (6, 10, 'Metric cards', 'template_component', 12, 'standard',
+   E'select category as label, sum(stock)::text as value, ''in stock'' as unit,\n       count(*) || '' products'' as change, case when min(stock) = 0 then ''down'' else ''up'' end as trend, ''up'' as good\n  from sample_cards.product group by category order by category',
+   '{"component": "ut_metric_card", "display": "multiple"}'),
+  (6, 20, 'Media list', 'template_component', 6, 'standard',
+   E'select id, name as title, description, upper(left(name, 2)) as initials,\n       to_char(price, ''FM999G990D00'') as badge, case when stock = 0 then ''danger'' when stock < 5 then ''warning'' else ''success'' end as state\n  from sample_cards.product order by name limit 6',
+   '{"component": "ut_media_list", "display": "multiple", "link": {"page": 3, "items": {"P3_ID": "#id#"}}}'),
+  (6, 30, 'Badges', 'template_component', 6, 'standard',
+   E'select name as label, case when stock = 0 then ''danger'' when stock < 5 then ''warning'' else ''success'' end as state\n  from sample_cards.product order by name',
+   '{"component": "ut_badge", "display": "multiple"}'),
+  (6, 40, 'Avatars', 'template_component', 12, 'standard',
+   E'select name, upper(left(name, 2)) as initials from sample_cards.product order by name',
+   '{"component": "ut_avatar", "display": "multiple", "attributes": {"SIZE": "medium"}}')
+  ) as r (page, seq, title, type, cols, template, source, config);

package/examples/gallery/samples/sample-charts.sql

@@ -0,0 +1,265 @@
+-- =====================================================================
+-- Sample app "Sample Charts" (App Gallery → Sample Apps)
+--
+-- Every chart type of the chart region, a page per kind of question
+-- (comparing categories, change over time, parts of a whole, relations and
+-- spread, plans) and a drill-down from a chart to a report. Each page starts
+-- with a text that says how the query shapes the chart.
+--
+-- Installed by an administrator from the App Gallery, or with
+--   psql "$DATABASE_URL" -1 -f examples/gallery/samples/sample-charts.sql
+-- then open /a/sample-charts and sign in as demo / demo.
+-- =====================================================================
+
+-- helpers of this script (temporary: they go with the session)
+create or replace function pg_temp.page_id(p_alias text, p_page int) returns int language sql stable as
+  $$ select p.id from meta.page p join meta.app a on a.id = p.app_id where a.alias = p_alias and p.page_no = p_page $$;
+
+-- 1. Schema and data ---------------------------------------------------------
+create schema sample_charts;
+
+create table sample_charts.sale (
+  id      int generated always as identity primary key,
+  sold_on date not null,
+  region  text not null,
+  product text not null,
+  channel text not null,
+  units   int not null,
+  amount  numeric(12, 2) not null
+);
+
+-- twelve months of sales: four regions, three products, three channels
+insert into sample_charts.sale (sold_on, region, product, channel, units, amount)
+select (date_trunc('month', current_date) - make_interval(months => m))::date + ((r * 7 + p * 3) % 27)::int,
+       g.region, q.product, (array['Web', 'Store', 'Partner'])[1 + (m + r + p) % 3],
+       x.units, x.units * (array[640, 290, 95])[p]
+  from generate_series(0, 11) m,
+       unnest(array['North', 'South', 'East', 'West']) with ordinality as g (region, r),
+       unnest(array['Standing desk', 'Office chair', 'Monitor arm']) with ordinality as q (product, p),
+       lateral (select (5 + (m * 7 + r * 11 + p * 13) % 23)::int as units) x;
+
+create table sample_charts.share_price (
+  day   date primary key,
+  open  numeric(8, 2) not null,
+  high  numeric(8, 2) not null,
+  low   numeric(8, 2) not null,
+  close numeric(8, 2) not null
+);
+
+insert into sample_charts.share_price (day, open, high, low, close)
+select current_date - 30 + d, o, greatest(o, c) + 1.5, least(o, c) - 1.2, c
+  from generate_series(1, 30) d,
+       lateral (select round((100 + 8 * sin((d - 1) / 4.0) + (d - 1) * 0.3)::numeric, 2) as o,
+                       round((100 + 8 * sin(d / 4.0) + d * 0.3)::numeric, 2) as c) v;
+
+create table sample_charts.pipeline (
+  seq   int primary key,
+  stage text not null,
+  deals int not null
+);
+
+insert into sample_charts.pipeline values (1, 'Leads', 240), (2, 'Qualified', 130), (3, 'Proposal', 64), (4, 'Negotiation', 31), (5, 'Won', 18);
+
+create table sample_charts.budget (
+  node_id   int primary key,
+  parent_id int references sample_charts.budget,
+  label     text not null,
+  amount    numeric(10, 2) not null default 0
+);
+
+insert into sample_charts.budget values
+  (1, null, 'Operations', 0), (2, null, 'Marketing', 0), (3, null, 'Engineering', 0),
+  (11, 1, 'Rent', 40), (12, 1, 'Utilities', 12),
+  (21, 2, 'Events', 18), (22, 2, 'Online ads', 25), (23, 2, 'Print', 6),
+  (31, 3, 'Salaries', 120), (32, 3, 'Cloud', 30), (33, 3, 'Tools', 14);
+
+create table sample_charts.project_task (
+  id         int primary key,
+  name       text not null,
+  team       text not null,
+  starts     date not null,
+  ends       date,
+  progress   int not null default 0,
+  depends_on int[] not null default '{}'
+);
+
+insert into sample_charts.project_task values
+  (1, 'Kick-off', 'Product', current_date - 20, null, 100, '{}'),
+  (2, 'Requirements', 'Product', current_date - 19, current_date - 8, 100, '{1}'),
+  (3, 'Design', 'Product', current_date - 9, current_date + 3, 70, '{2}'),
+  (4, 'Build', 'Engineering', current_date + 1, current_date + 25, 10, '{3}'),
+  (5, 'Test', 'Quality', current_date + 18, current_date + 32, 0, '{4}'),
+  (6, 'Launch', 'Product', current_date + 33, null, 0, '{5}');
+
+-- 2. The application's database role ----------------------------------------
+do $$ begin
+  if not exists (select 1 from pg_roles where rolname = 'app_sample_charts') then create role app_sample_charts nologin; end if;
+end $$;
+grant app_sample_charts to pgkiln_runtime;
+grant usage on schema sample_charts to app_sample_charts;
+grant select on all tables in schema sample_charts to app_sample_charts;
+
+-- 3. The application ----------------------------------------------------------
+insert into meta.app (alias, name, home_page, authentication, db_role)
+values ('sample-charts', 'Sample Charts', 1, 'app_users', 'app_sample_charts');
+
+insert into meta.app_user (app_id, username, password_hash, roles)
+select id, 'demo', meta.hash_password('demo'), '{}' from meta.app where alias = 'sample-charts';
+
+insert into meta.page (app_id, page_no, name, title, parent_page)
+select a.id, p.no, p.name, p.name, p.parent
+  from meta.app a, (values
+  (1, 'Sample Charts', null), (2, 'Comparing categories', 1), (3, 'Change over time', 1), (4, 'Parts of a whole', 1),
+  (5, 'Relations and spread', 1), (6, 'Plans and timelines', 1), (7, 'Drill-down', 1), (8, 'Sales by region', 7)
+  ) as p (no, name, parent)
+ where a.alias = 'sample-charts';
+
+insert into meta.nav_entry (app_id, seq, label, icon, target_page)
+select a.id, n.seq, n.label, n.icon, n.page
+  from meta.app a, (values
+  (10, 'Home', 'home', 1), (20, 'Comparing categories', 'chart', 2), (30, 'Change over time', 'line-chart', 3),
+  (40, 'Parts of a whole', 'pie-chart', 4), (50, 'Relations and spread', 'activity', 5), (60, 'Plans and timelines', 'calendar', 6),
+  (70, 'Drill-down', 'filter', 7)
+  ) as n (seq, label, icon, page)
+ where a.alias = 'sample-charts';
+
+-- the home page's list of topics
+insert into meta.list (app_id, name, type, description)
+select id, 'CHART_TOPICS', 'static', 'The pages of Sample Charts (cards on the home page)' from meta.app where alias = 'sample-charts';
+
+insert into meta.list_entry (app_id, list_name, seq, label, icon, target_page, description)
+select a.id, 'CHART_TOPICS', e.seq, e.label, e.icon, e.page, e.description
+  from meta.app a, (values
+  (10, 'Comparing categories', 'chart', 2, 'Bar, column, stacked and combination charts.'),
+  (20, 'Change over time', 'line-chart', 3, 'Line, area, range and stock charts.'),
+  (30, 'Parts of a whole', 'pie-chart', 4, 'Pie, donut, funnel, pyramid, treemap and sunburst charts.'),
+  (40, 'Relations and spread', 'activity', 5, 'Scatter, bubble, box plot, radar, polar and gauge charts.'),
+  (50, 'Plans and timelines', 'calendar', 6, 'Gantt and timeline charts.'),
+  (60, 'Drill-down', 'filter', 7, 'A chart whose columns open a report of their rows.')
+  ) as e (seq, label, icon, page, description)
+ where a.alias = 'sample-charts';
+
+insert into meta.region (page_id, seq, title, type, columns, template, source, config)
+select pg_temp.page_id('sample-charts', r.page), r.seq, r.title, r.type, r.cols, r.template, r.source, r.config::jsonb
+  from (values
+  -- 1 Home
+  (1, 10, 'Sample Charts', 'static', 12, 'hero',
+   '<p>A chart region draws a SELECT: the first column is the label, every further number column a series, named by its alias. The attribute <code>kind</code> chooses one of 22 chart types. Every chart has tooltips, a legend for several series and a <em>Data table</em> toggle, the accessible alternative to the picture.</p>',
+   '{"icon": "chart"}'),
+  (1, 20, 'Topics', 'list', 12, 'plain', null, '{"list": "CHART_TOPICS", "template": "cards"}'),
+  (1, 30, 'The data', 'static', 12, 'standard',
+   '<p>The schema <code>sample_charts</code> holds a year of sales (<code>sale</code>: region, product, channel, units, amount), a month of share prices, a sales pipeline, a budget in two levels and a small project plan. The queries of the charts are in the Page Designer: open a region and look at its Source and its attributes.</p>',
+   '{}'),
+
+  -- 2 Comparing categories
+  (2, 5, 'About these charts', 'static', 12, 'plain',
+   '<p class="lead">Compare categories with bars and columns. <strong>bar</strong> draws horizontal bars, good for long labels; <strong>column</strong> vertical columns; <strong>stacked</strong> stacks the series of a label on top of each other; <strong>combo</strong> draws the first series as columns and the others as lines over them.</p>',
+   '{}'),
+  (2, 10, 'Units sold per product and channel (bar)', 'chart', 6, 'standard',
+   E'select product || '' via '' || lower(channel) as product, sum(units) as "Units"\n  from sample_charts.sale group by product, channel order by 2 desc',
+   '{"kind": "bar"}'),
+  (2, 20, 'Sales per region (column)', 'chart', 6, 'standard',
+   E'select region, sum(amount) as "Sales"\n  from sample_charts.sale group by region order by region',
+   '{"kind": "column", "format_mask": "999G999G990"}'),
+  (2, 30, 'Sales per region and product (stacked)', 'chart', 6, 'standard',
+   E'select region,\n       sum(amount) filter (where product = ''Standing desk'') as "Standing desk",\n       sum(amount) filter (where product = ''Office chair'') as "Office chair",\n       sum(amount) filter (where product = ''Monitor arm'') as "Monitor arm"\n  from sample_charts.sale group by region order by region',
+   '{"kind": "stacked", "format_mask": "999G999G990"}'),
+  (2, 40, 'Sales against the target (combo)', 'chart', 6, 'standard',
+   E'select region, sum(amount) as "Sales", 200000 as "Target"\n  from sample_charts.sale group by region order by region',
+   '{"kind": "combo", "format_mask": "999G999G990"}'),
+
+  -- 3 Change over time
+  (3, 5, 'About these charts', 'static', 12, 'plain',
+   '<p class="lead">Show change over time with the label column in order (months, days). <strong>line</strong> and <strong>area</strong> draw one line per series; <strong>range</strong> a floating column from a low to a high column; <strong>stock</strong> a candle per row from the open, high, low and close columns.</p>',
+   '{}'),
+  (3, 10, 'Monthly sales per region (line)', 'chart', 12, 'standard',
+   E'select to_char(date_trunc(''month'', sold_on), ''YYYY-MM'') as month,\n       sum(amount) filter (where region = ''North'') as "North",\n       sum(amount) filter (where region = ''South'') as "South",\n       sum(amount) filter (where region = ''East'') as "East",\n       sum(amount) filter (where region = ''West'') as "West"\n  from sample_charts.sale group by 1 order by 1',
+   '{"kind": "line", "format_mask": "999G999G990"}'),
+  (3, 20, 'Sales so far this year (area)', 'chart', 6, 'standard',
+   E'select month, sum(total) over (order by month) as "Cumulative sales"\n  from (select to_char(date_trunc(''month'', sold_on), ''YYYY-MM'') as month, sum(amount) as total\n          from sample_charts.sale group by 1) m\n order by month',
+   '{"kind": "area", "format_mask": "999G999G990"}'),
+  (3, 30, 'Smallest and largest sale per region (range)', 'chart', 6, 'standard',
+   E'select region, min(amount) as "Smallest", max(amount) as "Largest"\n  from sample_charts.sale group by region order by region',
+   '{"kind": "range", "format_mask": "999G999G990"}'),
+  (3, 40, 'Share price over the last month (stock)', 'chart', 12, 'standard',
+   E'select to_char(day, ''DD Mon'') as day, open as "Open", high as "High", low as "Low", close as "Close"\n  from sample_charts.share_price order by sample_charts.share_price.day',
+   '{"kind": "stock"}'),
+
+  -- 4 Parts of a whole
+  (4, 5, 'About these charts', 'static', 12, 'plain',
+   '<p class="lead">Show how a total divides. <strong>pie</strong> and <strong>donut</strong> use the first series (up to six slices, the rest folds into Other); <strong>funnel</strong> shows the stages of a process in the order of the query; <strong>pyramid</strong> with two series compares two groups back to back; <strong>treemap</strong> and <strong>sunburst</strong> show a hierarchy from the columns <code>node_id</code> and <code>parent_id</code>.</p>',
+   '{}'),
+  (4, 10, 'Sales per channel (pie)', 'chart', 6, 'standard',
+   E'select channel, sum(amount) as "Sales"\n  from sample_charts.sale group by channel order by 2 desc',
+   '{"kind": "pie", "format_mask": "999G999G990"}'),
+  (4, 20, 'Units per product (donut)', 'chart', 6, 'standard',
+   E'select product, sum(units) as "Units"\n  from sample_charts.sale group by product order by 2 desc',
+   '{"kind": "donut"}'),
+  (4, 30, 'Sales pipeline (funnel)', 'chart', 6, 'standard',
+   E'select stage, deals as "Deals" from sample_charts.pipeline order by seq',
+   '{"kind": "funnel"}'),
+  (4, 40, 'Units per product, North against South (pyramid)', 'chart', 6, 'standard',
+   E'select product,\n       sum(units) filter (where region = ''North'') as "North",\n       sum(units) filter (where region = ''South'') as "South"\n  from sample_charts.sale group by product order by product',
+   '{"kind": "pyramid"}'),
+  (4, 50, 'Budget (treemap)', 'chart', 6, 'standard',
+   E'select label, amount as "Budget", node_id, parent_id from sample_charts.budget order by node_id',
+   '{"kind": "treemap"}'),
+  (4, 60, 'Budget (sunburst)', 'chart', 6, 'standard',
+   E'select label, amount as "Budget", node_id, parent_id from sample_charts.budget order by node_id',
+   '{"kind": "sunburst"}'),
+
+  -- 5 Relations and spread
+  (5, 5, 'About these charts', 'static', 12, 'plain',
+   '<p class="lead">Look at numbers against each other. <strong>scatter</strong> takes a number as its first column (the x axis); <strong>bubble</strong> a label, then x, y and size; <strong>boxplot</strong> one row per observation and computes the quartiles per label; <strong>radar</strong> an axis per row; <strong>polar</strong> a sector per row; <strong>gauge</strong> a dial per row with thresholds in its attributes.</p>',
+   '{}'),
+  (5, 10, 'Units against amount per sale (scatter)', 'chart', 6, 'standard',
+   E'select units as "Units", amount as "Amount" from sample_charts.sale order by units',
+   '{"kind": "scatter"}'),
+  (5, 20, 'Products per region: units, average sale and number of sales (bubble)', 'chart', 6, 'standard',
+   E'select region || '' '' || lower(product) as product, sum(units) as "Units", round(avg(amount)) as "Average sale", count(*) as "Sales"\n  from sample_charts.sale group by region, product order by 1',
+   '{"kind": "bubble"}'),
+  (5, 30, 'Spread of the sales per region (box plot)', 'chart', 6, 'standard',
+   E'select region, amount as "Sale" from sample_charts.sale order by region',
+   '{"kind": "boxplot"}'),
+  (5, 40, 'Units per region and product (radar)', 'chart', 6, 'standard',
+   E'select region,\n       sum(units) filter (where product = ''Standing desk'') as "Standing desk",\n       sum(units) filter (where product = ''Office chair'') as "Office chair",\n       sum(units) filter (where product = ''Monitor arm'') as "Monitor arm"\n  from sample_charts.sale group by region order by region',
+   '{"kind": "radar"}'),
+  (5, 50, 'Sales per month (polar)', 'chart', 6, 'standard',
+   E'select to_char(date_trunc(''month'', sold_on), ''Mon'') as month, sum(amount) as "Sales"\n  from sample_charts.sale group by date_trunc(''month'', sold_on) order by date_trunc(''month'', sold_on)',
+   '{"kind": "polar", "format_mask": "999G999G990"}'),
+  (5, 60, 'Target reached per region, % (gauge)', 'chart', 6, 'standard',
+   E'select region, round(100.0 * sum(amount) / 200000) as "Target reached"\n  from sample_charts.sale group by region order by region',
+   '{"kind": "gauge", "gauge": {"min": 0, "max": 120, "warning": 90, "critical": 75}}'),
+
+  -- 6 Plans and timelines
+  (6, 5, 'About these charts', 'static', 12, 'plain',
+   '<p class="lead">Show plans. <strong>gantt</strong> takes a label, a start and an end (no end: a milestone), and optional columns <code>progress</code>, <code>task_id</code> and <code>depends_on</code>; <strong>timeline</strong> a label, a start and an end, with a lane per value of the column <code>series</code>.</p>',
+   '{}'),
+  (6, 10, 'Project plan (Gantt)', 'chart', 12, 'standard',
+   E'select name as "Task", starts as "Starts", ends as "Ends", progress, id as task_id,\n       array_to_string(depends_on, '','') as depends_on\n  from sample_charts.project_task order by starts, id',
+   '{"kind": "gantt"}'),
+  (6, 20, 'Who works when (timeline)', 'chart', 12, 'standard',
+   E'select name as "Task", starts as "Starts", ends as "Ends", team as series\n  from sample_charts.project_task order by starts, id',
+   '{"kind": "timeline"}'),
+
+  -- 7 Drill-down
+  (7, 5, 'About this page', 'static', 12, 'plain',
+   '<p class="lead">With the attribute <code>link</code> every column of the chart is a link: <code>#region#</code> is replaced by the value of the clicked row. The link carries a checksum, like every link pgkiln makes. Columns that only the link uses are not drawn. From the keyboard, the data table has the same links.</p>',
+   '{}'),
+  (7, 10, 'Sales per region: click a column', 'chart', 12, 'standard',
+   E'select region, sum(amount) as "Sales"\n  from sample_charts.sale group by region order by region',
+   '{"kind": "column", "format_mask": "999G999G990", "link": {"page": 8, "items": {"P8_REGION": "#region#"}}}'),
+
+  -- 8 Sales by region (the drill-down's target)
+  (8, 10, 'Sales', 'report', 12, 'standard',
+   E'select sold_on, region, product, channel, units, amount\n  from sample_charts.sale\n where :P8_REGION is null or region = :P8_REGION\n order by sold_on desc, id',
+   '{"headings": {"sold_on": "Sold on"}, "formats": {"amount": "999G999G990D00"}}'),
+  (8, 20, 'Per product', 'chart', 12, 'standard',
+   E'select product, sum(amount) as "Sales"\n  from sample_charts.sale where :P8_REGION is null or region = :P8_REGION\n group by product order by 2 desc',
+   '{"kind": "bar", "format_mask": "999G999G990"}')
+  ) as r (page, seq, title, type, cols, template, source, config);
+
+insert into meta.item (page_id, region_id, seq, name, label, type, lov, config)
+select pg_temp.page_id('sample-charts', 8), null, 10, 'P8_REGION', 'Region', 'select',
+       'select distinct region as d, region as r from sample_charts.sale order by 1',
+       '{"submit_on_change": true, "null_label": "All regions"}';