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

Merge branch 'master' of https://github.com/nathanielksmith/tildetown

master
tilde.town 2014-12-29 02:50:12 +00:00
parent 9d7a5ec6fb 4401bdcc33
commit 6433f59297
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scripts/userlist.hy
View File

@ -37,8 +37,8 @@
(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)) list))
(def user-list (->> (user-generator) (def user-list (->> (user-generator)
sort-user-list sort-user-list