So that people can copy and paste the change in basic.clj

(defn- apply-macro-expander [expander string]
  (binding [*print-suppress-namespaces* true]
    (let [astr (with-out-str
 (with-pprint-dispatch *code-dispatch*
   (pprint (expander (read-from-string string)))))]
      (subs astr 0 (dec (count astr))))))

Fantastic.

On Thu, Mar 12, 2009 at 12:53 PM, Tom Faulhaber <tomfaulha...@gmail.com>wrote:

>
> Expanding on David's earlier example of pretty printing, we can set
> the dispatch to *code-dispatch* and bind *print-suppress-namespaces*
> to true and get the following (apologies for google messing up my
> formatting):
>
> (do
>  (defmacro dft2 [tree]
>    (seq (concat (list '=dft2) (list '*cont*) (list tree))))
>   (defn =dft2 [*cont* tree]
>    (reset! *saved* nil)
>     (let [*cont* (fn
>                    [node]
>                   (cond
>                     (= node 'done) (*cont* nil)
>                     :else (do (print node) (restart))))]
>      (=dft-node *cont* tree))))
>
> Which is not always what you want, since it loses the namespace info
> that backquote adds, but for me it's usually what I want because it
> looks like the code I would have written.
>
> A couple of notes for the detail-oriented: You can see the special
> code formats for  defmacro, defn, binding vectors, and cond in
> operation here. You can also see that fn needs special treatment and
> doesn't have it yet. (But it will, real soon now.)
>
> On Mar 12, 9:28 am, Tom Faulhaber <tomfaulha...@gmail.com> wrote:
> > Rich,
> >
> > I would be happy to make it a contribution (it's the least I can do!).
> > I've had a CA sitting on my desk unread and unsigned for about 3
> > weeks. It is now read, signed, and in an envelope. I'll send it off
> > this morning.
> >
> > Everyone,
> >
> > Thanks for the kind words. I'm glad you like it.
> >
> > David's use case in slime/swank was one of the motivators for me
> > writing this. Thanks for showing us how to do the integration, David!
> > I hope we see a lot of other use cases like that.
> >
> > Upcoming is the ability to create custom dispatch tables which will
> > open the door to an even broader set of use cases.
> >
> > On Mar 12, 1:56 am, Rich Hickey <richhic...@gmail.com> wrote:
> >
> > > On Mar 12, 2009, at 3:05 AM, Tom Faulhaber wrote:
> >
> > > > I have now "released" the first version of my pretty printer as part
> > > > of my cl-format library. It is released under the EPL.
> >
> > > > The pretty printer has two functions that you probably care about:
> >
> > > > (pprint obj) will pretty print the given object, and
> > > > (pp) at the REPL will pretty print the last result output, i.e. the
> > > > value in *1.
> >
> > > > The pretty printer currently supports two modes: simple and code.
> > > > Simple mode prints structure in a standard way that's good for data.
> > > > Code mode understands lots of Clojure forms (defn, binding vectors,
> > > > condp, etc.) and attempts to print them in an idiomatic way.
> >
> > > > Cl-format is on github athttp://github.com/tomfaulhaber/cl-format.
> > > > There is a Readme there with instructions, examples, limitations and
> > > > futures. I won't even try to put examples here, because google groups
> > > > wreaks havoc on formatting.
> >
> > > > The simplest way to get some pretty printing happiness:
> > > > 1) Download the jar:
> http://github.com/tomfaulhaber/cl-format/raw/master/release/cl-format...
> > > > 2) Put it in your classpath.
> > > > 3) Fire up your REPL
> > > > 4) (use 'com.infolace.format)
> > > > 5) Use pprint and pp as described above.
> >
> > > > This is definitely a first release and there are sure to be bugs. And
> > > > I know there are things missing. So let me know if you're having
> > > > problems and I'll try to get things fixed up ASAP.
> >
> > > > Enjoy!
> >
> > > > Tom
> >
> > > This looks very useful Tom. Would you consider contributing it to
> > > Clojure?
> >
> > > Rich
> >
>

--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups 
"Clojure" group.
To post to this group, send email to clojure@googlegroups.com
To unsubscribe from this group, send email to 
clojure+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/clojure?hl=en
-~----------~----~----~----~------~----~------~--~---

Reply via email to