18 lines
456 B
Clojure
18 lines
456 B
Clojure
(ns user
|
|
(:require [net.deertopia.doerg.server :as server]
|
|
[net.deertopia.doerg.config :as cfg]
|
|
[net.deertopia.doerg.cached-file :as cached-file]
|
|
[babashka.fs :as fs]))
|
|
|
|
(cfg/load-config! :profile :dev)
|
|
|
|
(when (not= :running (server/status))
|
|
(server/start!))
|
|
|
|
(defn invalidate-html-cache! []
|
|
(fs/delete-tree (server/html-dir))
|
|
nil)
|
|
|
|
(defn toggle-html-cache! []
|
|
(alter-var-root #'cached-file/*use-cache?* not))
|