Sample code from the Clojurebridge session #2

website.cljs

(ns nightcoders.removeme
  (:require [reagent.core :as r]
            [quil.core :as q]))

(enable-console-print!)

(def image-url
  "https://i.pinimg.com/originals/96/cc/3a/96cc3aafba195cecfc2662acc405c699.gif")

(def clojurebridge-url
  "http://www.clojurebridge.org/")

(defn greet [name surname]
  (str "hello " name " " surname ", "
    " your name is " (+ (count name)
                        (count surname)) " long"))

(def number-sum (r/atom nil))

(defn calculate
  []
  (let [first  (.-value (.getElementById js/document "first"))
        second (.-value (.getElementById js/document "second"))]
    (reset! number-sum (+ (int first) 
                          (int second)))))

(defn content []
  [:div {:style {:width "100%"}}
   [:p (greet "carlo" "sciolla")]
   
   [:p "This website was created during a "
    [:a {:href clojurebridge-url} "clojurebridge"]
    " session."]
   
   [:input {:type "text"
            :id "first"}]
   
   [:input {:type "text"
            :id "second"}]
   
   [:button {:id "calculate"
             :on-click calculate}]
   
   [:p "The sum is:" @number-sum]
   
   [:img {:src image-url
          :style {:margin-left "auto"
                  :margin-right "auto"
                  :display "block"}}]])

(r/render-component [content] 
  (.querySelector js/document "#content"))