atig/atig

# -*- mode:ruby; coding:utf-8 -*-

module Atig
  module Channel
    class List
      class Handler
        def initialize(db, name)
          @db   = db
          @name = name
        end

        def on_invite(api, nick)
          return if @name.include? '^'

          api.post("lists/members/create", screen_name: nick, owner_screen_name: @db.me.screen_name, slug: @name )
          @db.lists.invalidate @name
        end

        def on_kick(api, nick)
          return if @name.include? '^'

          api.post("lists/members/destroy", screen_name: nick, owner_screen_name: @db.me.screen_name, slug: @name )
          @db.lists.invalidate @name
        end

        def on_who(&f)
          return unless f
          @db.lists[@name].users.each(&f)
        end
      end

      def initialize(context, gateway, db)
        @channels = Hash.new do|hash,name|
          channel = gateway.channel "##{name}", handler: Handler.new(db, name)
          channel.join_me
          hash[name] = channel
        end

        db.statuses.listen do|entry|
          if entry.source == :list then
            @channels[entry.list].message entry
          else
            lists = db.lists.find_by_screen_name(entry.user.screen_name)
            lists.each{|name|
              @channels[name].message entry
            }
          end
        end

        db.statuses.listen do|entry|
          if entry.user.id == db.me.id
            @channels.each{|_,channel|
              channel.topic entry
            }
          end
        end

        db.lists.listen do|kind, name, users|
          case kind
          when :new
            @channels[name].join_me
            @channels[name].join db.lists[name].users
          when :del
            @channels[name].part_me "No longer follow the list #{name}"
          when :join
            @channels[name].join users
          when :part
            @channels[name].part users
          when :mode
          end
        end
      end
    end
  end
end