www_app 1.3.0 → 2.0.0

data/lib/www_app/CSS.rb

@@ -0,0 +1,310 @@
+
+class WWW_App
+
+  module CSS
+    COMMA = ", ".freeze
+
+    AT_RULES    = [ 'font-face', 'media' ]
+
+    # === From:
+    # https://developer.mozilla.org/en-US/docs/Web/CSS/Pseudo-classes
+    PSEUDO = %w[
+     active checked default dir() disabled
+     empty enabled
+     first first-child first-of-type fullscreen focus
+     hover
+     indeterminate in-range invalid
+     lang() last-child last-of-type left link
+     not() nth-child() nth-last-child() nth-last-of-type() nth-of-type()
+     only-child only-of-type optional out-of-range
+     read-only read-write required right root
+     scope
+     target
+     valid visited
+    ].select { |name| name[/\A[a-z0-9\-]+\Z/] }.map { |name| name.gsub('-', '_').to_sym }
+
+      # From: Sanitize::Config::RELAXED[:css][:properties]
+    PROPERTIES = %w[
+      background                 bottom                     font_variant_position      quotes
+      background_attachment      box_decoration_break       font_weight                resize
+      background_clip            box_shadow                 height                     right
+      background_color           box_sizing                 hyphens                    tab_size
+      background_image           clear                      icon                       table_layout
+      background_origin          clip                       image_orientation          text_align
+      background_position        clip_path                  image_rendering            text_align_last
+      background_repeat          color                      image_resolution           text_combine_horizontal
+      background_size            column_count               ime_mode                   text_decoration
+      border                     column_fill                justify_content            text_decoration_color
+      border_bottom              column_gap                 left                       text_decoration_line
+      border_bottom_color        column_rule                letter_spacing             text_decoration_style
+      border_bottom_left_radius  column_rule_color          line_height                text_indent
+      border_bottom_right_radius column_rule_style          list_style                 text_orientation
+      border_bottom_style        column_rule_width          list_style_image           text_overflow
+      border_bottom_width        column_span                list_style_position        text_rendering
+      border_collapse            column_width               list_style_type            text_shadow
+      border_color               columns                    margin                     text_size_adjust
+      border_image               counter_increment          margin_bottom              text_transform
+      border_image_outset        counter_reset              margin_left                text_underline_position
+      border_image_repeat        cursor                     margin_right               top
+      border_image_slice         direction                  margin_top                 touch_action
+      border_image_source        display                    marks                      transform
+      border_image_width         empty_cells                mask                       transform_origin
+      border_left                filter                     mask_type                  transform_style
+      border_left_color          float                      max_height                 transition
+      border_left_style          font                       max_width                  transition_delay
+      border_left_width          font_family                min_height                 transition_duration
+      border_radius              font_feature_settings      min_width                  transition_property
+      border_right               font_kerning               opacity                    transition_timing_function
+      border_right_color         font_language_override     order                      unicode_bidi
+      border_right_style         font_size                  orphans                    unicode_range
+      border_right_width         font_size_adjust           overflow                   vertical_align
+      border_spacing             font_stretch               overflow_wrap              visibility
+      border_style               font_style                 overflow_x                 white_space
+      border_top                 font_synthesis             overflow_y                 widows
+      border_top_color           font_variant               padding                    width
+      border_top_left_radius     font_variant_alternates    padding_bottom             word_break
+      border_top_right_radius    font_variant_caps          padding_left               word_spacing
+      border_top_style           font_variant_east_asian    padding_right              word_wrap
+      border_top_width           font_variant_ligatures     padding_top                z_index
+      border_width               font_variant_numeric       position
+    ].map(&:to_sym)
+
+    PROPERTIES.each { |name|
+      eval <<-EOF, nil, __FILE__, __LINE__ + 1
+        def #{name} *args
+          alter_css_property(:#{name}, *args)
+          block_given? ?
+            close { yield } :
+            self
+        end
+      EOF
+    }
+
+    PSEUDO.each { |name|
+      eval <<-EOF, nil, __FILE__, __LINE__ + 1
+        def _#{name} *args
+          pseudo :#{name}, *args
+          block_given? ?
+            close { yield } :
+            self
+        end
+      EOF
+    }
+
+    #
+    # Ex:
+    #   style {
+    #     div.^(:bad).__.div {
+    #     }
+    #
+    def __
+      fail "Can only be used inside :style tag" unless ancestor?(:style)
+
+      if !@tag || (@tag[:tag_name] == :group || @tag[:tag_name] == :groups)
+        fail "Can only be used after an HTML element is created: #{@tag[:tag_name].inspect}"
+      end
+
+      @tag[:__] = true
+      go_up
+      self
+    end
+
+    #
+    # Example:
+    #   style {
+    #     a._link / a._hover {
+    #       ...
+    #     }
+    #   }
+    #
+    #   link.href('/file')./
+    #
+    def / *args
+      fail "No block allowed here." if block_given?
+
+      case args.size
+      when 0
+        close
+      when 1
+        self
+      else
+        fail ::ArgumentError, "Unknown args: #{args.inspect[0,50]}"
+      end
+    end
+
+    #
+    # Example:
+    #   css_selector
+    #   css_selector tag
+    #   css_selector :full || :tag || :ancestor
+    #   css_selector tag, :full || :tag || :ancestor
+    #
+    def css_selector *args
+      tag  = @tag
+      type = :full
+      args.each { |a|
+        case
+        when a.is_a?(Symbol)
+          type = a
+        else
+          tag = a
+        end
+      }
+
+      metaphor = (de_ref(tag) || {}.freeze)
+
+      final = case
+
+              when type == :full && tag?(metaphor, :group)
+                css = metaphor[:children].inject([]) { |memo, c|
+                  if !(tag?(c, :group)) && !c[:__parent]
+                    memo << css_selector(c, :full)
+                  end
+                  memo
+                }
+
+                if css
+                  css.join COMMA
+                else
+                  nil
+                end
+
+              when tag?(metaphor, :style)
+                p = metaphor[:parent]
+                if p
+                  css_selector p, type
+                end
+
+              when type == :full && parent?(metaphor, :group)
+                grand_parent = metaphor[:parent][:parent]
+                grand_css    = grand_parent && css_selector(grand_parent, :full)
+                use_grand    = !(metaphor[:__] && metaphor[:__children].detect { |e| tag?(e, :_) })
+
+                if grand_css && use_grand
+                  grand_css.split(COMMA).map { |css|
+                    css << SPACE << css_selector(metaphor, :tag)
+                  }.join COMMA
+                else
+                  css_selector metaphor, :tag
+                end
+
+              when type == :tag
+                id = metaphor[:id]
+                name = if id
+                         '#' << Clean.html_id(id).to_s
+                       else
+                         metaphor[:tag_name].to_s
+                       end
+
+                if metaphor[:class]
+                  name << '.'.freeze
+                  name.<<(
+                    metaphor[:class].map { |name|
+                      Clean.css_class_name(name.to_s)
+                    }.join('.'.freeze)
+                  )
+                end
+
+                if metaphor[:pseudo]
+                  name << ":#{metaphor[:pseudo]}"
+                end
+
+                if tag[:__]
+                  name << SPACE << tag[:__children].map { |c|
+                    css_selector(c, :tag)
+                  }.join(SPACE)
+                end
+
+                name = if name.empty?
+                         nil
+                       else
+                         name
+                       end
+
+              when type == :ancestor
+                if metaphor[:id]
+                  nil
+                else
+                  selectors = []
+                  p         = metaphor[:parent]
+                  while p
+                    selectors.unshift(css_selector(p, :tag)) unless [:style, :group].freeze.include?(p[:tag_name])
+                    p = p[:id] ? nil : p[:parent]
+                  end # === while
+
+                  selectors.compact.join(SPACE)
+                end
+
+              else
+                [css_selector(metaphor, :ancestor), css_selector(metaphor, :tag)].compact.join SPACE
+              end
+
+      return nil if !final || final.empty?
+      final.gsub(' _!:'.freeze, ':'.freeze)
+    end
+
+    private # ==================================
+
+    def pseudo name
+      origin = @tag
+      case
+
+      when tag?(:style) 
+        #
+        # WHEN:
+        #
+        #   style {
+        #     _link {
+        #
+        create :group
+        create :_
+
+      when ancestor?(:groups) && @tag[:closed]
+        #
+        # WHEN:
+        #
+        #   style {
+        #     div   { ... }
+        #     _link { ... }
+        #
+        create :group
+        create :_!
+
+      when (tag?(:_) || tag?(:_!)) && @tag[:pseudo]
+        # WHEN:
+        #   style {
+        #     _link / _visited
+        tag_name = @tag[:tag_name]
+        go_up
+        create tag_name
+
+      when @tag[:pseudo] && !@tag[:closed]
+        puts @tag
+        # Ex:
+        #   a._link._visited { ... }
+        fail "Applying two pseudos at the same element: #{@tag[:pseudo].inspect} #{name.inspect}"
+
+      end # === case
+
+      @tag[:pseudo] = name
+      block_given? ?
+        close { yield } :
+        self
+    end
+
+    def alter_css_property name, *args
+      if !@tag
+        self._
+      end
+      @tag[:css] ||= {}
+      @tag[:css][name] = args.size == 1 ? args.first : args
+      self
+    end
+
+    def style
+      create :style, :type=>'text/css', :groups=>true
+      close { yield }
+    end
+
+  end # === module CSS ==============
+end # === class WWW_App =============

data/lib/www_app/HTML.rb

@@ -0,0 +1,219 @@
+
+class WWW_App
+  module HTML
+
+    SELF_CLOSING_TAGS = [:br, :input, :link, :meta, :hr, :img]
+    NO_NEW_LINES = [:p, :code, :span].freeze
+
+    TAGS   = %w[
+      title
+      body   div    span
+
+      img
+      b      em     i  strong  u  a 
+      abbr   blockquote  cite
+      br     cite   code 
+      ul     ol     li  p  pre  q 
+      sup    sub 
+      form   input  button
+
+      link
+
+      script
+    ].map(&:to_sym)
+
+    TAGS_TO_ATTRIBUTES = {
+      :all         => [:id, :class],
+      :a           => [:href, :rel],
+      :form        => [:action, :method, :accept_charset],
+      :input       => [:type, :name, :value],
+      :style       => [:type],
+      :script      => [:type, :src, :language],
+      :link        => [:rel, :type, :sizes, :href, :title],
+      :meta        => [:name, :http_equiv, :property, :content, :charset],
+      :img         => [:src], # :width, :height will be used by CSS only.
+      :html        => [:lang]
+    }
+
+    ATTRIBUTES_TO_TAGS = TAGS_TO_ATTRIBUTES.inject({}) { |memo, (tag, attrs)|
+      attrs.each { |a|
+        memo[a] ||= []
+        memo[a] << tag
+      }
+      memo
+    }
+
+    ATTRIBUTES = ATTRIBUTES_TO_TAGS.keys
+
+    ATTRIBUTES_TO_TAGS.each { |name, tags|
+      eval <<-EOF, nil, __FILE__, __LINE__ + 1
+        def #{name} val
+          alter_attribute :#{name}, val
+          block_given? ?
+            close { yield } :
+            self
+        end
+      EOF
+    }
+
+    TAGS.each { |name|
+      eval <<-EOF, nil, __FILE__, __LINE__ + 1
+        def #{name}
+          create(:#{name})
+          block_given? ?
+            close { yield } :
+            self
+        end
+      EOF
+    }
+
+    def alter_attribute name, val
+      allowed = @tag &&
+        ATTRIBUTES_TO_TAGS[name] &&
+        ATTRIBUTES_TO_TAGS[name].include?(@tag[:tag_name])
+
+      fail "#{name.inspect} not allowed to be set here." unless allowed
+
+      @tag[name] = val
+
+      block_given? ?
+        close { yield } :
+        self
+    end
+
+    def meta *args
+      fail "No block allowed." if block_given?
+      fail "Not allowed here." if parent
+      create(:meta, *args)
+    end
+
+    def title
+      fail ":title not allowed here" if parent
+      create :title do
+        yield
+      end
+    end
+
+    def id new_id
+      if !@tag
+        fail "No HTML tag found. Try using _.id(#{new_id.inspect})"
+      end
+
+      if !ancestor?(:group)
+        old_id = @tag[:id]
+        if old_id && old_id != new_id
+          fail("Id already set: #{old_id} new: #{new_id}")
+        end
+
+        if @html_ids[new_id]
+          fail(HTML_ID_Duplicate, "Id already used: #{new_id.inspect}, tag index: #{@html_ids[new_id]}")
+        end
+        @html_ids[ new_id ] = new_id
+      end
+
+      @tag[:id] = new_id
+
+      if block_given?
+        close { yield }
+      else
+        self
+      end
+    end # === def id
+
+    def is_fragment?
+      !is_doc?
+    end
+
+    def is_doc?
+      @is_doc ||= begin
+                    found = false
+                    tags = @tags.dup
+                    while !found && !tags.empty?
+                      t = tags.shift
+                      found = begin
+                                (t[:tag_name] == :body && (t[:id] || t[:css]) ) ||
+                                  t[:tag_name] == :style                        ||
+                                  t[:tag_name] == :script                       ||
+                                  t[:tag_name] == :meta                         ||
+                                  t[:css]                                       ||
+                                  (t[:tag_name] == :title && t[:parent] && t[:parent][:tag_name] == :body)
+                              end
+                      if !found && t[:children]
+                        tags = t[:children].concat(tags)
+                      end
+                    end
+
+                    found
+                  end
+    end # === def is_doc?
+
+    def lang name
+      fail "Tag has to be placed tomost of the page." if parent
+      fail "Block not allowed here." if block_given?
+      create :html_tag_attr do
+        @tag[:lang] = name.to_s.downcase.gsub(/[^a-z0-9\_\-]+/, ''.freeze)
+        @tag[:lang] = 'en' if @tag[:lang].empty?
+      end
+
+      self
+    end
+
+    #
+    # Example:
+    #   div.^(:alert, :red_hot) { 'my content' }
+    #
+    def ^ *names
+      @tag[:class] ||= []
+      @tag[:class].concat(names)
+
+      if block_given?
+        close { yield }
+      else
+        self
+      end
+    end
+
+    def render_if name
+      fail ::ArgumentError, "Not a symbol: #{name.inspect}" unless name.is_a?(Symbol)
+      raw_text %^{{#coll.#{name}}}^
+      yield
+      raw_text %^{{/coll.#{name}}}^
+      nil
+    end
+
+    def render_unless name
+      fail ::ArgumentError, "Not a symbol: #{name.inspect}" unless name.is_a?(Symbol)
+      raw_text %!{{^coll.#{name}}}!
+      yield
+      raw_text %!{{/coll.#{name}}}!
+      nil
+    end
+
+    def input *args
+      case
+      when args.size === 3
+        create(:input, :type=>args[0].to_s, :name=>args[1].to_s, :value=>args[2], :closed=>true)
+        go_up
+      else
+        super
+      end
+    end
+
+    def script src = nil
+
+      if src.is_a?(String) && src['.js'.freeze]
+        return create(:script, :src=>src) { }
+      end
+
+      attrs = {
+        :type => src || "text/mustache"
+      }
+
+      create :script, attrs
+      close { yield } if block_given?
+      self
+    end
+
+  end # === module HTML
+end # === class WWW_App
+

data/lib/www_app/JavaScript.rb

@@ -0,0 +1,51 @@
+
+class WWW_App
+  module JavaScript
+
+    class DSL < BasicObject
+
+      include ::Kernel
+
+      def initialize &blok
+        @js = []
+        instance_eval &blok
+      end
+
+      %w[ add_class ].each { |name|
+        eval <<-EOF, nil, __FILE__, __LINE__ + 1
+          def #{name} *args
+            run_method :#{name}, args
+          end
+        EOF
+      }
+      def run_method name, args
+        self << name
+        self << args
+        self
+      end
+
+      def raw_code
+        @js
+      end
+
+      def concat arr
+        @js.concat(arr)
+      end
+
+      def << *args
+        @js.<<(*args)
+      end
+
+      def capture &blok
+        orig = @js
+        new  = []
+        @js = new
+        instance_eval &blok
+        @js = orig
+        new
+      end
+
+    end # === class DSL
+
+  end # === module JavaScript
+end # === class WWW_App