(ns tutorial.shapes)

(defprotocol Drawable
  (draw [this] "Draws the shape")
  (area [this] "Calculates the area"))

(defrecord Circle [radius]
  Drawable
  (draw [this] 
    (str "Drawing circle with radius " radius))
  (area [this]
    (* Math/PI radius radius)))

;; Example usage in comment block for CIDER evaluation
(comment
  (def my-circle (->Circle 5))
  (draw my-circle)
  (area my-circle)
  )

(ns tutorial.reify-examples
  (:require [tutorial.shapes :refer [Drawable]]))

;; Creating anonymous implementations
(def square
  (reify Drawable
    (draw [this]
      "Drawing a square")
    (area [this]
      100)))

;; Java interface implementation
(def runnable
  (reify java.lang.Runnable
    (run [this]
      (println "Running!"))))

;; Multiple protocol implementation
(defprotocol Scalable
  (scale [this factor]))

(def scalable-circle
  (reify 
    Drawable
    (draw [this] "Drawing circle")
    (area [this] 50)
    
    Scalable
    (scale [this factor]
      (str "Scaling by " factor))))

(comment
  ;; Test implementations
  (draw square)
  (area square)
  (.run runnable)
  (draw scalable-circle)
  (scale scalable-circle 2)
)

(ns tutorial.component-examples
  (:require [com.stuartsierra.component :as component]))

(defrecord Database [uri connection]
  component/Lifecycle
  (start [this]
    (assoc this :connection (str "Connected to: " uri)))
  (stop [this]
    (println "Disconnecting from:" uri)
    (assoc this :connection nil)))

(defn new-database [uri]
  (map->Database {:uri uri}))

(defn create-system []
  (component/system-map
    :db (new-database "postgresql://localhost:5432/mydb")))

(comment
  (def system (create-system))
  (def started-system (component/start system))
  (def stopped-system (component/stop started-system))
)

(ns tutorial.spec-examples
  (:require [clojure.spec.alpha :as s]
            [clojure.spec.gen.alpha :as gen]))

(s/def ::age (s/and int? #(>= % 0) #(<= % 150)))
(s/def ::name string?)
(s/def ::person (s/keys :req [::name ::age]
                       :opt [::address]))

(comment
  ;; Validation examples
  (s/valid? ::person {::name "John" ::age 30})
  
  ;; Generation examples
  (gen/generate (s/gen ::person))
  
  ;; Explain examples
  (s/explain ::person {::name "John" ::age -5})
)

(ns tutorial.exercises.web-scraper
  (:require [clojure.core.async :refer [chan go >! <! <!! timeout close!]]))

;; TODO: Implement a concurrent web scraper
;; 1. Create channels for URLs and results
;; 2. Implement worker processes using go blocks
;; 3. Add error handling
;; 4. Implement rate limiting

(ns tutorial.exercises.data-pipeline)

;; TODO: Implement a data processing pipeline using transducers
;; 1. Define data transformation steps
;; 2. Compose transducers
;; 3. Add error handling and validation
;; 4. Implement batching and throttling

;; Clojure 1.12 — method values and add-lib
(ns examples.clj12)

;; Method value: String/toUpperCase as a plain function
(def upper String/toUpperCase)
(map upper ["hello" "clojure" "1.12"])
;; => ("HELLO" "CLOJURE" "1.12")

;; Add a dependency to a running REPL (no restart)
;; (require '[clojure.repl.deps :as deps])
;; (deps/add-lib 'com.github.seancorfield/next.jdbc {:mvn/version "1.3.939"})

;; Array coercion with new syntax
(let [arr (long/1 5)]           ; long[] of length 5
  (aset arr 0 42)
  (aget arr 0))
;; => 42

;; squint — ClojureScript-like syntax compiling to plain ES modules
;; run with: npx squint compile squint_demo.cljs

(defn greet [name]
  (str "Hello, " name "!"))

(println (greet "squint"))

;; bb tasks — invoke via: bb test, bb lint, bb format
(ns bb.tasks
  (:require [babashka.process :refer [shell]]))

(defn run-tests []
  (shell "clojure -M:test"))

(defn run-lint []
  (shell "clj-kondo --lint src test"))

(defn format-all []
  (shell "cljfmt fix src test"))

// Clojure ecosystem 2026 — runtime families and their relationships
digraph clojure_ecosystem {
    rankdir=LR;
    graph [bgcolor="white", fontname="Helvetica", fontsize=11,
           pad="0.4", nodesep="0.35", ranksep="0.6"];
    node  [shape=box, style="rounded,filled", fontname="Helvetica",
           fontsize=10, fillcolor="#f5f5f5", color="#888"];
    edge  [color="#aaa"];

    // Host runtimes
    jvm      [label="JVM (HotSpot / OpenJ9)", fillcolor="#ddeeff", color="#336"];
    node_js  [label="Node / Deno / Bun", fillcolor="#ddeeff", color="#336"];
    native   [label="Native Binary", fillcolor="#ddeeff", color="#336"];
    browser  [label="Browser (ES Module)", fillcolor="#ddeeff", color="#336"];

    // Clojure runtimes
    clojure  [label="Clojure 1.12 / 1.13", fillcolor="#e8f5e9", color="#2e7d32"];
    cljs     [label="ClojureScript\n(shadow-cljs)", fillcolor="#e8f5e9", color="#2e7d32"];
    cherry   [label="cherry", fillcolor="#fff9c4", color="#f57f17"];
    squint   [label="squint", fillcolor="#fff9c4", color="#f57f17"];
    bb       [label="Babashka", fillcolor="#fce4ec", color="#880e4f"];
    graal    [label="GraalVM native-image", fillcolor="#f3e5f5", color="#4a148c"];

    // Libraries / tooling
    datomic  [label="Datomic (OSS, 2023)", fillcolor="#e0f2f1", color="#00695c"];
    malli    [label="Malli / spec 2", fillcolor="#e0f2f1", color="#00695c"];
    mcp      [label="MCP tools\n(bb / Clojure)", fillcolor="#e0f2f1", color="#00695c"];

    // Runtime relationships
    clojure -> jvm      [label="runs on"];
    cljs    -> node_js  [label="targets"];
    cljs    -> browser  [label="targets"];
    cherry  -> browser  [label="ES module"];
    squint  -> browser  [label="ES module"];
    squint  -> node_js  [label="ES module"];
    bb      -> graal    [label="compiled via"];
    graal   -> native   [label="produces"];
    clojure -> graal    [label="AOT via"];

    // Library relationships
    clojure -> datomic  [label="peer lib"];
    clojure -> malli    [label="uses"];
    bb      -> mcp      [label="hosts"];
    clojure -> mcp      [label="hosts"];
}