HTML code for sharing source code

HTML Copy To Clipboarddone!

<div class="highlight" style="background: #f8f8f8"><pre style="line-height: 125%"><div id="lc1"><span style="border: 1px solid #FF0000">#</span><span style="color: #19177C">!/usr/bin/sbcl</span> <span style="color: #19177C">--script</span>
</div><div id="lc2">
</div><div id="lc3"><span style="color: #408080; font-style: italic">; ~/.bin/geo-send</span>
</div><div id="lc4">
</div><div id="lc5"><span style="color: #408080; font-style: italic">; TODO: Greasemonkey-скрипт, добавляющий к интерфейсу Google Maps кнопочку «ололо фжуйку»,</span>
</div><div id="lc6"><span style="color: #408080; font-style: italic">; по нажатию которой будет вызываться(?!) сей скрипт</span>
</div><div id="lc7">
</div><div id="lc8">(<span style="color: #008000; font-weight: bold">if</span>
</div><div id="lc9">	(<span style="color: #008000">/=</span> (<span style="color: #008000">length</span> <span style="color: #19177C">*posix-argv*</span>) <span style="color: #666666">3</span>)
</div><div id="lc10">	(<span style="color: #008000">format</span> <span style="color: #880000">t</span> <span style="color: #BA2121">&quot;Usage: geo-send lat lon~%&quot;</span>)
</div><div id="lc11">	(<span style="color: #008000">with-open-file</span>
</div><div id="lc12">		<span style="color: #408080; font-style: italic">; FIXME: Отступы покрасивее</span>
</div><div id="lc13">		<span style="color: #408080; font-style: italic">; Да, здесь можно было сделать (concatenate), но так короче</span>
</div><div id="lc14">		(<span style="color: #19177C">fifo</span> (<span style="color: #008000">format</span> <span style="color: #880000">nil</span> <span style="color: #BA2121">&quot;~a/~a&quot;</span> 
</div><div id="lc15">				(<span style="color: #008000">user-homedir-pathname</span>)
</div><div id="lc16">				<span style="color: #BA2121">&quot;.mcabber/mcabber.fifo&quot;</span>)
</div><div id="lc17">			<span style="color: #19177C">:direction</span> <span style="color: #19177C">:output</span>
</div><div id="lc18">			<span style="color: #19177C">:if-exists</span> <span style="color: #19177C">:append</span>
</div><div id="lc19">			<span style="color: #19177C">:if-does-not-exist</span> <span style="color: #880000">nil</span>)
</div><div id="lc20">		(<span style="color: #008000; font-weight: bold">if</span> <span style="color: #19177C">fifo</span>
</div><div id="lc21">			<span style="color: #408080; font-style: italic">; TODO: фейс-контроль списка аргументов.</span>
</div><div id="lc22">			<span style="color: #408080; font-style: italic">; Скажем решительное «нет» &#39;geo-send пыщь-пыщь стопицот /dev/null&#39;!</span>
</div><div id="lc23">			(<span style="color: #008000">apply</span> <span style="color: #0000FF">#&#39;</span><span style="color: #008000">format</span>
</div><div id="lc24">				<span style="color: #19177C">fifo</span>
</div><div id="lc25">				(<span style="color: #008000">concatenate</span> <span style="color: #19177C">&#39;string</span>
</div><div id="lc26">					<span style="color: #BA2121">&quot;/rawxml send &quot;</span>
</div><div id="lc27">					<span style="color: #BA2121">&quot;&lt;message to=&#39;juick@juick.com&#39;&gt;&quot;</span>
</div><div id="lc28">					<span style="color: #BA2121">&quot;&lt;event xmlns=&#39;http://jabber.org/protocol/pubsub#event&#39;&gt;&quot;</span>
</div><div id="lc29">					<span style="color: #BA2121">&quot;&lt;items node=&#39;http://jabber.org/protocol/geoloc&#39;&gt;&quot;</span>
</div><div id="lc30">					<span style="color: #BA2121">&quot;&lt;item id=&#39;00000000-0000-0000-0000-000000000000&#39;&gt;&quot;</span>
</div><div id="lc31">					<span style="color: #BA2121">&quot;&lt;geoloc xmlns=&#39;http://jabber.org/protocol/geoloc&#39; xml:lang=&#39;en&#39;&gt;&quot;</span>
</div><div id="lc32">					<span style="color: #BA2121">&quot;&lt;lat&gt;~a&lt;/lat&gt;&lt;lon&gt;~a&lt;/lon&gt;&quot;</span>
</div><div id="lc33">					<span style="color: #BA2121">&quot;&lt;/geoloc&gt;&lt;/item&gt;&lt;/items&gt;&lt;/event&gt;&lt;/message&gt;&quot;</span>)
</div><div id="lc34">				(<span style="color: #008000">cdr</span> <span style="color: #19177C">*posix-argv*</span>))
</div><div id="lc35">			(<span style="color: #008000">format</span> <span style="color: #880000">t</span> <span style="color: #BA2121">&quot;mcabber isn&#39;t running or FIFO support is disabled.~%&quot;</span>))))
</div></pre></div>
<p style="padding: 0; margin: 2em 0 1em 0; font-size: 0.8em; color: #666;"><span style="padding: 0 1em; background-color: #f5f5f5;"> Colored with <a style="color: #333" href="http://dumpz.org">dumpz.org</a></span></p>

BBCODE Copy To Clipboarddone!

#[color=#19177C]!/usr/bin/sbcl[/color] [color=#19177C]--script[/color]

[color=#408080][i]; ~/.bin/geo-send[/i][/color]

[color=#408080][i]; TODO: Greasemonkey-скрипт, добавляющий к интерфейсу Google Maps кнопочку «ололо фжуйку»,[/i][/color]
[color=#408080][i]; по нажатию которой будет вызываться(?!) сей скрипт[/i][/color]

([color=#008000][b]if[/b][/color]
	([color=#008000]/=[/color] ([color=#008000]length[/color] [color=#19177C]*posix-argv*[/color]) [color=#666666]3[/color])
	([color=#008000]format[/color] [color=#880000]t[/color] [color=#BA2121]"Usage: geo-send lat lon~%"[/color])
	([color=#008000]with-open-file[/color]
		[color=#408080][i]; FIXME: Отступы покрасивее[/i][/color]
		[color=#408080][i]; Да, здесь можно было сделать (concatenate), но так короче[/i][/color]
		([color=#19177C]fifo[/color] ([color=#008000]format[/color] [color=#880000]nil[/color] [color=#BA2121]"~a/~a"[/color] 
				([color=#008000]user-homedir-pathname[/color])
				[color=#BA2121]".mcabber/mcabber.fifo"[/color])
			[color=#19177C]:direction[/color] [color=#19177C]:output[/color]
			[color=#19177C]:if-exists[/color] [color=#19177C]:append[/color]
			[color=#19177C]:if-does-not-exist[/color] [color=#880000]nil[/color])
		([color=#008000][b]if[/b][/color] [color=#19177C]fifo[/color]
			[color=#408080][i]; TODO: фейс-контроль списка аргументов.[/i][/color]
			[color=#408080][i]; Скажем решительное «нет» 'geo-send пыщь-пыщь стопицот /dev/null'![/i][/color]
			([color=#008000]apply[/color] [color=#0000FF]#'[/color][color=#008000]format[/color]
				[color=#19177C]fifo[/color]
				([color=#008000]concatenate[/color] [color=#19177C]'string[/color]
					[color=#BA2121]"/rawxml send "[/color]
					[color=#BA2121]"<message to='juick@juick.com'>"[/color]
					[color=#BA2121]"<event xmlns='http://jabber.org/protocol/pubsub#event'>"[/color]
					[color=#BA2121]"<items node='http://jabber.org/protocol/geoloc'>"[/color]
					[color=#BA2121]"<item id='00000000-0000-0000-0000-000000000000'>"[/color]
					[color=#BA2121]"<geoloc xmlns='http://jabber.org/protocol/geoloc' xml:lang='en'>"[/color]
					[color=#BA2121]"<lat>~a</lat><lon>~a</lon>"[/color]
					[color=#BA2121]"</geoloc></item></items></event></message>"[/color])
				([color=#008000]cdr[/color] [color=#19177C]*posix-argv*[/color]))
			([color=#008000]format[/color] [color=#880000]t[/color] [color=#BA2121]"mcabber isn't running or FIFO support is disabled.~%"[/color]))))

--------------------------------------
Colored with http://dumpz.org

Light HTML Copy To Clipboarddone!

That method generates HTML with CSS classes. Hence you'll need the style sheet file

<div class="highlight"><pre><div id="lc1"><span class="err">#</span><span class="nv">!/usr/bin/sbcl</span> <span class="nv">--script</span>
</div><div id="lc2">
</div><div id="lc3"><span class="c1">; ~/.bin/geo-send</span>
</div><div id="lc4">
</div><div id="lc5"><span class="c1">; TODO: Greasemonkey-скрипт, добавляющий к интерфейсу Google Maps кнопочку «ололо фжуйку»,</span>
</div><div id="lc6"><span class="c1">; по нажатию которой будет вызываться(?!) сей скрипт</span>
</div><div id="lc7">
</div><div id="lc8"><span class="p">(</span><span class="k">if</span>
</div><div id="lc9">	<span class="p">(</span><span class="nb">/=</span> <span class="p">(</span><span class="nb">length</span> <span class="vg">*posix-argv*</span><span class="p">)</span> <span class="mi">3</span><span class="p">)</span>
</div><div id="lc10">	<span class="p">(</span><span class="nb">format</span> <span class="no">t</span> <span class="s">&quot;Usage: geo-send lat lon~%&quot;</span><span class="p">)</span>
</div><div id="lc11">	<span class="p">(</span><span class="nb">with-open-file</span>
</div><div id="lc12">		<span class="c1">; FIXME: Отступы покрасивее</span>
</div><div id="lc13">		<span class="c1">; Да, здесь можно было сделать (concatenate), но так короче</span>
</div><div id="lc14">		<span class="p">(</span><span class="nv">fifo</span> <span class="p">(</span><span class="nb">format</span> <span class="no">nil</span> <span class="s">&quot;~a/~a&quot;</span> 
</div><div id="lc15">				<span class="p">(</span><span class="nb">user-homedir-pathname</span><span class="p">)</span>
</div><div id="lc16">				<span class="s">&quot;.mcabber/mcabber.fifo&quot;</span><span class="p">)</span>
</div><div id="lc17">			<span class="ss">:direction</span> <span class="ss">:output</span>
</div><div id="lc18">			<span class="ss">:if-exists</span> <span class="ss">:append</span>
</div><div id="lc19">			<span class="ss">:if-does-not-exist</span> <span class="no">nil</span><span class="p">)</span>
</div><div id="lc20">		<span class="p">(</span><span class="k">if</span> <span class="nv">fifo</span>
</div><div id="lc21">			<span class="c1">; TODO: фейс-контроль списка аргументов.</span>
</div><div id="lc22">			<span class="c1">; Скажем решительное «нет» &#39;geo-send пыщь-пыщь стопицот /dev/null&#39;!</span>
</div><div id="lc23">			<span class="p">(</span><span class="nb">apply</span> <span class="nf">#&#39;</span><span class="nb">format</span>
</div><div id="lc24">				<span class="nv">fifo</span>
</div><div id="lc25">				<span class="p">(</span><span class="nb">concatenate</span> <span class="ss">&#39;string</span>
</div><div id="lc26">					<span class="s">&quot;/rawxml send &quot;</span>
</div><div id="lc27">					<span class="s">&quot;&lt;message to=&#39;juick@juick.com&#39;&gt;&quot;</span>
</div><div id="lc28">					<span class="s">&quot;&lt;event xmlns=&#39;http://jabber.org/protocol/pubsub#event&#39;&gt;&quot;</span>
</div><div id="lc29">					<span class="s">&quot;&lt;items node=&#39;http://jabber.org/protocol/geoloc&#39;&gt;&quot;</span>
</div><div id="lc30">					<span class="s">&quot;&lt;item id=&#39;00000000-0000-0000-0000-000000000000&#39;&gt;&quot;</span>
</div><div id="lc31">					<span class="s">&quot;&lt;geoloc xmlns=&#39;http://jabber.org/protocol/geoloc&#39; xml:lang=&#39;en&#39;&gt;&quot;</span>
</div><div id="lc32">					<span class="s">&quot;&lt;lat&gt;~a&lt;/lat&gt;&lt;lon&gt;~a&lt;/lon&gt;&quot;</span>
</div><div id="lc33">					<span class="s">&quot;&lt;/geoloc&gt;&lt;/item&gt;&lt;/items&gt;&lt;/event&gt;&lt;/message&gt;&quot;</span><span class="p">)</span>
</div><div id="lc34">				<span class="p">(</span><span class="nb">cdr</span> <span class="vg">*posix-argv*</span><span class="p">))</span>
</div><div id="lc35">			<span class="p">(</span><span class="nb">format</span> <span class="no">t</span> <span class="s">&quot;mcabber isn&#39;t running or FIFO support is disabled.~%&quot;</span><span class="p">))))</span>
</div></pre></div>
<p style="padding: 0; margin: 2em 0 1em 0; font-size: 0.8em; color: #666;"><span style="padding: 0 1em; background-color: #f5f5f5;"> Colored with <a style="color: #333" href="http://dumpz.org">dumpz.org</a></span></p>

Habrahabr.ru HTML Copy To Clipboarddone!

Use that HTML for publications on habrahabr.ru

<blockquote><code>#<font color="#19177C">!/usr/bin/sbcl</font>&nbsp;<font color="#19177C">--script</font>

<font color="#408080"><em>;&nbsp;TODO:&nbsp;Greasemonkey-скрипт,&nbsp;добавляющий&nbsp;к&nbsp;интерфейсу&nbsp;Google&nbsp;Maps&nbsp;кнопочку&nbsp;«ололо&nbsp;фжуйку»,</em></font>
<font color="#408080"><em>;&nbsp;по&nbsp;нажатию&nbsp;которой&nbsp;будет&nbsp;вызываться(?!)&nbsp;сей&nbsp;скрипт</em></font>

(<font color="#008000"><strong>if</strong></font>
&nbsp;&nbsp;&nbsp;&nbsp;(<font color="#008000">/=</font>&nbsp;(<font color="#008000">length</font>&nbsp;<font color="#19177C">*posix-argv*</font>)&nbsp;<font color="#666666">3</font>)
&nbsp;&nbsp;&nbsp;&nbsp;(<font color="#008000">format</font>&nbsp;<font color="#880000">t</font>&nbsp;<font color="#BA2121">&quot;Usage:&nbsp;geo-send&nbsp;lat&nbsp;lon~%&quot;</font>)
&nbsp;&nbsp;&nbsp;&nbsp;(<font color="#008000">with-open-file</font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#408080"><em>;&nbsp;FIXME:&nbsp;Отступы&nbsp;покрасивее</em></font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#408080"><em>;&nbsp;Да,&nbsp;здесь&nbsp;можно&nbsp;было&nbsp;сделать&nbsp;(concatenate),&nbsp;но&nbsp;так&nbsp;короче</em></font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(<font color="#19177C">fifo</font>&nbsp;(<font color="#008000">format</font>&nbsp;<font color="#880000">nil</font>&nbsp;<font color="#BA2121">&quot;~a/~a&quot;</font>&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(<font color="#008000">user-homedir-pathname</font>)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#BA2121">&quot;.mcabber/mcabber.fifo&quot;</font>)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#19177C">:direction</font>&nbsp;<font color="#19177C">:output</font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#19177C">:if-exists</font>&nbsp;<font color="#19177C">:append</font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#19177C">:if-does-not-exist</font>&nbsp;<font color="#880000">nil</font>)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(<font color="#008000"><strong>if</strong></font>&nbsp;<font color="#19177C">fifo</font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#408080"><em>;&nbsp;TODO:&nbsp;фейс-контроль&nbsp;списка&nbsp;аргументов.</em></font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#408080"><em>;&nbsp;Скажем&nbsp;решительное&nbsp;«нет»&nbsp;&#39;geo-send&nbsp;пыщь-пыщь&nbsp;стопицот&nbsp;/dev/null&#39;!</em></font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(<font color="#008000">apply</font>&nbsp;<font color="#0000FF">#&#39;</font><font color="#008000">format</font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#19177C">fifo</font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(<font color="#008000">concatenate</font>&nbsp;<font color="#19177C">&#39;string</font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#BA2121">&quot;/rawxml&nbsp;send&nbsp;&quot;</font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#BA2121">&quot;&lt;message&nbsp;to=&#39;juick@juick.com&#39;&gt;&quot;</font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#BA2121">&quot;&lt;event&nbsp;xmlns=&#39;http://jabber.org/protocol/pubsub#event&#39;&gt;&quot;</font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#BA2121">&quot;&lt;items&nbsp;node=&#39;http://jabber.org/protocol/geoloc&#39;&gt;&quot;</font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#BA2121">&quot;&lt;item&nbsp;id=&#39;00000000-0000-0000-0000-000000000000&#39;&gt;&quot;</font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#BA2121">&quot;&lt;geoloc&nbsp;xmlns=&#39;http://jabber.org/protocol/geoloc&#39;&nbsp;xml:lang=&#39;en&#39;&gt;&quot;</font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#BA2121">&quot;&lt;lat&gt;~a&lt;/lat&gt;&lt;lon&gt;~a&lt;/lon&gt;&quot;</font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#BA2121">&quot;&lt;/geoloc&gt;&lt;/item&gt;&lt;/items&gt;&lt;/event&gt;&lt;/message&gt;&quot;</font>)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(<font color="#008000">cdr</font>&nbsp;<font color="#19177C">*posix-argv*</font>))
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(<font color="#008000">format</font>&nbsp;<font color="#880000">t</font>&nbsp;<font color="#BA2121">&quot;mcabber&nbsp;isn&#39;t&nbsp;running&nbsp;or&nbsp;FIFO&nbsp;support&nbsp;is&nbsp;disabled.~%&quot;</font>))))
</code></blockquote><p><font color="gray">Colored with <a href="http://dumpz.org">dumpz.org</a></p>