Remove extra white space

adamtornhill · May 25, 2015 · af0eff0 · af0eff0
1 parent b43569c
commit af0eff0
Show file tree

Hide file tree

Showing 3 changed files with 27 additions and 27 deletions.
diff --git a/map_reduce_in_mongo.lisp b/map_reduce_in_mongo.lisp
@@ -20,7 +20,7 @@
 ;; a game. I've removed the CLOS functions here in order to
 ;; keep this module as minimalistic as possible:
 (defclass game ()
-  ((name     :reader   name 
+  ((name     :reader   name
              :initarg  :name)
    (votes    :accessor votes
              :initarg  :votes
@@ -60,7 +60,7 @@
 ;; MongoDB supports a mapReduce database command.
 ;; All we have to do as a client is to supply the map- and
 ;; reduce-functions to mongo. Mongo will execute the algorithm
-;; in its daemon process (mongod). 
+;; in its daemon process (mongod).
 ;;
 ;; To invoke mapReduce, we define client-side JavaScript functions:
 

diff --git a/web_with_persistent_backend.lisp b/web_with_persistent_backend.lisp
@@ -19,7 +19,7 @@
 ;; access methods.
 
 (defclass game ()
-  ((name  :reader   name 
+  ((name  :reader   name
           :initarg  :name)
    (votes :accessor votes
           :initarg :votes ; when read from persistent storage
@@ -126,7 +126,7 @@
 ;; Here we grow a small domain-specific language for
 ;; creating dynamic web pages.
 
-; Control the cl-who output format (default is XHTML, we 
+; Control the cl-who output format (default is XHTML, we
 ; want HTML5):
 (setf (html-mode) :html5)
 
@@ -139,21 +139,21 @@
   `(with-html-output-to-string
     (*standard-output* nil :prologue t :indent t)
     (:html :lang "en"
-           (:head 
+           (:head
             (:meta :charset "utf-8")
             (:title ,title)
-            (:link :type "text/css" 
+            (:link :type "text/css"
                    :rel "stylesheet"
                    :href "/retro.css")
             ,(when script
                `(:script :type "text/javascript"
                          (str ,script))))
-           (:body 
+           (:body
             (:div :id "header" ; Retro games header
-                  (:img :src "/logo.jpg" 
-                        :alt "Commodore 64" 
+                  (:img :src "/logo.jpg"
+                        :alt "Commodore 64"
                         :class "logo")
-                  (:span :class "strapline" 
+                  (:span :class "strapline"
                          "Vote on your favourite Retro Game"))
             ,@body))))
 
@@ -173,7 +173,7 @@
      (:div :id "chart" ; Used for CSS styling of the links.
        (:ol
 	(dolist (game (games))
-	 (htm  
+	 (htm
 	  (:li (:a :href (format nil "vote?name=~a" (url-encode ; avoid injection attacks
                                                      (name game))) "Vote!")
 	       (fmt "~A with ~d votes" (escape-string (name game))

diff --git a/web_with_proto_backend.lisp b/web_with_proto_backend.lisp
@@ -19,9 +19,9 @@
 ;; access methods.
 
 (defclass game ()
-  ((name  :reader   name 
+  ((name  :reader   name
           :initarg  :name)
-   (votes :accessor votes 
+   (votes :accessor votes
           :initform 0)))
 
 ;; By default the printed representation of CLOS objects isn't
@@ -80,7 +80,7 @@
 ;; Here we grow a small domain-specific language for
 ;; creating dynamic web pages.
 
-; Control the cl-who output format (default is XHTML, we 
+; Control the cl-who output format (default is XHTML, we
 ; want HTML5):
 (setf (html-mode) :html5)
 
@@ -95,18 +95,18 @@
   `(with-html-output-to-string
     (*standard-output* nil :prologue t :indent t)
     (:html :lang "en"
-           (:head 
+           (:head
             (:meta :charset "utf-8")
             (:title ,title)
-            (:link :type "text/css" 
+            (:link :type "text/css"
                    :rel "stylesheet"
                    :href "/retro.css"))
-           (:body 
+           (:body
             (:div :id "header" ; Retro games header
-                  (:img :src "/logo.jpg" 
-                        :alt "Commodore 64" 
+                  (:img :src "/logo.jpg"
+                        :alt "Commodore 64"
                         :class "logo")
-                  (:span :class "strapline" 
+                  (:span :class "strapline"
                          "Vote on your favourite Retro Game"))
             ,@body))))
 
@@ -119,21 +119,21 @@
   `(with-html-output-to-string
     (*standard-output* nil :prologue t :indent t)
     (:html :lang "en"
-           (:head 
+           (:head
             (:meta :charset "utf-8")
             (:title ,title)
-            (:link :type "text/css" 
+            (:link :type "text/css"
                    :rel "stylesheet"
                    :href "/retro.css")
             ,(when script
                `(:script :type "text/javascript"
                          (str ,script))))
-           (:body 
+           (:body
             (:div :id "header" ; Retro games header
-                  (:img :src "/logo.jpg" 
-                        :alt "Commodore 64" 
+                  (:img :src "/logo.jpg"
+                        :alt "Commodore 64"
                         :class "logo")
-                  (:span :class "strapline" 
+                  (:span :class "strapline"
                          "Vote on your favourite Retro Game"))
             ,@body))))
 
@@ -153,7 +153,7 @@
      (:div :id "chart" ; Used for CSS styling of the links.
        (:ol
 	(dolist (game (games))
-	 (htm  
+	 (htm
 	  (:li (:a :href (format nil "vote?name=~a" (url-encode ; avoid injection attacks
                                                      (name game))) "Vote!")
 	       (fmt "~A with ~d votes" (escape-string (name game))