amp-front 0.1.0

data/lib/amp-front/plugins/base.rb

@@ -0,0 +1,87 @@
+##################################################################
+#                  Licensing Information                         #
+#                                                                #
+#  The following code is licensed, as standalone code, under     #
+#  the Ruby License, unless otherwise directed within the code.  #
+#                                                                #
+#  For information on the license of this code when distributed  #
+#  with and used in conjunction with the other modules in the    #
+#  Amp project, please see the root-level LICENSE file.          #
+#                                                                #
+#  © Michael J. Edgar and Ari Brown, 2009-2010                   #
+#                                                                #
+##################################################################
+
+module Amp
+  module Plugins
+    class Base
+      extend ModuleExtensions
+      cattr_accessor :module, :author
+      cattr_accessor_with_default :loaded_plugins, []
+
+      # This tracks all subclasses (and subclasses of subclasses, etc). Plus, this
+      # method is inherited, so Wool::Plugins::Git.all_subclasses will have all
+      # subclasses of Wool::Plugins::Git!
+      def self.all_plugins
+        @all_plugins ||= [self]
+      end
+
+      # When a Plugin subclass is subclassed, store the subclass and inform the
+      # next superclass up the inheritance hierarchy.
+      def self.inherited(klass)
+        self.all_plugins << klass
+        next_klass = self.superclass
+        while next_klass != Amp::Plugins::Base.superclass
+          next_klass.send(:inherited, klass)
+          next_klass = next_klass.superclass
+        end
+      end
+      
+      # Creates a Plugin subclass with the given name. Also allows specifying
+      # the superclass to use.
+      #
+      # Reopens existing plugins if they already exist, for user customization.
+      def self.create(name, superclass=Amp::Plugins::Base)
+        unless (name = name.to_s) && name.size > 0
+          raise ArgumentError.new('name must be a non-empty string')
+        end
+        name = name[0,1].upcase + name[1..-1]
+        klass = nil
+        Amp::Plugins.class_eval do
+          if const_defined?(name)
+            klass = const_get(name)
+          else
+            klass = Class.new(superclass)
+            const_set(name, klass)  # So the class has a name
+          end
+          yield klass if block_given?
+        end
+        klass
+      end
+      
+      def self.load_rubygems_plugins
+        require 'rubygems'
+        files = Gem.find_files('amp_plugin.rb')
+        files.each do |file|
+          load file
+        end
+      end
+      
+      # Generic initialization all plugins perform. Takes an options hash.
+      def initialize(opts={})
+      end
+      
+      def inspect
+        "#<Amp::Plugin::#{self.module} #{self.class.name} by #{self.class.author}>"
+      end
+      
+      def module
+        self.class.module || self.class.name
+      end
+      
+      def load!
+        # Subclasses should implement this.
+      end
+    end
+  end
+end

data/lib/amp-front/support/module_extensions.rb

@@ -0,0 +1,92 @@
+##################################################################
+#                  Licensing Information                         #
+#                                                                #
+#  The following code is licensed, as standalone code, under     #
+#  the Ruby License, unless otherwise directed within the code.  #
+#                                                                #
+#  For information on the license of this code when distributed  #
+#  with and used in conjunction with the other modules in the    #
+#  Amp project, please see the root-level LICENSE file.          #
+#                                                                #
+#  © Michael J. Edgar and Ari Brown, 2009-2010                   #
+#                                                                #
+##################################################################
+module Amp
+  # These are extensions to Amp modules. This module should be
+  # extended by any Amp modules seeking to take advantage of them.
+  # This prevents conflicts with other libraries defining extensions
+  # of the same name.
+  module ModuleExtensions
+    def singleton_class
+      class << self
+        self
+      end
+    end if RUBY_VERSION < "1.9"
+
+    # Creates a reader for the given instance variables on the class object.
+    def cattr_reader(*attrs)
+      attrs.each do |attr|
+        instance_eval("def #{attr}; @#{attr}; end")
+      end
+    end
+
+    # Creates a writer for the given instance variables on the class object.
+    def cattr_writer(*attrs)
+      attrs.each do |attr|
+        instance_eval("def #{attr}=(val); @#{attr} = val; end")
+      end
+    end
+
+    # Creates readers and writers for the given instance variables.
+    def cattr_accessor(*attrs)
+      cattr_reader(*attrs)
+      cattr_writer(*attrs)
+    end
+
+    def cattr_accessor_with_default(attr, default)
+      varname = "@#{attr}".to_sym
+      singleton_class.instance_eval do
+        define_method attr do
+          if instance_variable_defined?(varname)
+            instance_variable_get(varname)
+          else
+            instance_variable_set(varname, default)
+            default
+          end
+        end
+      end
+      cattr_writer(attr)
+    end
+
+    # Creates a DSL-friendly set-and-getter method. The method, when called with
+    # no arguments, acts as a getter. When called with arguments, it acts as a
+    # setter. Uses class instance variables - this is not for generating
+    # instance methods.
+    #
+    # @example
+    #   class A
+    #     cattr_get_and_setter :type
+    #   end
+    #   class B < A
+    #     type :silly
+    #   end
+    #   p B.type  # => :silly
+    def cattr_get_and_setter(*attrs)
+      attrs.each do |attr|
+        cattr_accessor attr
+        singleton_class.instance_eval do
+          alias_method "#{attr}_old_get".to_sym, attr
+          define_method attr do |*args, &blk|
+            if args.size > 0
+              send("#{attr}=", *args)
+            elsif blk != nil
+              send("#{attr}=", blk)
+            else
+              send("#{attr}_old_get")
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/amp-front/third_party/maruku.rb

@@ -0,0 +1,136 @@
+#--
+#   Copyright (C) 2006  Andrea Censi  <andrea (at) rubyforge.org>
+#
+# This file is part of Maruku.
+# 
+#   Maruku is free software; you can redistribute it and/or modify
+#   it under the terms of the GNU General Public License as published by
+#   the Free Software Foundation; either version 2 of the License, or
+#   (at your option) any later version.
+# 
+#   Maruku is distributed in the hope that it will be useful,
+#   but WITHOUT ANY WARRANTY; without even the implied warranty of
+#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#   GNU General Public License for more details.
+# 
+#   You should have received a copy of the GNU General Public License
+#   along with Maruku; if not, write to the Free Software
+#   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+#++
+
+require 'rexml/document'
+
+dir_path = File.expand_path(File.dirname(__FILE__))
+$:.unshift dir_path
+
+# :include:MaRuKu.txt
+module MaRuKu
+
+	module In
+		module Markdown
+			module SpanLevelParser; end
+			module BlockLevelParser; end
+		end
+		# more to come?
+	end
+
+	module Out
+		# Functions for exporting to MarkDown.
+		module Markdown; end
+		# Functions for exporting to HTML.
+		module HTML; end
+		# Functions for exporting to ANSI
+		module Ansi; end
+	end
+		
+	# These are strings utilities.
+	module Strings; end
+
+	module Helpers; end
+
+	module Errors; end
+		
+	class MDElement
+		include REXML
+		include MaRuKu
+		include Out::Markdown
+		include Out::HTML
+		include Out::Ansi
+		include Strings
+		include Helpers
+		include Errors
+	end
+	
+	
+	class MDDocument < MDElement
+		include In::Markdown
+		include In::Markdown::SpanLevelParser
+		include In::Markdown::BlockLevelParser
+	end
+end
+
+# This is the public interface
+class Maruku < MaRuKu::MDDocument; end
+
+
+
+require 'rexml/document'
+
+# Structures definition
+require 'maruku/structures'
+require 'maruku/structures_inspect'
+
+require 'maruku/defaults'
+# Less typing
+require 'maruku/helpers'
+
+# Code for parsing whole Markdown documents
+require 'maruku/input/parse_doc'
+
+# Ugly things kept in a closet
+require 'maruku/string_utils'
+require 'maruku/input/linesource'
+require 'maruku/input/type_detection'
+
+# A class for reading and sanitizing inline HTML
+require 'maruku/input/html_helper'
+
+# Code for parsing Markdown block-level elements
+require 'maruku/input/parse_block'
+
+# Code for parsing Markdown span-level elements
+require 'maruku/input/charsource'
+require 'maruku/input/parse_span_better'
+require 'maruku/input/rubypants'
+
+require 'maruku/input/extensions'
+
+require 'maruku/attributes'
+
+require 'maruku/structures_iterators'
+
+require 'maruku/errors_management'
+
+# Code for creating a table of contents
+require 'maruku/toc'
+
+# Version and URL
+require 'maruku/version'
+
+
+# Exporting to html
+require 'maruku/output/to_html'
+
+# Exporting to ansi terminal output
+require 'maruku/output/to_ansi'
+
+# Pretty print
+require 'maruku/output/to_markdown'
+
+# Exporting to text: strips all formatting (not complete)
+require 'maruku/output/to_s'
+
+# class Maruku is the global interface
+require 'maruku/maruku'
+
+$:.delete dir_path

data/lib/amp-front/third_party/maruku/attributes.rb

@@ -0,0 +1,227 @@
+#--
+#   Copyright (C) 2006  Andrea Censi  <andrea (at) rubyforge.org>
+#
+# This file is part of Maruku.
+# 
+#   Maruku is free software; you can redistribute it and/or modify
+#   it under the terms of the GNU General Public License as published by
+#   the Free Software Foundation; either version 2 of the License, or
+#   (at your option) any later version.
+# 
+#   Maruku is distributed in the hope that it will be useful,
+#   but WITHOUT ANY WARRANTY; without even the implied warranty of
+#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#   GNU General Public License for more details.
+# 
+#   You should have received a copy of the GNU General Public License
+#   along with Maruku; if not, write to the Free Software
+#   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+#++
+
+
+class String
+	def quote_if_needed
+		if /[\s\'\"]/.match self
+			inspect
+		else
+			self
+		end
+	end
+end
+
+module MaRuKu; 
+	MagicChar = ':'
+	
+	class AttributeList < Array
+		
+		# An attribute list becomes 
+		# {#id .cl key="val" ref}
+		# [ [:id, 'id'], [:class, 'id'], ['key', 'val'], [ :ref, 'ref' ]]
+
+		private :push
+		
+		def push_key_val(key, val); 
+			raise "Bad #{key.inspect}=#{val.inspect}" if not key and val
+			push [key, val] 
+		end
+		def push_ref(ref_id);       
+			
+			raise "Bad :ref #{ref_id.inspect}" if not ref_id
+			push [:ref, ref_id+""] 
+
+#			p "Now ", self ########################################
+		end
+		def push_class(val);        
+			raise "Bad :id #{val.inspect}" if not val
+			push [:class,  val] 
+		end
+		def push_id(val);           
+			raise "Bad :id #{val.inspect}" if not val
+			push [:id,  val] 
+		end
+		
+		def to_s
+			map do |k,v|
+				case k
+				when :id;    "#" + v.quote_if_needed
+				when :class; "." + v.quote_if_needed
+				when :ref;    v.quote_if_needed
+				else k.quote_if_needed + "=" + v.quote_if_needed
+				end
+			end . join(' ')
+		end
+		alias to_md to_s 
+	end
+	
+end
+
+module MaRuKu; module In; module Markdown; module SpanLevelParser
+	
+	def unit_tests_for_attribute_lists
+		[
+			[ "",     [], "Empty lists are allowed" ], 
+			[ "=",    :throw, "Bad char to begin a list with." ], 
+			[ "a =b", :throw, "No whitespace before `=`." ], 
+			[ "a= b", :throw, "No whitespace after `=`." ], 
+
+			[ "a b", [[:ref, 'a'],[:ref, 'b']], "More than one ref" ], 
+			[ "a b c", [[:ref, 'a'],[:ref, 'b'],[:ref, 'c']], "More than one ref" ], 
+			[ "hello notfound", [[:ref, 'hello'],[:ref, 'notfound']]], 
+
+			[ "'a'",  [[:ref, 'a']], "Quoted value." ], 
+			[ '"a"'   ], 
+
+			[ "a=b",  [['a','b']], "Simple key/val" ], 
+			[ "'a'=b"   ], 
+			[ "'a'='b'" ], 
+			[ "a='b'"   ], 
+
+			[ 'a="b\'"',  [['a',"b\'"]], "Key/val with quotes" ],
+			[ 'a=b\''],
+			[ 'a="\\\'b\'"',  [['a',"\'b\'"]], "Key/val with quotes" ], 
+			
+			['"', :throw, "Unclosed quotes"],
+			["'"],
+			["'a "],
+			['"a '],
+			
+			[ "#a",  [[:id, 'a']], "Simple ID" ], 
+			[ "#'a'" ], 
+			[ '#"a"' ], 
+
+			[ "#",  :throw, "Unfinished '#'." ], 
+			[ ".",  :throw, "Unfinished '.'." ], 
+			[ "# a",  :throw, "No white-space after '#'." ], 
+			[ ". a",  :throw, "No white-space after '.' ." ], 
+			
+			[ "a=b c=d",  [['a','b'],['c','d']], "Tabbing" ], 
+			[ " \ta=b \tc='d' "],
+			[ "\t a=b\t c='d'\t\t"],
+			
+			[ ".\"a'",  :throw, "Mixing quotes is bad." ], 
+			
+		].map { |s, expected, comment| 
+			@expected = (expected ||= @expected)
+			@comment  = (comment  ||= (last=@comment) )
+			(comment == last && (comment += (@count+=1).to_s)) || @count = 1
+			expected = [md_ial(expected)] if expected.kind_of? Array
+			["{#{MagicChar}#{s}}", expected, "Attributes: #{comment}"]
+		}
+	end
+	
+	def md_al(s=[]); AttributeList.new(s) end
+
+	# returns nil or an AttributeList
+	def read_attribute_list(src, con, break_on_chars)
+		
+		separators = break_on_chars + [?=,?\ ,?\t]
+		escaped = Maruku::EscapedCharInQuotes
+			
+		al = AttributeList.new
+		while true
+			src.consume_whitespace
+			break if break_on_chars.include? src.cur_char
+	
+			case src.cur_char
+			when nil 
+				maruku_error "Attribute list terminated by EOF:\n "+
+				             "#{al.inspect}" , src, con
+				tell_user "I try to continue and return partial attribute list:\n"+
+					al.inspect
+				break
+			when ?=     # error
+				maruku_error "In attribute lists, cannot start identifier with `=`."
+				tell_user "I try to continue"
+				src.ignore_char
+			when ?#     # id definition
+				src.ignore_char
+				if id = read_quoted_or_unquoted(src, con, escaped, separators)
+					al.push_id id
+				else
+					maruku_error 'Could not read `id` attribute.', src, con
+					tell_user 'Trying to ignore bad `id` attribute.'
+				end
+			when ?.     # class definition
+				src.ignore_char
+				if klass = read_quoted_or_unquoted(src, con, escaped, separators)
+					al.push_class klass
+				else
+					maruku_error 'Could not read `class` attribute.', src, con
+					tell_user 'Trying to ignore bad `class` attribute.'
+				end
+			else
+				if key = read_quoted_or_unquoted(src, con, escaped, separators)
+					if src.cur_char == ?=
+						src.ignore_char # skip the =
+						if val = read_quoted_or_unquoted(src, con, escaped, separators)
+							al.push_key_val(key, val)
+						else
+							maruku_error "Could not read value for key #{key.inspect}.",
+								src, con
+							tell_user "Ignoring key #{key.inspect}."
+						end
+					else
+						al.push_ref key
+					end
+				else
+					maruku_error 'Could not read key or reference.'
+				end
+			end # case
+		end # while true
+		al
+	end
+	
+	
+	# We need a helper
+	def is_ial(e); e.kind_of? MDElement and e.node_type == :ial end
+
+	def merge_ial(elements, src, con)	
+
+		# Apply each IAL to the element before
+		elements.each_with_index do |e, i| 
+		if is_ial(e) && i>= 1 then
+			before = elements[i-1]
+			after = elements[i+1]
+			if before.kind_of? MDElement
+				before.al = e.ial
+			elsif after.kind_of? MDElement
+				after.al = e.ial
+			else
+				maruku_error "It is not clear to me what element this IAL {:#{e.ial.to_md}} \n"+
+				"is referring to. The element before is a #{before.class.to_s}, \n"+
+				"the element after is a #{after.class.to_s}.\n"+
+				"\n before: #{before.inspect}"+
+				"\n after: #{after.inspect}",
+				src, con
+				# xxx dire se c'è empty vicino
+			end
+		end 
+		end
+		
+		if not Globals[:debug_keep_ials]
+			elements.delete_if {|x| is_ial(x) unless x == elements.first} 
+		end
+	end
+		
+end end end end 
+#module MaRuKu; module In; module Markdown; module SpanLevelParser