Revert "html update"

[clinton/website/site/unknownlamer.org.git] / SCWM.html
diff --git a/SCWM.html b/SCWM.html

index c24f10a..8dd7ac5 100644 (file)
--- a/SCWM.html
+++ b/SCWM.html
@@ -7,7 +7,10 @@
      <meta name="generator" content="muse.el" />
      <meta http-equiv="Content-Type"
            content="text/html; charset=utf-8" />
-<link rel="stylesheet" href="default.css" media="screen" />
+    <link href="http://feeds.unknownlamer.org/rss/site-updates" 
+          rel="alternate" type="application/rss+xml" title="Updates Feed" />
+
+<link rel="stylesheet" href="default.css" />
    </head>
    <body>
      <h1>Scheme Your Windows</h1>
@@ -107,10 +110,10 @@ I have yet to test the others. If not using <code>system.scwmrc</code> it is use
  to at least include the bits that enable debugging.</p>
  
  <pre class="src">
-(<span style="color: #00ffff;">define</span> <span style="color: #87cefa;">debug</span> #t)
+(<span class="emacs-face-keyword">define</span> <span class="emacs-face-function-name">debug</span> #t)
  
-(<span style="color: #00ffff;">if</span> debug
-    (<span style="color: #00ffff;">begin</span>
+(<span class="emacs-face-keyword">if</span> debug
+    (<span class="emacs-face-keyword">begin</span>
        (add-hook! module-loaded-hook display-module-loaded)
        (set! %load-verbosely #t)
        (debug-enable 'debug 'backtrace)
@@ -154,12 +157,12 @@ easier. <strong>GDS requires a Guile built with threads to work properly
  (use-modules (ice-9 gds-client)
               (ice-9 threads))
  
-<span style="color: #ff7f24;">;;; </span><span style="color: #ff7f24;">GDS thread (in case it must be killed during debugging, ...)
-</span>(<span style="color: #00ffff;">define</span> <span style="color: #87cefa;">cke-gds-thread</span> #f)
+<span class="emacs-face-comment-delimiter">;;; </span><span class="emacs-face-comment">GDS thread (in case it must be killed during debugging, ...)
+</span>(<span class="emacs-face-keyword">define</span> <span class="emacs-face-function-name">cke-gds-thread</span> #f)
  
-(<span style="color: #00ffff;">define</span> (<span style="color: #87cefa;">connect-to-debugging-server</span>)
+(<span class="emacs-face-keyword">define</span> (<span class="emacs-face-function-name">connect-to-debugging-server</span>)
    (set! cke-gds-thread
-        (call-with-new-thread (<span style="color: #00ffff;">lambda</span> () (run-utility))))
+        (call-with-new-thread (<span class="emacs-face-keyword">lambda</span> () (run-utility))))
    cke-gds-thread)
  </pre>
  
@@ -175,16 +178,16 @@ running.</p>
  interaction with guile.</p>
  
  <pre class="src">
-(<span style="color: #00ffff;">require</span> '<span style="color: #7fffd4;">gds</span>)
-(<span style="color: #00ffff;">require</span> '<span style="color: #7fffd4;">gds-server</span>)
-(<span style="color: #00ffff;">require</span> '<span style="color: #7fffd4;">gds-scheme</span>)
+(<span class="emacs-face-keyword">require</span> '<span class="emacs-face-constant">gds</span>)
+(<span class="emacs-face-keyword">require</span> '<span class="emacs-face-constant">gds-server</span>)
+(<span class="emacs-face-keyword">require</span> '<span class="emacs-face-constant">gds-scheme</span>)
  
-(<span style="color: #00ffff;">defvar</span> <span style="color: #eedd82;">guile-scratch-buffer-name</span> <span style="color: #b3b3b3;">"*guile-scratch*"</span>
-  <span style="color: #b3b3b3;">"Name of the Guile evaluation scratch buffer"</span>)
+(<span class="emacs-face-keyword">defvar</span> <span class="emacs-face-variable-name">guile-scratch-buffer-name</span> <span class="emacs-face-string">"*guile-scratch*"</span>
+  <span class="emacs-face-doc">"Name of the Guile evaluation scratch buffer"</span>)
  
-(<span style="color: #00ffff;">defun</span> <span style="color: #87cefa;">make-guile-scratch-buffer</span> ()
-  (interactive)
-  (<span style="color: #00ffff;">let</span> ((scratch-buf (generate-new-buffer guile-scratch-buffer-name)))
+(<span class="emacs-face-keyword">defun</span> <span class="emacs-face-function-name">make-guile-scratch-buffer</span> ()
+  (<span class="emacs-face-keyword">interactive</span>)
+  (<span class="emacs-face-keyword">let</span> ((scratch-buf (generate-new-buffer guile-scratch-buffer-name)))
      (switch-to-buffer scratch-buf)
      (scheme-mode)
      (gds-auto-associate-buffer)))
@@ -234,10 +237,11 @@ to it, <em>hint hint</em>).</p>
      </a>
    </p>
  
-<p class="cke-footer">The hubbub of the waking life might close a door 
-which in the dreamy Subliminal might remain ajar...
+<p class="cke-footer">Ethan: i'm working on myself
+Ethan: the self is the most important thing
+Ethan: i learned this from a packet of tea
  </p>
  <p class="cke-timestamp">Last Modified:
-    March 13, 2008</p>
+    January 21, 2013</p>
    </body>
  </html>
 \ No newline at end of file