# HTMLを中間表現としてのハッシュであるhthashを生成するためのクラス
module Ezframe
  module Ht
    class << self
      # メソッド名の名前のタグのhthashを生成
      def wrap_tag(opts = {})
        if opts.is_a?(String) || opts.is_a?(Array)
          h = { child: opts }
        elsif opts.is_a?(Hash)
          if opts[:tag] && !__callee__.to_s.index("wrap_tag")
            h = { child: opts }
          else
            h = opts.dup
          end
        else
          mylog("wrap_tag: unknown type: #{opts.inspect}")
          return nil
        end
        h[:tag] ||= __callee__.to_s
        raise "no tag" if h[:tag] == "wrap_tag"
        return h
      end

      alias_method :script, :wrap_tag

      alias_method :h1, :wrap_tag
      alias_method :h2, :wrap_tag
      alias_method :h3, :wrap_tag
      alias_method :h4, :wrap_tag
      alias_method :h5, :wrap_tag
      alias_method :h6, :wrap_tag
      alias_method :p, :wrap_tag
      alias_method :br, :wrap_tag
      alias_method :hr, :wrap_tag
      alias_method :div, :wrap_tag
      alias_method :span, :wrap_tag
      alias_method :i, :wrap_tag
      alias_method :strong, :wrap_tag
      alias_method :ul, :wrap_tag
      alias_method :ol, :wrap_tag
      alias_method :li, :wrap_tag
      alias_method :table, :wrap_tag
      alias_method :thead, :wrap_tag
      alias_method :tbody, :wrap_tag
      alias_method :tr, :wrap_tag
      alias_method :th, :wrap_tag
      alias_method :td, :wrap_tag
      alias_method :img, :wrap_tag
      alias_method :a, :wrap_tag
      alias_method :form, :wrap_tag
      alias_method :input, :wrap_tag
      alias_method :select, :wrap_tag
      alias_method :textarea, :wrap_tag
      alias_method :label, :wrap_tag
      alias_method :fieldset, :wrap_tag
      alias_method :nav, :wrap_tag
      alias_method :footer, :wrap_tag

      alias_method :small, :wrap_tag
      alias_method :pre, :wrap_tag

      alias_method :checkbox, :wrap_tag
      alias_method :radio, :wrap_tag

      # materialize用のiconメソッド
      # 引数が文字列だったら、それをname属性とする
      def icon(arg)
        if arg.is_a?(Hash)
          h = arg.clone
          h[:tag] = "icon"
          return wrap_tag(h)
        elsif arg.is_a?(String)
          return { tag: "icon", name: arg }
        end
      end

      # buttonタグにはデフォルトでtype=button属性を付ける
      def button(arg)
        arg[:tag] = "button"
        unless arg[:type]
          arg[:type] = "button"
        end
        wrap_tag(arg)
      end

      def multi_div(class_a, child)
        class_a.reverse.each do |klass|
          child = Ht.div(class: klass, child: child)
        end
        return child
      end

      def small_text(text)
        return small(class: %w[teal-text], child: text)
      end

      def search(ht_h, opts)
        @found ||= []
        if ht_h.is_a?(Hash)
          if opts[:tag] && ht_h[:tag] && ht_h[:tag] == opts[:tag]
            @found.push(ht_h)
          end
          if ht_h[:child]
            search(ht_h[:child], opts)
          end
        elsif ht_h.is_a?(Array)
          ht_h.map { |h| search(h, opts) }
        end
        return @found
      end
    end

    # 配列を<UL><OL>要素に変換するためのクラス
    class List < Array
      attr_accessor :tag
      def to_h(opts = {})
        return nil if self.empty?
        child = self.map do |elem|
          { tag: "li", child: elem }
        end
        h = { tag: @tag, child: child }
        h.update(opts)
        return h
      end
    end

    # 配列を<UL>要素に変換するためのクラス
    class Ul < List
      def to_h(opts = {})
        @tag = "ul"
        return super(opts)
      end
    end

    # 配列を<OL>要素に変換するためのクラス
    class Ol < List
      def to_h(opts = {})
        @tag = "ol"
        return super(opts)
      end
    end

    # テーブルを生成するためのクラス
    # @matrix ... テーブルの内容となる二次元配列
    # @header ... テーブルの先頭に付ける項目名の配列
    # @class_a ... <table><tr><td>の各ノードにそれぞれ設定したいclass属性を配列として定義
    class Table
      attr_accessor :class_a, :header, :matrix

      def initialize(matrix = nil)
        set(matrix) if matrix
        @matrix ||= []
      end

      def set(matrix)
        @matrix = matrix
      end

      def add_row(row)
        @matrix.push(row)
      end

      def to_h
        table_class, tr_class, td_class = @class_a
        max_col = 0
        @matrix.each { |row| max_col = row.length if max_col < row.length }
        tr_a = @matrix.map do |row|
          add_attr = nil
          add_attr = { colspan: max_col - row.length + 1 } if row.length < max_col
          td_a = row.map do |v| 
            td = Ht.td(child: v) 
            td.add_class(td_class) if td_class
            td
          end
          td_a[0].update(add_attr) if add_attr
          tr = Ht.tr(class: tr_class, child: td_a)
          tr.add_class(tr_class) if tr_class
          tr
        end
        tr_a.unshift( Ht.thead(child: Ht.tr(child: @header.map {|v| Ht.th(child: v) }) )) if @header
        tb = Ht.table(child: tr_a)
        tb.add_class(table_class) if table_class
        tb
      end
    end
  end
end