master
Nathaniel Smith 2014-11-08 20:17:45 -05:00
parent 4c358a7783
commit e62f75d8c1
1 changed files with 2 additions and 1 deletions

View File

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