Simple clojure code used to invite all the members of the ZA Developer slack team into a specific channel to discuss amendments to the code-of-conduct :)

invite-to-code-of-conduct.clj

(require 'clj-slack.users)
(require 'clj-slack.channels)

(def connection {:api-url "https://slack.com/api" :token "TOKEN"})

;; Get all the users and channels
(def users (clj-slack.users/list connection))
(def channels (clj-slack.channels/list connection))

;; Find the channel we care about
(def channel (first (filter #(= "code-of-conduct" (:name %)) (:channels channels))))

;; Find the existing members in the channel
(def existing-members (:members channel))

;; Get all the active, non-bot team members
(def candidates (->> (:members users) (remove :deleted) (remove :is_bot) (map :id)))

;; Now get the ones to be invited
(def to-be-invited (clojure.set/difference (set candidates) (set existing-members)))

;; Partial functions FTW
(def invite-fn (partial clj-slack.channels/invite connection (:id channel)))

;; Invite each member
(doseq [id to-be-invited] (invite-fn id))