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

hmm

master
Nathaniel Smith 2014-12-28 18:50:15 -08:00
parent 4401bdcc33
commit 5acf7ea3e1
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scripts/userlist.hy
View File

@ -37,8 +37,7 @@
(apply sorted [usernames] {"key" modify-time})) (apply sorted [usernames] {"key" modify-time}))
(defn user-generator [] (->> (listdir "/home") (defn user-generator [] (->> (listdir "/home")
(filter (fn [f] (and (not (= f "ubuntu")) (not (= f "poetry"))))) (filter (fn [f] (and (not (= f "ubuntu")) (not (= f "poetry")))))))
list))
(def user-list (->> (user-generator) (def user-list (->> (user-generator)
sort-user-list sort-user-list
@ -47,6 +46,6 @@
(.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 (user-generator)) (len (list (user-generator)))
timestamp timestamp
user-list)) user-list))