[elpa] 95/119: better ws-send-directory-list

[Eric Schulte]

eschulte pushed a commit to branch master
in repository elpa.

commit dbfec4f59c2fd0c492cb7f9371d03bfc5a0573f4
Author: Eric Schulte <address@hidden>
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>")))