Mercurial > vba-clojure

comparison clojure/com/aurellem/run/title.clj @ 335:abd1ca8a25cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed major bug with first-difference which was causing de-sync.
author Robert McIntyre <rlm@mit.edu>
date Sat, 07 Apr 2012 05:42:26 -0500
parents a452deec2882
children
comparison
equal deleted inserted replaced
334:57f4c57d2897 335:abd1ca8a25cc
11 (first-difference [] [:a] AF) 11 (first-difference [] [:a] AF)
12 (first-difference [] [:start] AF) 12 (first-difference [] [:start] AF)
13 (first-difference [] [:a] AF) 13 (first-difference [] [:a] AF)
14 (first-difference [] [:start] AF)))) 14 (first-difference [] [:start] AF))))
15 15
16 (defn oak 16 (defn-memo oak
17 ([] (oak (title))) 17 ([] (oak (title)))
18 ([script] 18 ([script]
19 (->> script 19 (->> script
20 (scroll-text 13)))) 20 (scroll-text 13))))
21 21
75 75
76 (defn intro [] 76 (defn intro []
77 [(read-moves "title-checkpoint") 77 [(read-moves "title-checkpoint")
78 (read-state "title-checkpoint")]) 78 (read-state "title-checkpoint")])
79 79
80 (defn test-intro [] 80 ;;(defn test-intro []
81 (play-vbm (moves-filename "title-checkpoint"))) 81 ;; (play-vbm (moves-filename "title-checkpoint")))
82 82
83 ;; TODO might be able to glue these together more elegantly with monads 83 ;; TODO might be able to glue these together more elegantly with monads
84 84