tildetown
/
tildetown-scripts
Archived
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

oops

master
Nathaniel Smith 2014-11-08 20:15:06 -05:00
parent 483b8adb85
commit 5ea07fd3ee
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scripts/userlist.hy
View File

@ -31,16 +31,16 @@
(defn sort-user-list [usernames] (defn sort-user-list [usernames]
(apply sorted [usernames] {"key" modify-time})) (apply sorted [usernames] {"key" modify-time}))
(defn users [] (listdir "/home")) (defn user-generator [] (-> (listdir "/home")
(filter (fn [f] (and (not (= f "ubuntu")) (not (= f "poetry")))))))
(def user-list (->> (users) (def user-list (->> (user-generator)
(filter (fn [f] (and (not (= f "ubuntu")) (not (= f "poetry")))))
sort-user-list sort-user-list
reversed reversed
(map dir->html) (map dir->html)
(.join "\n"))) (.join "\n")))
(print (.format "our esteemed users ({})<br> <sub>generated at {}</sub><br><ul>{}</ul>" (print (.format "our esteemed users ({})<br> <sub>generated at {}</sub><br><ul>{}</ul>"
(len (users)) (len (user-generator))
timestamp timestamp
user-list)) user-list))