From c1737f8d0d38390d3308737e0978517d20c143bd Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Fri, 31 Aug 2007 18:04:31 +0000
Subject: [PATCH] r11859: Canonicalize whitespace

---
 main.lisp | 80 +++++++++++++++++++++++++++----------------------------
 1 file changed, 40 insertions(+), 40 deletions(-)

diff --git a/main.lisp b/main.lisp
index fb93f7d..57e6537 100644
--- a/main.lisp
+++ b/main.lisp
@@ -28,7 +28,7 @@
 (defun show-sites (&optional (sites *sites*))
   (dolist (site (mklist sites))
     (awhen (rss-site site)
-	   (display-site it))))
+           (display-site it))))
 
 (defun display-site (site &key (stream *standard-output*))
   (format stream "Site: ~A~%" (title site))
@@ -41,61 +41,61 @@
     (declare (ignore true-uri headers))
     (when (eql 200 response)
       (with-input-from-string (strm body)
-	(parse-rss-0.9x-stream strm)))))
-  
+        (parse-rss-0.9x-stream strm)))))
+
 (defun parse-rss-0.9x-file (file)
   (with-open-file (stream file :direction :input)
     (parse-rss-0.9x-stream stream)))
 
 (defun is-rss-version-supported (attributes)
   (awhen (position "version" attributes :key #'car :test #'string=)
-	 (let ((version (second (nth it attributes))))
-	   (= 4 (length version))
-	   (string= "0.9" (subseq version 0 3)))))
+         (let ((version (second (nth it attributes))))
+           (= 4 (length version))
+           (string= "0.9" (subseq version 0 3)))))
 
 (defun parse-rss-0.9x-stream (stream)
   (let* ((*package* (find-package 'kmrcl))
-	 (tree (remove-from-tree-if 
-		(lambda (x) (and (stringp x) (is-string-whitespace x)))
-		(xmls:parse stream :compress-whitespace t))))
+         (tree (remove-from-tree-if
+                (lambda (x) (and (stringp x) (is-string-whitespace x)))
+                (xmls:parse stream :compress-whitespace t))))
     (unless (and (string= "rss" (first tree))
-		 (is-rss-version-supported (second tree)))
+                 (is-rss-version-supported (second tree)))
       (return-from parse-rss-0.9x-stream nil))
     (let* ((content (third tree))
-	   (pos 0)
-	   (len (length content))
-	   (rss (make-instance 'rss-0.9x-channel)))
+           (pos 0)
+           (len (length content))
+           (rss (make-instance 'rss-0.9x-channel)))
       (when (string= "channel" (nth pos content))
-	(incf pos)
-	(while (and (< pos len) 
-		    (or (string= "title" (car (nth pos content)))
-			(string= "link" (car (nth pos content)))
-			(string= "description" (car (nth pos content)))))
-	  (let ((slot (nth pos content)))
-	    (cond
-	     ((string= "title" (car slot))
-	      (setf (title rss) (second slot)))
-	     ((string= "link" (car slot))
-	      (setf (link rss) (second slot)))
-	     ((string= "description" (car slot))
-	      (setf (description rss) (second slot)))))
-	  (incf pos)))
+        (incf pos)
+        (while (and (< pos len)
+                    (or (string= "title" (car (nth pos content)))
+                        (string= "link" (car (nth pos content)))
+                        (string= "description" (car (nth pos content)))))
+          (let ((slot (nth pos content)))
+            (cond
+             ((string= "title" (car slot))
+              (setf (title rss) (second slot)))
+             ((string= "link" (car slot))
+              (setf (link rss) (second slot)))
+             ((string= "description" (car slot))
+              (setf (description rss) (second slot)))))
+          (incf pos)))
       (while (< pos len)
-	(when (string= "item" (car (nth pos content)))
-	  (let ((item (make-instance 'rss-0.9x-item)))
-	    (dolist (pair (cdr (nth pos content)))
-	      (cond
-	       ((string= "title" (car pair))
-		(setf (title item) (second pair)))
-	       ((string= "link" (car pair))
-		(setf (link item) (second pair)))))
-	    (push item (items rss))))
-	(incf pos))
+        (when (string= "item" (car (nth pos content)))
+          (let ((item (make-instance 'rss-0.9x-item)))
+            (dolist (pair (cdr (nth pos content)))
+              (cond
+               ((string= "title" (car pair))
+                (setf (title item) (second pair)))
+               ((string= "link" (car pair))
+                (setf (link item) (second pair)))))
+            (push item (items rss))))
+        (incf pos))
       (setf (items rss) (nreverse (items rss)))
       rss)))
 
 
 
-	    
-      
-      
+
+
+
-- 
2.34.1