pub and priv schemas (database)

Author: pyramation

packages/inflection/deploy/schemas/inflection/procedures/dashed.sql

@@ -0,0 +1,29 @@
+-- Deploy schemas/inflection/procedures/dashed to pg
+
+-- requires: schemas/inflection/schema
+-- requires: schemas/inflection/procedures/underscore
+
+BEGIN;
+
+CREATE FUNCTION inflection.dashed(str text)
+  RETURNS text
+  AS $$
+  WITH underscored AS (
+    SELECT
+      inflection.underscore(str) AS value
+),
+dashes AS (
+  SELECT
+    regexp_replace(value, '_', '-', 'gi') AS value
+  FROM
+    underscored
+)
+SELECT
+  value
+FROM
+  dashes;
+$$
+LANGUAGE 'sql'
+IMMUTABLE;
+COMMIT;
+

packages/inflection/deploy/schemas/inflection/procedures/underscore.sql

@@ -27,11 +27,17 @@ removedups AS (
     regexp_replace(value, E'[_]+', '_', 'gi') AS value
 FROM
   noprefix
+),
+stripedges AS (
+  SELECT
+    regexp_replace(regexp_replace(value, E'([A-Z])_$', E'\\1', 'gi'), E'^_([A-Z])', E'\\1', 'gi') AS value
+FROM
+  removedups
 )
 SELECT
   value
 FROM
-  removedups;
+  stripedges;
 $$
 LANGUAGE 'sql'
 IMMUTABLE;

packages/inflection/revert/schemas/inflection/procedures/dashed.sql

@@ -0,0 +1,7 @@
+-- Revert schemas/inflection/procedures/dashed from pg
+
+BEGIN;
+
+DROP FUNCTION inflection.dashed;
+
+COMMIT;

packages/inflection/sqitch.plan

@@ -7,6 +7,7 @@ schemas/inflection/procedures/no_consecutive_caps [schemas/inflection/schema] 20
 schemas/inflection/procedures/pg_slugify [schemas/inflection/schema schemas/inflection/procedures/no_consecutive_caps] 2017-08-11T08:11:51Z skitch <skitch@5b0c196eeb62> # add schemas/inflection/procedures/pg_slugify
 schemas/inflection/procedures/underscore [schemas/inflection/schema schemas/inflection/procedures/pg_slugify] 2017-08-11T08:11:51Z skitch <skitch@5b0c196eeb62> # add schemas/inflection/procedures/underscore
 schemas/inflection/procedures/camel [schemas/inflection/schema schemas/inflection/procedures/underscore] 2017-08-11T08:11:51Z skitch <skitch@5b0c196eeb62> # add schemas/inflection/procedures/camel
+schemas/inflection/procedures/dashed [schemas/inflection/schema schemas/inflection/procedures/underscore] 2017-08-11T08:11:51Z skitch <skitch@5b0c196eeb62> # add schemas/inflection/procedures/dashed
 schemas/inflection/procedures/pascal [schemas/inflection/schema schemas/inflection/procedures/camel] 2017-08-11T08:11:51Z skitch <skitch@5b0c196eeb62> # add schemas/inflection/procedures/pascal
 schemas/inflection/tables/inflection_rules/table [schemas/inflection/schema] 2017-08-11T08:11:51Z skitch <skitch@5b0c196eeb62> # add schemas/inflection/tables/inflection_rules/table
 schemas/inflection/procedures/plural [schemas/inflection/schema schemas/inflection/tables/inflection_rules/table] 2017-08-11T08:11:51Z skitch <skitch@5b0c196eeb62> # add schemas/inflection/procedures/plural

packages/inflection/sql/inflection--0.0.1.sql

@@ -92,11 +92,17 @@ removedups AS (
     regexp_replace(value, E'[_]+', '_', 'gi') AS value
 FROM
   noprefix
+),
+stripedges AS (
+  SELECT
+    regexp_replace(regexp_replace(value, E'([A-Z])_$', E'\\1', 'gi'), E'^_([A-Z])', E'\\1', 'gi') AS value
+FROM
+  removedups
 )
 SELECT
   value
 FROM
-  removedups;
+  stripedges;
 $EOFCODE$ LANGUAGE sql IMMUTABLE;
 
 CREATE FUNCTION inflection.camel ( str text ) RETURNS text AS $EOFCODE$
@@ -113,6 +119,23 @@ BEGIN
 END;
 $EOFCODE$ LANGUAGE plpgsql STABLE;
 
+CREATE FUNCTION inflection.dashed ( str text ) RETURNS text AS $EOFCODE$
+  WITH underscored AS (
+    SELECT
+      inflection.underscore(str) AS value
+),
+dashes AS (
+  SELECT
+    regexp_replace(value, '_', '-', 'gi') AS value
+  FROM
+    underscored
+)
+SELECT
+  value
+FROM
+  dashes;
+$EOFCODE$ LANGUAGE sql IMMUTABLE;
+
 CREATE FUNCTION inflection.pascal ( str text ) RETURNS text AS $EOFCODE$
 DECLARE
   result text[];

packages/inflection/verify/schemas/inflection/procedures/dashed.sql

@@ -0,0 +1,7 @@
+-- Verify schemas/inflection/procedures/dashed  on pg
+
+BEGIN;
+
+SELECT verify_function ('inflection.dashed');
+
+ROLLBACK;