lissio 0.1.0.beta1

data/opal/lissio.rb

@@ -0,0 +1,26 @@
+#--
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#                    Version 2, December 2004
+#
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+#
+#  0. You just DO WHAT THE FUCK YOU WANT TO.
+#++
+
+require 'browser'
+
+module Lissio
+	DOM = Browser::DOM
+	CSS = Browser::CSS
+end
+
+require 'lissio/version'
+require 'lissio/router'
+
+require 'lissio/model'
+require 'lissio/collection'
+require 'lissio/adapter'
+
+require 'lissio/component'
+require 'lissio/application'

data/opal/lissio/adapter.rb

@@ -0,0 +1,45 @@
+#--
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#                    Version 2, December 2004
+#
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+#
+#  0. You just DO WHAT THE FUCK YOU WANT TO.
+#++
+
+module Lissio
+
+class Adapter
+	attr_reader :for
+
+	def initialize(value)
+		if value.ancestors.include?(Model)
+			@type = :model
+		elsif value.ancestors.include?(Collection)
+			@type = :collection
+		else
+			raise ArgumentError, "the passed value isn't a Model or a Collection"
+		end
+
+		@for = value
+	end
+
+	def model?
+		@type == :model
+	end
+
+	def collection?
+		@type == :collection
+	end
+
+	def install
+		raise NotImplementedError, "install has not been implemented"
+	end
+
+	def uninstall
+		raise NotImplementedError, "uninstall has not been implemented"
+	end
+end
+
+end

data/opal/lissio/adapter/rest.rb

@@ -0,0 +1,268 @@
+#--
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#                    Version 2, December 2004
+#
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+#
+#  0. You just DO WHAT THE FUCK YOU WANT TO.
+#++
+
+require 'browser/location'
+require 'browser/http'
+require 'promise'
+
+module Lissio; class Adapter
+
+class REST < Adapter
+	def initialize(value, options = {}, &block)
+		super(value)
+
+		domain options[:domain] || $document.location.host
+		endpoint options[:endpoint] || endpoint_for(value)
+
+		if block.arity == 0
+			instance_exec(&block)
+		else
+			block.call(self)
+		end if block
+	end
+
+	def domain(value = nil)
+		value ? @domain = value : @domain
+	end
+
+	def endpoint(value = nil, &block)
+		if value
+			if Proc === value
+				@endpoint = value
+			elsif model?
+				@endpoint = proc {|method, instance, id|
+					case method
+					when :fetch
+						"#{value}/#{id}"
+
+					when :save, :create, :destroy
+						"#{value}/#{instance.id!}"
+					end
+				}
+			else
+				@endpoint = proc {|method, instance, desc|
+					if method == :fetch
+						"#{value}?#{desc.encode_uri}"
+					end
+				}
+			end
+		elsif block
+			@endpoint = block
+		else
+			@endpoint
+		end
+	end
+
+	def http(&block)
+		block ? @http = block : @http
+	end
+
+	def with(method, model, *args)
+		point = @endpoint.call(method, model, *args)
+
+		if Hash === point
+			point.first[0].to_s.downcase
+		end
+	end
+
+	def url(method, model, *args)
+		point = @endpoint.call(method, model, *args)
+
+		if Hash === point
+			point = point.first[1]
+		end
+
+		"//#{domain}#{point}"
+	end
+
+	def install
+		if model?
+			@for.instance_eval {
+				def self.fetch(*args)
+					promise = Promise.new
+					with    = adapter.with(:fetch, nil, *args) || :get
+					url     = adapter.url(:fetch, nil, *args)
+
+					Browser::HTTP.send(with, url) do |req|
+						req.on :success do |res|
+							promise.resolve(new(res.json, *args))
+						end
+
+						req.on :failure do |res|
+							promise.reject(res.status)
+						end
+
+						adapter.http.call(req) if adapter.http
+					end
+
+					promise
+				end
+
+				def save
+					promise = Promise.new
+					with    = adapter.with(:save, self) || :put
+					url     = adapter.url(:save, self)
+
+					Browser::HTTP.send(with, url, to_json) do |req|
+						req.on :success do |res|
+							promise.resolve(res.status)
+						end
+
+						req.on :failure do |res|
+							promise.reject(res.status)
+						end
+
+						adapter.http.call(req) if adapter.http
+					end
+
+					promise
+				end
+
+				def create
+					promise = Promise.new
+					with    = adapter.with(:create, self) || :post
+					url     = adapter.url(:create, self)
+
+					Browser::HTTP.send(with, url, to_json) do |req|
+						req.on :success do |res|
+							promise.resolve(res.status)
+						end
+
+						req.on :failure do |res|
+							promise.reject(res.status)
+						end
+
+						adapter.http.call(req) if adapter.http
+					end
+
+					promise
+				end
+
+				def destroy
+					promise = Promise.new
+					with    = adapter.with(:destroy, self) || :delete
+					url     = adapter.url(:destroy, self)
+
+					Browser::HTTP.send(with, url) do |req|
+						req.on :success do |res|
+							promise.resolve(res.status)
+						end
+
+						req.on :failure do |res|
+							promise.reject(res.status)
+						end
+
+						adapter.http.call(req) if adapter.http
+					end
+
+					promise
+				end
+
+				def reload
+					promise = Promise.new
+					fetched = fetched_with.empty? ? [id!] : fetched_with
+					with    = adapter.with(:fetch, self, *fetched) || :get
+					url     = adapter.url(:fetch, self, *fetched)
+
+					Browser::HTTP.send(with, url) do |req|
+						req.on :success do |res|
+							initialize(res.json, *fetched_with)
+
+							promise.resolve(self)
+						end
+
+						req.on :failure do |res|
+							promise.reject(res.status)
+						end
+
+						adapter.http.call(req) if adapter.http
+					end
+
+					promise
+				end
+			}
+		else
+			@for.instance_eval {
+				def self.fetch(*args, &block)
+					promise = Promise.new
+					with    = adapter.with(:fetch, nil, *args)
+					url     = adapter.url(:fetch, nil, *args)
+
+					Browser::HTTP.send(with, url) do |req|
+						req.on :success do |res|
+							promise.resolve(new(res.json, *args))
+						end
+
+						req.on :failure do |res|
+							promise.reject(res.status)
+						end
+
+						adapter.http.call(req) if adapter.http
+					end
+
+					promise
+				end
+
+				def reload(&block)
+					promise = Promise.new
+					with    = adapter.with(:fetch, self, *fetched_with) || :get
+					url     = adapter.url(:fetch, self, *fetched_with)
+
+					Browser::HTTP.send(with, url)  do |req|
+						req.on :success do |res|
+							initialize(res.json, *fetched_with)
+							promise.resolve(self)
+						end
+
+						req.on :failure do |res|
+							promise.reject(res.status)
+						end
+
+						adapter.http.call(req) if adapter.http
+					end
+
+					promise
+				end
+			}
+		end
+	end
+
+	def uninstall
+		if model?
+			@for.instance_eval {
+				class << self
+					remove_method :fetch
+				end
+
+				remove_method :save
+				remove_method :create
+				remove_method :destroy
+				remove_method :reload
+			}
+		else
+			@for.instance_eval {
+				class << self
+					remove_method :fetch
+				end
+
+				remove_method :reload
+			}
+		end
+	end
+
+private
+	def endpoint_for(klass)
+		klass.name.match(/([^:]+)$/) {|m|
+			"/#{m[1].downcase}"
+		}
+	end
+end
+
+end; end

data/opal/lissio/adapter/storage.rb

@@ -0,0 +1,167 @@
+#--
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#                    Version 2, December 2004
+#
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+#
+#  0. You just DO WHAT THE FUCK YOU WANT TO.
+#++
+
+require 'browser/storage'
+require 'browser/immediate'
+
+module Lissio; class Adapter
+
+class Storage < Adapter
+	def initialize(value, options = {}, &block)
+		super(value)
+
+		@autoincrement = []
+
+		if collection?
+			@model  = options[:model] || value.model
+			@filter = options[:filter] if options[:filter]
+		end
+
+		if block.arity == 0
+			instance_exec(&block)
+		else
+			block.call(self)
+		end if block
+	end
+
+	def model(name = nil)
+		name ? @model = name : @model
+	end
+
+	def filter(&block)
+		block ? @filter = block : @filter
+	end
+
+	def autoincrement(field = nil)
+		if field
+			@autoincrement << field
+		else
+			@autoincrement
+		end
+	end
+
+	def autoincrement!(field, storage)
+		storage[[:__autoincrement__, field]] ||= 0
+		storage[[:__autoincrement__, field]] += 1
+	end
+
+	def install
+		if model?
+			@for.instance_eval {
+				def self.storage
+					$window.storage(name)
+				end
+
+				def storage
+					self.class.storage
+				end
+
+				def self.fetch(id, &block)
+					proc {
+						block.call(storage[id] || :error)
+					}.defer
+				end
+
+				def create(&block)
+					proc {
+						key = id!
+
+						if key && storage[key]
+							block.call(:error) if block
+						else
+							adapter.autoincrement.each {|name|
+								unless __send__ name
+									__send__ "#{name}=", adapter.autoincrement!(name, storage)
+								end
+							}
+
+							storage[id!] = self
+
+							block.call(:ok) if block
+						end
+					}.defer
+				end
+
+				def save(&block)
+					proc {
+						if storage[id!]
+							storage[id!] = self
+
+							block.call(:ok) if block
+						else
+							block.call(:error) if block
+						end
+					}.defer
+				end
+
+				def destroy(&block)
+					proc {
+						if storage[id!]
+							storage.delete(id!)
+
+							block.call(:ok) if block
+						else
+							block.call(:error) if block
+						end
+					}.defer
+				end
+			}
+		else
+			@for.instance_eval {
+				def self.storage
+					$window.storage(adapter.model.name)
+				end
+
+				def storage
+					self.class.storage
+				end
+
+				def self.fetch(*args, &block)
+					proc {
+						block.call new(storage.map {|name, value|
+							next if Array === name && name.length == 2 && name.first == :__autoincrement__
+
+							if !adapter.filter || adapter.filter.call(value, *args)
+								value
+							end
+						}.compact)
+					}.defer
+				end
+			}
+		end
+	end
+
+	def uninstall
+		if model?
+			@for.instance_eval {
+				class << self
+					remove_method :storage
+					remove_method :fetch
+				end
+
+				remove_method :storage
+				remove_method :create
+				remove_method :save
+				remove_method :destroy
+			}
+		else
+			@for.instance_eval {
+				class << self
+					remove_method :storage
+					remove_method :fetch
+				end
+
+				remove_method :storage
+			}
+		end
+	end
+end
+
+end; end