wycats-textmate 0.9.0

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2008 Yehuda Katz
+
+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,31 @@
+textmate
+========
+
+A binary that provides package management for TextMate.
+
+Usage
+=====
+
+`textmate [COMMAND] [*PARAMS]`
+
+Textmate bundles are automatically reloaded after install or uninstall operations.
+
+`textmate remote [SEARCH]`
+------------------------
+
+List all of the available bundles in the remote repository that have a substring `search`. By default, list all bundles.
+
+`textmate list`
+--------------------
+
+List all of the bundles that are installed on the local system.
+
+`textmate install NAME [SOURCE]`
+-----------------------
+
+Installs a bundle from the remote repository. SOURCE filters known remote bundle locations. 
+
+`textmate uninstall NAME`
+-------------------------
+
+Uninstalls a bundle from the local repository.

data/Rakefile

@@ -0,0 +1,46 @@
+require 'rubygems'
+require 'rake/gempackagetask'
+require 'date'
+
+GEM = "textmate"
+GEM_VERSION = "0.9.0"
+AUTHOR = "Yehuda Katz"
+EMAIL = "wycats@gmail.com"
+HOMEPAGE = "http://yehudakatz.com"
+SUMMARY = "Command-line textmate package manager"
+
+spec = Gem::Specification.new do |s|
+  s.name = GEM
+  s.version = GEM_VERSION
+  s.platform = Gem::Platform::RUBY
+  s.has_rdoc = true
+  s.extra_rdoc_files = ["README.markdown", "LICENSE"]
+  s.summary = SUMMARY
+  s.description = s.summary
+  s.author = AUTHOR
+  s.email = EMAIL
+  s.homepage = HOMEPAGE
+  
+  s.add_dependency "thor", ">= 0.9.1"
+    
+  s.require_path = 'lib'
+  s.autorequire = GEM
+  s.files = %w(LICENSE README.markdown Rakefile) + Dir.glob("{bin,lib,specs}/**/*")
+  s.bindir = "bin"
+  s.executables = %w( textmate )
+end
+
+Rake::GemPackageTask.new(spec) do |pkg|
+  pkg.gem_spec = spec
+end
+
+desc "make a gemspec file"
+task :make_spec do
+  File.open("#{GEM}.gemspec", "w") do |file|
+    file.puts spec.to_ruby
+  end
+end
+
+task :install => [:package] do
+  sh %{sudo gem install pkg/#{GEM}-#{GEM_VERSION} --no-rdoc --no-ri}
+end

data/bin/textmate

@@ -0,0 +1,149 @@
+#!/usr/bin/env ruby
+
+require "fileutils"
+require "rubygems"
+require "thor"
+
+class TextmateInstaller < Thor
+  
+  # CHANGED: renamed list to remote. Could there be a better name?
+  desc "remote [SEARCH]", "Lists all the matching remote bundles"
+  def remote(limit = "")
+    limit = Regexp.new(".*#{limit}.*", "i")
+    
+    remote_bundle_locations.each do |name,location|
+      puts "\n" << name.to_s << " Remote Bundles\n" << name.to_s.gsub(/./,'-') << '---------------'
+      
+      results = %x[svn list #{e_sh location[:url]}] if location[:scm]==:svn
+      puts results.map {|x| x.split(".")[0]}.select {|x| x =~ limit}.join("\n") if results
+      
+      puts 'git remotes not implemented yet' if location[:scm]==:git
+    end
+  end
+  
+  desc "list", "lists all the bundles installed locally"
+  def list()
+    local_bundle_paths.each do |name,bundles_path|
+      puts "\n" << name.to_s << " Bundles\n" << name.to_s.gsub(/./,'-') << '--------'
+      puts Dir["#{e_sh bundles_path}/*.tmbundle"].map {|x| x.split("/").last.split(".").first}.join("\n")
+    end
+  end
+  
+  # TODO: Add a DESTINATION option to decide where to install. Maybe make some sort of ~/.textmate-cli config file?
+  desc "install NAME [SOURCE]", "install a bundle"
+  def install(bundle_name, remote_bundle_location_name=nil)
+    # TODO: Add an option to remove all other versions of the same bundle
+    FileUtils.mkdir_p install_bundles_path
+    puts "Checking out #{bundle_name}..."
+    
+    # CHANGED: It's faster to just try and fail for each repo than to search them all first
+    installed=false
+    remote_bundle_locations.each do |remote_name,location|
+      next unless remote_name.to_s.downcase.include? remote_bundle_location_name.to_s.downcase if remote_bundle_location_name
+      
+      cmd = 'echo "git remotes not implemented yet"' if location[:scm]==:git
+      cmd = %[svn co #{e_sh location[:url]}/#{e_sh bundle_name}.tmbundle #{e_sh install_bundles_path}/#{e_sh bundle_name}.tmbundle 2>&1] if location[:scm]==:svn
+      res = %x{#{cmd}}
+      
+      puts cmd, res.gsub(/^/,'    ') #if verbose # TODO: Implement a verbose mode to toggle showing all the gory details
+      
+      installed=true and break if res =~ /Checked out revision|Initialized empty Git repository/
+    end
+    abort 'Not Installed' unless installed # TODO: Offer suggestions for alternate bundles with similar names. Maybe let them choose
+    
+    puts "Reloading Bundles..."
+    reload_textmate!
+    puts "Done."
+  end
+
+  desc "uninstall NAME", "uninstall a bundle"
+  def uninstall(bundle_name)
+    puts "Removing bundle..."
+    # FIXME: Move deleted bundles to the trash instead of rm_rf-ing them?
+    # When moving to the trash, maybe move the bundle into a trash/disabled_bundles subfolder 
+    #   named as the bundles_path key. Just in case there are multiple versions of 
+    #     the same bundle in multiple bundle paths
+    local_bundle_paths.each do |name,bundles_path|
+      FileUtils.rm_rf("#{bundles_path}/#{bundle_name}.tmbundle")    
+    end
+    puts "Reloading bundles..."
+    reload_textmate!
+    puts "Done."
+  end
+  
+  private
+  def reload_textmate!
+    %x[osascript -e 'tell app "TextMate" to reload bundles']
+  end
+  
+  def remote_bundle_locations
+    { :'Marcomates Trunk'  => {:scm => :svn, :url => 'http://macromates.com/svn/Bundles/trunk/Bundles'},
+      :'Marcomates Review' => {:scm => :svn, :url => 'http://macromates.com/svn/Bundles/trunk/Review/Bundles'},
+      
+      # TODO: Add Git support to remote_bundle_locations. Define some sort of standard way of listing git repos, checkout how rubygems does it
+      # :'Bunch of Git Bundles' => {:scm => :git, :url => 'git://NotImplemented'},
+      
+      # TODO: Add GitHub support as a remote_bundle_location
+      #   This will require fetching the html of the search page, scanning for urls and converting them to git urls
+      # :'GitHub' => {:scm => :github, :url => 'http://github.com/search?q=tmbundle'},
+    }
+    # TODO: Add some way to add more custom remotes
+  end
+  
+  def local_bundle_paths
+    { :Application       => '/Applications/TextMate.app/Contents/SharedSupport/Bundles',
+      :User              => "#{ENV["HOME"]}/Library/Application Support/TextMate/Bundles",
+      :System            => '/Library/Application Support/TextMate/Bundles',
+      :'User Pristine'   => "#{ENV["HOME"]}/Library/Application Support/TextMate/Pristine Copy",
+      :'System Pristine' => '/Library/Application Support/TextMate/Pristine Copy',
+    }
+  end
+  
+  def install_bundles_path
+    #TODO: Add some way for the user to configure where they'd prefer to install bundles
+    local_bundle_paths[:'User Pristine']
+  end
+  
+  # Copied from http://macromates.com/svn/Bundles/trunk/Support/lib/escape.rb
+  # escape text to make it useable in a shell script as one “word” (string)
+  def e_sh(str)
+  	str.to_s.gsub(/(?=[^a-zA-Z0-9_.\/\-\x7F-\xFF\n])/, '\\').gsub(/\n/, "'\n'").sub(/^$/, "''")
+  end
+  
+end
+
+# TODO: create a "monument to personal cleverness" by class-izing everything?
+# class TextMateBundle
+#   def self.find_local(bundle_name)
+#     
+#   end
+#   
+#   def self.find_remote(bundle_name)
+#     
+#   end
+#   attr_reader :name
+#   attr_reader :location
+#   attr_reader :scm
+#   def initialize(name, location, scm)
+#     @name     = name
+#     @location = location
+#     @scm      = scm
+#   end
+#   
+#   def install!
+#     
+#   end
+#   
+#   def uninstall!
+#     
+#   end
+#   
+#   
+#   def installed?
+#     # List all the installed versions, and where they're at
+#   end
+#   
+#   # TODO: dirty? method to show if there are any deltas
+# end
+
+TextmateInstaller.start

data/lib/class_cli.rb

@@ -0,0 +1,77 @@
+require "getopt/long"
+
+module Hermes
+  def self.extended(klass)
+    klass.class_eval <<-RUBY, "class_cli.rb", 6
+    
+      def self.method_added(meth)
+        return if !public_instance_methods.include?(meth.to_s) || !@@usage
+        @@descriptions                         = defined?(@@descriptions) ? @@descriptions : []
+        @@usages                               = defined?(@@usages) ? @@usages : []
+        @@opts                                 = defined?(@@opts) ? @@opts : []
+        @@descriptions                        << [meth.to_s, @@desc]
+        @@usages                              << [meth.to_s, @@usage]
+        if defined?(@@method_options) && @@method_options
+          @@opts                                << [meth.to_s, @@method_options]
+        end
+        @@usage, @@desc, @@method_options      = nil
+      end
+
+      def self.desc(usage, description)
+        @@usage, @@desc = usage, description
+      end
+      
+      def self.method_options(opts)
+        @@method_options = opts
+      end
+
+      def self.start
+        meth = ARGV.shift
+        params = ARGV.inject([]) do |accum, arg|
+          accum << ARGV.delete(arg) unless arg =~ /^\-/
+          accum
+        end
+        if @@opts.assoc(meth)
+          opts = @@opts.assoc(meth).last.map {|opt, val| [opt, val == true ? Getopt::BOOLEAN : Getopt.const_get(val)].flatten}
+          options = Getopt::Long.getopts(*opts)
+          params << options
+        end
+        new(meth, params)
+      end
+
+      def initialize(op, params)
+        send(op.to_sym, *params) if public_methods.include?(op)
+      end
+      
+      private
+      def format_opts(opts)
+        return "" unless opts
+        opts.map do |opt, val|
+          if val == true || val == "BOOLEAN"
+            opt
+          elsif val == "REQUIRED"
+            opt + "=" + opt.gsub(/\-/, "").upcase
+          elsif val == "OPTIONAL"
+            "[" + opt + "=" + opt.gsub(/\-/, "").upcase + "]"
+          end
+        end.join(" ")
+      end
+      
+      public
+      desc "help", "show this screen"
+      def help
+        puts "Options"
+        puts "-------"
+        max_usage = @@usages.max {|x,y| x.last.to_s.size <=> y.last.to_s.size}.last.size
+        max_opts  = @@opts.empty? ? 0 : format_opts(@@opts.max {|x,y| x.last.to_s.size <=> y.last.to_s.size}.last).size 
+        max_desc  = @@descriptions.max {|x,y| x.last.to_s.size <=> y.last.to_s.size}.last.size
+        @@usages.each do |meth, usage|
+          format = "%-" + (max_usage + max_opts + 4).to_s + "s"
+          print format % (@@usages.assoc(meth)[1] + (@@opts.assoc(meth) ? " " + format_opts(@@opts.assoc(meth)[1]) : ""))
+          # print format % (@@usages.assoc(meth)[1] + @@opts.assoc(meth) ? format_opts(@@opts.assoc(meth)[1]) : ""))
+          puts  @@descriptions.assoc(meth)[1]      
+        end
+      end      
+    RUBY
+  end
+end

metadata

@@ -0,0 +1,66 @@
+--- !ruby/object:Gem::Specification 
+name: wycats-textmate
+version: !ruby/object:Gem::Version 
+  version: 0.9.0
+platform: ruby
+authors: 
+- Yehuda Katz
+autorequire: textmate
+bindir: bin
+cert_chain: []
+
+date: 2008-05-19 00:00:00 -07:00
+default_executable: textmate
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: thor
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 0.9.1
+    version: 
+description: Command-line textmate package manager
+email: wycats@gmail.com
+executables: 
+- textmate
+extensions: []
+
+extra_rdoc_files: 
+- README.markdown
+- LICENSE
+files: 
+- LICENSE
+- README.markdown
+- Rakefile
+- bin/textmate
+- lib/class_cli.rb
+has_rdoc: true
+homepage: http://yehudakatz.com
+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.0.1
+signing_key: 
+specification_version: 2
+summary: Command-line textmate package manager
+test_files: []
+