skeptick 0.1.1 → 0.2.0

data/lib/skeptick/image/dsl_context.rb

@@ -1,29 +0,0 @@
-module Skeptick
-  class Image
-    class DslContext
-      def initialize(image)
-        @image = image
-      end
-
-      def set(*args)
-        @image.set(*args)
-      end
-
-      def apply(*args)
-        @image.apply(*args)
-      end
-
-      def image(obj)
-        @image.image(obj)
-      end
-
-      def convert(*args, &blk)
-        @image.convert(*args, &blk)
-      end
-
-      def method_missing(*args, &blk)
-        @image.process_method_missing(*args, &blk)
-      end
-    end
-  end
-end

data/lib/skeptick/sugar/composition.rb

@@ -1,55 +0,0 @@
-module Skeptick
-  module Sugar
-    module Composition
-      module Helper
-        def compose(blending, *args, &blk)
-          convert(*args, &blk).tap do |c|
-            c.append :compose, blending.to_s
-            c.append :composite
-          end
-        end
-      end
-
-      module Operators
-        def +(other)
-          compose(:over, self, other)
-        end
-
-        def -(other)
-          compose(:dstout, self, other)
-        end
-
-        def *(other)
-          compose(:multiply, self, other)
-        end
-
-        def /(other)
-          compose(:divide, self, other)
-        end
-
-        def &(other)
-          compose(:dstin, self, other) { apply '-alpha Set' }
-        end
-
-        def |(other)
-          compose(:dstover, self, other)
-        end
-      end
-    end
-  end
-
-  # Include compose into external context
-  include Sugar::Composition::Helper
-
-  # Include compose into Image's and Convert's DSL context
-  class   Image::DslContext; include Sugar::Composition::Helper end
-  class Convert::DslContext; include Sugar::Composition::Helper end
-
-  # Include compose into Image and Convert objects
-  class   Image; include Sugar::Composition::Helper end
-  class Convert; include Sugar::Composition::Helper end
-
-  # Include operators into Image and Convert objects
-  class   Image; include Sugar::Composition::Operators end
-  class Convert; include Sugar::Composition::Operators end
-end

data/lib/skeptick/sugar/debugging.rb

@@ -1,12 +0,0 @@
-module Skeptick
-  module Sugar
-    module Debugging
-      def save(path)
-        apply('-write', path)
-      end
-    end
-  end
-
-  class   Image::DslContext; include Sugar::Debugging end
-  class Convert::DslContext; include Sugar::Debugging end
-end

data/lib/skeptick/sugar/drawing.rb

@@ -1,32 +0,0 @@
-module Skeptick
-  module Sugar
-    module Drawing
-      def canvas(string, options = {})
-        if options[:size]
-          set '-size', options[:size]
-        end
-
-        set "canvas:#{string}"
-      end
-
-      def draw(*args)
-        set '-draw', args.join(' ').shellescape
-      end
-
-      def write(text, options = {})
-        if options[:left] && options[:top]
-          opts = "#{options[:left]},#{options[:top]} "
-        end
-
-        draw "text #{opts}'#{text}'"
-      end
-
-      def font(name)
-        set '-font', name.split(/\s/).map(&:capitalize).join('-')
-      end
-    end
-  end
-
-  class   Image::DslContext; include Sugar::Drawing end
-  class Convert::DslContext; include Sugar::Drawing end
-end

data/lib/skeptick/sugar/edges.rb

@@ -1,70 +0,0 @@
-require 'skeptick/sugar/composition'
-require 'skeptick/sugar/formatting'
-
-module Skeptick
-  module Sugar
-    module Edges
-      def rounded_corners_image(image = nil, options = {}, &blk)
-        options = image.is_a?(Hash) ? image : options
-        radius = options[:radius] || 15
-        width, height = options.values_at(:width, :height)
-
-        if options[:size]
-          width, height = *options[:size].split('x').map(&:to_i)
-        end
-
-        if block_given?
-          image = Image.new(self, &blk)
-        end
-
-        border = if width && height
-          "roundrectangle 1,1 #{width},#{height} #{radius},#{radius}"
-        else
-          convert(image, to: 'info:') do
-            format "roundrectangle 1,1 %[fx:w], %[fx:h] #{radius},#{radius}"
-          end.execute.strip
-        end
-
-        compose(:dstin, image) do
-          convert do
-            set '+clone'
-            set :alpha, 'transparent', :background, 'none'
-            draw border
-          end
-
-          set :alpha, 'set'
-        end
-      end
-
-      def torn_paper_image(image = nil, options = {}, &blk)
-        options   = image.is_a?(Hash) ? image : options
-
-        spread    = options[:spread]    || 1
-        blur      = options[:blur]      || '0x.7'
-        threshold = options[:threshold] || 50
-
-        if block_given?
-          image = Image.new(self, &blk)
-        end
-
-        compose(:copy_opacity, image) do
-          convert do
-            set '+clone'
-            apply :alpha, 'extract'
-            apply '-virtual-pixel', 'black'
-            apply :spread, spread
-            apply :blur, blur
-            apply :threshold, "#{threshold}%"
-          end
-
-          apply :alpha, 'off'
-        end
-      end
-    end
-  end
-
-  include Sugar::Edges
-
-  class   Image::DslContext; include Sugar::Edges end
-  class Convert::DslContext; include Sugar::Edges end
-end

data/lib/skeptick/sugar/formatting.rb

@@ -1,12 +0,0 @@
-module Skeptick
-  module Sugar
-    module Formatting
-      def format(*args)
-        set '-format', args.join(' ').shellescape
-      end
-    end
-  end
-
-  class   Image::DslContext; include Sugar::Formatting end
-  class Convert::DslContext; include Sugar::Formatting end
-end

data/lib/skeptick/sugar/resizing.rb

@@ -1,16 +0,0 @@
-require 'skeptick/sugar/geometry'
-
-module Skeptick
-  module Sugar
-    module Resizing
-      def resized_image(path, options = {})
-        image("#{path}[#{geometry(options)}]")
-      end
-    end
-  end
-
-  include Sugar::Resizing
-
-  class   Image::DslContext; include Sugar::Resizing end
-  class Convert::DslContext; include Sugar::Resizing end
-end

data/lib/skeptick/sugar/sequence_manipulation.rb

@@ -1,43 +0,0 @@
-module Skeptick
-  module Sugar
-    module SequenceManipulation
-      def clone(*args)
-        obj = (args.size < 2 ? args.first : args)
-        set(
-          if obj
-            "-clone #{Helper.object_to_index_range_list(obj)}"
-          else
-            '+clone'
-          end
-        )
-      end
-
-      def delete(*args)
-        obj = (args.size < 2 ? args.first : args)
-        set(
-          if obj
-            "-delete #{Helper.object_to_index_range_list(obj)}"
-          else
-            '+delete'
-          end
-        )
-      end
-
-      def swap(*args)
-        set(
-          if args.empty?
-            '+swap'
-          elsif args.size == 2
-            "-swap #{args.join(',')}"
-          else
-            raise ArgumentError,
-              "wrong number of arguments (#{args.size} for 0, 2)"
-          end
-        )
-      end
-    end
-  end
-
-  class   Image::DslContext; include Sugar::SequenceManipulation end
-  class Convert::DslContext; include Sugar::SequenceManipulation end
-end

data/test/chain_test.rb

@@ -1,94 +0,0 @@
-require_relative 'test_helper'
-
-class ChainTest < Skeptick::TestCase
-  include Skeptick
-
-  def test_dsl_methods_available
-    assert_respond_to self, :chain
-  end
-
-  def test_chaining_two_converts
-    cmd = chain do
-      convert('foo')
-      convert(:pipe)
-    end
-
-    assert_equal 'convert foo miff:- | convert miff:- miff:-', cmd.to_s
-  end
-
-  def test_chaining_two_converts_to_destination
-    cmd = chain(to: 'baz') do
-      convert('foo')
-      convert(:pipe)
-    end
-
-    assert_equal 'convert foo miff:- | convert miff:- baz', cmd.to_s
-  end
-
-  def test_last_convert_destination_prevails
-    cmd = chain(to: 'baz') do
-      convert('foo')
-      convert(:pipe, to: 'qux')
-    end
-
-    assert_equal 'convert foo miff:- | convert miff:- qux', cmd.to_s
-  end
-
-  def test_pipe_or_returns_pipe_if_piping
-    cmd = chain do
-      convert('foo')
-      convert(pipe_or('bar'))
-    end
-
-    assert_equal 'convert foo miff:- | convert miff:- miff:-', cmd.to_s
-  end
-
-  def test_pipe_or_returns_path_if_not_piping
-    cmd = chain { convert(pipe_or('foo')) }
-    assert_equal 'convert foo miff:-', cmd.to_s
-  end
-
-  def test_lvars_from_external_context_are_accessible
-    foo = 'foo'
-    cmd = chain { convert(foo) }
-    assert_equal 'convert foo miff:-', cmd.to_s
-  end
-
-  def test_methods_from_external_context_are_accessible
-    context = Class.new do
-      include Skeptick
-      def foo; 'foo' end
-      def cmd; chain { convert(foo) } end
-    end
-
-    assert_equal 'convert foo miff:-', context.new.cmd.to_s
-  end
-
-  def test_complex_piping_case
-    cmd = chain(to: 'foo') do
-      convert('resized_design', 'mask') do
-        set '-geometry', '-left-top'
-        set '-brightness-contrast',  '-12x20'
-      end
-
-      convert('foo') do
-        convert('qux') do
-          set '+asdf'
-          set '+fdsa'
-        end
-
-        image 'bleh'
-        set '-resize'
-      end
-
-      convert('paper_path', pipe_or('paper_path')) do
-        set '-geometry +left+top'
-      end
-    end
-
-    assert_equal 'convert resized_design mask -geometry -left-top ' +
-      '-brightness-contrast -12x20 miff:- | convert foo ' +
-      '\( qux \+asdf \+fdsa \) bleh -resize miff:- | convert paper_path ' +
-      'miff:- -geometry \+left\+top foo', cmd.to_s
-  end
-end

data/test/image_test.rb

@@ -1,145 +0,0 @@
-require_relative 'test_helper'
-
-class ImageTest < Skeptick::TestCase
-  include Skeptick
-
-  def test_dsl_method_available
-    assert_respond_to self, :image
-  end
-
-  def test_set_prepends_to_image_segment
-    cmd = convert do
-      image do
-        image 'bar'
-        set '-foo'
-      end
-    end
-
-    assert_equal 'convert -foo bar miff:-', cmd.to_s
-  end
-
-  def test_apply_appends_to_image_segment
-    cmd = convert do
-      image do
-        apply '-foo'
-        image 'bar'
-      end
-    end
-
-    assert_equal 'convert bar -foo miff:-', cmd.to_s
-  end
-
-  def test_lvars_from_external_context_are_accessible
-    foo = '-test'
-
-    cmd = convert do
-      image do
-        apply foo
-        image 'bar'
-      end
-    end
-
-    assert_equal 'convert bar -test miff:-', cmd.to_s
-  end
-
-  def test_methods_from_external_context_are_accessible
-    context = Class.new do
-      include Skeptick
-      def foo; :foo end
-      def cmd
-        convert do
-          image do
-            apply foo
-            image 'bar'
-          end
-        end
-      end
-    end
-
-    assert_equal 'convert bar -foo miff:-', context.new.cmd.to_s
-  end
-
-  def test_inject_image_into_convert
-    sample = image do
-      set   :size, '400x400'
-      image 'tile:granite:'
-      apply '-brightness-contrast', '38x-33'
-      apply :blur, '0x0.5'
-    end
-
-    cmd = convert do
-      set '-foo'
-      image sample
-      set '-bar'
-    end
-
-    assert_equal 'convert -foo -size 400x400 tile:granite: ' +
-      '-brightness-contrast 38x-33 -blur 0x0.5 -bar miff:-', cmd.to_s
-  end
-
-  def test_inject_image_into_convert_as_argument
-    sample = image do
-      set   :size, '400x400'
-      image 'tile:granite:'
-      apply '-brightness-contrast', '38x-33'
-      apply :blur, '0x0.5'
-    end
-
-    cmd = convert(sample)
-    assert_equal 'convert -size 400x400 tile:granite: -brightness-contrast ' +
-      '38x-33 -blur 0x0.5 miff:-', cmd.to_s
-  end
-
-  def test_declare_image_inside_convert
-    cmd = convert do
-      set '-foo'
-      image do
-        set   :size, '400x400'
-        image 'tile:granite:'
-        apply '-brightness-contrast', '38x-33'
-        apply :blur, '0x0.5'
-      end
-      set '-bar'
-    end
-
-    assert_equal 'convert -foo -size 400x400 tile:granite: ' +
-      '-brightness-contrast 38x-33 -blur 0x0.5 -bar miff:-', cmd.to_s
-  end
-
-  def test_nested_image
-    sample = image do
-      set :foo
-      image 'bar'
-      apply :baz
-    end
-
-    cmd = convert do
-      image do
-        set :size, '400x400'
-        image sample
-        apply '-brightness-contrast', '38x-33'
-        apply :blur, '0x0.5'
-      end
-    end
-
-    assert_equal 'convert -size 400x400 -foo bar -baz -brightness-contrast ' +
-      '38x-33 -blur 0x0.5 miff:-', cmd.to_s
-  end
-
-  def test_convert_as_image_object
-    sample = convert('foo', to: 'bar') do
-      set :baz
-    end
-
-    cmd = convert do
-      image do
-        set '-setting'
-        image sample
-        apply '-operation'
-      end
-    end
-
-    assert_equal 'convert -setting ( foo -baz ) -operation miff:-',
-      cmd.to_s
-  end
-end