   ; (js/setTimeout #(animate-to-position ex1-pos3) (round 4))
   ; (js/setTimeout #(animate-to-position ex1-pos2) (round 5))
   ; (js/setTimeout #(animate-to-position ex1-pos1) (round 6))
-
-
-  (set-position-instant! ex2-pos1)
-
-
   )
 
 (defn init!
   "Initialize the threading macro page."
   []
-  ;(set-html! "threadingMacroBody" (ex1-html))
-  (set-html! "threadingMacroBody" (ex2-html))
+  (set-html! "threadingMacroBody" (ex1-html))
+  ;(set-html! "threadingMacroBody" (ex2-html))
   (animate!)
   )
  :symbolD [12 1]
  :closeParen2 [13 1]

  :openParen3 [3 2]
  :symbolX [4 2]
  :symbolY [6 2]
  :symbolZ [8 2]
  :closeParen3 [9 2]

  :closeParen1 [10 2]})

(def ex1-pos4 {
  :openParen1 [1 1]

  :arrow1 [2 1]
  :arrow2 [3 1]

  :openParen3 [3 2]
  :symbolX [4 2]
  :openParen2 [6 2]
  :symbolB [7 2]
  :symbolA [9 2]
  :symbolC [11 2]
  :symbolD [13 2]
  :closeParen2 [14 2]
  :symbolY [16 2]
  :symbolZ [18 2]
  :closeParen3 [19 2]

  :closeParen1 [20 2]})

(def ex1-pos5 {
  :openParen1 nil

  :arrow1 nil
  :arrow2 nil

  :openParen3 [3 2]
  :symbolX [4 2]
  :openParen2 [6 2]
  :symbolB [7 2]
  :symbolA [9 2]
  :symbolC [11 2]
  :symbolD [13 2]
  :closeParen2 [14 2]
  :symbolY [16 2]
  :symbolZ [18 2]
  :closeParen3 [19 2]

  :closeParen1 nil})

(def ex1-pos6 {
  :openParen1 nil
  :arrow1 nil
  :arrow2 nil

;;------------------------------------------------------------------------------

(hiccups/defhtml ex1-html []
  [:div#line1.line-num (grid -1 1) "1"]
  [:div#line2.line-num (grid -1 2) "2"]
  [:div#line3.line-num (grid -1 3) "3"]

  [:div#openParen1 "("]

