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

science

master
Nathaniel Smith 2014-11-08 20:10:37 -05:00
parent b91a817f11
commit 30c2a6a8f5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scripts/userlist.hy
View File

@ -34,9 +34,9 @@
(defn users [] (listdir "/home")) (defn users [] (listdir "/home"))
(def user-list (->> (users) (def user-list (->> (users)
(filter (fn [f] (and (not (= f "ubuntu")) (not (= f "poetry")))))
sort-user-list sort-user-list
reversed reversed
(filter (fn [f] (and (not (= f "ubuntu")) (not (= f "poetry")))))
(map dir->html) (map dir->html)
(.join "\n"))) (.join "\n")))