compass-core-sass37 1.1.0

data/lib/compass/core/sass_extensions/functions/image_size.rb

@@ -0,0 +1,117 @@
+module Compass::Core::SassExtensions::Functions::ImageSize
+  KNOWN_TYPES = %w(png gif jpg jpeg)
+
+  # Returns the width of the image relative to the images directory
+  def image_width(image_file)
+    width, _ = image_dimensions(image_file)
+    number(width, "px")
+  end
+  
+  # Returns the height of the image relative to the images directory
+  def image_height(image_file)
+    _, height = image_dimensions(image_file)
+    number(height, "px")
+  end
+
+  class ImageProperties
+    def initialize(file)
+      @file = (file.respond_to?(:to_path) ? file.to_path : file)
+      @file_type = File.extname(@file)[1..-1].downcase
+      unless KNOWN_TYPES.include?(@file_type)
+        raise Sass::SyntaxError, "Unrecognized file type: #{@file_type}"
+      end
+    end
+
+    def size
+      @dimensions ||= send(:"get_size_for_#{@file_type}")
+    end
+
+  private
+    def get_size_for_png
+      File.open(@file, "rb") {|io| io.read}[0x10..0x18].unpack('NN')
+    end
+
+    def get_size_for_gif
+      File.open(@file, "rb") {|io| io.read}[6..10].unpack('SS')
+    end
+
+    def get_size_for_jpg
+      get_size_for_jpeg
+    end
+
+    def get_size_for_jpeg
+      jpeg = JPEG.new(@file)
+      [jpeg.width, jpeg.height]
+    end
+  end
+
+private
+
+  def image_dimensions(image_file)
+    image_file = image_file.respond_to?(:value) ? image_file.value : image_file
+    options[:compass] ||= {}
+    options[:compass][:image_dimensions] ||= {}
+    options[:compass][:image_dimensions][image_file] = ImageProperties.new(image_path_for_size(image_file)).size
+  end
+  
+  def image_path_for_size(image_file)
+    if File.exist?(image_file)
+      return image_file 
+    end
+    real_path(image_file)
+  end
+
+  def real_path(image_file)
+    # Compute the real path to the image on the file stystem if the images_dir is set.
+    if Compass.configuration.images_path
+      File.join(Compass.configuration.images_path, image_file)
+    else
+      File.join(Compass.configuration.project_path, image_file)
+    end
+  end
+
+  class JPEG
+    attr_reader :width, :height, :bits
+
+    def initialize(file)
+      if file.kind_of? IO
+        examine(file)
+      else
+        File.open(file, 'rb') { |io| examine(io) }
+      end
+    end
+
+  private
+    def examine(io)
+      class << io
+        unless method_defined?(:readbyte)
+          def readbyte
+            getc
+          end
+        end
+        def readint; (readbyte << 8) + readbyte; end
+        def readframe; read(readint - 2); end
+        def readsof; [readint, readbyte, readint, readint, readbyte]; end
+        def next
+          c = readbyte while c != 0xFF
+          c = readbyte while c == 0xFF
+          c
+        end
+      end
+
+      raise 'malformed JPEG!' unless io.readbyte == 0xFF && io.readbyte == 0xD8 # SOI
+
+      while marker = io.next
+        case marker
+          when 0xC0..0xC3, 0xC5..0xC7, 0xC9..0xCB, 0xCD..0xCF # SOF markers
+            length, @bits, @height, @width, components = io.readsof
+            raise 'malformed JPEG' unless length == 8 + components * 3
+          when 0xD9, 0xDA then  break # EOI, SOS
+          when 0xFE then @comment = io.readframe # COM
+          when 0xE1 then io.readframe # APP1, contains EXIF tag
+          else io.readframe # ignore frame
+        end
+      end
+    end
+end
+end

data/lib/compass/core/sass_extensions/functions/inline_image.rb

@@ -0,0 +1,63 @@
+module Compass::Core::SassExtensions::Functions::InlineImage
+
+  def inline_image(path, mime_type = nil)
+    path = path.value
+    real_path = File.join(Compass.configuration.images_path, path)
+    inline_image_string(data(real_path), compute_mime_type(path, mime_type))
+  end
+
+  def inline_font_files(*args)
+    files = []
+    with_each_font_file(*args) do |path, type|
+      path = path.value
+      real_path = File.join(Compass.configuration.fonts_path, path)
+      data = inline_image_string(data(real_path), compute_mime_type(path))
+      files << list(data, unquoted_string("format('#{type}')"), :space)
+    end
+    list(files, :comma)
+  end
+
+protected
+  def inline_image_string(data, mime_type)
+    data = [data].flatten.pack('m').gsub("\n","")
+    url = "url('data:#{mime_type};base64,#{data}')"
+    unquoted_string(url)
+  end
+
+private
+  def compute_mime_type(path, mime_type = nil)
+    return mime_type.value if mime_type
+    case path
+    when /\.png$/i
+      'image/png'
+    when /\.jpe?g$/i
+      'image/jpeg'
+    when /\.gif$/i
+      'image/gif'
+    when /\.svg$/i
+      'image/svg+xml'
+    when /\.otf$/i
+      'font/opentype'
+    when /\.eot$/i
+      'application/vnd.ms-fontobject'
+    when /\.ttf$/i
+      'font/truetype'
+    when /\.woff$/i
+      'application/font-woff'
+    when /\.off$/i
+      'font/openfont'
+    when /\.([a-zA-Z]+)$/
+      "image/#{Regexp.last_match(1).downcase}"
+    else
+      raise Compass::Error, "A mime type could not be determined for #{path}, please specify one explicitly."
+    end
+  end
+
+  def data(real_path)
+    if File.readable?(real_path)
+      File.open(real_path, "rb") {|io| io.read}
+    else
+      raise Compass::Error, "File not found or cannot be read: #{real_path}"
+    end
+  end
+end

data/lib/compass/core/sass_extensions/functions/lists.rb

@@ -0,0 +1,102 @@
+module Compass::Core::SassExtensions::Functions::Lists
+
+  # Returns true when the object is false, an empty string, or an empty list
+  def blank(obj)
+    case obj
+    when Sass::Script::Value::Bool, Sass::Script::Value::Null
+      bool(!obj.to_bool)
+    when Sass::Script::Value::String
+      bool(obj.value.strip.size == 0)
+    when Sass::Script::Value::List
+      bool(obj.value.size == 0 || obj.value.all?{|el| blank(el).to_bool})
+    else
+      bool(false)
+    end
+  end
+
+  # Returns a new list after removing any non-true values
+  def compact(*args)
+    sep = :comma
+    if args.size == 1 && args.first.is_a?(Sass::Script::Value::List)
+      list = args.first
+      args = list.value
+      sep = list.separator
+    end
+    list(args.reject{|a| !a.to_bool}, sep)
+  end
+
+  # Get the nth value from a list
+  def _compass_nth(list, place)
+    assert_type list, :List
+    if place.value == "first"
+      list.value.first
+    elsif place.value == "last"
+      list.value.last
+    else
+      list.value[place.value - 1]
+    end
+  end
+
+  # Returns a list object from a value that was passed.
+  # This can be used to unpack a space separated list that got turned
+  # into a string by sass before it was passed to a mixin.
+  def _compass_list(arg)
+    if arg.is_a?(Sass::Script::Value::List)
+      list(arg.value.dup, arg.separator)
+    else
+      list(arg, :space)
+    end
+  end
+
+  # If the argument is a list, it will return a new list that is space delimited
+  # Otherwise it returns a new, single element, space-delimited list.
+  def _compass_space_list(list)
+    if list.is_a?(Sass::Script::Value::List)
+      list(list.value.dup, :space)
+    else
+      list(list, :space)
+    end
+  end
+
+  # Returns the size of the list.
+  def _compass_list_size(list)
+    assert_list list
+    number(list.value.size)
+  end
+
+  # slice a sublist from a list
+  def _compass_slice(list, start_index, end_index = nil)
+    end_index ||= number(-1)
+    start_index = start_index.value
+    end_index = end_index.value
+    start_index -= 1 unless start_index < 0
+    end_index -= 1 unless end_index < 0
+    list(list.values[start_index..end_index], list.separator)
+  end
+
+  # removes the given values from the list.
+  def reject(list, *values)
+    list(list.value.reject{|v| values.any?{|o| v == o}}, list.separator)
+  end
+
+  # returns the first value of a space delimited list.
+  def first_value_of(list)
+    if list.is_a?(Sass::Script::Value::String)
+      r = list.value.split(/\s+/).first
+      list.type == :identifier ? identifier(r) : quoted_string(r)
+    elsif list.is_a?(Sass::Script::Value::List)
+      list.value.first
+    else
+      list
+    end
+  end
+
+  protected
+
+  def assert_list(value)
+    unless value.is_a?(Sass::Script::Value::List)
+      raise ArgumentError.new("#{value.inspect} is not a list")
+    end
+  end
+
+end

data/lib/compass/core/sass_extensions/functions/math.rb

@@ -0,0 +1,105 @@
+module Compass::Core::SassExtensions::Functions::Math
+  extend Compass::Core::SassExtensions::Functions::SassDeclarationHelper
+  extend Sass::Script::Value::Helpers
+
+  def self.included(base)
+    if base == Sass::Script::Functions
+      base.send :alias_method, :sass_random, :random
+      base.send :alias_method, :random, :deprecated_random
+    end
+  end
+
+  PI = number(Math::PI)
+  E = number(Math::E)
+
+  def pi()
+    PI
+  end
+  declare :pi, []
+
+  def deprecated_random(*args)
+    if args.length == 2
+      Compass::Util.compass_warn <<WARNING
+WARNING: The $start value for random(#{args.first}, #{args.last}) is not supported by Sass and is now
+  deprecated in Compass and will be removed in a future release.
+  Use `#{args.first} + random(#{args.last.minus(args.first)})` instead.
+WARNING
+      range = (args.first.value..args.last.value).to_a
+      number(range[rand(range.length)])
+    else
+      sass_random(*args)
+    end
+  end
+  declare :random, [:start, :limit]
+
+  def sin(number)
+    trig(:sin, number)
+  end
+  declare :sin, [:number]
+
+  def asin(number)
+    trig(:asin, number)
+  end
+  declare :asin, [:number]
+
+  def cos(number)
+    trig(:cos, number)
+  end
+  declare :cos, [:number]
+
+  def acos(number)
+    trig(:acos, number)
+  end
+  declare :acos, [:number]
+
+  def tan(number)
+    trig(:tan, number)
+  end
+  declare :tan, [:number]
+
+  def atan(number)
+    trig(:atan, number)
+  end
+  declare :atan, [:number]
+
+  def e
+    E
+  end
+  declare :e, []
+
+  def logarithm(number, base = e )
+    assert_type number, :Number
+    assert_type base, :Number
+    raise Sass::SyntaxError, "base to logarithm must be unitless." unless base.unitless?
+
+    result = Math.log(number.value, base.value) rescue Math.log(number.value) / Math.log(base.value)
+    number(result, number.unit_str)
+  end
+  declare :logarithm, [:number]
+  declare :logarithm, [:number, :base]
+
+  def sqrt(number)
+    numeric_transformation(number) { |n| Math.sqrt(n) }
+  end
+  declare :sqrt, [:number]
+
+  alias square_root sqrt
+  declare :square_root, [:number]
+
+  def pow(number, exponent)
+    assert_type number, :Number
+    assert_type exponent, :Number
+    raise Sass::SyntaxError, "exponent to pow must be unitless." unless exponent.unitless?
+    number(number.value**exponent.value, number.unit_str)
+  end
+  declare :pow, [:number, :exponent]
+
+  private
+  def trig(operation, number)
+    if number.unit_str == "deg"
+      number(Math.send(operation, Math::PI * number.value / 180))
+    else
+      number(Math.send(operation, number.value), number.unit_str)
+    end
+  end
+end

data/lib/compass/core/sass_extensions/functions/selectors.rb

@@ -0,0 +1,79 @@
+module Compass::Core::SassExtensions::Functions::Selectors
+  COMMA_SEPARATOR = /\s*,\s*/
+
+  # Permute multiple selectors each of which may be comma delimited, the end result is
+  # a new selector that is the equivalent of nesting each under the previous selector.
+  # To illustrate, the following mixins are equivalent:
+  #
+  #     @include mixin-a($selector1, $selector2, $selector3) {
+  #       #{$selector1} {
+  #         #{$selector2} {
+  #           #{$selector3} {
+  #             width: 2px
+  #           }
+  #         }
+  #       }
+  #     }
+  #     @include mixin-b($selector1, $selector2, $selector3) {
+  #       #{nest($selector, $selector2, $selector3)} {
+  #         width: 2px
+  #       }
+  #     }
+  def nest(*arguments)
+    nested = arguments.map{|a| a.value}.inject do |memo,arg|
+      ancestors = memo.split(COMMA_SEPARATOR)
+      descendants = arg.split(COMMA_SEPARATOR)
+      ancestors.map{|a| descendants.map{|d| "#{a} #{d}"}.join(", ")}.join(", ")
+    end
+    unquoted_string(nested)
+  end
+
+  # Permute two selectors, the first may be comma delimited.
+  # The end result is a new selector that is the equivalent of nesting the second
+  # selector under the first one in a sass file and preceding it with an &.
+  # To illustrate, the following mixins are equivalent, except the second
+  # mixin handles:
+  #
+  #     @include mixin-a($selector, $to-append) {
+  #       #{$selector} {
+  #         &#{$to-append} {
+  #           width: 2px
+  #         }
+  #       }
+  #     }
+  #     
+  #     @include mixin-b($selector, $to-append) {
+  #       #{append_selector($selector, $to-append)} {
+  #         width: 2px
+  #       }
+  #     }
+  def append_selector(selector, to_append)
+    ancestors = selector.value.split(COMMA_SEPARATOR)
+    descendants = to_append.value.split(COMMA_SEPARATOR)
+    nested = ancestors.map{|a| descendants.map{|d| "#{a}#{d}"}.join(", ")}.join(", ")
+    unquoted_string(nested)
+  end
+
+  # Return the header selectors for the levels indicated
+  # Defaults to all headers h1 through h6
+  # For example:
+  # headers(all) => h1, h2, h3, h4, h5, h6
+  # headers(4) => h1, h2, h3, h4
+  # headers(2,4) => h2, h3, h4
+  def headers(from = nil, to = nil)
+    if from && !to
+      if from.is_a?(Sass::Script::Value::String) && from.value == "all"
+        from = number(1)
+        to = number(6)
+      else
+        to = from
+        from = number(1)
+      end
+    else
+      from ||= number(1)
+      to ||= number(6)
+    end
+    list((from.value..to.value).map{|n| identifier("h#{n}")}, :comma)
+  end
+  alias headings headers
+end