word edit: common function to format form input

[sheet.git] / tools / word.pg.sql

diff --git a/tools/word.pg.sql b/tools/word.pg.sql
index 8a5fec649224dbbbd34525c5477f289eefc9f99e..31a117e83001ba926fd8ec06b09a95c1e6b085b1 100644 (file)
--- a/tools/word.pg.sql
+++ b/tools/word.pg.sql
@@ -1,13 +1,41 @@
 CREATE TABLE word (
        form       text        NOT NULL,
+       alt        text[],
+       lang       text        NOT NULL DEFAULT 'eng',
        cat        integer              REFERENCES word (id),
+       ref        integer              REFERENCES word (id),
+       prio       smallint    NOT NULL DEFAULT '1',
+       grade      integer,
+       cover      boolean     NOT NULL DEFAULT FALSE,
        source     text,
        thumb      text[],
+       wptitle    text,
        created    timestamptz          DEFAULT now(),
        id         serial      NOT NULL PRIMARY KEY
 );
 
 COMMENT ON COLUMN word.form       IS 'preferred textual representation';
+COMMENT ON COLUMN word.alt        IS 'alternate forms with equivalent meaning';
+COMMENT ON COLUMN word.lang       IS 'ISO 639-3 language code';
 COMMENT ON COLUMN word.cat        IS 'hierarchical classification';
+COMMENT ON COLUMN word.ref        IS 'reference to equivalent eng translation';
+COMMENT ON COLUMN word.prio       IS 'difficulty level or importance; lower values have precedence';
+COMMENT ON COLUMN word.grade      IS 'ascending hierarchical order, preceding default alphabetical';
+COMMENT ON COLUMN word.cover      IS 'highlight if selected';
 COMMENT ON COLUMN word.source     IS 'URI of downloaded image';
 COMMENT ON COLUMN word.thumb      IS 'ImageMagick convert options to create thumbnail from source image';
+COMMENT ON COLUMN word.wptitle    IS 'reference Wikipedia article';
+
+CREATE OR REPLACE FUNCTION exportform(word) RETURNS text AS $$
+       SELECT concat(
+               $1.prio || CASE WHEN $1.cover THEN 'c' ELSE '' END || ':',
+               array_to_string($1.form || $1.alt, '/')
+       );
+$$ LANGUAGE SQL IMMUTABLE;
+
+CREATE OR REPLACE VIEW _cat_words AS
+       SELECT exportform(word.*) form, sub.*, word.lang, word.ref
+       FROM word RIGHT JOIN (
+               SELECT cat id, array_agg(exportform(word.*) ORDER BY grade, form) forms
+                       FROM word WHERE ref IS NULL GROUP BY cat
+       ) sub USING (id);