~pepe/pan.earth

71e03fbf60c88a6a94078b72d0aae47f2bc718c3 — Josef Pospíšil 2 years ago 5510017
Initial commit
1 files changed, 5 insertions(+), 10 deletions(-)

M panearth/acts.janet
M panearth/acts.janet => panearth/acts.janet +5 -10
@@ 183,8 183,7 @@
           (make {:watch (fn [&] RenderContent)
                  :effect (fn [&]
                            (put module/cache lc nil)
                            (print "Modified " lc))})))
       (cocoon/die)))})
                            (print "Modified " lc))})))))})

(defact ContentMonitor
  {:watch


@@ 194,8 193,7 @@
         (def lc (notify-modify c))
         (cocoon/emerge
           (make {:watch (fn [&] (render-content-file lc))
                  :effect (fn [&] (print "Modified " lc))})))
       (cocoon/die)))})
                  :effect (fn [&] (print "Modified " lc))})))))})

(defact BlogMonitor
  {:watch


@@ 206,8 204,7 @@
         (cocoon/emerge
           (make {:watch (fn [&] [(markup-blog-file lc)
                                  (render-blog-file lc)])
                  :effect (fn [&] (print "Modified " lc))})))
       (cocoon/die)))})
                  :effect (fn [&] (print "Modified " lc))})))))})

(defact CssMonitor
  {:watch


@@ 217,8 214,7 @@
         (def lc (notify-modify (path/join s c)))
         (cocoon/emerge
           (make {:watch (fn [&] [(copy-file lc :css)])
                  :effect (fn [&] (print "Modified " lc))})))
       (cocoon/die)))})
                  :effect (fn [&] (print "Modified " lc))})))))})

(defact CopyLogo
  {:watch


@@ 236,8 232,7 @@
                       :render-all [RenderContent RenderPosts]
                       :list-content ListContent})
         host port
         app/good-supervisor)
       (cocoon/die)))
         app/good-supervisor)))
   :effect
   (fn [_ {:chidi {:host host :port port}} _]
     (print "Chidi Present on " host ":" port))})