I sometimes use here strings for readability when building queries, etc. For example:<br><br><span style="font-family: courier new,monospace;">(let-values (((variables results)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> (get-repository-query-tuple r</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">#<<---</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">select * from {x} sys:repositoryID {y}</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">using namespace</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> sys = <<a href="http://www.openrdf.org/config/repository#">http://www.openrdf.org/config/repository#</a>></span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">---</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> #:query-language 'SERQL)))</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> (printf "Repository ids = ~s~n"</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> (for/list ((bindings (in-list results)))</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> (binding-string (bindings-ref bindings 'y)))))</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;">But I haven't found a good way to document this (as Racket code) in Scribble. Everything I've tried renders like:<br><br><table class="RktBlk" cellspacing="0"><tbody><tr style="font-family: courier new,monospace;">
<td><font size="2"><span class="RktPlain"><span class="hspace"> </span></span><span class="RktPn">(</span><span class="RktSym"><a class="RktStxLink">let-values</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktPn">(</span><span class="RktPn">(</span><span class="RktSym">variables</span><span class="hspace"> </span><span class="RktSym">results</span><span class="RktPn">)</span></font></td>
</tr><tr style="font-family: courier new,monospace;"><td><font size="2"><span class="RktPlain"><span class="hspace"> </span></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink">get-repository-query-tuple</a></span></font></td>
</tr><tr style="font-family: courier new,monospace;"><td><font size="2"><span class="RktPlain"><span class="hspace"> </span></span><span class="hspace"> </span><span class="RktSym">r</span></font></td></tr>
<tr style="font-family: courier new,monospace;"><td><font size="2"><span class="RktPlain"><span class="hspace"> </span></span><span class="RktVal">"select * from {x} sys:repositoryID {y}\r\nusing namespace\r\n</span><span class="hspace"> </span><span class="RktVal">sys = <<a href="http://www.openrdf.org/config/repository#">http://www.openrdf.org/config/repository#</a>>\r"</span></font></td>
</tr><tr style="font-family: courier new,monospace;"><td><font size="2"><span class="RktPlain"><span class="hspace"> </span></span></font></td></tr><tr style="font-family: courier new,monospace;"><td><font size="2"><span class="RktPlain"><span class="hspace"> </span></span></font></td>
</tr><tr style="font-family: courier new,monospace;"><td><font size="2"><span class="RktPlain"><span class="hspace"> </span></span></font></td></tr><tr style="font-family: courier new,monospace;"><td><font size="2"><span class="RktPlain"><span class="hspace"> </span></span></font></td>
</tr><tr style="font-family: courier new,monospace;"><td><font size="2"><span class="RktPlain"><span class="hspace"> </span></span><span class="hspace"> </span><span class="RktPn">#:query-language</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">SERQL</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span></font></td>
</tr><tr style="font-family: courier new,monospace;"><td><font size="2"><span class="RktPlain"><span class="hspace"> </span></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink">printf</a></span><span class="hspace"> </span><span class="RktVal">"Repository ids = ~s~n"</span></font></td>
</tr><tr style="font-family: courier new,monospace;"><td><font size="2"><span class="RktPlain"><span class="hspace"> </span></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a class="RktStxLink">for/list</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktPn">(</span><span class="RktSym">bindings</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink">in-list</a></span><span class="hspace"> </span><span class="RktSym">results</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span></font></td>
</tr><tr style="font-family: courier new,monospace;"><td><font size="2"><span class="RktPlain"><span class="hspace"> </span></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink">binding-string</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink">bindings-ref</a></span><span class="hspace"> </span><span class="RktSym">bindings</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">y</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span></font></td>
</tr><tr style="font-family: courier new,monospace;"><td><font size="2"><span class="RktPlain"><span class="hspace"></span></span><br></font></td></tr></tbody></table><br>That is, the here string has been rendered as a normal string with lots of whitespace after.<br>
<br>Any ideas?<br><br>Doug<br>