~pepe/pan.earth

pan.earth/panearth/init.janet -rw-r--r-- 761 bytes
45a69985 — Josef Pospíšil Added xbows article 4 months ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
(import shawn :prefix "")
(import /panearth/acts :prefix "")

(def shawn
  (initialize @{:site-title "Pan Earth"
                :static "static"
                :logo "logo.svg"
                :css "css"
                :content "content"
                :blog "content/posts"
                :public "public"
                :templates "templates"
                :chidi {:host "0.0.0.0" :port 7777}
                :server-name "neil"
                :server-path "/root/Code/pan.earth/"
                :html-path "/var/www/html/pan.earth/"
                :executable-name "pe"}))

(def env-init
  {"dev" Development
   "prod" Production
   "rel" Release})

(defn start [&opt env]
  (default env "dev")
  (:confirm shawn (env-init env))
  (:admit shawn))