r11859: Canonicalize whitespace
[lml2.git] / downloads.lisp
index 855505b..21473d1 100644 (file)
 
 (defun strip-dl-base (file base)
   (let ((fdir (pathname-directory file))
-       (bdir (pathname-directory base)))
+        (bdir (pathname-directory base)))
     (make-pathname
      :name (pathname-name file)
      :type (pathname-type file)
-     :directory 
+     :directory
      (when (> (length fdir) (length bdir))
-       (append '(:absolute) 
-              (subseq fdir (length bdir) (length fdir)))))))
-     
+       (append '(:absolute)
+               (subseq fdir (length bdir) (length fdir)))))))
+
 (defun print-file (file dl-data)
   (let ((size 0)
-       (modtime (date-string (file-write-date file)))
-       (basename (namestring
-                  (make-pathname :name (pathname-name file)
-                                 :type (pathname-type file))))
-       (dl-name (strip-dl-base file (dl-data-base dl-data)))
-       (sig-path (concatenate 'string (namestring file) ".asc")))
+        (modtime (date-string (file-write-date file)))
+        (basename (namestring
+                   (make-pathname :name (pathname-name file)
+                                  :type (pathname-type file))))
+        (dl-name (strip-dl-base file (dl-data-base dl-data)))
+        (sig-path (concatenate 'string (namestring file) ".asc")))
     (when (plusp (length basename))
       (with-open-file (strm file :direction :input)
-                     (setq size (round (/ (file-length strm) 1024))))
+                      (setq size (round (/ (file-length strm) 1024))))
       (lml-format "<a href=\"~A~A\">~A</a>"
-                 (dl-data-url dl-data) dl-name basename)
+                  (dl-data-url dl-data) dl-name basename)
       (lml-princ "<span class=\"modtime\">")
       (lml-format " (~A, <b>~:D <span style=\"font-size:90%;\">KB</span></b>)</span>" modtime size)
       (when (probe-file sig-path)
-       (setf (dl-data-signed dl-data) t)
-       (lml-format " [<a href=\"~A~A.asc\">Signature</a>]"
-                   (dl-data-url dl-data) dl-name))
+        (setf (dl-data-signed dl-data) t)
+        (lml-format " [<a href=\"~A~A.asc\">Signature</a>]"
+                    (dl-data-url dl-data) dl-name))
       (html :br))))
 
 (defun display-header (name url)
     (lml-princ "<h3>GPG Public Key</h3>")
     (lml-princ "Use this <a href=\"https://www.b9.com/kevin.gpg.asc\">key</a> to verify file signtatures"))
   (lml-princ "</div>"))
-  
+
 (defun print-sect-title (title dl-data)
   (lml-format "<h~D>~A</h~D>"
-             (dl-data-indent dl-data) title (dl-data-indent dl-data)))
+              (dl-data-indent dl-data) title (dl-data-indent dl-data)))
 
 (defun match-base-name? (name base-name)
   (let ((len-base-name (length base-name)))
@@ -80,7 +80,7 @@
 
 (defun match-base-name-latest? (name base-name)
   (let* ((latest (concatenate 'string base-name "-latest"))
-        (len-latest (length latest)))
+         (len-latest (length latest)))
     (when (>= (length name) len-latest)
       (string= name latest :end1 len-latest :end2 len-latest))))
 
@@ -99,9 +99,9 @@
 
 (defun display-one-section (title pat dl-data)
   (let ((files (sort-pathnames
-               (filter-latest
-                (filter-against-base (directory pat) (dl-data-name dl-data))
-                (dl-data-name dl-data)))))
+                (filter-latest
+                 (filter-against-base (directory pat) (dl-data-name dl-data))
+                 (dl-data-name dl-data)))))
     (when files
       (print-sect-title title dl-data)
       (lml-princ "<div style=\"padding-left: 20pt;\">")
 (defun display-sections (sects dl-data)
   (when sects
     (let ((title (car sects))
-         (value (cadr sects)))
+          (value (cadr sects)))
       (if (consp title)
-         (dolist (sect sects)
-           (display-sections sect dl-data))
-       (if (consp value)
-           (progn
-             (print-sect-title title dl-data)
-             (incf (dl-data-indent dl-data))
-             (display-sections value dl-data)
-             (decf (dl-data-indent dl-data)))
-         (display-one-section title value dl-data))))))
-      
+          (dolist (sect sects)
+            (display-sections sect dl-data))
+        (if (consp value)
+            (progn
+              (print-sect-title title dl-data)
+              (incf (dl-data-indent dl-data))
+              (display-sections value dl-data)
+              (decf (dl-data-indent dl-data)))
+          (display-one-section title value dl-data))))))
+
 (defun display-page (pkg-name pkg-base dl-base dl-url sects)
   (let ((dl-data (make-dl-data :indent 3
-                              :base dl-base
-                              :url dl-url
-                              :name pkg-base
-                              :signed nil)))
+                               :base dl-base
+                               :url dl-url
+                               :name pkg-base
+                               :signed nil)))
     (display-header pkg-name dl-url)
     (dolist (sect sects)
       (display-sections sect dl-data))
 (defun std-dl-page (pkg-name pkg-base dl-base dl-url)
   (let ((base (parse-namestring dl-base)))
     (let ((tgz-path (make-pathname :defaults base :type "gz" :name :wild))
-         (zip-path (make-pathname :defaults base :type "zip" :name :wild))
-         (doc-path (make-pathname :defaults base :type "pdf" :name :wild)))
+          (zip-path (make-pathname :defaults base :type "zip" :name :wild))
+          (doc-path (make-pathname :defaults base :type "pdf" :name :wild)))
       (display-page pkg-name pkg-base dl-base dl-url
-                   `(("Manual" ,doc-path)
-                     ("Source Code"
-                      (("Unix (.tar.gz)" ,tgz-path)
-                       ("Windows (.zip)" ,zip-path))))))))
-  
+                    `(("Manual" ,doc-path)
+                      ("Source Code"
+                       (("Unix (.tar.gz)" ,tgz-path)
+                        ("Windows (.zip)" ,zip-path))))))))
+
 (defun full-dl-page (pkg-name pkg-base dl-base dl-url)
   (let ((base (parse-namestring dl-base)))
     (let ((tgz-path (make-pathname :defaults base :type "gz" :name :wild))
-         (zip-path (make-pathname :defaults base :type "zip" :name :wild))
-         (doc-path (make-pathname :defaults base :type "pdf" :name :wild))
-         (deb-path (merge-pathnames
-                    (make-pathname :directory '(:relative "linux-debian")
-                                   :type :wild :name :wild)
-                    base))
-         (rpm-path (merge-pathnames
-                    (make-pathname :directory '(:relative "linux-rpm")
-                                   :type :wild :name :wild)
-                    base))
-         (w32-path (merge-pathnames
-                    (make-pathname :directory '(:relative "win32")
-                                   :type :wild :name :wild)
-                    base)))
+          (zip-path (make-pathname :defaults base :type "zip" :name :wild))
+          (doc-path (make-pathname :defaults base :type "pdf" :name :wild))
+          (deb-path (merge-pathnames
+                     (make-pathname :directory '(:relative "linux-debian")
+                                    :type :wild :name :wild)
+                     base))
+          (rpm-path (merge-pathnames
+                     (make-pathname :directory '(:relative "linux-rpm")
+                                    :type :wild :name :wild)
+                     base))
+          (w32-path (merge-pathnames
+                     (make-pathname :directory '(:relative "win32")
+                                    :type :wild :name :wild)
+                     base)))
       (display-page pkg-name pkg-base dl-base dl-url
-                   `(("Manual" ,doc-path)
-                     ("Source Code"
-                      (("Unix (.tar.gz)" ,tgz-path)
-                       ("Windows (.zip)" ,zip-path)))
-                     ("Binaries" 
-                      (("Linux Binaries"
-                        (("Debian Linux" ,deb-path)
-                         ("RedHat Linux" ,rpm-path)))
-                       ("Windows Binaries" ,w32-path))))))))
+                    `(("Manual" ,doc-path)
+                      ("Source Code"
+                       (("Unix (.tar.gz)" ,tgz-path)
+                        ("Windows (.zip)" ,zip-path)))
+                      ("Binaries"
+                       (("Linux Binaries"
+                         (("Debian Linux" ,deb-path)
+                          ("RedHat Linux" ,rpm-path)))
+                        ("Windows Binaries" ,w32-path))))))))