1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/rlm/quick.clj	Tue Oct 18 00:57:08 2011 -0700
     1.3 @@ -0,0 +1,61 @@
     1.4 +(ns rlm.quick
     1.5 +    "quick and dirty convienence script to load EVERYTHING!
     1.6 +    This is designed to work with clojure 1.2"
     1.7 +    {:author "Robert McIntyre"}
     1.8 +    (:require (clojure.core.javadoc))
     1.9 +
    1.10 +    )
    1.11 +
    1.12 +(defn whatev [] (println 5))
    1.13 +
    1.14 +(defn dirty []
    1.15 +  
    1.16 +  (use
    1.17 +   :reload-all
    1.18 +
    1.19 +   '[clojure.java
    1.20 +     [javadoc :only [javadoc add-local-javadoc]]]
    1.21 +
    1.22 +   '[clojure
    1.23 +     [repl :only [source]]]
    1.24 +   
    1.25 +   '[rlm
    1.26 +     [function-utils :only [mix defmix runonce]]
    1.27 +     [rlm-commands :only [undef  ns-nuke reload]]
    1.28 +     [play-all :only [play-all-music]]
    1.29 +     [shell-inspect :only [command-line?]]
    1.30 +     [shell-write :only [sw]]
    1.31 +     [classpath-utils :only [classpath add-to-classpath]]
    1.32 +     [dreams :only [megadef defn-decorated silence]]
    1.33 +     [map-utils :only [map-keys map-vals filter-keys filter-vals]]
    1.34 +     [decorators :only [preserve-meta]]]
    1.35 +
    1.36 +   '[matchure :only [fn-match defn-match if-match when-match cond-match]]
    1.37 +  
    1.38 +   '[clojure.contrib
    1.39 +     [combinatorics :only [cartesian-product subsets selections
    1.40 +			   permutations lex-permutations combinations]]
    1.41 +     [duck-streams :only [file-str]]
    1.42 +     [str-utils :only [re-split re-gsub str-join]]
    1.43 +     [seq :only [separate indexed rotations find-first positions]]
    1.44 +     [math :only [expt round abs gcd lcm floor ceil sqrt]]
    1.45 +     [repl-utils :only [show expression-info]]
    1.46 +     [def :only [defvar defmacro-]]])
    1.47 +;  (set! clojure.core/*print-length* 20)  
    1.48 +;  (require 'clojure.java.javadoc)
    1.49 +;  (clojure.java.javadoc/add-local-javadoc "/home/r/mobius/temp-clj/javadoc")
    1.50 +  nil
    1.51 +  )
    1.52 +
    1.53 +(defn init []
    1.54 +  (use :reload-all
    1.55 +       '[clojure
    1.56 +	 core
    1.57 +	 ]))
    1.58 +
    1.59 +
    1.60 +
    1.61 +
    1.62 +
    1.63 +
    1.64 +