kmx git

Commit 610b4793a0d8f204af2f4bf4dd349e8017c9082a

2018-06-01T10:48:54

better browser

diff --git a/thot.lisp b/thot.lisp
index d4064db..5f9c52d 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -360,21 +360,19 @@ The requested url ~S was not found on this server."
                 (stream-write-sequence out part))))
        (w "<html>
  <head>
-  <title>" (h dir) "</title>
+  <title>" (h remote) (h dir) "</title>
  </head>
  <body>
-  <h1>" (h dir) "</h1>
+  <h1>" (h remote) (h dir) "</h1>
   <ul>
 ")
-       (let* ((localdir (str local "/" dir))
-              (entries (dir localdir)))
-         (dolist (df entries)
+       (let ((localdir (str local dir)))
+         (do-dir (df localdir)
            (let* ((name (dirent-name df))
                   (slash (if (= +dt-dir+ (dirent-type df)) "/" ""))
                   (url (str (unless (string= "/" remote)
-                              (url-encode remote))
-                            (unless (string= "/" dir)
-                              (url-encode dir))
+                              remote)
+                            "/" dir
                             "/"
                             (url-encode name) slash)))
              (w "   <li><a href=\"" (h url) "\">" (h name) slash "</a></li>

kmx.io/cl-thot

Commit 610b4793a0d8f204af2f4bf4dd349e8017c9082a