1
2
3
4
5
6
7
8
9
10
11
|
(ns lezer.db
(:require phel.pdo))
(def conn (pdo/connect "sqlite:test.db"))
(defn initialize-database []
(pdo/exec conn "create table if not exists books (id integer primary key autoincrement, title varchar(255), subtitle varchar(255), pages integer, created_at integer, updated_at integer)")
(pdo/exec conn "create table if not exists books_sessions (id integer primary key autoincrement, book_id integer, status string, started_at integer, stopped_at integer, created_at integer, updated_at integer)")
(pdo/exec conn "create table if not exists sessions_progress (id integer primary key autoincrement, session_id integer, progress integer, total integer, created_at integer, updated_at integer)")
(pdo/exec conn "create table if not exists authors (id integer primary key autoincrement, name varchar(255), created_at integer, updated_at integer)")
(pdo/exec conn "create table if not exists authors_books (author_id integer, book_id integer)"))
|
