nydp-html 0.0.2

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 40fa5ecff67b7c001d0e445507ce177ceadecf13
+  data.tar.gz: c5850142ea885409dc663241084067325f4a4fe7
+SHA512:
+  metadata.gz: edd1ef38d177f7a64c73e344722c1a76d7909f768868be3b77b639f2c269f60c182ea3f00af84b53493c67c2908ea7d2b98e259201e99b90d690ef6aba6885fb
+  data.tar.gz: 77add9b61ae9d7cba66cc4ed321870ad339610445a7d1e1342104108dcbf48bd276b4292e04e97c54c262e4f5f05cbe320f607aa8331f9375a67034b184e5846

data/.gitignore

@@ -0,0 +1,18 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp
+.#*

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in nydp-html.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2014 conanite
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,31 @@
+# Nydp::Html
+
+TODO: Write a gem description
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+```ruby
+gem 'nydp-html'
+```
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install nydp-html
+
+## Usage
+
+TODO: Write usage instructions here
+
+## Contributing
+
+1. Fork it ( https://github.com/[my-github-username]/nydp-html/fork )
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create a new Pull Request

data/Rakefile

@@ -0,0 +1,5 @@
+require "bundler/gem_tasks"
+require "nydp"
+require "nydp/html"
+
+Nydp.rake_tasks

data/bin/nydp-tests

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+
+require 'nydp/html'
+
+Nydp.tests *ARGV.map(&:to_sym)

data/lib/lisp/tests/textile-tests.nydp

@@ -0,0 +1,81 @@
+(register-test
+ '(suite "textile"
+         ("build a function to render a given textile string with the given arguments"
+         (pre-compile '(textile-build-function (a b c) "hello ~context.name this file was in ~(just source.name)."))
+         (fn (a b c)
+             (string-pieces
+              "<p>hello "
+              (interpolate (hash-get context 'name))
+              " this file was in "
+              (interpolate (hash-get source 'name))
+              ".</p>")))
+
+         ("render a plain textile string to html"
+          (render-as-textile "h1. header text
+
+paragraph text
+
+* item 1
+* item 2
+")
+          "<h1>header text</h1>\n<p>paragraph text</p>\n<ul>\n\t<li>item 1</li>\n\t<li>item 2</li>\n</ul>")
+
+         ("compile a string with interpolations to an instruction to generate textile"
+                (compile-as-textile "h1. HEADER
+
+~a and ~b and ~(c 3)
+
+* item ~(assign counter (+ counter 1))
+* item ~(assign counter (+ counter 1))
+* item ~(assign counter (+ counter 1))
+")
+
+                (string-pieces "<h1>HEADER</h1>\n<p>"
+                               (interpolate a) " and " (interpolate b) " and " (interpolate (c 3))
+                               "</p>\n<ul>\n\t<li>item " (interpolate (assign counter (+ counter 1)))
+                               "</li>\n\t<li>item " (interpolate (assign counter (+ counter 1)))
+                               "</li>\n\t<li>item " (interpolate (assign counter (+ counter 1)))
+                               "</li>\n</ul>" nil))
+
+         ("compile a function invocation to render as textile"
+          (compile-as-textile a)
+          (textile-to-html a))
+
+         ("compile a plain string with no interpolations to an instruction to generate textile"
+                (compile-as-textile "h1. HEADER
+
+para
+
+* item 1
+* item 2
+")
+                "<h1>HEADER</h1>\n<p>para</p>\n<ul>\n\t<li>item 1</li>\n\t<li>item 2</li>\n</ul>")
+
+         ("compile a simple string with one interpolation to render html"
+          (compile-as-textile "hello ~name ")
+          (string-pieces "<p>hello " (interpolate name) "</p>"))
+
+         ("render a simple string with one interpolation to html"
+          (let name "conan"
+               (render-as-textile "hello ~name "))
+          "<p>hello conan</p>")
+
+         ("render a string with interpolations to html"
+          (with (a 1 b 2 c (fn (x) (* 2 x)) counter 0)
+                (render-as-textile "h1. HEADER
+
+~a and ~b and ~(c 3)
+
+* item ~(assign counter (+ counter 1))
+* item ~(assign counter (+ counter 1))
+* item ~(assign counter (+ counter 1))
+"))
+
+          "<h1>HEADER</h1>\n<p>1 and 2 and 6</p>\n<ul>\n\t<li>item 1</li>\n\t<li>item 2</li>\n\t<li>item 3</li>\n</ul>")
+
+         ("render a string with interpolations to html"
+          (with (a "hello, world") (render-as-textile a))
+
+          "<p>hello, world</p>")
+
+))

data/lib/lisp/textile.nydp

@@ -0,0 +1,71 @@
+;
+; render-as-textile:
+;
+; ================================================================================
+;
+; the simplest case:
+;
+; (render-as-textile "hello world")
+;
+; expands to
+;
+; "<p>hello world</p>"
+;
+; ================================================================================
+;
+; next case,
+;
+; (render-as-textile (get-some-text-from 'somewhere))
+;
+; expands to
+;
+; (textile-to-html (get-some-text-from 'somewhere))
+;
+; ================================================================================
+;
+; the most useful case:
+;
+; (render-as-textile "hello ~name")
+;
+; expands to :
+;
+; (string-pieces "<p>hello" name "<p>")
+;
+;
+
+(def interpolate (arg) arg)
+
+(def textile-process-parts (parts)
+  (let separator (random-string 20)
+       (string-split (textile-to-html (joinstr "==~{separator}=="
+                                               parts))
+                     separator)))
+
+(def textile-interpolatify-arg (tuple)
+     (if (cadr tuple)
+         `(interpolate ,(cadr tuple))
+         nil))
+
+(def build-textile-interpolator (pieces)
+     (let tuples (pairs pieces)
+          `(string-pieces ,@(apply + (zip (textile-process-parts (map car tuples))
+                                          (map textile-interpolatify-arg tuples))))))
+
+(mac compile-as-textile (arg)
+     (if (isa 'string arg)
+         (textile-to-html arg)
+         (and (pair? arg)
+              (eq? 'string-pieces (car arg)))
+         `(build-textile-interpolator ,(quotify (cdr arg)))
+         `(list 'textile-to-html ',arg)))
+
+(mac textile-build-function (param-names textile-string)
+     `(fn ,param-names (render-as-textile ,textile-string)))
+
+(mac render-as-textile (arg)
+     (if (isa 'string arg)
+         (textile-to-html arg)
+         (and (pair? arg)
+              (eq? 'string-pieces (car arg)))
+         (build-textile-interpolator (cdr arg))
+         `(textile-to-html ,arg)))

data/lib/nydp/html.rb

@@ -0,0 +1,43 @@
+require "redcloth"
+require "nydp"
+require "nydp/literal"
+require "nydp/html/version"
+
+module Nydp
+  module Html
+    class Plugin
+      def name ; "Nydp/HTML plugin" ; end
+
+      def relative_path name
+        File.expand_path(File.join File.dirname(__FILE__), name)
+      end
+
+      def load_rake_tasks
+      end
+
+      def loadfiles
+        b = relative_path('../lisp/textile.nydp')
+        [b]
+      end
+
+      def testfiles
+        Dir.glob(relative_path '../lisp/tests/**/*.nydp')
+      end
+
+      def setup ns
+        Symbol.mk("textile-to-html",  ns).assign(Nydp::Html::TextileToHtml.new)
+      end
+    end
+
+    class TextileToHtml
+      def invoke vm, args
+        src = args.car.to_s
+        rc = RedCloth.new(src)
+        rc.no_span_caps = true
+        vm.push_arg Nydp::StringAtom.new rc.to_html
+      end
+    end
+  end
+end
+
+Nydp.plug_in Nydp::Html::Plugin.new

data/lib/nydp/html/version.rb

@@ -0,0 +1,5 @@
+module Nydp
+  module Html
+    VERSION = "0.0.2"
+  end
+end

data/nydp-html.gemspec

@@ -0,0 +1,31 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'nydp/html/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "nydp-html"
+  spec.version       = Nydp::Html::VERSION
+  spec.authors       = ["Conan Dalton"]
+  spec.email         = ["conan@conandalton.net"]
+  spec.summary       = %q{nydp interface for HAML and Textile}
+  spec.description   = %q{provides 'render-textile-to-html and 'render-haml-to-html functions}
+  spec.homepage      = "http://github.com/conanite/nydp-html"
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files -z`.split("\x0")
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency "bundler", "~> 1.7"
+  spec.add_development_dependency "rake", "~> 10.0"
+
+  spec.add_development_dependency 'rspec', '~> 2.9'
+  spec.add_development_dependency 'rspec_numbering_formatter'
+
+  spec.add_dependency             'nydp'
+  spec.add_dependency             'haml'
+  spec.add_dependency             'RedCloth'
+
+end

metadata

@@ -0,0 +1,154 @@
+--- !ruby/object:Gem::Specification
+name: nydp-html
+version: !ruby/object:Gem::Version
+  version: 0.0.2
+platform: ruby
+authors:
+- Conan Dalton
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2015-06-07 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.7'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.7'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.9'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.9'
+- !ruby/object:Gem::Dependency
+  name: rspec_numbering_formatter
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: nydp
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: haml
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: RedCloth
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+description: provides 'render-textile-to-html and 'render-haml-to-html functions
+email:
+- conan@conandalton.net
+executables:
+- nydp-tests
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- bin/nydp-tests
+- lib/lisp/tests/textile-tests.nydp
+- lib/lisp/textile.nydp
+- lib/nydp/html.rb
+- lib/nydp/html/version.rb
+- nydp-html.gemspec
+homepage: http://github.com/conanite/nydp-html
+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.2.2
+signing_key: 
+specification_version: 4
+summary: nydp interface for HAML and Textile
+test_files: []