sinatra-hat 0.0.4

data/MIT-LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Adam Strzelecki
+
+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.markdown

@@ -0,0 +1,27 @@
+Sinatra Hat
+===========
+This is a set of extensions for *Sinatra* and relative gems such as *Sequel*, *Haml*, *GetText*.
+
+It adds following functions to your *Sinatra* project:
+
+ - Automatic translation using *GetText* or *Fast_Gettext* of *Haml* templates, and parser for `po` file generation
+ - Several fixes for *Sequel*, *Rack*
+ - Rack reloader for *Sinatra* and *GetText* translations
+ - String permalinks and date extensions
+
+Setup
+=====
+### 1. Install
+    sudo gem install nanoant-sinatra-hat -s http://gems.github.com/
+
+Or from source:
+
+    git clone git://github.com/nanoant/sinatra-hat.git
+    cd sinatra-hat && rake install
+
+Author
+======
+[Adam Strzelecki](http://www.nanoant.com/)
+ono@java.pl
+
+Released under MIT license, see `MIT-LICENSE` for details.

data/Rakefile

@@ -0,0 +1,58 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "sinatra-hat"
+    gem.description = "Sinatra Ruby gem extensions for gettext, caching, reloading, etc."
+    gem.summary = "Sinatra Ruby gem extensions for gettext, caching, reloading, etc."
+    gem.email = "ono@java.pl"
+    gem.homepage = "http://github.com/nanoant/sinatra-hat"
+    gem.authors = ["Adam Strzelecki"]
+    gem.files = FileList['lib/**/*.rb', 'bin/*', '[A-Z]*', 'test/**/*'].to_a
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
+
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: sudo gem install jeweler"
+end
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/*_test.rb'
+  test.verbose = true
+end
+
+begin
+  require 'rcov/rcovtask'
+  Rcov::RcovTask.new do |test|
+    test.libs << 'test'
+    test.pattern = 'test/**/*_test.rb'
+    test.verbose = true
+  end
+rescue LoadError
+  task :rcov do
+    abort "RCov is not available. In order to run rcov, you must: sudo gem install spicycode-rcov"
+  end
+end
+
+
+task :default => :test
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  if File.exist?('VERSION.yml')
+    config = YAML.load(File.read('VERSION.yml'))
+    version = "#{config[:major]}.#{config[:minor]}.#{config[:patch]}"
+  else
+    version = ""
+  end
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "sinatra-hat #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end
+

data/VERSION

@@ -0,0 +1 @@
+0.0.4

data/lib/gettext/haml.rb

@@ -0,0 +1,36 @@
+# Haml gettext module providing gettext translation for all Haml plain text
+# calls
+# http://pastie.org/445295
+
+class Haml::Engine
+  # Inject _ gettext into plain text and tag plain text calls
+  def push_plain(text, options = {})
+    super(_(text), options)
+  end
+  def parse_tag(line)
+    tag_name, attributes, attributes_hashes, object_ref, nuke_outer_whitespace,
+      nuke_inner_whitespace, action, value, last_line = super(line)
+    value = _(value) unless action && action != '!' || action == '!' && value[0..0] == '=' || value.empty?
+    # translate inline ruby code too
+    value.gsub!(/_\('([^']+)'\)/) {|m| '\''+_($1)+'\''} unless action != '=' || value.empty?
+    attributes_hashes.each{|h| h.each{|v| v.gsub!(/_\('([^']+)'\)/){|m| '\''+_($1)+'\''} if v.is_a? String} unless h.nil? || h.empty?} unless attributes_hashes.nil? || attributes_hashes.empty?
+    [tag_name, attributes, attributes_hashes, object_ref, nuke_outer_whitespace,
+        nuke_inner_whitespace, action, value, last_line]
+  end
+  def push_flat(line)
+    return super(line) if @gettext_filters.nil? || !@gettext_filters.last
+    text = line.full.dup
+    text = "" unless text.gsub!(/^#{@flat_spaces}/, '')
+    text = _(text) if text != ''
+    @filter_buffer << "#{text}\n"
+  end
+  def start_filtered(name)
+    @gettext_filters ||= []
+    @gettext_filters.push( (name == 'markdown') )
+    super
+  end
+  def close_filtered(filter)
+    @gettext_filters.pop
+    super
+  end
+end

data/lib/gettext/haml_parser.rb

@@ -0,0 +1,64 @@
+# Haml gettext parser module
+# http://pastie.org/445297
+
+require 'gettext/tools/rgettext'
+require 'gettext/tools/parser/ruby'
+require 'haml'
+
+class String
+  def escape_single_quotes
+    self.gsub(/'/, "\\\\'")
+  end
+end
+
+class Haml::Engine
+  # Overriden function that parses Haml tags
+  # Injects gettext call for plain text action.
+  def parse_tag(line)
+    tag_name, attributes, attributes_hashes, object_ref, nuke_outer_whitespace,
+      nuke_inner_whitespace, action, value, last_line = super(line)
+    @precompiled << "_('#{value.escape_single_quotes}')\n" unless action && action != '!' || action == '!' && value[0..0] == '=' || value.empty?
+    [tag_name, attributes, attributes_hashes, object_ref, nuke_outer_whitespace,
+        nuke_inner_whitespace, action, value, last_line]
+  end
+  # Overriden function that producted Haml plain text
+  # Injects gettext call for plain text action.
+  def push_plain(text, options = {})
+    @precompiled << "_('#{text.escape_single_quotes}')\n"
+  end
+  def push_flat(line)
+    return super(line) if @gettext_filters.nil? || !@gettext_filters.last
+    text = line.unstripped
+    return if text == ''
+    @precompiled << "_('#{text.escape_single_quotes}')\n"
+  end
+  def start_filtered(name)
+    @gettext_filters ||= []
+    @gettext_filters.push( (name == 'markdown') )
+    super
+  end
+  def close_filtered(filter)
+    @gettext_filters.pop
+    super
+  end
+  def flush_merged_text
+    # We override this method, becuase code generated here confuses GetText's Ruby parser
+  end
+end
+
+# Haml gettext parser
+module HamlParser
+  module_function
+ 
+  def target?(file)
+    File.extname(file) == ".haml"
+  end
+ 
+  def parse(file, ary = [])
+    haml = Haml::Engine.new(IO.readlines(file).join)
+    code = haml.precompiled.split(/$/)
+    GetText::RubyParser.parse_lines(file, code, ary)
+  end
+end
+ 
+GetText::RGetText.add_parser(HamlParser)

data/lib/gettext/ruby19_fix.rb

@@ -0,0 +1,20 @@
+# Temporarily fixes gettext error:
+# lib/gettext/locale_path.rb:77:in `%': key not found (KeyError) 
+
+if RUBY_VERSION >= "1.9.0"
+
+module GetText
+  class LocalePath
+    def initialize(name, topdir = nil)
+      @name = name
+      if topdir
+        @locale_paths = ["#{topdir}/%{lang}/LC_MESSAGES/%{name}.mo", "#{topdir}/%{lang}/%{name}.mo"]
+      else
+        @locale_paths = self.class.default_path_rules
+      end
+      @locale_paths.map! {|v| v % {:name => name, :lang => '%{lang}'} }
+    end
+  end
+end
+
+end

data/lib/rack/fastcgi_fix.rb

@@ -0,0 +1,14 @@
+# PATH_INFO and QUERY_STRING may not be defined when using lighttpd with server.error-handler-404 trick
+class Rack::Handler::FastCGI
+  class <<self
+    alias rack_serve serve
+    def serve(request, app)
+      env = request.env
+      parts = env['REQUEST_URI'].to_s.split('?')
+      env['SCRIPT_NAME'] = ''
+      env['PATH_INFO'] = parts[0] if env['PATH_INFO'] == ''
+      env['QUERY_STRING'] = parts[1..-1].join('?') if parts.length > 1 && env['QUERY_STRING'] == ''
+      rack_serve(request, app)
+    end
+  end
+end

data/lib/rack/gettext_reloader.rb

@@ -0,0 +1,63 @@
+module GetText
+  class Reloader < ::Rack::Reloader
+    def initialize(app, path, cooldown=10)
+      @path = path
+      @po = Dir.glob(File.join(@path, '**', '*.po'))
+      @mo = Dir.glob(File.join(@path, '**', '*.mo'))
+      @pot = File.join(@path, 'rbigg.pot') # Used for locking
+      # If there are not translations, give up
+      cooldown = nil unless @po && @mo && @po.size > 0 && @mo.size > 0
+      super(app, cooldown, Stat)
+    end
+
+    def safe_load(file, mtime, stderr = $stderr)
+      @translations += 1
+      stderr.puts "#{self.class}: reloaded `#{FastGettext.text_domain}' translation `#{file}'"
+    ensure
+      @mtimes[file] = mtime
+    end
+
+    def reload!(stderr = $stderr)
+      @translations = 0
+      super
+      if @translations > 0
+        found, stat = safe_stat(@mo.first)
+        if found && stat
+          File.open(@pot, 'r') do |f|
+            # Ensure we don't produce translation twice
+            f.flock(File::LOCK_EX)
+            found, mstat = safe_stat(@mo.first)
+            if found && mstat && mstat.mtime == stat.mtime
+              require 'gettext/tools'
+              Dir.chdir @path do
+                GetText.create_mofiles(:po_root => '.', :mo_root => '.')
+              end
+            end
+            # Reload whole translation
+            FastGettext.add_text_domain(FastGettext.text_domain, :path => @path)
+            FastGettext.current_cache = {}
+          end
+        end
+      end
+    end
+
+    module Stat
+      def rotation
+        @po.map{|file|
+          found, stat = safe_stat(file)
+          next unless found and stat and mtime = stat.mtime
+          @cache[file] = found
+          yield(found, mtime)
+        }.compact
+      end
+
+      def safe_stat(file)
+        return unless file
+        stat = ::File.stat(file)
+        return file, stat if stat.file?
+      rescue Errno::ENOENT, Errno::ENOTDIR
+        @cache.delete(file) and false
+      end
+    end
+  end
+end

data/lib/sequel/utf8_fix.rb

@@ -0,0 +1,15 @@
+# Temporarily fixes Sequel Ruby 1.9 error:
+# Encoding::CompatibilityError - incompatible character encodings:
+#   UTF-8 and ASCII-8BIT
+# Since all variables are returned as ASCII-8BIT
+
+if RUBY_VERSION >= "1.9.0"
+
+class Sequel::Model
+  def self.load(row)
+    row.values.each{|v| v.force_encoding('utf-8') if v.is_a?(String)}
+    super(row)
+  end
+end
+
+end

data/lib/sinatra-hat.rb

@@ -0,0 +1,153 @@
+# encoding: utf-8
+require 'iconv'
+
+class Integer
+  def minute
+    self * 60
+  end
+  alias minutes minute
+  def hour
+    minute * 60
+  end
+  alias hours hour
+  def day
+    hour * 24 
+  end
+  alias days day
+  def week
+    day * 7
+  end
+  alias weeks week
+  def month
+    day * 30
+  end
+  alias months month
+  def year
+    day * 365
+  end
+  alias years year
+  def ago
+    Time.now - self
+  end
+end
+
+class Time
+  def year_start
+    d = (self - (month-1).months - (day-1).days - hour.hours - min.minutes - sec)
+    d - (d.day-1).days - d.hour.hours - d.min.minutes - d.sec
+  end
+  def month_start
+    self - (day-1).days - hour.hours - min.minutes - sec
+  end
+  def week_start
+    self - ((wday + 6) % 7).days - hour.hours - min.minutes - sec
+  end
+  def midnight
+    self - hour.hours - min.minutes - sec
+  end
+  def noon
+    midnight + 12.hours
+  end
+end
+
+class String
+  def mail_utf8_subject
+    # 4.2 http://tools.ietf.org/html/rfc2047
+    '=?UTF-8?Q?'+(self.chomp.gsub(/[^ !-<>-^`-~]/){|m| m.unpack('C*').map{|c| '=%02X' % c}.join}.gsub(/\s/, '_'))+'?='
+  end
+  def cdata
+    "<![CDATA[#{self.gsub(/\]\]>/,']]]]><![CDATA[>')}]]>"
+  end
+  def md5
+    hash = Digest::MD5.new
+    hash << self
+    hash.hexdigest
+  end
+  def sha1
+    hash = Digest::SHA1.new
+    hash << self
+    hash.hexdigest
+  end
+  # This is Pligg style password hash
+  def pwdhash(salt=nil)
+    salt = String.random_password.md5 if salt.nil?
+    salt = salt[0..8]
+    salt+(salt+self).sha1
+  end
+  def excerpt(chars=nil)
+    first = split(/(?:\n\r?){2,}/)[0] || ""
+    return first if chars.nil?
+    words = first.split(' ')
+    pos, count = words.inject([0, 0]) do |c, v|
+      c[1] + v.length < chars ? [c[0] + 1, c[1] + v.length] : c
+    end
+    words[0..pos].join(' ') + ((pos == words.size) ? '' : '…')
+  end
+  def utf8_length
+    unpack('U*').length
+  end
+  def pad(other, extra=0)
+    padding = other.utf8_length - utf8_length
+    padding = 0 if padding < 0
+    ' ' * (padding+extra) + self
+  end
+  def self.random_password(length=9, strength=0)
+    vowels      = 'aeuy'
+    consonants  = 'bdghjmnpqrstvz'
+    consonants += 'BDGHJLMNPQRSTVWXZ' if strength & 1 != 0
+    vowels     += 'AEUY'              if strength & 2 != 0
+    consonants += '23456789'          if strength & 4 != 0
+    consonants += '@#$%'              if strength & 8 != 0
+    password = '';
+    alt = rand(2)
+    length.times do
+      password += consonants[rand(consonants.size - 1)].chr if alt != 0
+      password += vowels[rand(vowels.size - 1)].chr         if alt == 0
+      alt = 1 - alt
+    end
+    password
+  end
+  def comma_split
+    CSV.parse_line(gsub(/"\s+,/,'",').gsub(/,\s+"/,',"')).collect{|t| t.strip unless t.nil?}.delete_if{|t| t.nil? || t.empty?}
+  end
+  # http://gist.github.com/93045
+  def to_permalink
+    Iconv.iconv('ascii//translit//IGNORE', 'utf-8', self).first.gsub("'", "").gsub(/[^\x00-\x7F]+/, '').gsub(/[^a-zA-Z0-9-]+/, '-').gsub(/--+/, '-').gsub(/^-/, '').gsub(/-$/, '').downcase
+  end
+end
+
+class Array
+  def comma_join
+    map{|v| s = v.gsub!(/,/,',') || v.gsub!(/"/,'""'); s ? '"'+v+'"' : v}.join(', ')
+  end
+end
+
+if defined? Rack
+  class Rack::Request
+    def url(path=nil)
+      url = scheme + "://"
+      url << host
+      if scheme == "https" && port != 443 ||
+        scheme == "http" && port != 80
+        url << ":#{port}"
+      end
+      url << (path ? path : fullpath)
+      url
+    end
+  end
+end
+
+def silence_warnings
+  old_verbose, $VERBOSE = $VERBOSE, nil
+  yield
+ensure
+  $VERBOSE = old_verbose
+end
+
+if RUBY_VERSION < "1.9.0"
+  class Symbol
+   def to_proc
+     proc { |obj, *args| obj.send(self, *args) }
+   end
+  end
+end

data/lib/sinatra/reloader.rb

@@ -0,0 +1,11 @@
+# Reload scripts and reset routes on change
+class Sinatra::Reloader < Rack::Reloader
+  def safe_load(file, mtime, stderr = $stderr)
+    if file == ::Sinatra::Application.app_file
+      ::Sinatra::Application.reset!
+      ::Sinatra::Application.clear_cache! if ::Sinatra::Application.respond_to? :clear_cache!
+      stderr.puts "#{self.class}: reseting routes and cache"
+    end
+    super
+  end
+end

data/lib/sinatra/template_cache.rb

@@ -0,0 +1,27 @@
+# Sinatra 0.9.x Haml template cache module
+
+# Caches Haml templates in Class instance "render_haml_#{template}" methods,
+# avoiding reparsing and recompiling of the template on every page reload.
+
+class Sinatra::Base
+  # Override function responsible for calling internal Haml rendering routines
+  def haml(template, options={}, locals={})
+    method = "render_haml_#{template}".to_sym
+    return super(template, options, locals) unless self.respond_to? method
+    locals = options.delete(:locals) || locals || {}
+    if options[:layout] != false
+      __send__(:render_haml_layout, locals) { __send__(method, locals) }
+    else
+      __send__(method, locals)
+    end
+  end
+  def render_haml(template, data, options, locals, &block)
+    method = "render_haml_#{template}".to_sym
+    ::Haml::Engine.new(data, options).def_method(self.class, method, *(locals.keys))
+    __send__(method, locals, &block)
+  end
+  def self.clear_cache!
+    instance_methods.grep(/^render_haml_/).each{|m| remove_method m}
+  end
+  def clear_cache!; self.class.clear_cache! end
+end

data/test/sinatra-hat_test.rb

@@ -0,0 +1,6 @@
+require 'test_helper'
+
+class SinatraHatTest < Test::Unit::TestCase
+  def test_empty
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,9 @@
+require 'rubygems'
+require 'test/unit'
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'sinatra-hat'
+
+class Test::Unit::TestCase
+end

metadata

@@ -0,0 +1,82 @@
+--- !ruby/object:Gem::Specification 
+name: sinatra-hat
+version: !ruby/object:Gem::Version 
+  hash: 23
+  prerelease: 
+  segments: 
+  - 0
+  - 0
+  - 4
+  version: 0.0.4
+platform: ruby
+authors: 
+- Adam Strzelecki
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-02-21 00:00:00 +01:00
+default_executable: 
+dependencies: []
+
+description: Sinatra Ruby gem extensions for gettext, caching, reloading, etc.
+email: ono@java.pl
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README.markdown
+files: 
+- MIT-LICENSE
+- README.markdown
+- Rakefile
+- VERSION
+- lib/gettext/haml.rb
+- lib/gettext/haml_parser.rb
+- lib/gettext/ruby19_fix.rb
+- lib/rack/fastcgi_fix.rb
+- lib/rack/gettext_reloader.rb
+- lib/sequel/utf8_fix.rb
+- lib/sinatra-hat.rb
+- lib/sinatra/reloader.rb
+- lib/sinatra/template_cache.rb
+- test/sinatra-hat_test.rb
+- test/test_helper.rb
+has_rdoc: true
+homepage: http://github.com/nanoant/sinatra-hat
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.5.2
+signing_key: 
+specification_version: 3
+summary: Sinatra Ruby gem extensions for gettext, caching, reloading, etc.
+test_files: 
+- test/sinatra-hat_test.rb
+- test/test_helper.rb