Merge branch 'master' of https://github.com/nathanielksmith/tildetown
commit
91f39d7de0
|
@ -37,8 +37,7 @@
|
|||
(apply sorted [usernames] {"key" modify-time}))
|
||||
|
||||
(defn user-generator [] (->> (listdir "/home")
|
||||
(filter (fn [f] (and (not (= f "ubuntu")) (not (= f "poetry")))))
|
||||
list))
|
||||
(filter (fn [f] (and (not (= f "ubuntu")) (not (= f "poetry")))))))
|
||||
|
||||
(def user-list (->> (user-generator)
|
||||
sort-user-list
|
||||
|
@ -47,6 +46,6 @@
|
|||
(.join "\n")))
|
||||
|
||||
(print (.format "our esteemed users ({})<br> <sub>generated at {}</sub><br><ul>{}</ul>"
|
||||
(len (user-generator))
|
||||
(len (list (user-generator)))
|
||||
timestamp
|
||||
user-list))
|
||||
|
|
Reference in New Issue