motley 0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: a9e0f14a51c85bea7c1ea733a3bfaeb8ef36d872607ec104dfc489a3afa17c65
+  data.tar.gz: ed2a4e82a4fe9c37ea1edaedd19c6de7dac432c6b6f782c3e61bcb3226363bf8
+SHA512:
+  metadata.gz: 55e052d4e4a47729522c8d4c2cade43933d60ddeedaf46ebf763579790aea8503fa8c3ca18ac592b55548fd0cbfb88cb57c579ddef4f955362ee3e8b3ad17ae2
+  data.tar.gz: c6f6c21682a4568ae163e023f7a72126760c9e2eb0e13c9db44745b318f1ddcf4d4a4fe9e368829cd791a9df6f90213cee539fd0b14aa7027afaeb953e4b1be2

data/README.md

@@ -0,0 +1,23 @@
+# Motley
+
+Motley is an HTML generator. It provides its own markup language (MML) that is
+compiled down to HTML, CSS, and JavaScript.
+
+Motley is in the early stages of development.
+
+## Install
+
+```
+gem install motley
+```
+
+## Author
+
+Mike O'Sullivan
+mike@idocs.com
+
+## History
+
+| version | date         | notes                         |
+|---------|--------------|-------------------------------|
+| 0.1     | May 9, 2020  | Initial upload.               |

data/lib/motley.rb

@@ -0,0 +1,435 @@
+require 'nokogiri'
+require 'classprop'
+require 'standarderror/plus'
+require 'uri'
+
+
+#===============================================================================
+# Motley
+#
+module Motley
+	# version
+	VERSION = '0.1'
+end
+#
+# Motley
+#===============================================================================
+
+
+#===============================================================================
+# Motley::Site
+#
+class Motley::Site
+	attr_accessor :root
+	attr_accessor :resources
+	
+	#---------------------------------------------------------------------------
+	# initialize
+	#
+	def initialize(root, resources, opts={})
+		@root = root
+		@resources = resources
+	end
+	#
+	# initialize
+	#---------------------------------------------------------------------------
+end
+#
+# Motley::Site
+#===============================================================================
+
+
+#===============================================================================
+# Motley::AttSet
+#
+class Motley::AttSet
+	extend Forwardable
+	attr_reader :dfns
+	attr_reader :vals
+	
+	# delegate
+	delegate %w([] each length clear delete keys values) => :vals
+	
+	
+	#---------------------------------------------------------------------------
+	# initialize
+	#
+	def initialize(dfns)
+		@dfns = dfns
+		@vals = {}
+	end
+	#
+	# initialize
+	#---------------------------------------------------------------------------
+	
+	
+	#---------------------------------------------------------------------------
+	# []=
+	#
+	def []=(key, val)
+		# $tm.hrm
+		
+		# normalize key
+		key = key.downcase
+		
+		# get att definition
+		dfn = @dfns[key]
+		
+		# if no definition
+		if not dfn
+			exc = StandardError::Plus.new('/zax/attset/no-att-definition')
+			exc['att'] = key
+			raise exc
+		end
+		
+		# XML and HTML do not have the concept of null, so if nil is assigned,
+		# we delete the hash element. Else we set the value
+		if val.nil?
+			@vals.delete(key)
+		else
+			@vals[key] = dfn.set(val)
+		end
+	end
+	#
+	# []=
+	#---------------------------------------------------------------------------
+end
+#
+# Motley::AttSet
+#===============================================================================
+
+
+#===============================================================================
+# Motley::AttDef
+#
+class Motley::AttDef
+	attr_accessor :set_once
+	
+	#---------------------------------------------------------------------------
+	# initialize
+	#
+	def initialize
+		@set_once = false
+	end
+	#
+	# initialize
+	#---------------------------------------------------------------------------
+	
+	
+	#---------------------------------------------------------------------------
+	# to_str
+	#
+	def to_str
+		raise 'zax/attdef/default/override-to-s'
+	end
+	#
+	# to_str
+	#---------------------------------------------------------------------------
+end
+#
+# Motley::AttDef
+#===============================================================================
+
+
+#===============================================================================
+# Motley::AttDef::Scalar
+#
+class Motley::AttDef::Scalar < Motley::AttDef
+	ALLOWED = [String, Integer, Float, TrueClass, FalseClass]
+	
+	
+	#---------------------------------------------------------------------------
+	# set
+	#
+	def set(val)
+		allowed_class(val)
+		return val
+	end
+	#
+	# set
+	#---------------------------------------------------------------------------
+	
+	
+	#---------------------------------------------------------------------------
+	# allowed_class
+	#
+	def allowed_class(val)
+		# loop through allowed classes
+		ALLOWED.each do |allowed|
+			if val.is_a?(allowed)
+				return true
+			end
+		end
+		
+		# raise exception
+		raise 'zax/attdef/scalar/allowed-class: ' + ALLOWED.to_s
+	end
+	#
+	# allowed_class
+	#---------------------------------------------------------------------------
+	
+	
+	#---------------------------------------------------------------------------
+	# to_str
+	#
+	def to_str(val)
+		return val.to_s
+	end
+	#
+	# to_str
+	#---------------------------------------------------------------------------
+end
+#
+# Motley::AttDef::Scalar
+#===============================================================================
+
+
+#===============================================================================
+# Motley::AttDef::URI
+#
+class Motley::AttDef::URI < Motley::AttDef
+	#---------------------------------------------------------------------------
+	# set
+	#
+	def set(val)
+		return URI(val)
+	end
+	#
+	# set
+	#---------------------------------------------------------------------------
+	
+	
+	#---------------------------------------------------------------------------
+	# to_str
+	#
+	def to_str(val)
+		return val.to_s
+	end
+	#
+	# to_str
+	#---------------------------------------------------------------------------
+end
+#
+# Motley::AttDef::URI
+#===============================================================================
+
+
+#===============================================================================
+# Motley::TagBase
+#
+class Motley::TagBase
+	attr_reader :atts
+	include ClassProp
+	define_class_prop 'att_defs', 'inherit'=>false
+	
+	#---------------------------------------------------------------------------
+	# initialize
+	#
+	def initialize
+		@atts = Motley::AttSet.new(self.class.att_defs)
+	end
+	#
+	# initialize
+	#---------------------------------------------------------------------------
+end
+#
+# Motley::TagBase
+#===============================================================================
+
+
+#===============================================================================
+# Motley::Tag
+#
+class Motley::Tag < Motley::TagBase
+	attr_reader :children
+	
+	# delegate
+	extend Forwardable
+	delegate %w([] []= each length keys values) => :atts
+	
+	#---------------------------------------------------------------------------
+	# initialize
+	#
+	def initialize
+		# $tm.hrm
+		super()
+		@atts = Motley::AttSet.new(self.class.att_defs)
+		@children = []
+	end
+	#
+	# initialize
+	#---------------------------------------------------------------------------
+	
+	
+	#---------------------------------------------------------------------------
+	# set_atts
+	#
+	def self.set_atts
+		# initialize hash
+		if not self.att_defs
+			ads = self.att_defs = {}
+			ads['id'] = Motley::AttDef::Scalar.new
+		end
+		
+		# yield
+		if block_given?
+			yield self.att_defs
+		end
+	end
+	#
+	# set_atts
+	#---------------------------------------------------------------------------
+end
+#
+# Motley::Tag
+#===============================================================================
+
+
+
+#===============================================================================
+# Motley::Tag::Nested
+#
+class Motley::Tag::Nested < Motley::Tag
+	attr_accessor :parent
+	
+	#---------------------------------------------------------------------------
+	# initialize
+	#
+	def initialize(parent=nil)
+		super()
+		@parent = parent
+	end
+	#
+	# initialize
+	#---------------------------------------------------------------------------
+end
+#
+# Motley::Tag::Nested
+#===============================================================================
+
+
+#===============================================================================
+# Motley::Document
+#
+class Motley::Document
+	attr_reader :root
+	
+	#---------------------------------------------------------------------------
+	# initialize
+	#
+	def initialize(opts={})
+		# root
+		@root = Motley::Tag::HTML.new(self)
+	end
+	#
+	# initialize
+	#---------------------------------------------------------------------------
+end
+#
+# Motley::Document
+#===============================================================================
+
+
+#===============================================================================
+# Motley::Schema
+#
+class Motley::Schema
+	attr_reader :tags
+	
+	#---------------------------------------------------------------------------
+	# initialize
+	#
+	def initialize()
+		@tags = {}
+	end
+	#
+	# initialize
+	#---------------------------------------------------------------------------
+end
+#
+# Motley::Schema
+#===============================================================================
+
+
+#===============================================================================
+# Motley::Schema
+#===============================================================================
+
+
+#===============================================================================
+# Motley::SchemaSet
+#
+class Motley::SchemaSet
+	attr_reader :schemas
+	attr_reader :tags
+	
+	# delegate
+	extend Forwardable
+	delegate %w([] []= each push pop shift unshift length) => :schemas
+
+	
+	#---------------------------------------------------------------------------
+	# initialize
+	#
+	def initialize
+		@schemas = []
+		@tags = Motley::SchemaSet::TagFinder.new(self)
+	end
+	#
+	# initialize
+	#---------------------------------------------------------------------------
+end
+#
+# Motley::SchemaSet
+#===============================================================================
+
+
+#===============================================================================
+# Motley::SchemaSet::TagFinder
+#
+class Motley::SchemaSet::TagFinder
+	attr_reader :schemaset
+	
+	
+	#---------------------------------------------------------------------------
+	# initialize
+	#
+	def initialize(schemaset)
+		@schemaset = schemaset
+	end
+	#
+	# initialize
+	#---------------------------------------------------------------------------
+	
+	
+	#---------------------------------------------------------------------------
+	# []
+	#
+	def [](key)
+		# $tm.hrm
+		
+		# normalize key
+		key = key.downcase
+		
+		# loop through schemas looking for tag
+		@schemaset.each do |schema|
+			if tag = schema.tags[key]
+				return tag
+			end
+		end
+		
+		# didn't find the tag
+		return nil
+	end
+	#
+	# []
+	#---------------------------------------------------------------------------
+end
+#
+# Motley::SchemaSet::TagFinder
+#===============================================================================
+
+
+# html
+require 'motley/schemas/html'
+require 'motley/schemas/mml'

data/lib/motley/schemas/html.rb

@@ -0,0 +1,89 @@
+#===============================================================================
+# Motley::Schema::HTML
+#
+class Motley::Schema::HTML < Motley::Schema
+	#---------------------------------------------------------------------------
+	# initialize
+	#
+	def initialize()
+		super()
+		
+		# tags
+		@tags['html'] = Motley::HTML::HTML
+		@tags['a'] = Motley::HTML::A
+	end
+	#
+	# initialize
+	#---------------------------------------------------------------------------
+end
+#
+# Motley::Schema::HTML
+#===============================================================================
+
+
+#===============================================================================
+# Motley::HTML
+#
+module Motley::HTML
+end
+#
+# Motley::HTML
+#===============================================================================
+
+
+#===============================================================================
+# Motley::HTML::HTML
+#
+class Motley::HTML::HTML < Motley::Tag
+	attr_accessor :document
+	
+	# name
+	def name; 'html'; end;
+	
+	#---------------------------------------------------------------------------
+	# initialize
+	#
+	def initialize(document=nil)
+		super()
+		@document = document
+	end
+	#
+	# initialize
+	#---------------------------------------------------------------------------
+	
+	
+	#---------------------------------------------------------------------------
+	# set_atts
+	# <html> does not have any attributes beside id
+	#
+	self.set_atts
+	#
+	# set_atts
+	#---------------------------------------------------------------------------
+end
+#
+# Motley::HTML::HTML
+#===============================================================================
+
+
+#===============================================================================
+# Motley::HTML::A
+#
+class Motley::HTML::A < Motley::Tag::Nested
+	# name
+	def name; 'a'; end;
+	
+	#---------------------------------------------------------------------------
+	# set_atts
+	#
+	self.set_atts do |defs|
+		defs['title'] = Motley::AttDef::Scalar.new
+		defs['href'] = Motley::AttDef::URI.new
+	end
+	#
+	# set_atts
+	#---------------------------------------------------------------------------
+end
+#
+# Motley::HTML::A
+#===============================================================================

data/lib/motley/schemas/mml.rb

@@ -0,0 +1,49 @@
+#===============================================================================
+# Motley::Schema::MML
+#
+class Motley::Schema::MML < Motley::Schema
+	#---------------------------------------------------------------------------
+	# initialize
+	#
+	def initialize()
+		super()
+		
+		# tags
+		@tags['a'] = Motley::MML::A
+	end
+	#
+	# initialize
+	#---------------------------------------------------------------------------
+end
+#
+# Motley::Schema::HTML
+#===============================================================================
+
+
+#===============================================================================
+# Motley::MML
+#
+module Motley::MML
+end
+#
+# Motley::MML
+#===============================================================================
+
+
+#===============================================================================
+# Motley::MML::A
+#
+class Motley::MML::A < Motley::Tag::Nested
+	#---------------------------------------------------------------------------
+	# set_atts
+	#
+	self.set_atts do |defs|
+		defs['aux'] = Motley::AttDef::Scalar.new
+	end
+	#
+	# set_atts
+	#---------------------------------------------------------------------------
+end
+#
+# Motley::MML::A
+#===============================================================================

metadata

@@ -0,0 +1,47 @@
+--- !ruby/object:Gem::Specification
+name: motley
+version: !ruby/object:Gem::Version
+  version: '0.1'
+platform: ruby
+authors:
+- Mike O'Sullivan
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2020-05-09 00:00:00.000000000 Z
+dependencies: []
+description: A markup language that compiles to HTML, CSS, and JavaScript
+email: mike@idocs.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- README.md
+- lib/motley.rb
+- lib/motley/schemas/html.rb
+- lib/motley/schemas/mml.rb
+homepage: https://rubygems.org/gems/motley
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.7.6
+signing_key: 
+specification_version: 4
+summary: HTML superset
+test_files: []