Delete Trailing Whitespaces.

Pascal J. Bourguignon [2018-02-05 18:19]
Delete Trailing Whitespaces.
Filename
org.ogamita.pjb/cv/cv.lisp
diff --git a/org.ogamita.pjb/cv/cv.lisp b/org.ogamita.pjb/cv/cv.lisp
index c2b6a67..419a8f6 100644
--- a/org.ogamita.pjb/cv/cv.lisp
+++ b/org.ogamita.pjb/cv/cv.lisp
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             Common-Lisp
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Generates my CV in HTML.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -16,19 +16,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    GPL
-;;;;
+;;;;
 ;;;;    Copyright Pascal Bourguignon 2006 - 2006
-;;;;
+;;;;
 ;;;;    This program is free software; you can redistribute it and/or
 ;;;;    modify it under the terms of the GNU General Public License
 ;;;;    as published by the Free Software Foundation; either version
 ;;;;    2 of the License, or (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be
 ;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU General Public
 ;;;;    License along with this program; if not, write to the Free
 ;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
@@ -59,7 +59,7 @@
         "TT"))
 (in-package "CV")

-
+
 ;;;----------------------------------------------------------------------
 ;;; UTILITIES
 ;;;----------------------------------------------------------------------
@@ -195,7 +195,7 @@
   ())


-(defmethod gen-style-header ((generator html-generator))
+(defmethod gen-style-header ((generator html-generator))
   (html:META (:http-equiv "Expires" :content (rfc-822-date)))
   (html:META (:http-equiv "Content-Type" :content "text/html; charset=utf-8"))
   (html:link (:href "/default.css" :rel "stylesheet" :type "text/css"))
@@ -223,7 +223,7 @@


 (defmethod gen-text ((*generator* html-generator) text)
-  (unless text (invoke-debugger (make-instance 'error)))
+  (unless text (invoke-debugger (make-instance 'error)))
   (html:pcdata "~A" text))


@@ -262,7 +262,7 @@
       (progn (html:br)
              (html:dt ()                     (gen-text *generator* term))
              (html:dd ()                     (funcall genbody)))))
-
+

 (defmethod gen-link ((*generator* html-generator) genbody &key url)
   (html:a (:href url) (funcall genbody)))
@@ -814,6 +814,6 @@ RETURN:     SEQUENCE, sorted.
           (mapcar (function tags)
                   (sort-by-tags employments nil :key (function tags)))))

-
+

 ;; Style Model: http://quadium.net/random/resume.html
ViewGit