tildetown/tildetown-scripts
已存档
1
0
派生 0
代码 工单 合并请求 版本发布 百科 动态

fouaishfoh

浏览代码
这个提交包含在：
Nathaniel Smith 2014-11-08 20:16:11 -05:00
父节点 5ea07fd3ee
当前提交 4c358a7783
共有 1 个文件被更改，包括 2 次插入 和 2 次删除
显示统计 下载 Patch 文件 下载 Diff 文件 展开所有文件 折叠所有文件

2
scripts/userlist.hy
查看文件

@ -31,7 +31,7 @@
(defn sort-user-list [usernames] (defn sort-user-list [usernames]
(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")))))))
(def user-list (->> (user-generator) (def user-list (->> (user-generator)