reagent/demo/reagentdemo/common.cljs

(ns reagentdemo.common
  (:require [reagent.core :as r]
            [reagent.debug :refer-macros [dbg println]]))

(defn demo-component [{:keys [comp src complete no-heading]}]
  (r/with-let [showing (r/atom true)]
    [:div
     (when comp
       [:div.demo-example.clearfix
        [:a.demo-example-hide {:on-click (fn [e]
                                           (.preventDefault e)
                                           (swap! showing not)
                                           nil)}
         (if @showing "hide" "show")]
        (when-not no-heading
          [:h3.demo-heading "Example "])
        (when @showing
          (if-not complete
            [:div.simple-demo [comp]]
            [comp]))])
     (if @showing
       (if src
         [:div.demo-source.clearfix
          (when-not no-heading
            [:h3.demo-heading "Source"])
          src]
         [:div.clearfix]))]))