slack.clje

A Slack client for Clojerl.

We are using Slack RTM (Real Time Messageing) API.

LICENSE

GPL-3.0-or-later

Installation

rebar.config.

{deps, […,
        {slack, {git, "git@github.com:ne-sachirou/slack.clje.git", {branch, "main"}}}]}

Usage

Create gen_event modules to handle Slack incoming messages.

(ns example-bot.handler1)

(erlang.core/behaviours gen_event)

(defn init [{:keys [name arg1] :as args}] #erl[:ok args])

(defn handle_call [_ state] #erl[:ok :ok state])

(def handle_event
  (fn* ([#erl[:receive-msg #as(msg #erl{})] #as(state #erl{:name name :arg1 arg1})]
         ; Handle msg here.
         #erl[:ok state])
       ([_ state]
         #erl[:ok state])))

The msg is a decoded JSON received from Slack RTM API.

Then start a slack.sup to give api-token, handlers & unique name.

(ns example-bot.sup
  (:require [slack.sup]))

(erlang.core/behaviours supervisor)

(def sup-flags #erl{:strategy  :one_for_one
                    :intensity 1
                    :period    5})

(def child-specs #erl((-> {:api-token "Slack API Token"
                           :handlers '([:example-bot.handler1 {:arg1 "Some value"}]
                                       [:example-bot.handler2 {}])
                           :name "example-bot"}
                          slack.sup/child-spec
                          clj->erl)))

(defn start-link []
  (supervisor/start_link #erl[:local :example-bot.sup]
                         :example-bot.sup
                         #erl()))

(defn init [_]
  #erl[:ok #erl[sup-flags child-specs]])

To send a message to Slack, call slack/send-msg.2.

(let* [:ok (slack/send-msg name
                           #erl{:id id
                                :type "message"
                                :channel channel
                                :text text})])