# ~*~ encoding: utf-8 ~*~
module Gollum
  # Encapsulate sanitization options.
  #
  # This class does not yet support all options of Sanitize library.
  # See http://github.com/rgrove/sanitize/.
  class Sanitization
    # Default whitelisted elements.
    ELEMENTS   = [
        'a', 'abbr', 'acronym', 'address', 'area', 'b', 'big',
        'blockquote', 'br', 'button', 'caption', 'center', 'cite',
        'code', 'col', 'colgroup', 'dd', 'del', 'dfn', 'dir',
        'div', 'dl', 'dt', 'em', 'fieldset', 'font', 'form', 'h1',
        'h2', 'h3', 'h4', 'h5', 'h6', 'hr', 'i', 'iframe', 'img', 'input',
        'ins', 'kbd', 'label', 'legend', 'li', 'map', 'menu',
        'ol', 'optgroup', 'option', 'p', 'pre', 'q', 's', 'samp',
        'select', 'small', 'span', 'strike', 'strong', 'sub',
        'sup', 'table', 'tbody', 'td', 'textarea', 'tfoot', 'th',
        'thead', 'tr', 'tt', 'u', 'ul', 'var'
    ].freeze

    # Default whitelisted attributes.
    ATTRIBUTES = {
        'a'   => ['href'],
        'img' => ['src'],
        'iframe' => ['src', 'width', 'height', 'frameborder', 'allowfullscreen'],
        :all  => ['abbr', 'accept', 'accept-charset',
                  'accesskey', 'action', 'align', 'alt', 'axis',
                  'border', 'cellpadding', 'cellspacing', 'char',
                  'charoff', 'class', 'charset', 'checked', 'cite',
                  'clear', 'cols', 'colspan', 'color',
                  'compact', 'coords', 'datetime', 'dir',
                  'disabled', 'enctype', 'for', 'frame',
                  'headers', 'height', 'hreflang',
                  'hspace', 'id', 'ismap', 'label', 'lang',
                  'longdesc', 'maxlength', 'media', 'method',
                  'multiple', 'name', 'nohref', 'noshade',
                  'nowrap', 'prompt', 'readonly', 'rel', 'rev',
                  'rows', 'rowspan', 'rules', 'scope',
                  'selected', 'shape', 'size', 'span',
                  'start', 'summary', 'tabindex', 'target',
                  'title', 'type', 'usemap', 'valign', 'value',
                  'vspace', 'width']
    }.freeze

    # Default whitelisted protocols for URLs.
    PROTOCOLS  = {
        'a'    => { 'href' => ['http', 'https', 'mailto', 'ftp', 'irc', 'apt', :relative] },
        'img'  => { 'src' => ['http', 'https', :relative] },
        'iframe'  => { 'src' => ['http', 'https'] },
        'form' => { 'action' => ['http', 'https', :relative] }
    }.freeze

    ADD_ATTRIBUTES  = lambda do |env, node|
      if add = env[:config][:add_attributes][node.name]
        add.each do |key, value|
          node[key] = value
        end
      end
    end

    # Default elements whose contents will be removed in addition
    # to the elements themselve
    REMOVE_CONTENTS = [
        'script',
        'style'
    ].freeze

    # Default transformers to force @id attributes with 'wiki-' prefix
    TRANSFORMERS    = [
        lambda do |env|
          node = env[:node]
          return if env[:is_whitelisted] || !node.element?
          prefix      = env[:config][:id_prefix]
          found_attrs = %w(id name).select do |key|
            if value = node[key]
              node[key] = value.gsub(/\A(#{prefix})?/, prefix)
            end
          end
          if found_attrs.size > 0
            ADD_ATTRIBUTES.call(env, node)
            {}
          end
        end,
        lambda do |env|
          node = env[:node]
          return unless value = node['href']
          prefix       = env[:config][:id_prefix]
          node['href'] = value.gsub(/\A\#(#{prefix})?/, '#'+prefix)
          ADD_ATTRIBUTES.call(env, node)
          {}
        end
    ].freeze

    # Gets an Array of whitelisted HTML elements.  Default: ELEMENTS.
    attr_reader :elements

    # Gets a Hash describing which attributes are allowed in which HTML
    # elements.  Default: ATTRIBUTES.
    attr_reader :attributes

    # Gets a Hash describing which URI protocols are allowed in HTML
    # attributes.  Default: PROTOCOLS
    attr_reader :protocols

    # Gets a Hash describing which URI protocols are allowed in HTML
    # attributes.  Default: TRANSFORMERS
    attr_reader :transformers

    # Gets or sets a String prefix which is added to ID attributes.
    # Default: ''
    attr_accessor :id_prefix

    # Gets a Hash describing HTML attributes that Sanitize should add.
    # Default: {}
    attr_reader :add_attributes

    # Gets an Array of element names whose contents will be removed in addition
    # to the elements themselves. Default: REMOVE_CONTENTS
    attr_reader :remove_contents

    # Sets a boolean determining whether Sanitize allows HTML comments in the
    # output.  Default: false.
    attr_writer :allow_comments

    def initialize
      @elements        = ELEMENTS.dup
      @attributes      = ATTRIBUTES.dup
      @protocols       = PROTOCOLS.dup
      @transformers    = TRANSFORMERS.dup
      @add_attributes  = {}
      @remove_contents = REMOVE_CONTENTS.dup
      @allow_comments  = false
      @id_prefix       = ''
      yield self if block_given?
    end

    # Determines if Sanitize should allow HTML comments.
    #
    # Returns True if comments are allowed, or False.
    def allow_comments?
      !!@allow_comments
    end

    # Modifies the current Sanitization instance to sanitize older revisions
    # of pages.
    #
    # Returns a Sanitization instance.
    def history_sanitization
      self.class.new do |sanitize|
        sanitize.add_attributes['a'] = { 'rel' => 'nofollow' }
      end
    end

    # Builds a Hash of options suitable for Sanitize.clean.
    #
    # Returns a Hash.
    def to_hash
      { :elements        => elements,
        :attributes      => attributes,
        :protocols       => protocols,
        :add_attributes  => add_attributes,
        :remove_contents => remove_contents,
        :allow_comments  => allow_comments?,
        :transformers    => transformers,
        :id_prefix       => id_prefix
      }
    end

    # Builds a Sanitize instance from the current options.
    #
    # Returns a Sanitize instance.
    def to_sanitize
      Sanitize.new(to_hash)
    end
  end
end

