From fa56644a7e2a0a82fd927c031cdde0dcdead9e8c Mon Sep 17 00:00:00 2001
From: Christine Dodrill <chrissycadey@icloud.com>
Date: Thu, 26 Dec 2019 03:59:30 +0000
Subject: [PATCH] start on Channel class

---
 spec/ngircd_channel_spec.moon        | 27 +++++++++++++++++
 src/irce/modules/ngircd/channel.moon | 43 ++++++++++++++++++++++++++++
 2 files changed, 70 insertions(+)
 create mode 100644 spec/ngircd_channel_spec.moon
 create mode 100644 src/irce/modules/ngircd/channel.moon

diff --git a/spec/ngircd_channel_spec.moon b/spec/ngircd_channel_spec.moon
new file mode 100644
index 0000000..1027e46
--- /dev/null
+++ b/spec/ngircd_channel_spec.moon
@@ -0,0 +1,27 @@
+Channel = require "irce.modules.ngircd.channel"
+
+describe "Channel", ->
+  it "requires a channel name", ->
+    assert.has.errors -> Channel {}
+
+  it "lets you create a channel", ->
+    assert.truthy Channel name: "#butts"
+
+  it "lets you set modes", ->
+    with Channel name: "#butts"
+      \add_mode "p"
+      assert .modes[1] == "p"
+      \del_mode "p"
+      assert #.modes == 0
+
+  it "requires channel membership to give hats", ->
+    with Channel name: "#butts"
+      assert.has.errors -> \add_hat "cadey", "@"
+      assert.has.errors -> \del_hat "cadey", "@"
+
+  it "lets you give people hats", ->
+    with Channel name: "#butts", members: {cadey: {}}
+      \add_hat "cadey", "@"
+      assert .members.cadey[1] == "o"
+      \del_hat "cadey", "@"
+      assert #.members.cadey == 0
diff --git a/src/irce/modules/ngircd/channel.moon b/src/irce/modules/ngircd/channel.moon
new file mode 100644
index 0000000..f800810
--- /dev/null
+++ b/src/irce/modules/ngircd/channel.moon
@@ -0,0 +1,43 @@
+modeconv = require "irce.modules.ngircd.modes"
+
+class Channel
+  new: (data) =>
+    assert data.name
+    data.members = {} unless data.members
+    data.modes = {} unless data.modes
+    data.topic = "" unless data.topic
+    for k, v in pairs data
+      self[k] = v
+
+  add_hat: (who, mode) =>
+    hat = modeconv.convert mode
+    usermodes = assert @members[who\lower!]
+    for _, chhat in pairs usermodes
+      return if chhat == hat
+
+    usermodes[#usermodes+1] = hat
+
+  del_hat: (who, mode) =>
+    hat = modeconv.convert mode
+    usermodes = assert @members[who\lower!]
+
+    for i, v in pairs usermodes
+      if v == hat
+        table.remove usermodes, i
+        return
+
+  add_mode: (mode) =>
+    for _, chmd in pairs @modes
+      return if chmd == mode
+
+    @modes[#@modes+1] = mode
+
+  del_mode: (mode) =>
+    for i, v in pairs @modes
+      if v == mode
+        table.remove @modes, i
+        return
+
+    string.format "desync detected: mode %s isn't set on %s", mode, @name
+
+Channel