fouaishfoh
这个提交包含在:
父节点
5ea07fd3ee
当前提交
4c358a7783
@ -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)
|
||||||
|
在新工单中引用
屏蔽一个用户