(ns sketches.generative-artistry.core
  (:require [sketches.components :refer [cards-container exercise-card section]]
            [sketches.generative-artistry.circle-packing :as cp]
            [sketches.generative-artistry.cubic-disarray :as cd]
            [sketches.generative-artistry.hypnotic-squares :as hs]
            [sketches.generative-artistry.joy-division :as jd]
            [sketches.generative-artistry.piet-mondarin :as pm]
            [sketches.generative-artistry.tiled-lines :as tl]
            [sketches.generative-artistry.triangular-mesh :as tm]
            [sketches.generative-artistry.un-deux-trois :as un]))

(defn main []
  [:<>
   [section
    "Generative Artistry"
    [:<>
     "Tutorials of "
     [:a.pointer.bb.link.white {:href "?"} "Tim Holman's"] " "
     [:a.pointer.bb.link.white {:href "/"} "Generative Artistry"]
     " implemented in ClojureScript."]]
   [cards-container
    [:<>
     [exercise-card "01" "Tiled Lines" "-lines/" tl/run]
     [exercise-card "02" "Joy Division" "-division/" jd/run]
     [exercise-card "03" "Cubic Disarray" "-disarray/" cd/run]
     [exercise-card "04" "Triangular Mesh" "-mesh/" tm/run]
     [exercise-card "05" "Un Deux Trois" "-deux-trois/" un/run]
     [exercise-card "06" "Circle Packing" "-packing/" cp/run]
     [exercise-card "07" "Hypnotic Squares" "-squares/" hs/run]
     [exercise-card "08" "Piet Mondrian" "-mondrian/" pm/run]]]])




(ns sketches.generative-artistry.core
  (:require [sketches.components :refer [cards-container exercise-card section]]
            [sketches.generative-artistry.circle-packing :as cp]
            [sketches.generative-artistry.cubic-disarray :as cd]
            [sketches.generative-artistry.hypnotic-squares :as hs]
            [sketches.generative-artistry.joy-division :as jd]
            [sketches.generative-artistry.piet-mondarin :as pm]
            [sketches.generative-artistry.tiled-lines :as tl]
            [sketches.generative-artistry.triangular-mesh :as tm]
            [sketches.generative-artistry.un-deux-trois :as un]))

(defn main []
  [:<>
   [section
    "Generative Artistry"
    [:<>
     "Tutorials of "
     [:a.pointer.bb.link.white {:href "?"} "Tim Holman's"] " "
     [:a.pointer.bb.link.white {:href "/"} "Generative Artistry"]
     " implemented in ClojureScript."]]
   [cards-container
    [:<>
     [exercise-card "01" "Tiled Lines" "-lines/" tl/run]
     [exercise-card "02" "Joy Division" "-division/" jd/run]
     [exercise-card "03" "Cubic Disarray" "-disarray/" cd/run]
     [exercise-card "04" "Triangular Mesh" "-mesh/" tm/run]
     [exercise-card "05" "Un Deux Trois" "-deux-trois/" un/run]
     [exercise-card "06" "Circle Packing" "-packing/" cp/run]
     [exercise-card "07" "Hypnotic Squares" "-squares/" hs/run]
     [exercise-card "08" "Piet Mondrian" "-mondrian/" pm/run]]]])



