Add database container.

* containers/db-container.scm, containers/db-container.sh: New files.

1 files changed, 38 insertions, 0 deletions

diff --git a/containers/db-container.scm b/containers/db-container.scm
new file mode 100644
index 00000000..848b6a2e
--- /dev/null
+++ b/containers/db-container.scm
@@ -0,0 +1,38 @@
+;;; This file describes a Guix system container to run the database
+;;; services required by genenetwork2 locally on your own
+;;; machine. This is to allow a purely offline development setup for
+;;; hacking on genenetwork2. To build and run the container, use
+;;; db-container.sh.
+
+(use-modules (gnu)
+             (gnu packages databases)
+             (gnu services databases))
+
+(define %mariadb-state-directory
+  "/var/lib/mysql")
+
+(define set-permissions-gexp
+  (with-imported-modules '((guix build utils))
+    #~(begin
+        (use-modules (guix build utils))
+
+        ;; Set ownership of mariadb state directory.
+        (let ((user (getpw "mysql")))
+          (for-each (lambda (file)
+                      (chown file (passwd:uid user) (passwd:gid user)))
+                    (find-files #$%mariadb-state-directory #:directories? #t))))))
+
+(operating-system
+  (host-name "genenetwork2")
+  (timezone "Etc/UTC")
+  (locale "en_US.utf8")
+  (bootloader (bootloader-configuration
+               (bootloader grub-bootloader)
+               (targets (list "does-not-matter"))))
+  (file-systems %base-file-systems)
+  (services (cons* (service mysql-service-type)
+                   (service redis-service-type)
+                   (simple-service 'set-permissions
+                                   activation-service-type
+                                   set-permissions-gexp)
+                   %base-services)))