-
Notifications
You must be signed in to change notification settings - Fork 36
/
users.clj
32 lines (30 loc) · 1 KB
/
users.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
(ns clj-slack.usergroups.users
(:refer-clojure :exclude [update])
(:require clojure.string
[clj-slack.core :refer [slack-request stringify-keys]])
(:refer-clojure :exclude [list update]))
(defn list
"List all users in a user group
Optional argument:
- include_disabled: Allow results that involve disabled user groups."
([connection usergroup]
(list connection usergroup {}))
([connection usergroup optionals]
(->>
optionals
stringify-keys
(merge {"usergroup" usergroup})
(slack-request connection "usergroups.users.list"))))
(defn update
"Update the list of users for a user group
Optional argument:
- include_count: include the number of users in the user group"
([connection usergroup users]
(update connection usergroup users {}))
([connection usergroup users optionals]
(->>
optionals
stringify-keys
(merge {"usergroup" usergroup,
"users" (clojure.string/join \, users)})
(slack-request connection "usergroups.users.update"))))