echo example

Author: Kabie

.gitignore

@@ -0,0 +1,4 @@
+/_build
+/deps
+erl_crash.dump
+*.ez

README.md

@@ -0,0 +1,4 @@
+Exbot
+=====
+
+Register a bot then `Exbot.run(<bot_token>)`

config/config.exs

@@ -0,0 +1,25 @@
+# This file is responsible for configuring your application
+# and its dependencies with the aid of the Mix.Config module.
+use Mix.Config
+
+# This configuration is loaded before any dependency and is restricted
+# to this project. If another project depends on this project, this
+# file won't be loaded nor affect the parent project. For this reason,
+# if you want to provide default values for your application for third-
+# party users, it should be done in your mix.exs file.
+
+# Sample configuration:
+#
+#     config :logger, :console,
+#       level: :info,
+#       format: "$date $time [$level] $metadata$message\n",
+#       metadata: [:user_id]
+
+# It is also possible to import configuration files, relative to this
+# directory. For example, you can emulate configuration per environment
+# by uncommenting the line below and defining dev.exs, test.exs and such.
+# Configuration from the imported file will override the ones defined
+# here (which is why it is important to import them last).
+#
+#     import_config "#{Mix.env}.exs"
+#

lib/exbot.ex

@@ -0,0 +1,86 @@
+defmodule Exbot do
+
+  defp start!(token) do
+    {:ok, response} = HTTPoison.get "https://slack.com/api/rtm.start?token=" <> token, [], timeout: 10000
+    response
+  end
+
+  defp parse(response) do
+    {:ok, json} = response.body
+    |> Poison.Parser.parse
+    json
+  end
+
+  defp get_config(json) do
+    <<bot_id::size(72)>> = json["self"]["id"]
+    %{url: json["url"], bot_id: bot_id}
+  end
+
+  defp connect(%{url: url} = state) do
+    uri = URI.parse url
+    {:ok, socket} = Socket.Web.connect uri.host, path: uri.path, secure: true
+    state
+    |> Map.put(:socket, socket)
+    |> Map.put(:msg_id, 1)
+  end
+
+  defp send_text(socket, id, channel, text) do
+    socket
+    |> Socket.Web.send! {:text, """
+    {
+      "id": #{id},
+      "type": "message",
+      "channel": "#{channel}",
+      "text": "#{text}"
+    }
+    """
+    }
+  end
+
+  defp handle(state) do
+    state.socket
+    |> Socket.Web.recv!
+    |> process(state)
+  end
+
+  defp process({:text, raw_json}, state) do
+    raw_json
+    |> Poison.Parser.parse!
+    |> log
+    |> do_process(state)
+    |> handle
+  end
+
+  defp log(msg) do
+    IO.inspect(msg)
+    msg
+  end
+
+  defp process(_msg, state) do
+    handle(state)
+  end
+
+  defp do_process(%{
+    "type" => "message",
+    "channel" => channel,
+    "user" => user,
+    "text" => << ?<, ?@, bot_id::size(72), ?>, ?: >> <> text},
+    %{socket: socket, bot_id: bot_id, msg_id: msg_id} = state) do
+    send_text(socket, msg_id, channel, "<@#{user}>:#{text}")
+    %{state | msg_id: msg_id+1}
+  end
+
+  defp do_process(_json, state) do
+    state
+  end
+
+  def run(token) do
+    token
+    |> start!
+    |> parse
+    |> get_config
+    |> connect
+    |> handle
+  end
+
+end

mix.exs

@@ -0,0 +1,34 @@
+defmodule Exbot.Mixfile do
+  use Mix.Project
+
+  def project do
+    [app: :exbot,
+     version: "0.0.1",
+     elixir: "~> 1.0",
+     deps: deps]
+  end
+
+  # Configuration for the OTP application
+  #
+  # Type `mix help compile.app` for more information
+  def application do
+    [applications: [:logger, :socket, :httpoison]]
+  end
+
+  # Dependencies can be Hex packages:
+  #
+  #   {:mydep, "~> 0.3.0"}
+  #
+  # Or git/path repositories:
+  #
+  #   {:mydep, git: "https://github.com/elixir-lang/mydep.git", tag: "0.1.0"}
+  #
+  # Type `mix help deps` for more examples and options
+  defp deps do
+    [
+      {:socket, github: "meh/elixir-socket"},
+      {:httpoison, "~> 0.5"},
+      {:poison, "~> 1.3.0"}
+    ]
+  end
+end

mix.lock

@@ -0,0 +1,7 @@
+%{"hackney": {:hex, :hackney, "0.14.3"},
+  "httpoison": {:hex, :httpoison, "0.5.0"},
+  "httpotion": {:hex, :httpotion, "1.0.0"},
+  "ibrowse": {:git, "git://github.com/cmullaparthi/ibrowse.git", "7871e2ebe8811efb64e1917e2de455fa87e8dfe3", [tag: "v4.1.0"]},
+  "idna": {:hex, :idna, "1.0.1"},
+  "poison": {:hex, :poison, "1.3.0"},
+  "socket": {:git, "git://github.com/meh/elixir-socket.git", "49b8604bbccd58a2e578e1b6b63c0e55ba79e7f1", []}}

test/exbot_test.exs

@@ -0,0 +1,7 @@
+defmodule ExbotTest do
+  use ExUnit.Case
+
+  test "the truth" do
+    assert 1 + 1 == 2
+  end
+end

test/test_helper.exs

@@ -0,0 +1 @@
+ExUnit.start()