akdubya-mapel 0.1.3

data/README.rdoc

@@ -0,0 +1,21 @@
+== Mapel: A dead-simple image-rendering DSL
+
+<tt>Mapel</tt> is a dead-simple, chainable image-rendering DSL for ImageMagick. 
+Still very much an experiment-in-progress, it supports a dozen or so essential
+commands.
+
+Example:
+
+  Mapel.render('image.jpg').resize("50%").to('output.jpg').run
+
+== Fun Fact
+
+<tt>Mapel</tt> is named after a tortoiseshell cat.
+
+== Meta
+
+Written by Aleks Williams (http://github.com/akdubya)
+
+Released under the MIT License: www.opensource.org/licenses/mit-license.php
+
+github.com/akdubya/mapel

data/Rakefile

@@ -0,0 +1,62 @@
+require 'rake'
+require 'rake/testtask'
+require 'rake/clean'
+require 'rake/gempackagetask'
+require 'rake/rdoctask'
+require 'fileutils'
+
+task :default => [:test]
+task :spec => :test
+
+name = 'mapel'
+version = '0.1.3'
+
+spec = Gem::Specification.new do |s|
+  s.name = name
+  s.version = version
+  s.summary = "A dead-simple image-rendering DSL."
+  s.description = "A dead-simple image-rendering DSL."
+  s.author = "Aleksander Williams"
+  s.email = "alekswilliams@earthlink.net"
+  s.homepage = "http://github.com/akdubya/mapel"
+  s.platform = Gem::Platform::RUBY
+  s.has_rdoc = true
+  s.files = %w(Rakefile README.rdoc) + Dir.glob("{lib,spec}/**/*")
+  s.require_path = "lib"
+end
+
+Rake::GemPackageTask.new(spec) do |p|
+  p.need_tar = true if RUBY_PLATFORM !~ /mswin/
+end
+
+desc "Install as a system gem"
+task :install => [ :package ] do
+  sh %{sudo gem install pkg/#{name}-#{version}.gem}
+end
+
+desc "Uninstall as a system gem"
+task :uninstall => [ :clean ] do
+  sh %{sudo gem uninstall #{name}}
+end
+
+desc "Create a gemspec file"
+task :make_spec do
+  File.open("#{name}.gemspec", "w") do |file|
+    file.puts spec.to_ruby
+  end
+end
+
+Rake::TestTask.new(:test) do |t|
+  t.libs << "spec"
+  t.test_files = FileList['spec/*_spec.rb']
+  t.verbose = true
+end
+
+Rake::RDocTask.new do |t|
+  t.rdoc_dir = 'rdoc'
+  t.title = "Mapel: A dead-simple image-rendering DSL."
+  t.options << '--line-numbers' << '--inline-source' << '-A cattr_accessor=object'
+  t.options << '--charset' << 'utf-8'
+  t.rdoc_files.include('README.rdoc')
+  t.rdoc_files.include('lib/mapel.rb')
+end

data/lib/mapel.rb

@@ -0,0 +1,188 @@
+def Mapel(source)
+  Mapel.render(source)
+end
+
+module Mapel
+
+  # Mapel.info('image.jpg')
+  def self.info(source, engine = :image_magick)
+    Mapel::Engine.const_get(camelize(engine)).info(source)
+  end
+
+  # Mapel.render('image.jpg').resize("50%").to('output.jpg').run
+  def self.render(source, engine = :image_magick)
+    Mapel::Engine.const_get(camelize(engine)).render(source)
+  end
+
+  # Mapel.list
+  def self.list(engine = :image_magick)
+    Mapel::Engine.const_get(camelize(engine)).list
+  end
+
+  class Engine
+    attr_reader :command, :status, :output
+    attr_accessor :commands
+
+    def initialize(source = nil)
+      @source = source
+      @commands = []
+    end
+
+    def success?
+      @status
+    end
+
+    class ImageMagick < Engine
+      def self.info(source)
+        im = new(source)
+        im.commands << 'identify'
+        im.commands << source
+        im.run.to_info_hash
+      end
+
+      def self.render(source = nil)
+        im = new(source)
+        im.commands << 'convert'
+        im.commands << source unless source.nil?
+        im
+      end
+
+      def self.list(type = nil)
+        im = new
+        im.commands << 'convert -list'
+        im.run
+      end
+
+      def crop(*args)
+        @commands << "-crop \"#{Geometry.new(*args).to_s(true)}\""
+        self
+      end
+
+      def gravity(type = :center)
+        @commands << "-gravity #{type}"
+        self
+      end
+
+      def repage
+        @commands << "+repage"
+        self
+      end
+
+      def resize(*args)
+        @commands << "-resize \"#{Geometry.new(*args)}\""
+        self
+      end
+
+      def resize!(*args)
+        @commands << lambda {
+          cmd = self.class.new
+          width, height = Geometry.new(*args).dimensions
+          if @source
+            origin_width, origin_height = Mapel.info(@source)[:dimensions]
+
+            # Crop dimensions should not exceed original dimensions.
+            width = [width, origin_width].min
+            height = [height, origin_height].min
+
+            if width != origin_width || height != origin_height
+              scale = [width/origin_width.to_f, height/origin_height.to_f].max
+              cmd.resize((scale*(origin_width+0.5)), (scale*(origin_height+0.5)))
+            end
+            cmd.crop(width, height).to_preview
+          else
+            "\{crop_resized #{args}\}"
+          end
+        }
+        self
+      end
+
+      def scale(*args)
+        @commands << "-scale \"#{Geometry.new(*args)}\""
+        self
+      end
+
+      def to(path)
+        @commands << path
+        self
+      end
+
+      def undo
+        @commands.pop
+        self
+      end
+      
+      def run
+        @output = `#{to_preview}`
+        @status = ($? == 0)
+        self
+      end
+
+      def to_preview
+        @commands.map { |cmd| cmd.respond_to?(:call) ? cmd.call : cmd }.join(' ')
+      end
+
+      def to_info_hash
+        meta = {}
+        meta[:dimensions] = @output.split(' ')[2].split('x').map { |d| d.to_i }
+        meta
+      end
+    end
+  end
+
+  class Geometry
+    attr_accessor :width, :height, :x, :y, :flag
+
+    FLAGS = ['', '%', '<', '>', '!', '@']
+    RFLAGS = {
+      '%' => :percent,
+      '!' => :aspect,
+      '<' => :<,
+      '>' => :>,
+      '@' => :area
+    }
+
+    # Regex parser for geometry strings
+    RE = /\A(\d*)(?:x(\d+)?)?([-+]\d+)?([-+]\d+)?([%!<>@]?)\Z/
+
+    def initialize(*args)
+      if (args.length == 1) && (args.first.kind_of?(String))
+        raise(ArgumentError, "Invalid geometry string") unless m = RE.match(args.first)
+        args = m.to_a[1..5]
+        args[4] = args[4] ? RFLAGS[args[4]] : nil
+      end
+      @width = args[0] ? args[0].to_i.round : 0
+      @height = args[1] ? args[1].to_i.round : 0
+      raise(ArgumentError, "Width must be >= 0") if @width < 0
+      raise(ArgumentError, "Height must be >= 0") if @height < 0
+      @x = args[2] ? args[2].to_i : 0
+      @y = args[3] ? args[3].to_i : 0
+      @flag = (args[4] && RFLAGS.has_value?(args[4])) ? args[4] : nil
+    end
+
+    def dimensions
+      [width, height]
+    end
+
+    # Convert object to a geometry string
+    def to_s(crop = false)
+      str = ''
+      str << "%g" % @width if @width > 0
+      str << 'x' if @height > 0
+      str << "%g" % @height if @height > 0
+      str << "%+d%+d" % [@x, @y] if (@x != 0 || @y != 0 || crop)
+      str << RFLAGS.key(@flag).to_s
+    end
+  end
+
+  # By default, camelize converts strings to UpperCamelCase.
+  #
+  # camelize will also convert '/' to '::' which is useful for converting paths to namespaces
+  #
+  # @example
+  # "active_record".camelize #=> "ActiveRecord"
+  # "active_record/errors".camelize #=> "ActiveRecord::Errors"
+  #
+  def self.camelize(word, *args)
+    word.to_s.gsub(/\/(.?)/) { "::" + $1.upcase }.gsub(/(^|_)(.)/) { $2.upcase }
+  end
+end

data/spec/mapel_spec.rb

@@ -0,0 +1,63 @@
+require File.dirname(__FILE__) + '/spec_helper.rb'
+
+describe Mapel do
+  before do
+    @input    = File.dirname(__FILE__) + '/fixtures'
+    @output   = File.dirname(__FILE__) + '/output'
+    @logo     = @input + '/ImageMagick.jpg'
+  end
+
+  after do
+    Dir.glob(@output + '/*') { |f| File.delete(f) }
+  end
+
+  it "should respond to #info" do
+    Mapel.respond_to?(:info).should == true
+  end
+
+  it "should respond to #render" do
+    Mapel.respond_to?(:render).should == true
+  end
+
+  it "should support compact rendering syntax" do
+    Mapel(@logo).should.be.kind_of(Mapel::Engine)
+  end
+
+  describe "#info" do
+    it "should return image dimensions" do
+      Mapel.info(@logo)[:dimensions].should == [572, 591]
+    end
+  end
+
+  describe "#render" do
+    it "should be able to scale an image" do
+      cmd = Mapel(@logo).scale('50%').to(@output + '/scaled.jpg').run
+      cmd.status.should == true
+      Mapel.info(@output + '/scaled.jpg')[:dimensions].should == [286, 296]
+    end
+
+    it "should be able to crop an image" do
+      cmd = Mapel(@logo).crop('50x50+0+0').to(@output + '/cropped.jpg').run
+      cmd.status.should == true
+      Mapel.info(@output + '/cropped.jpg')[:dimensions].should == [50, 50]
+    end
+
+    it "should be able to resize an image" do
+      cmd = Mapel(@logo).resize('100x').to(@output + '/resized.jpg').run
+      cmd.status.should == true
+      Mapel.info(@output + '/resized.jpg')[:dimensions].should == [100, 103]
+    end
+
+    it "should be able to crop-resize an image" do
+      cmd = Mapel(@logo).gravity(:west).resize!('50x100').to(@output + '/crop_resized.jpg').run
+      cmd.status.should == true
+      Mapel.info(@output + '/crop_resized.jpg')[:dimensions].should == [50, 99]
+    end
+
+    it "should allow arbitrary addition of commands to the queue" do
+      cmd = Mapel(@logo).gravity(:west)
+      cmd.resize(50, 50)
+      cmd.to_preview.should == "convert #{@logo} -gravity west -resize \"50x50\""
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,4 @@
+require 'rubygems'
+require 'bacon'
+
+require File.dirname(__FILE__) + '/../lib/mapel'

metadata

@@ -0,0 +1,60 @@
+--- !ruby/object:Gem::Specification 
+name: akdubya-mapel
+version: !ruby/object:Gem::Version 
+  version: 0.1.3
+platform: ruby
+authors: 
+- Aleksander Williams
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-03-11 00:00:00 -07:00
+default_executable: 
+dependencies: []
+
+description: A dead-simple image-rendering DSL.
+email: alekswilliams@earthlink.net
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- Rakefile
+- README.rdoc
+- lib/mapel.rb
+- spec/fixtures
+- spec/fixtures/ImageMagick.jpg
+- spec/spec_helper.rb
+- spec/output
+- spec/mapel_spec.rb
+has_rdoc: true
+homepage: http://github.com/akdubya/mapel
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.2.0
+signing_key: 
+specification_version: 2
+summary: A dead-simple image-rendering DSL.
+test_files: []
+