eschulte pushed a commit to branch master
in repository elpa.
commit dbfec4f59c2fd0c492cb7f9371d03bfc5a0573f4
Author: Eric Schulte <schulte.e...@gmail.com>
Date: Sun Jan 12 08:56:01 2014 -0700
better ws-send-directory-list
---
web-server.el | 6 +++++-
1 files changed, 5 insertions(+), 1 deletions(-)
diff --git a/web-server.el b/web-server.el
index 9bc5772..944521c 100644
--- a/web-server.el
+++ b/web-server.el
@@ -555,7 +555,11 @@ used to limit the files sent."
(ws-response-header proc 200 (cons "Content-type" "text/html"))
(process-send-string proc
(concat "<ul>"
- (mapconcat (lambda (f) (format "<li><a href=%S>%s</li>" f f))
+ (mapconcat (lambda (f)
+ (let* ((full (expand-file-name f directory))
+ (end (if (file-directory-p full) "/" ""))
+ (url (url-encode-url (concat f end))))
+ (format "<li><a href=%s>%s</li>" url f)))
(directory-files directory nil match)
"\n")
"</ul>")))
