pouet

3 files changed, 170 insertions, 1 deletions

diff --git a/lib/lsg_irc/link_plugin/github.ex b/lib/lsg_irc/link_plugin/github.ex
new file mode 100644
index 0000000..c7444c2
--- /dev/null
+++ b/lib/lsg_irc/link_plugin/github.ex
@@ -0,0 +1,44 @@
+defmodule LSG.IRC.LinkPlugin.Github do
+  @behaviour LSG.IRC.LinkPlugin
+
+  def match(uri = %URI{host: "github.com", path: path}, _) do
+    case String.split(path, "/") do
+      ["", user, repo] ->
+        {true, %{user: user, repo: repo, path: "#{user}/#{repo}"}}
+      _ ->
+        false
+    end
+  end
+
+  def match(_, _), do: false
+
+  def expand(_uri, %{user: user, repo: repo}, _opts) do
+    case HTTPoison.get("https://api.github.com/repos/#{user}/#{repo}") do
+      {:ok, %HTTPoison.Response{status_code: 200, body: body}} ->
+        {:ok, json} = Jason.decode(body)
+        src = json["source"]["full_name"]
+        disabled = if(json["disabled"], do: " (disabled)", else: "")
+        archived = if(json["archived"], do: " (archived)", else: "")
+        fork = if src && src  != json["full_name"] do
+          " (⑂ #{json["source"]["full_name"]})"
+        else
+          ""
+        end
+        start = "#{json["full_name"]}#{disabled}#{archived}#{fork} - #{json["description"]}"
+        tags = for(t <- json["topics"]||[], do: "##{t}") |> Enum.intersperse(", ") |> Enum.join("")
+        lang = if(json["language"], do: "#{json["language"]} - ", else: "")
+        issues = if(json["open_issues_count"], do: "#{json["open_issues_count"]} issues - ", else: "")
+        last_push = if at = json["pushed_at"] do
+          {:ok, date, _} = DateTime.from_iso8601(at)
+          " - last pushed #{DateTime.to_string(date)}"
+        else
+          ""
+        end
+        network = "#{lang}#{issues}#{json["stargazers_count"]} stars - #{json["subscribers_count"]} watchers - #{json["forks_count"]} forks#{last_push}"
+        {:ok, [start, tags, network]}
+      other ->
+        :error
+    end
+  end
+
+end
diff --git a/lib/lsg_irc/link_plugin/reddit_plugin.ex b/lib/lsg_irc/link_plugin/reddit_plugin.ex
new file mode 100644
index 0000000..a7f5235
--- /dev/null
+++ b/lib/lsg_irc/link_plugin/reddit_plugin.ex
@@ -0,0 +1,114 @@
+defmodule LSG.IRC.LinkPlugin.Reddit do
+  @behaviour LSG.IRC.LinkPlugin
+
+  def match(uri = %URI{host: "reddit.com", path: path}, _) do
+    case String.split(path, "/") do
+      ["", "r", sub, "comments", post_id, _slug] ->
+        {true, %{mode: :post, path: path, sub: sub, post_id: post_id}}
+      ["", "r", sub, "comments", post_id, _slug, ""] ->
+        {true, %{mode: :post, path: path, sub: sub, post_id: post_id}}
+      ["", "r", sub, ""] ->
+        {true, %{mode: :sub, path: path, sub: sub}}
+      ["", "r", sub] ->
+        {true, %{mode: :sub, path: path, sub: sub}}
+#      ["", "u", user] ->
+#        {true, %{mode: :user, path: path, user: user}}
+      _ ->
+        false
+    end
+  end
+
+  def match(uri = %URI{host: host, path: path}, opts) do
+    if String.ends_with?(host, ".reddit.com") do
+      match(%URI{uri | host: "reddit.com"}, opts)
+    else
+      false
+    end
+  end
+
+  def expand(_, %{mode: :sub, sub: sub}, _opts) do
+    url = "https://api.reddit.com/r/#{sub}/about"
+    case HTTPoison.get(url) do
+      {:ok, %HTTPoison.Response{status_code: 200, body: body}} ->
+        sr = Jason.decode!(body)
+             |> Map.get("data")
+                      |> IO.inspect(limit: :infinity)
+        description = Map.get(sr, "public_description")||Map.get(sr, "description", "")
+                      |> String.split("\n")
+                      |> List.first()
+        name = if title = Map.get(sr, "title") do
+          Map.get(sr, "display_name_prefixed") <> ": " <> title
+        else
+          Map.get(sr, "display_name_prefixed")
+        end
+        nsfw = if Map.get(sr, "over18") do
+          "[NSFW] "
+        else
+          ""
+        end
+        quarantine = if Map.get(sr, "quarantine") do
+          "[Quarantined] "
+        else
+          ""
+        end
+        count = "#{Map.get(sr, "subscribers")} subscribers, #{Map.get(sr, "active_user_count")} active"
+        preview = "#{quarantine}#{nsfw}#{name} — #{description} (#{count})"
+        {:ok, preview}
+      _ ->
+        :error
+    end
+  end
+
+  def expand(_uri, %{mode: :post, path: path, sub: sub, post_id: post_id}, _opts) do
+    case HTTPoison.get("https://api.reddit.com#{path}?sr_detail=true") do
+      {:ok, %HTTPoison.Response{status_code: 200, body: body}} ->
+        json = Jason.decode!(body)
+        op = List.first(json)
+             |> Map.get("data")
+             |> Map.get("children")
+             |> List.first()
+             |> Map.get("data")
+             |> IO.inspect(limit: :infinity)
+        sr = get_in(op, ["sr_detail", "display_name_prefixed"])
+        {self?, url} = if Map.get(op, "selftext") == "" do
+          {false, Map.get(op, "url")}
+        else
+          {true, nil}
+        end
+
+        self_str = if(self?, do: "text", else: url)
+        up = Map.get(op, "ups")
+        down = Map.get(op, "downs")
+        comments = Map.get(op, "num_comments")
+        nsfw = if Map.get(op, "over_18") do
+          "[NSFW] "
+        else
+          ""
+        end
+        state = cond do
+          Map.get(op, "hidden") -> "hidden"
+          Map.get(op, "archived") -> "archived"
+          Map.get(op, "locked") -> "locked"
+          Map.get(op, "quarantine") -> "quarantined"
+          Map.get(op, "removed_by") || Map.get(op, "removed_by_category") -> "removed"
+          Map.get(op, "banned_by") -> "banned"
+          Map.get(op, "pinned") -> "pinned"
+          Map.get(op, "stickied") -> "stickied"
+          true -> nil
+        end
+        flair = if flair = Map.get(op, "link_flair_text") do
+          "[#{flair}] "
+        else
+          ""
+        end
+        title = "#{nsfw}#{sr}: #{flair}#{Map.get(op, "title")}"
+        state_str = if(state, do: "#{state}, ")
+        content = "by u/#{Map.get(op, "author")} - #{state_str}#{up} up, #{down} down, #{comments} comments - #{self_str}"
+
+        {:ok, [title, content]}
+      err ->
+        :error
+    end
+  end
+
+end
diff --git a/lib/lsg_irc/link_plugin/twitter.ex b/lib/lsg_irc/link_plugin/twitter.ex
index 04dea7c..a6b6e29 100644
--- a/lib/lsg_irc/link_plugin/twitter.ex
+++ b/lib/lsg_irc/link_plugin/twitter.ex
@@ -55,6 +55,17 @@ defmodule LSG.IRC.LinkPlugin.Twitter do
     {:ok, at} = Timex.parse(tweet.created_at, "%a %b %e %H:%M:%S %z %Y", :strftime)
     {:ok, format} = Timex.format(at, "{relative}", :relative)
 
+    replyto = if tweet.in_reply_to_status_id do
+      replyurl = "https://twitter.com/#{tweet.in_reply_to_screen_name}/status/#{tweet.in_reply_to_status_id}"
+      if tweet.in_reply_to_screen_name == tweet.user.screen_name do
+        "— continued from #{replyurl}"
+      else
+        "— replying to #{replyurl}"
+      end
+    else
+      ""
+    end
+
     quoted = if tweet.quoted_status do
       quote_url = "https://twitter.com/#{tweet.quoted_status.user.screen_name}/status/#{tweet.quoted_status.id}"
       full_text = expand_twitter_text(tweet.quoted_status)
@@ -66,7 +77,7 @@ defmodule LSG.IRC.LinkPlugin.Twitter do
 
     foot = "— #{format} - #{tweet.retweet_count} retweets - #{tweet.favorite_count} likes"
 
-    text = ["#{tweet.user.name} (@#{tweet.user.screen_name}):"] ++ text ++ quoted ++ [foot]
+    text = ["#{tweet.user.name} (@#{tweet.user.screen_name}):", replyto] ++ text ++ quoted ++ [foot]
     {:ok, text}
   end