 (defn period-ellipsis
   [system]
   (components/get-config system :parsing :period-ellipsis))
+
+(defn db
+  [system]
+  (components/get-config system :db))
+
+(defn db-type
+  [system]
+  (components/get-config system :db :type))
+
+(defn db-config
+  [system]
+  (let [db-type (db-type system)]
+    (db-type (db system))))

(ns dragon.config
  (:require [dragon.components.core :as components]
            [dragon.util :as util]
            [leiningen.core.project :as project]
            [taoensso.timbre :as log])
  (:refer-clojure :exclude [name read]))

(def defaults
  {:dev-port 5097
   :domain "dragon.github.io"
   :name "Dragon Blog Generator"
   :description "A fire-breathing blog generator"

     :log-nss '[dragon]}
   :cli {
     :log-level :error
     :log-nss '[dragon]}
   :db {
     :type :datomic
     :datomic {
       :account-id datomic/PRO_ACCOUNT
       :region datomic/PRO_ACCOUNT
       :service "peer-server"
       :endpoint "localhost:8998"
       :db-name "dragon"
       :secret "dragon"
       :access-key "dragon"}}})

(defn build
  ""
