Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_1.clj @ 364:958a333f16e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
more progress.
author Robert McIntyre <rlm@mit.edu>
date Mon, 09 Apr 2012 11:03:33 -0500
parents 79252378fd22
children dc39dfcad61f
comparison
equal deleted inserted replaced
363:79252378fd22 364:958a333f16e2
616 (defn open-held-items 616 (defn open-held-items
617 [script] 617 [script]
618 (->> script 618 (->> script
619 select-menu-entry)) 619 select-menu-entry))
620 620
621 (defn to-held-items
622 [script]
623 (->> script
624 close-menu
625 close-menu
626 end-text;;; grr
627
628 activate-start-menu
629 open-held-items))
630
621 (defn-memo hacking-2 631 (defn-memo hacking-2
622 ([] (hacking-2 (begin-hacking))) 632 ([] (hacking-2 (begin-hacking)))
623 ([script] 633 ([script]
624 (->> script 634 (->> script
625 close-menu 635 (to-held-items)
626 close-menu
627 end-text;;; grr
628
629 activate-start-menu
630 open-held-items
631 (toss-held-item 0 166) ;; discard cruft 636 (toss-held-item 0 166) ;; discard cruft
632 close-menu 637 close-menu
633 close-menu))) 638 close-menu)))
634 639
635 (defn-memo hacking-3 640 (defn-memo hacking-3
641 (widthdraw-pc-item 0 99) 646 (widthdraw-pc-item 0 99)
642 (widthdraw-pc-item 0 1) 647 (widthdraw-pc-item 0 1)
643 (widthdraw-pc-item 2 0xFE) 648 (widthdraw-pc-item 2 0xFE)
644 (widthdraw-pc-item 3 0xFE)))) 649 (widthdraw-pc-item 3 0xFE))))
645 650
646 651 (defn-memo hacking-4
647 652 ([] (hacking-4 (hacking-3)))
653 ([script]
654 (->> script
655 close-menu
656 begin-deposit
657 (deposit-held-item 19 243)
658 (deposit-held-item-named :lemonade 16)
659 (deposit-held-item 18 224))))
660
661 (defn-memo hacking-5
662 "clean out the held-item list again"
663 ([] (hacking-5 (hacking-4)))
664 ([script]
665 (->> script
666 (to-held-items)
667 (toss-held-item 18 30)
668 (toss-held-item 17 1)
669 close-menu
670 close-menu)))
671
672 (defn-memo hacking-6
673 ([] (hacking-6 (hacking-5)))
674 ([script]
675 (->> script
676 activate-rlm-pc
677 begin-withdraw
678 (widthdraw-pc-item 4 0xFE)
679 (widthdraw-pc-item 5 0xFE)
680 (widthdraw-pc-item 6 0xFE))))
681
682 ;; (defn-memo hacking-7
683 ;; ([] (hacking-7 (hacking-6)))
684 ;; ([script]
685 ;; (->> script
686
687