Unified component rendering

components.cljc

(ns akvo.components
  (:require [rum.core :as rum]
            #?(:cljs [goog.dom :as dom])))

#?(:cljs (enable-console-print!))

;;; Helpers

(defn now []
  (str "The date is "
    #?(:clj (str (java.util.Date.) " according to Clojure!")
       :cljs (str (js/Date.) " according to ClojureScript!"))))

;;; Components

(rum/defc header []
  [:header
   [:h1 "Unified Components FTW"]
   [:p (now)]])

(rum/defc main []
  [:div#components
   (header)])

;;; Client-specific

#?(:cljs (rum/mount (main) (dom/getElement "main")))