<?xml version="1.0"?>
<paste-with-annotations>
  <paste>
    <number>
      <integer>82973</integer>
    </number>
    <user>
      <string>Lau_of_DK</string>
    </user>
    <title>
      <string>Macro this!</string>
    </title>
    <contents>
      <string>user&gt; (defn foo [x bar] (.replaceFirst x &quot;%foo%&quot; bar))
#'user/foo
user&gt; (-&gt; &quot;hi %foo%, welcome to %foo%&quot;
          (foo &quot;mister&quot;)
          (foo &quot;#clojure&quot;))
&quot;hi mister, welcome to #clojure&quot;
user&gt; (macroexpand '(macfoo &quot;mister&quot; &quot;#clojure&quot;)
(-&gt; &quot;hi %foo%, welcome to %foo%&quot; (foo &quot;mister&quot;) (foo &quot;#clojure&quot;))


Question: What should macfoo look like?</string>
    </contents>
    <universal-time>
      <integer>3455639377</integer>
    </universal-time>
    <channel>
      <string>#clojure</string>
    </channel>
    <colorization-mode>
      <string>Emacs Lisp</string>
    </colorization-mode>
    <maybe-spam>
      <null/>
    </maybe-spam>
    <is-unicode>
      <keyword>TRUE</keyword>
    </is-unicode>
    <deletion-requested>
      <null/>
    </deletion-requested>
    <deletion-requested-email>
      <null/>
    </deletion-requested-email>
    <expiration-time>
      <null/>
    </expiration-time>
  </paste>
  <annotation>
    <number>
      <integer>1</integer>
    </number>
    <user>
      <string>Chouser</string>
    </user>
    <title>
      <string>Macroed</string>
    </title>
    <contents>
      <string>(defmacro macfoo 
    [string &amp; subs] 
   `(-&gt; ~string ~@(for [sub subs] `(foo ~sub))))

user&gt; (macfoo &quot;hi %foo% %foo%&quot; &quot;foo&quot; &quot;bar&quot;)
&quot;hi foo bar&quot;</string>
    </contents>
    <universal-time>
      <integer>3455640183</integer>
    </universal-time>
    <channel>
      <string>#clojure</string>
    </channel>
    <colorization-mode>
      <string></string>
    </colorization-mode>
    <maybe-spam>
      <null/>
    </maybe-spam>
    <is-unicode>
      <keyword>TRUE</keyword>
    </is-unicode>
    <deletion-requested>
      <null/>
    </deletion-requested>
    <deletion-requested-email>
      <null/>
    </deletion-requested-email>
    <expiration-time>
      <null/>
    </expiration-time>
  </annotation>
</paste-with-annotations>
