(ns ludumdare36.core
  (:gen-class :main true)
  (:use seesaw.core))

(def story [
           "Of all the most famous living rooms Transned's was the most famous"
           "two"
           "three"
           "four"
           "five"
           "six"
           "seven"
           "eight"
           "nine"
            ])

(def mainWindow (frame :title"Hello"  :content"" :on-close :exit))

(defn draw
  [items & args] (
                  (def mainWidget (vertical-panel :items items) )
                  (config! mainWidget :size [640 :by 480])
                  (config! mainWindow :content mainWidget)
                  (invoke-later(-> mainWindow pack! show!))))

(defn writeStory [text index & args]
  (let [makeButton (fn mb [index text]
                     (button :text text :mnemonic \
 :halign :center :listen [:action (partial writeStory (get story index) (inc index))]))
        makeStoryNode (fn ms [text index]
                        (vector text (makeButton (inc index)"Yes") (makeButton (+ index 2 )"No")))
        ]
    (draw (makeStoryNode text index))))

(defn -main
  [& args]
  (writeStory (get story 0) 0))