refactoring of cmaps, widgets, etc.

private/migrations.rkt

@@ -21,7 +21,7 @@
 ;; Supporting functions
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(define current-schema-version 21)
+(define current-schema-version 22)
 
 (define schema-1-statements
   (list
@@ -1214,6 +1214,32 @@ SQL
    )
     (record-schema-version! db 21)))
 
+(define (migrate-21->22! db)
+  (query-exec
+   db
+   #<<SQL
+CREATE TABLE IF NOT EXISTS user_cmap_preferences (
+  user_id BIGINT PRIMARY KEY REFERENCES users(id) ON DELETE CASCADE,
+  page_guides_visible BOOLEAN NOT NULL DEFAULT TRUE,
+  updated_at BIGINT NOT NULL
+)
+SQL
+   )
+  (query-exec
+   db
+   #<<SQL
+CREATE TABLE IF NOT EXISTS user_cmap_zoom_levels (
+  user_id BIGINT NOT NULL REFERENCES users(id) ON DELETE CASCADE,
+  cmap_slug TEXT NOT NULL REFERENCES concept_maps(slug) ON DELETE CASCADE,
+  context_key TEXT NOT NULL,
+  zoom_percent INTEGER NOT NULL CHECK(zoom_percent BETWEEN 25 AND 300),
+  updated_at BIGINT NOT NULL,
+  PRIMARY KEY(user_id, cmap_slug, context_key)
+)
+SQL
+   )
+  (record-schema-version! db 22))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; goal   : Bring a racket-wiki PostgreSQL database to the current schema.
 ; pre    : db is a writable PostgreSQL connection and config identifies the
@@ -1250,6 +1276,7 @@ SQL
          ((= version 18) (migrate-18->19! db) (loop (database-schema-version db)))
          ((= version 19) (migrate-19->20! db) (loop (database-schema-version db)))
          ((= version 20) (migrate-20->21! db) (loop (database-schema-version db)))
+         ((= version 21) (migrate-21->22! db) (loop (database-schema-version db)))
          ((> version current-schema-version)
           (error 'migrate-database!
                  "database schema ~a is newer than this racket-wiki supports (~a)"