science
parent
b91a817f11
commit
30c2a6a8f5
|
@ -34,9 +34,9 @@
|
|||
(defn users [] (listdir "/home"))
|
||||
|
||||
(def user-list (->> (users)
|
||||
(filter (fn [f] (and (not (= f "ubuntu")) (not (= f "poetry")))))
|
||||
sort-user-list
|
||||
reversed
|
||||
(filter (fn [f] (and (not (= f "ubuntu")) (not (= f "poetry")))))
|
||||
(map dir->html)
|
||||
(.join "\n")))
|
||||
|
||||
|
|
Reference in New Issue