Skip to content

Instantly share code, notes, and snippets.

@borkdude

borkdude/replicant.cljs

Created October 28, 2025 15:26
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save borkdude/4b72ef3583ac9c1102ae76fec9f670bd to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save borkdude/4b72ef3583ac9c1102ae76fec9f670bd to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. borkdude created this gist Oct 28, 2025.
    73 changes: 73 additions & 0 deletions replicant.cljs
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,73 @@
    (ns test1
    (:require
    [applied-science.js-interop :as j]
    [promesa.core :as p]
    [cljs-bean.core :refer [bean ->clj ->js]]
    [re-frame.core :as rf]
    [re-frame.db :as rf.db]
    [re-frame.alpha :as rf.a]
    [reagent.core :as r]
    [reagent.dom.server :as rds]
    [reagent.dom.client :as rdc]
    [reagent.debug]
    [replicant.dom :as replicant]
    [portfolio.replicant :refer-macros [defscene]]
    [portfolio.ui :as portfolio]
    [reagent.ratom :as ratom]
    [reitit.frontend :as reitit]
    [datascript.core :as d]
    [datascript.db :as d.db]
    [dataspex.core :as dataspex]
    [com.fulcrologic.fulcro.application :as app]
    [com.fulcrologic.fulcro.components :as comp :refer [defsc]]
    [com.fulcrologic.fulcro.dom :as dom]
    [javelin.core :as jc]))

    (defn slider [the-atom calc-fn param value min max step invalidates]
    [:input {:type "range"
    :value value
    :min min
    :max max
    :step step
    :style {:width "50%"}
    :on-input (fn [e]
    (let [new-value (js/parseFloat
    (aget (aget e "target") "value"))]
    (swap! the-atom
    (fn [data]
    (-> data
    (assoc param new-value)
    (dissoc invalidates)
    calc-fn)))))}])

    (defn calc-ohms [{:keys [voltage current resistance] :as data}]
    (if (nil? voltage)
    (assoc data :voltage (* current resistance))
    (assoc data :current (/ voltage resistance))))

    (def ohms-data (atom {:voltage 12 :current 0.5 :resistance 24}))

    (defn ohms-law-page []
    (let [{:keys [voltage current resistance]} @ohms-data]
    [:div
    [:h3 "Ohm's Law Calculator"]
    [:div
    "Voltage: " (.toFixed voltage 2) "V"
    (slider ohms-data calc-ohms :voltage voltage 0 30 0.1 :current)]
    [:div
    "Current: " (.toFixed current 2) "A"
    (slider ohms-data calc-ohms :current current 0 3 0.01 :voltage)]
    [:div
    "Resistance: " (.toFixed resistance 2) ""
    (slider ohms-data calc-ohms :resistance resistance 0 100 1 :voltage)]]))

    (defn render []
    (replicant/render (js/document.querySelector "#app")
    (ohms-law-page)))

    (add-watch ohms-data :state (fn [_ _ _ _]
    (render)))

    (render)