master
Nathaniel Smith 2014-10-15 01:18:32 -04:00
parent 85a22b5329
commit b21bc56b6b
1 changed files with 1 additions and 1 deletions

View File

@ -13,7 +13,7 @@
(def default-html (slurp "/etc/skel/public_html/index.html")) (def default-html (slurp "/etc/skel/public_html/index.html"))
(defn dir->html [username] (defn dir->html [username]
(let [[default (= default-html (slurp (.format "/home/{}/public_html/index.html" dirname)))]] (let [[default (= default-html (slurp (.format "/home/{}/public_html/index.html" username)))]]
(.format "<li><a href=\"http://tilde.town/~{}\">{}</a> {}</li>" (.format "<li><a href=\"http://tilde.town/~{}\">{}</a> {}</li>"
username username username username
(if default (if default