Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_1.clj @ 605:54644b08da1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rendered final video.
author Robert McIntyre <rlm@mit.edu>
date Sun, 02 Sep 2012 14:28:53 -0500
parents c8cda378e1a0
children
comparison
equal deleted inserted replaced
604:c8cda378e1a0 605:54644b08da1a
732 (= target-pattern actual-pattern))) 732 (= target-pattern actual-pattern)))
733 733
734 (defn-memo go-to-mansion-for-the-lulz 734 (defn-memo go-to-mansion-for-the-lulz
735 ([] (go-to-mansion-for-the-lulz (hacking-13))) 735 ([] (go-to-mansion-for-the-lulz (hacking-13)))
736 ([script] 736 ([script]
737 (let [lulz-delay 50] 737 (let [lulz-delay 70]
738 (->> script 738 (->> script
739 close-menu 739 close-menu
740 close-menu 740 close-menu
741 close-celadon-computer-menu 741 close-celadon-computer-menu
742 (walk [← ← ← ← ← ← ← ← ← ↓ ↓ ↓ ↓]) 742 (walk [← ← ← ← ← ← ← ← ← ↓ ↓ ↓ ↓])
748 (talk) 748 (talk)
749 (do-nothing lulz-delay) 749 (do-nothing lulz-delay)
750 (play-moves [[:a]]) 750 (play-moves [[:a]])
751 (do-nothing lulz-delay) 751 (do-nothing lulz-delay)
752 (play-moves [[:a]]) 752 (play-moves [[:a]])
753 (do-nothing lulz-delay)
753 close-menu)))) 754 close-menu))))
754 755
755 (defn-memo launch-bootstrap-program 756 (defn-memo launch-bootstrap-program
756 ([] (launch-bootstrap-program 757 ([] (launch-bootstrap-program
757 (go-to-mansion-for-the-lulz))) 758 (go-to-mansion-for-the-lulz)))