From bacbe8a0ef513bad2122b6eeb47da325120cde3a Mon Sep 17 00:00:00 2001
From: tilpner
Date: Sun, 22 Apr 2018 23:45:01 +0200
Subject: Add default database setup

---
 modules/0-db.rkt | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 modules/0-db.rkt

(limited to 'modules/0-db.rkt')

diff --git a/modules/0-db.rkt b/modules/0-db.rkt
new file mode 100644
index 0000000..71e28ab
--- /dev/null
+++ b/modules/0-db.rkt
@@ -0,0 +1,13 @@
+#lang racket/base
+(require irc/db irc/storage
+         racket/match db)
+
+; this is fine™, meep is expected to run as its own user
+(define data-dir (getenv "HOME"))
+
+(current-database
+  (sqlite3-connect #:database (build-path data-dir "meep.sqlite")
+                   #:mode 'create))
+
+(db-init)
+(storage-init)
-- 
cgit v1.2.3