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="color: #408080; font-style: italic">;; midnight mode</span>
</div><div id="lc2">(<span style="color: #008000">require</span> <span style="color: #19177C">&#39;midnight</span>)
</div><div id="lc3">
</div><div id="lc4"><span style="color: #408080; font-style: italic">;;kill buffers if they were last disabled more than this seconds ago</span>
</div><div id="lc5">(<span style="color: #008000; font-weight: bold">setq</span> <span style="color: #19177C">clean-buffer-list-delay-special</span> <span style="color: #666666">1800</span>)
</div><div id="lc6">
</div><div id="lc7">(<span style="color: #008000">defvar</span> <span style="color: #19177C">clean-buffer-list-timer</span> <span style="color: #880000">nil</span>
</div><div id="lc8">  <span style="color: #BA2121">&quot;Stores clean-buffer-list timer if there is one. You can disable clean-buffer-list by (cancel-timer clean-buffer-list-timer).&quot;</span>)
</div><div id="lc9">
</div><div id="lc10"><span style="color: #408080; font-style: italic">;; run clean-buffer-list every 2 hours</span>
</div><div id="lc11">(<span style="color: #008000; font-weight: bold">setq</span> <span style="color: #19177C">clean-buffer-list-timer</span> (<span style="color: #19177C">run-at-time</span> <span style="color: #880000">t</span> <span style="color: #666666">3600</span> <span style="color: #19177C">&#39;clean-buffer-list</span>))
</div><div id="lc12">
</div><div id="lc13"><span style="color: #408080; font-style: italic">;; kill everything, clean-buffer-list is very intelligent at not killing</span>
</div><div id="lc14"><span style="color: #408080; font-style: italic">;; unsaved buffer.</span>
</div><div id="lc15">(<span style="color: #008000; font-weight: bold">setq</span> <span style="color: #19177C">clean-buffer-list-kill-regexps</span>
</div><div id="lc16">      <span style="color: #666666">&#39;</span>(<span style="color: #BA2121">&quot;^.*$&quot;</span>))
</div><div id="lc17">
</div><div id="lc18"><span style="color: #408080; font-style: italic">;; keep these buffer untouched</span>
</div><div id="lc19"><span style="color: #408080; font-style: italic">;; prevent append multiple times</span>
</div><div id="lc20">(<span style="color: #008000">defvar</span> <span style="color: #19177C">clean-buffer-list-kill-never-buffer-names-init</span>
</div><div id="lc21">  <span style="color: #19177C">clean-buffer-list-kill-never-buffer-names</span>
</div><div id="lc22">  <span style="color: #BA2121">&quot;Init value for clean-buffer-list-kill-never-buffer-names&quot;</span>)
</div><div id="lc23">(<span style="color: #008000; font-weight: bold">setq</span> <span style="color: #19177C">clean-buffer-list-kill-never-buffer-names</span>
</div><div id="lc24">      (<span style="color: #008000">append</span>
</div><div id="lc25">       <span style="color: #666666">&#39;</span>(<span style="color: #BA2121">&quot;*Messages*&quot;</span> <span style="color: #BA2121">&quot;*scratch*&quot;</span> <span style="color: #BA2121">&quot;*Pymacs*&quot;</span>)
</div><div id="lc26">       <span style="color: #19177C">clean-buffer-list-kill-never-buffer-names-init</span>))
</div><div id="lc27">
</div><div id="lc28"><span style="color: #408080; font-style: italic">;; prevent append multiple times</span>
</div><div id="lc29">(<span style="color: #008000">defvar</span> <span style="color: #19177C">clean-buffer-list-kill-never-regexps-init</span>
</div><div id="lc30">  <span style="color: #19177C">clean-buffer-list-kill-never-regexps</span>
</div><div id="lc31">  <span style="color: #BA2121">&quot;Init value for clean-buffer-list-kill-never-regexps&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=#408080][i];; midnight mode[/i][/color]
([color=#008000]require[/color] [color=#19177C]'midnight[/color])

[color=#408080][i];;kill buffers if they were last disabled more than this seconds ago[/i][/color]
([color=#008000][b]setq[/b][/color] [color=#19177C]clean-buffer-list-delay-special[/color] [color=#666666]1800[/color])

([color=#008000]defvar[/color] [color=#19177C]clean-buffer-list-timer[/color] [color=#880000]nil[/color]
  [color=#BA2121]"Stores clean-buffer-list timer if there is one. You can disable clean-buffer-list by (cancel-timer clean-buffer-list-timer)."[/color])

[color=#408080][i];; run clean-buffer-list every 2 hours[/i][/color]
([color=#008000][b]setq[/b][/color] [color=#19177C]clean-buffer-list-timer[/color] ([color=#19177C]run-at-time[/color] [color=#880000]t[/color] [color=#666666]3600[/color] [color=#19177C]'clean-buffer-list[/color]))

[color=#408080][i];; kill everything, clean-buffer-list is very intelligent at not killing[/i][/color]
[color=#408080][i];; unsaved buffer.[/i][/color]
([color=#008000][b]setq[/b][/color] [color=#19177C]clean-buffer-list-kill-regexps[/color]
      [color=#666666]'[/color]([color=#BA2121]"^.*$"[/color]))

[color=#408080][i];; keep these buffer untouched[/i][/color]
[color=#408080][i];; prevent append multiple times[/i][/color]
([color=#008000]defvar[/color] [color=#19177C]clean-buffer-list-kill-never-buffer-names-init[/color]
  [color=#19177C]clean-buffer-list-kill-never-buffer-names[/color]
  [color=#BA2121]"Init value for clean-buffer-list-kill-never-buffer-names"[/color])
([color=#008000][b]setq[/b][/color] [color=#19177C]clean-buffer-list-kill-never-buffer-names[/color]
      ([color=#008000]append[/color]
       [color=#666666]'[/color]([color=#BA2121]"*Messages*"[/color] [color=#BA2121]"*scratch*"[/color] [color=#BA2121]"*Pymacs*"[/color])
       [color=#19177C]clean-buffer-list-kill-never-buffer-names-init[/color]))

[color=#408080][i];; prevent append multiple times[/i][/color]
([color=#008000]defvar[/color] [color=#19177C]clean-buffer-list-kill-never-regexps-init[/color]
  [color=#19177C]clean-buffer-list-kill-never-regexps[/color]
  [color=#BA2121]"Init value for clean-buffer-list-kill-never-regexps"[/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="c1">;; midnight mode</span>
</div><div id="lc2"><span class="p">(</span><span class="nb">require</span> <span class="ss">&#39;midnight</span><span class="p">)</span>
</div><div id="lc3">
</div><div id="lc4"><span class="c1">;;kill buffers if they were last disabled more than this seconds ago</span>
</div><div id="lc5"><span class="p">(</span><span class="k">setq</span> <span class="nv">clean-buffer-list-delay-special</span> <span class="mi">1800</span><span class="p">)</span>
</div><div id="lc6">
</div><div id="lc7"><span class="p">(</span><span class="nb">defvar</span> <span class="nv">clean-buffer-list-timer</span> <span class="no">nil</span>
</div><div id="lc8">  <span class="s">&quot;Stores clean-buffer-list timer if there is one. You can disable clean-buffer-list by (cancel-timer clean-buffer-list-timer).&quot;</span><span class="p">)</span>
</div><div id="lc9">
</div><div id="lc10"><span class="c1">;; run clean-buffer-list every 2 hours</span>
</div><div id="lc11"><span class="p">(</span><span class="k">setq</span> <span class="nv">clean-buffer-list-timer</span> <span class="p">(</span><span class="nv">run-at-time</span> <span class="no">t</span> <span class="mi">3600</span> <span class="ss">&#39;clean-buffer-list</span><span class="p">))</span>
</div><div id="lc12">
</div><div id="lc13"><span class="c1">;; kill everything, clean-buffer-list is very intelligent at not killing</span>
</div><div id="lc14"><span class="c1">;; unsaved buffer.</span>
</div><div id="lc15"><span class="p">(</span><span class="k">setq</span> <span class="nv">clean-buffer-list-kill-regexps</span>
</div><div id="lc16">      <span class="o">&#39;</span><span class="p">(</span><span class="s">&quot;^.*$&quot;</span><span class="p">))</span>
</div><div id="lc17">
</div><div id="lc18"><span class="c1">;; keep these buffer untouched</span>
</div><div id="lc19"><span class="c1">;; prevent append multiple times</span>
</div><div id="lc20"><span class="p">(</span><span class="nb">defvar</span> <span class="nv">clean-buffer-list-kill-never-buffer-names-init</span>
</div><div id="lc21">  <span class="nv">clean-buffer-list-kill-never-buffer-names</span>
</div><div id="lc22">  <span class="s">&quot;Init value for clean-buffer-list-kill-never-buffer-names&quot;</span><span class="p">)</span>
</div><div id="lc23"><span class="p">(</span><span class="k">setq</span> <span class="nv">clean-buffer-list-kill-never-buffer-names</span>
</div><div id="lc24">      <span class="p">(</span><span class="nb">append</span>
</div><div id="lc25">       <span class="o">&#39;</span><span class="p">(</span><span class="s">&quot;*Messages*&quot;</span> <span class="s">&quot;*scratch*&quot;</span> <span class="s">&quot;*Pymacs*&quot;</span><span class="p">)</span>
</div><div id="lc26">       <span class="nv">clean-buffer-list-kill-never-buffer-names-init</span><span class="p">))</span>
</div><div id="lc27">
</div><div id="lc28"><span class="c1">;; prevent append multiple times</span>
</div><div id="lc29"><span class="p">(</span><span class="nb">defvar</span> <span class="nv">clean-buffer-list-kill-never-regexps-init</span>
</div><div id="lc30">  <span class="nv">clean-buffer-list-kill-never-regexps</span>
</div><div id="lc31">  <span class="s">&quot;Init value for clean-buffer-list-kill-never-regexps&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="#408080"><em>;;&nbsp;midnight&nbsp;mode</em></font>
(<font color="#008000">require</font>&nbsp;<font color="#19177C">&#39;midnight</font>)

<font color="#408080"><em>;;kill&nbsp;buffers&nbsp;if&nbsp;they&nbsp;were&nbsp;last&nbsp;disabled&nbsp;more&nbsp;than&nbsp;this&nbsp;seconds&nbsp;ago</em></font>
(<font color="#008000"><strong>setq</strong></font>&nbsp;<font color="#19177C">clean-buffer-list-delay-special</font>&nbsp;<font color="#666666">1800</font>)

(<font color="#008000">defvar</font>&nbsp;<font color="#19177C">clean-buffer-list-timer</font>&nbsp;<font color="#880000">nil</font>
&nbsp;&nbsp;<font color="#BA2121">&quot;Stores&nbsp;clean-buffer-list&nbsp;timer&nbsp;if&nbsp;there&nbsp;is&nbsp;one.&nbsp;You&nbsp;can&nbsp;disable&nbsp;clean-buffer-list&nbsp;by&nbsp;(cancel-timer&nbsp;clean-buffer-list-timer).&quot;</font>)

<font color="#408080"><em>;;&nbsp;run&nbsp;clean-buffer-list&nbsp;every&nbsp;2&nbsp;hours</em></font>
(<font color="#008000"><strong>setq</strong></font>&nbsp;<font color="#19177C">clean-buffer-list-timer</font>&nbsp;(<font color="#19177C">run-at-time</font>&nbsp;<font color="#880000">t</font>&nbsp;<font color="#666666">3600</font>&nbsp;<font color="#19177C">&#39;clean-buffer-list</font>))

<font color="#408080"><em>;;&nbsp;kill&nbsp;everything,&nbsp;clean-buffer-list&nbsp;is&nbsp;very&nbsp;intelligent&nbsp;at&nbsp;not&nbsp;killing</em></font>
<font color="#408080"><em>;;&nbsp;unsaved&nbsp;buffer.</em></font>
(<font color="#008000"><strong>setq</strong></font>&nbsp;<font color="#19177C">clean-buffer-list-kill-regexps</font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#666666">&#39;</font>(<font color="#BA2121">&quot;^.*$&quot;</font>))

<font color="#408080"><em>;;&nbsp;keep&nbsp;these&nbsp;buffer&nbsp;untouched</em></font>
<font color="#408080"><em>;;&nbsp;prevent&nbsp;append&nbsp;multiple&nbsp;times</em></font>
(<font color="#008000">defvar</font>&nbsp;<font color="#19177C">clean-buffer-list-kill-never-buffer-names-init</font>
&nbsp;&nbsp;<font color="#19177C">clean-buffer-list-kill-never-buffer-names</font>
&nbsp;&nbsp;<font color="#BA2121">&quot;Init&nbsp;value&nbsp;for&nbsp;clean-buffer-list-kill-never-buffer-names&quot;</font>)
(<font color="#008000"><strong>setq</strong></font>&nbsp;<font color="#19177C">clean-buffer-list-kill-never-buffer-names</font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(<font color="#008000">append</font>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#666666">&#39;</font>(<font color="#BA2121">&quot;*Messages*&quot;</font>&nbsp;<font color="#BA2121">&quot;*scratch*&quot;</font>&nbsp;<font color="#BA2121">&quot;*Pymacs*&quot;</font>)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#19177C">clean-buffer-list-kill-never-buffer-names-init</font>))

<font color="#408080"><em>;;&nbsp;prevent&nbsp;append&nbsp;multiple&nbsp;times</em></font>
(<font color="#008000">defvar</font>&nbsp;<font color="#19177C">clean-buffer-list-kill-never-regexps-init</font>
&nbsp;&nbsp;<font color="#19177C">clean-buffer-list-kill-never-regexps</font>
&nbsp;&nbsp;<font color="#BA2121">&quot;Init&nbsp;value&nbsp;for&nbsp;clean-buffer-list-kill-never-regexps&quot;</font>)
</code></blockquote><p><font color="gray">Colored with <a href="http://dumpz.org">dumpz.org</a></p>