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>