skeptick 0.1.0

data/lib/skeptick/railtie.rb

@@ -0,0 +1,8 @@
+module Skeptick
+  class Railtie < Rails::Railtie
+    initializer "skeptick.configure_rails_initialization" do
+      Skeptick.logger  = Rails.logger
+      Skeptick.cd_path = Rails.root
+    end
+  end
+end

data/lib/skeptick/sugar.rb

@@ -0,0 +1,8 @@
+require 'skeptick/sugar/composition'
+require 'skeptick/sugar/debugging'
+require 'skeptick/sugar/drawing'
+require 'skeptick/sugar/geometry'
+require 'skeptick/sugar/resizing'
+require 'skeptick/sugar/sequence_manipulation'
+require 'skeptick/sugar/formatting'
+require 'skeptick/sugar/edges'

data/lib/skeptick/sugar/composition.rb

@@ -0,0 +1,55 @@
+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

@@ -0,0 +1,12 @@
+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

@@ -0,0 +1,32 @@
+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

@@ -0,0 +1,70 @@
+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

@@ -0,0 +1,12 @@
+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/geometry.rb

@@ -0,0 +1,38 @@
+module Skeptick
+  module Sugar
+    module Geometry
+      def geometry(options = {})
+        result = ''
+
+        result << if options[:size]
+          options[:size]
+        else
+          if options[:width] && options[:height]
+            "#{options[:width]}x#{options[:height]}"
+          elsif options[:width]
+            "#{options[:width]}x"
+          elsif options[:height]
+            "x#{options[:height]}"
+          else
+            ''
+          end
+        end
+
+        if options[:left] || options[:top]
+          left = '%+d' % (options[:left] || 0)
+          top  = '%+d' % (options[:top]  || 0)
+          result << "#{left}#{top}"
+        end
+
+        result << '%' if options[:percentage]
+        result << '!' if options[:exact]
+        result << '<' if options[:expand_only]
+        result << '>' if options[:shrink_only]
+
+        result
+      end
+    end
+  end
+
+  include Sugar::Geometry
+end

data/lib/skeptick/sugar/resizing.rb

@@ -0,0 +1,16 @@
+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

@@ -0,0 +1,43 @@
+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/lib/skeptick/version.rb

@@ -0,0 +1,3 @@
+module Skeptick
+  VERSION = "0.1.0"
+end

data/logo.rb

@@ -0,0 +1,45 @@
+require_relative 'lib/skeptick'
+
+include Skeptick
+
+image_size = '400x120'
+
+paper = rounded_corners_image(size: image_size, radius: 25) do
+  set   :size, image_size
+  image 'tile:granite:'
+  apply '-brightness-contrast', '38x-33'
+  apply :blur, '0x0.5'
+end
+
+left, top = 8, 80
+text = image do
+  canvas :none, size: '395x110'
+  font   'Handwriting - Dakota Regular'
+  set    :pointsize, 90
+  set    :fill, 'gradient:#37e-#007'
+  write  'Skeptick', left: left, top: top
+  apply  :blur, '0x0.7'
+end
+
+bezier = \
+  "#{left + 17 }, #{top + 17}   #{left + 457}, #{top - 13} " +
+  "#{left + 377}, #{top + 27}   #{left + 267}, #{top + 27}"
+
+curve = image do
+  canvas :none, size: '395x110'
+  set    :strokewidth, 2
+  set    :stroke, 'gradient:#37e-#007'
+  draw   "fill none bezier #{bezier}"
+end
+
+result_path = "#{File.dirname(__FILE__)}/logo.png"
+
+torn = torn_paper_image(
+  paper * (text + curve),
+  spread: 50,
+  blur:   '3x10'
+)
+
+logo = convert(torn, to: result_path)
+logo.build
+# system "osascript refresh_preview.scpt"

data/refresh_preview.scpt

@@ -0,0 +1,2 @@
+tell application "Preview" to activate
+tell application "Sublime Text 2" to activate

data/skeptick.gemspec

@@ -0,0 +1,21 @@
+# -*- encoding: utf-8 -*-
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'skeptick/version'
+
+Gem::Specification.new do |gem|
+  gem.name          = "skeptick"
+  gem.version       = Skeptick::VERSION
+  gem.authors       = ["Maxim Chernyak"]
+  gem.email         = ["max@bitsonnet.com"]
+  gem.description   = %q{Thin ImageMagick DSL with smart command composition}
+  gem.summary       = %q{Skeptick doesn't believe in Magick}
+  gem.homepage      = "https://github.com/maxim/skeptick"
+
+  gem.files         = `git ls-files`.split($/)
+  gem.executables   = gem.files.grep(%r{^bin/}).map{ |f| File.basename(f) }
+  gem.test_files    = gem.files.grep(%r{^(test|spec|features)/})
+  gem.require_paths = ["lib"]
+
+  gem.add_dependency 'posix-spawn', '~> 0.3.6'
+end

data/test/chain_test.rb

@@ -0,0 +1,94 @@
+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