liquor 0.1.1 → 0.9.1

data/lib/liquor/stdlib/builtin_tags.rb

@@ -0,0 +1,228 @@
+module Liquor
+  module Builtins
+    include Library
+
+    tag "declare" do |emit, context, node|
+      arg, kw = check_args node,
+          :ident,
+          :"=" => :expr
+
+      var_name, = nvalue(arg)
+      expr      = kw[:"="]
+
+      expr_result = emit.expr(expr)
+
+      context.declare var_name, nloc(arg)
+      emit.out! %Q|#{context.access(var_name)} = #{expr_result}\n|
+    end
+
+    tag "assign" do |emit, context, node|
+      arg, kw = check_args node,
+          :ident,
+          :"=" => :expr
+
+      var_name, = nvalue(arg)
+      expr      = kw[:"="]
+
+      expr_result = emit.expr(expr)
+
+      unless context.variable? var_name
+        context.declare var_name, nloc(arg)
+      end
+
+      emit.out! %Q|#{context.access(var_name)} = #{expr_result}\n|
+    end
+
+    class ForLoop
+      include Liquor::External
+
+      def initialize(length)
+        @length = length
+        @index  = 0
+      end
+
+      attr_reader   :length
+      attr_accessor :index
+
+      def next!
+        @index += 1
+      end
+
+      def rindex
+        @length - @index - 1
+      end
+
+      def is_first
+        @index == 0
+      end
+
+      def is_last
+        @index == @length - 1
+      end
+
+      export :length, :index, :rindex, :is_first, :is_last
+    end
+
+    tag "for" do |emit, context, node|
+      name, arg, *kwargs = nvalue(node)
+
+      if kwargs.empty?
+        raise SyntaxError.new("unexpected end of tag, expecting one of: `in:', `from:'.", nloc(node))
+      elsif kwname(kwargs[0]) == 'in'
+        arg, kw = check_args node,
+            :ident,
+            :in => :expr,
+            :do => :block
+      elsif kwname(kwargs[0]) == 'from'
+        arg, kw = check_args node,
+            :ident,
+            :from => :expr,
+            :to   => :expr,
+            :do   => :block
+      else
+        raise SyntaxError.new("unexpected `#{kwname(kwargs[0])}:', expecting one of: `in:', `from:'.", nloc(kwargs[0]))
+      end
+
+      var_name,    = nvalue(arg)
+      indexer_name = "#{var_name}_loop"
+
+      context.nest do
+        if kw[:in]
+          indexer  = %{Liquor::Builtins::ForLoop.new(#{emit.check_tuple(kw[:in])}.size)}
+          seq      = emit.check_tuple(kw[:in])
+        elsif kw[:from]
+          indexer  = %{Liquor::Builtins::ForLoop.new(#{emit.check_integer(kw[:to])} - #{emit.check_integer(kw[:from])})}
+          from, to = emit.check_integer(kw[:from]), emit.check_integer(kw[:to])
+        end
+
+        context.declare var_name, nloc(arg)
+        context.declare indexer_name
+
+        if kw[:in]
+          emit.out! %Q|#{context.access indexer_name} = #{indexer}\n|
+          emit.out! %Q|for #{context.access(var_name)} in #{seq}\n|
+        elsif kw[:from]
+          emit.out! %Q|#{context.access indexer_name} = #{indexer}\n|
+          emit.out! %Q<#{from}.upto(#{to}) do |#{context.access(var_name)}|\n>
+        end
+
+        emit.compile_block kw[:do]
+
+        emit.out! %Q|#{context.access indexer_name}.next!\n|
+        emit.out! %Q|end\n|
+      end
+    end
+
+    tag "if", continuations: %w(elsif) do |emit, context, node|
+      tag_name, arg, *kwargs = nvalue(node)
+
+      state = :begin
+      while state
+        case state
+        when :begin
+          if arg.nil?
+            if kwargs.empty?
+              raise SyntaxError.new("unexpected end of tag, expecting `expression'", nloc(node))
+            else
+              raise SyntaxError.new("unexpected `#{kwname(kwargs[0])}:', expecting `expression'", nloc(kwargs[0]))
+            end
+          end
+
+          emit.out! %Q|if #{emit.convert_boolean(arg)}\n|
+          state = :then
+
+        when :elsif
+          kwarg = kwargs.shift
+
+          if kwarg.nil?
+            state = nil
+          elsif kwname(kwarg) == 'elsif'
+            check_arg_type(kwarg, :expr)
+
+            emit.out! %Q|elsif #{emit.convert_boolean(kwvalue(kwarg))}\n|
+            state = :then
+          elsif kwname(kwarg) == 'else'
+            check_arg_type(kwarg, :block)
+
+            emit.out! %Q|else\n|
+            emit.compile_block kwvalue(kwarg)
+            state = :end
+          else
+            raise SyntaxError.new("unexpected `#{kwname(kwarg)}', expecting one of: `elsif:', `else:'")
+          end
+
+        when :then
+          kwarg = kwargs.shift
+          if kwarg.nil?
+            raise SyntaxError.new("unexpected end of tag, expecting `then:'", nloc(node))
+          elsif kwname(kwarg) != 'then'
+            raise SyntaxError.new("unexpected `#{kwname(kwarg)}', expecting `then:'", nloc(kwarg))
+          end
+
+          check_arg_type(kwarg, :block)
+
+          emit.compile_block kwvalue(kwarg)
+          state = :elsif
+
+        when :end
+          if kwargs.any?
+            raise SyntaxError.new("unexpected `#{kwname(kwargs.first)}', expecting end of tag", nloc(kwarg))
+          end
+
+          state = nil
+        end
+      end
+
+      emit.out! %Q|end\n|
+    end
+
+    tag "unless" do |emit, context, node|
+      arg, kw = check_args node,
+          :expr,
+          :then => :block
+
+      emit.out! %Q|unless #{emit.convert_boolean(arg)}\n|
+      emit.compile_block kw[:then]
+      emit.out! %Q|end\n|
+    end
+
+    tag "capture" do |emit, context, node|
+      tag, arg, *kwargs = nvalue(node)
+
+      if kwargs.count == 1 && kwname(kwargs.first) == 'yield'
+        arg, kw = check_args node,
+            :ident,
+            :yield => :string
+
+        var_name, = nvalue(arg)
+        fragment  = kw[:yield]
+
+        context.declare var_name, nloc(arg)
+        access_var_name = context.access(var_name)
+
+        context.nest do
+          emit.out! %Q|#{access_var_name} = #{emit.storage}[#{emit.expr(fragment)}].to_s\n|
+        end
+      else
+        arg, kw = check_args node,
+            :ident,
+            :"=" => :block
+
+        var_name, = nvalue(arg)
+        block     = kw[:"="]
+
+        context.declare var_name, nloc(arg)
+        access_var_name = context.access(var_name)
+
+        context.nest do
+          capture_var_name = emit.capture do
+            emit.compile_block block
+          end
+
+          emit.out! %Q|#{access_var_name} = #{capture_var_name}\n|
+        end
+      end
+    end
+
+  end
+end

data/lib/liquor/stdlib/html_truncater.rb

@@ -0,0 +1,162 @@
+# Thanks to https://gist.github.com/101410 and other sources
+
+module Liquor::HTMLTruncater
+  extend self
+
+  def truncate(input, number = 300, truncate_string = "...")
+    doc = Nokogiri::HTML(input.to_s, nil, "UTF-8")
+
+    current = doc.children.first
+    count = 0
+
+    while true
+      # we found a text node
+      if current.is_a?(Nokogiri::XML::Text)
+        count += current.text.mb_chars.length
+        # we reached our limit, let's get outta here!
+        break if count > number
+        previous = current
+      end
+
+      if current.children.length > 0
+        # this node has children, can't be a text node,
+        # lets descend and look for text nodes
+        current = current.children.first
+      elsif !current.next.nil?
+        #this has no children, but has a sibling, let's check it out
+        current = current.next
+      else
+        # we are the last child, we need to ascend until we are
+        # either done or find a sibling to continue on to
+        n = current
+        while !n.is_a?(Nokogiri::HTML::Document) and n.parent.next.nil?
+          n = n.parent
+        end
+
+        # we've reached the top and found no more text nodes, break
+        if n.is_a?(Nokogiri::HTML::Document)
+          break;
+        else
+          current = n.parent.next
+        end
+      end
+    end
+
+    if count >= number
+      unless count == number
+        new_content = current.text.mb_chars
+
+        index = number-(count-new_content.length)-1
+        if index >= 0
+          new_content = new_content[0..index]
+          current.send(:native_content=, new_content + truncate_string)
+        else
+          current = previous
+          current.send(:native_content=, current.content + truncate_string)
+        end
+      end
+
+      # remove everything else
+      while !current.is_a?(Nokogiri::HTML::Document)
+        while !current.next.nil?
+          current.next.remove
+        end
+        current = current.parent
+      end
+    end
+
+    # now we grab the html and not the text.
+    # we do first because nokogiri adds html and body tags
+    # which we don't want
+    if doc.root.present?
+      doc.root.children.first.inner_html
+    else # no root element present (probably empty?), will return the first element
+      doc.children.first.inner_html
+    end
+  end
+
+  def truncate_words(input, num_words, truncate_string = "...")
+    doc = Nokogiri::HTML(input)
+
+    current = doc.children.first
+    count = 0
+
+    while true
+      # we found a text node
+      if current.is_a?(Nokogiri::XML::Text)
+        count += current.text.split.length
+        # we reached our limit, let's get outta here!
+        break if count > num_words
+        previous = current
+      end
+
+      if current.children.length > 0
+        # this node has children, can't be a text node,
+        # lets descend and look for text nodes
+        current = current.children.first
+      elsif !current.next.nil?
+        #this has no children, but has a sibling, let's check it out
+        current = current.next
+      else
+        # we are the last child, we need to ascend until we are
+        # either done or find a sibling to continue on to
+        n = current
+        while !n.is_a?(Nokogiri::HTML::Document) and n.parent.next.nil?
+          n = n.parent
+        end
+
+        # we've reached the top and found no more text nodes, break
+        if n.is_a?(Nokogiri::HTML::Document)
+          break;
+        else
+          current = n.parent.next
+        end
+      end
+    end
+
+    if count >= num_words
+      unless count == num_words
+        new_content = current.text.split
+
+        # If we're here, the last text node we counted eclipsed the number of words
+        # that we want, so we need to cut down on words.  The easiest way to think about
+        # this is that without this node we'd have fewer words than the limit, so all
+        # the previous words plus a limited number of words from this node are needed.
+        # We simply need to figure out how many words are needed and grab that many.
+        # Then we need to -subtract- an index, because the first word would be index zero.
+
+        # For example, given:
+        # <p>Testing this HTML truncater.</p><p>To see if its working.</p>
+        # Let's say I want 6 words.  The correct returned string would be:
+        # <p>Testing this HTML truncater.</p><p>To see...</p>
+        # All the words in both paragraphs = 9
+        # The last paragraph is the one that breaks the limit.  How many words would we
+        # have without it? 4.  But we want up to 6, so we might as well get that many.
+        # 6 - 4 = 2, so we get 2 words from this node, but words #1-2 are indices #0-1, so
+        # we subtract 1.  If this gives us -1, we want nothing from this node. So go back to
+        # the previous node instead.
+        index = num_words-(count-new_content.length)-1
+        if index >= 0
+          new_content = new_content[0..index]
+          current.content = new_content.join(' ') + truncate_string
+        else
+          current = previous
+          current.content = current.content + truncate_string
+        end
+      end
+
+      # remove everything else
+      while !current.is_a?(Nokogiri::HTML::Document)
+        while !current.next.nil?
+          current.next.remove
+        end
+        current = current.parent
+      end
+    end
+
+    # now we grab the html and not the text.
+    # we do first because nokogiri adds html and body tags
+    # which we don't want
+    doc.root.children.first.inner_html
+  end
+end

data/lib/liquor/stdlib/partial_tags.rb

@@ -0,0 +1,76 @@
+module Liquor
+  module Partials
+    include Library
+
+    tag "yield" do |emit, context, node|
+      tag, arg, *kwargs = nvalue(node)
+
+      if arg.nil? # {% yield %}
+        check_args node,
+            nil
+
+        emit.cat! context.access('_inner_template')
+      else
+        if kwargs.count == 0
+          # {% yield "name" %}
+          arg, kw = check_args node,
+              :string
+
+          name, = nvalue(arg)
+
+          emit.cat! %Q|#{emit.storage}[#{name.inspect}].to_s|
+        else
+          # {% yield "name" if_none: %} block {% end yield %}
+          arg, kw = check_args node,
+              :string,
+              :if_none => :block
+
+          name, = nvalue(arg)
+
+          emit.out! %Q|if #{emit.storage}.include?(#{name.inspect})\n|
+          emit.cat! %Q|  #{emit.storage}[#{name.inspect}].to_s|
+          emit.out! %Q|else\n|
+          emit.compile_block kw[:if_none]
+          emit.out! %Q|end\n|
+        end
+      end
+    end
+
+    tag "content_for" do |emit, context, node|
+      arg, kw = check_args node,
+          :string,
+          :"capture" => :block
+
+      name, = nvalue(arg)
+      block = kw[:"capture"]
+
+      context.nest do
+        capture_var_name = emit.capture do
+          emit.compile_block block
+        end
+
+        emit.out! %Q|#{emit.storage}[#{name.inspect}] = #{capture_var_name}\n|
+      end
+    end
+
+    tag "include" do |emit, context, node|
+      arg, kw = check_args node,
+          :string
+
+      name, = nvalue(arg)
+
+      context.nest do
+        manager = context.compiler.manager
+
+        source = manager.fetch_partial "_#{name}"
+        if source.nil?
+          raise ArgumentError.new("partial `#{name}' does not exist", nloc(arg))
+        elsif source == :syntax_error
+          # Do nothing. The manager has already reported the error.
+        else
+          emit.compile_block source
+        end
+      end
+    end
+  end
+end