hub 1.6.1 → 1.7.0

data/lib/hub/commands.rb

@@ -1,7 +1,4 @@
 module Hub
-  # See context.rb
-  module Context; end
-
   # The Commands module houses the git commands that hub
   # lovingly wraps. If a method exists here, it is expected to have a
   # corresponding git command which either gets run before or after
@@ -34,12 +31,16 @@ module Hub
     instance_methods.each { |m| undef_method(m) unless m =~ /(^__|send|to\?$)/ }
     extend self
 
-    # Provides `github_url` and various inspection methods
+    # provides git interrogation methods
     extend Context
 
-    API_REPO   = 'http://github.com/api/v2/yaml/repos/show/%s/%s'
-    API_FORK   = 'http://github.com/api/v2/yaml/repos/fork/%s/%s'
-    API_CREATE = 'http://github.com/api/v2/yaml/repos/create'
+    API_REPO        = 'http://github.com/api/v2/yaml/repos/show/%s/%s'
+    API_FORK        = 'https://github.com/api/v2/yaml/repos/fork/%s/%s'
+    API_CREATE      = 'https://github.com/api/v2/yaml/repos/create'
+    API_PULL        = 'http://github.com/api/v2/json/pulls/%s'
+    API_PULLREQUEST = 'https://github.com/api/v2/yaml/pulls/%s/%s'
+
+    NAME_WITH_OWNER_RE = /^([\w-]+)(?:\/([\w-]+))?$/
 
     def run(args)
       slurp_global_flags(args)
@@ -57,6 +58,106 @@ module Hub
         args[0, 1] = expanded_args if expanded_args
         send(cmd, args)
       end
+    rescue Errno::ENOENT
+      if $!.message.include? "No such file or directory - git"
+        abort "Error: `git` command not found"
+      else
+        raise
+      end
+    end
+
+    # $ hub pull-request
+    # $ hub pull-request "My humble contribution"
+    # $ hub pull-request -i 92
+    # $ hub pull-request https://github.com/rtomayko/tilt/issues/92
+    def pull_request(args)
+      args.shift
+      options = { }
+      force = explicit_owner = false
+      base_project = local_repo.main_project
+      head_project = local_repo.current_project
+
+      from_github_ref = lambda do |ref, context_project|
+        if ref.index(':')
+          owner, ref = ref.split(':', 2)
+          project = github_project(context_project.name, owner)
+        end
+        [project || context_project, ref]
+      end
+
+      while arg = args.shift
+        case arg
+        when '-f'
+          force = true
+        when '-b'
+          base_project, options[:base] = from_github_ref.call(args.shift, base_project)
+        when '-h'
+          head = args.shift
+          explicit_owner = !!head.index(':')
+          head_project, options[:head] = from_github_ref.call(head, head_project)
+        when '-i'
+          options[:issue] = args.shift
+        when %r{^https?://github.com/([^/]+/[^/]+)/issues/(\d+)}
+          options[:issue] = $2
+          base_project = github_project($1)
+        else
+          if !options[:title] then options[:title] = arg
+          else
+            abort "invalid argument: #{arg}"
+          end
+        end
+      end
+
+      options[:project] = base_project
+      options[:base] ||= master_branch.short_name
+
+      if tracked_branch = options[:head].nil? && current_branch.upstream
+        if base_project == head_project and tracked_branch.short_name == options[:base]
+          $stderr.puts "Aborted: head branch is the same as base (#{options[:base].inspect})"
+          warn "(use `-h <branch>` to specify an explicit pull request head)"
+          abort
+        end
+      end
+      options[:head] ||= (tracked_branch || current_branch).short_name
+
+      if head_project.owner != github_user and !tracked_branch and !explicit_owner
+        head_project = github_project(head_project.name, github_user)
+      end
+
+      remote_branch = "#{head_project.remote}/#{options[:head]}"
+      options[:head] = "#{head_project.owner}:#{options[:head]}"
+
+      if !force and tracked_branch and local_commits = git_command("rev-list --cherry #{remote_branch}...")
+        $stderr.puts "Aborted: #{local_commits.split("\n").size} commits are not yet pushed to #{remote_branch}"
+        warn "(use `-f` to force submit a pull request anyway)"
+        abort
+      end
+
+      if args.noop?
+        puts "Would reqest a pull to #{base_project.owner}:#{options[:base]} from #{options[:head]}"
+        exit
+      end
+
+      unless options[:title] or options[:issue]
+        base_branch = "#{base_project.remote}/#{options[:base]}"
+        changes = git_command "log --no-color --pretty=medium --cherry %s...%s" %
+          [base_branch, remote_branch]
+
+        options[:title], options[:body] = pullrequest_editmsg(changes) { |msg|
+          msg.puts "# Requesting a pull to #{base_project.owner}:#{options[:base]} from #{options[:head]}"
+          msg.puts "#"
+          msg.puts "# Write a message for this pull request. The first block"
+          msg.puts "# of text is the title and the rest is description."
+        }
+      end
+
+      pull = create_pullrequest(options)
+
+      args.executable = 'echo'
+      args.replace [pull['html_url']]
+    rescue HTTPExceptions
+      display_http_exception("creating pull request", $!.response)
+      exit 1
     end
 
     # $ hub clone rtomayko/tilt
@@ -79,13 +180,14 @@ module Hub
         arg = args[idx]
         if arg.index('-') == 0
           idx += 1 if arg =~ has_values
-        elsif arg.index('://') or arg.index('@') or File.directory?(arg)
-          # Bail out early for URLs and local paths.
-          break
-        elsif arg.scan('/').size <= 1 && !arg.include?(':')
+        else
           # $ hub clone rtomayko/tilt
           # $ hub clone tilt
-          args[args.index(arg)] = github_url(:repo => arg, :private => ssh)
+          if arg =~ NAME_WITH_OWNER_RE
+            project = github_project(arg)
+            ssh ||= args[0] != 'submodule' && project.owner == github_user(false)
+            args[idx] = project.git_url(:private => ssh, :https => https_protocol?)
+          end
           break
         end
         idx += 1
@@ -127,17 +229,17 @@ module Hub
     # $ hub remote add origin
     # > git remote add origin git://github.com/YOUR_LOGIN/THIS_REPO.git
     def remote(args)
-      return unless ['add','set-url'].include?(args[1]) && args.last !~ %r{.+?://|.+?@|^[./]}
+      if %w[add set-url].include?(args[1]) && args.last =~ NAME_WITH_OWNER_RE
+        user, repo = $1, $2 || repo_name
+      else
+        return # do not touch arguments
+      end
 
       ssh = args.delete('-p')
 
-      # user/repo
-      args.last =~ /\b(.+?)(?:\/(.+))?$/
-      user, repo = $1, $2
-
       if args.words[2] == 'origin' && args.words[3].nil?
         # Origin special case triggers default user/repo
-        user = repo = nil
+        user, repo = github_user, repo_name
       elsif args.words[-2] == args.words[1]
         # rtomayko/tilt => rtomayko
         # Make sure you dance around flags.
@@ -147,10 +249,10 @@ module Hub
         # They're specifying the remote name manually (e.g.
         # git remote add blah rtomayko/tilt), so just drop the last
         # argument.
-        args.replace args[0...-1]
+        args.pop
       end
 
-      args << github_url(:user => user, :repo => repo, :private => ssh)
+      args << git_url(user, repo, :private => ssh)
     end
 
     # $ hub fetch mislav
@@ -188,8 +290,31 @@ module Hub
 
       if names.any?
         names.each do |name|
-          args.before ['remote', 'add', name, github_url(:user => name)]
+          args.before ['remote', 'add', name, git_url(name)]
+        end
+      end
+    end
+
+    # $ git checkout https://github.com/defunkt/hub/pull/73
+    # > git remote add -f -t feature git://github:com/mislav/hub.git
+    # > git checkout -b mislav-feature mislav/feature
+    def checkout(args)
+      if (2..3) === args.length and args[1] =~ %r{https?://github.com/(.+?)/(.+?)/pull/(\d+)}
+        owner, repo, pull_id = $1, $2, $3
+
+        load_net_http
+        pull_body = Net::HTTP.get URI(API_PULL % File.join(owner, repo, pull_id))
+
+        user, branch = pull_body.match(/"label":\s*"(.+?)"/)[1].split(':', 2)
+        new_branch_name = args[2] || "#{user}-#{branch}"
+
+        if remotes.include? user
+          args.before ['remote', 'set-branches', '--add', user, branch]
+          args.before ['fetch', user, "+refs/heads/#{branch}:refs/remotes/#{user}/#{branch}"]
+        else
+          args.before ['remote', 'add', '-f', '-t', branch, user, github_project(repo, user).git_url]
         end
+        args[1..-1] = ['-b', new_branch_name, "#{user}/#{branch}"]
       end
     end
 
@@ -210,7 +335,7 @@ module Hub
         when %r{^(?:https?:)//github.com/(.+?)/(.+?)/commit/([a-f0-9]{7,40})}
           user, repo, sha = $1, $2, $3
           args[args.index(ref)] = sha
-        when /^(\w+)@([a-f1-9]{7,40})$/
+        when /^(\w+)@([a-f0-9]{7,40})$/
           user, repo, sha = $1, nil, $2
           args[args.index(ref)] = sha
         else
@@ -220,12 +345,11 @@ module Hub
         if user
           if user == repo_owner
             # fetch from origin if the repo belongs to the user
-            args.before ['fetch', default_remote]
+            args.before ['fetch', origin_remote]
           elsif remotes.include?(user)
             args.before ['fetch', user]
           else
-            remote_url = github_url(:user => user, :repo => repo, :private => false)
-            args.before ['remote', 'add', '-f', user, remote_url]
+            args.before ['remote', 'add', '-f', user, git_url(user, repo)]
           end
         end
       end
@@ -248,13 +372,18 @@ module Hub
       end
     end
 
+    # $ hub apply https://github.com/defunkt/hub/pull/55
+    # > curl https://github.com/defunkt/hub/pull/55.patch -o /tmp/55.patch
+    # > git apply /tmp/55.patch
+    alias_method :apply, :am
+
     # $ hub init -g
     # > git init
     # > git remote add origin git@github.com:USER/REPO.git
     def init(args)
       if args.delete('-g')
-        url = github_url(:private => true, :repo => current_dirname)
-        args.after "git remote add origin #{url}"
+        url = git_url(github_user, repo_name, :private => true)
+        args.after ['remote', 'add', 'origin', url]
       end
     end
 
@@ -265,22 +394,21 @@ module Hub
       # can't do anything without token and original owner name
       if github_user && github_token && repo_owner
         if repo_exists?(github_user)
-          puts "#{github_user}/#{repo_name} already exists on GitHub"
+          warn "#{github_user}/#{repo_name} already exists on GitHub"
         else
-          fork_repo
+          fork_repo unless args.noop?
         end
 
         if args.include?('--no-remote')
           exit
         else
-          url = github_url(:private => true)
+          url = git_url(github_user, repo_name, :private => true)
           args.replace %W"remote add -f #{github_user} #{url}"
-          args.after { puts "new remote: #{github_user}" }
+          args.after 'echo', ['new remote:', github_user]
         end
       end
-    rescue Net::HTTPExceptions
-      response = $!.response
-      warn "error creating fork: #{response.message} (HTTP #{response.code})"
+    rescue HTTPExceptions
+      display_http_exception("creating fork", $!.response)
       exit 1
     end
 
@@ -289,12 +417,12 @@ module Hub
     # > git remote add -f origin git@github.com:YOUR_USER/CURRENT_REPO.git
     def create(args)
       if !is_repo?
-        puts "'create' must be run from inside a git repository"
-        args.skip!
-      elsif github_user && github_token
+        abort "'create' must be run from inside a git repository"
+      elsif owner = github_user and github_token
         args.shift
         options = {}
         options[:private] = true if args.delete('-p')
+        new_repo_name = nil
 
         until args.empty?
           case arg = args.shift
@@ -303,20 +431,26 @@ module Hub
           when '-h'
             options[:homepage] = args.shift
           else
-            puts "unexpected argument: #{arg}"
-            return
+            if arg =~ /^[^-]/ and new_repo_name.nil?
+              new_repo_name = arg
+              owner, new_repo_name = new_repo_name.split('/', 2) if new_repo_name.index('/')
+            else
+              abort "invalid argument: #{arg}"
+            end
           end
         end
+        new_repo_name ||= repo_name
+        repo_with_owner = "#{owner}/#{new_repo_name}"
 
-        if repo_exists?(github_user)
-          puts "#{github_user}/#{repo_name} already exists on GitHub"
+        if repo_exists?(owner, new_repo_name)
+          warn "#{repo_with_owner} already exists on GitHub"
           action = "set remote origin"
         else
           action = "created repository"
-          create_repo(options)
+          create_repo(repo_with_owner, options) unless args.noop?
         end
 
-        url = github_url(:private => true)
+        url = git_url(owner, new_repo_name, :private => true)
 
         if remotes.first != 'origin'
           args.replace %W"remote add -f origin #{url}"
@@ -324,11 +458,10 @@ module Hub
           args.replace %W"remote -v"
         end
 
-        args.after { puts "#{action}: #{github_user}/#{repo_name}" }
+        args.after 'echo', ["#{action}:", repo_with_owner]
       end
-    rescue Net::HTTPExceptions
-      response = $!.response
-      warn "error creating repository: #{response.message} (HTTP #{response.code})"
+    rescue HTTPExceptions
+      display_http_exception("creating repository", $!.response)
       exit 1
     end
 
@@ -338,7 +471,7 @@ module Hub
     def push(args)
       return if args[1].nil? || !args[1].index(',')
 
-      branch  = (args[2] ||= normalize_branch(current_branch))
+      branch  = (args[2] ||= current_branch.short_name)
       remotes = args[1].split(',')
       args[1] = remotes.shift
 
@@ -364,40 +497,37 @@ module Hub
     def browse(args)
       args.shift
       browse_command(args) do
-        user = repo = nil
         dest = args.shift
         dest = nil if dest == '--'
 
         if dest
           # $ hub browse pjhyett/github-services
           # $ hub browse github-services
-          repo = dest
-        elsif repo_user
-          # $ hub browse
-          user = repo_user
+          project = github_project dest
         else
-          abort "Usage: hub browse [<USER>/]<REPOSITORY>"
+          # $ hub browse
+          project = current_project
         end
 
-        params = { :user => user, :repo => repo }
+        abort "Usage: hub browse [<USER>/]<REPOSITORY>" unless project
 
         # $ hub browse -- wiki
-        case subpage = args.shift
+        path = case subpage = args.shift
         when 'commits'
-          branch = (!dest && tracked_branch) || 'master'
-          params[:web] = "/commits/#{branch}"
+          branch = (!dest && current_branch.upstream) || master_branch
+          "/commits/#{branch.short_name}"
         when 'tree', NilClass
-          branch = !dest && tracked_branch
-          params[:web] = "/tree/#{branch}" if branch && branch != 'master'
+          branch = !dest && current_branch.upstream
+          "/tree/#{branch.short_name}" if branch and !branch.master?
         else
-          params[:web] = "/#{subpage}"
+          "/#{subpage}"
         end
 
-        params
+        project.web_url(path)
       end
     end
 
-    # $ hub compare 1.0...fix
+    # $ hub compare 1.0..fix
     # > open https://github.com/CURRENT_REPO/compare/1.0...fix
     # $ hub compare refactor
     # > open https://github.com/CURRENT_REPO/compare/refactor
@@ -409,17 +539,23 @@ module Hub
       args.shift
       browse_command(args) do
         if args.empty?
-          branch = tracked_branch
-          if branch && branch != 'master'
-            range, user = branch, repo_user
+          branch = current_branch.upstream
+          if branch and not branch.master?
+            range = branch.short_name
+            project = current_project
           else
             abort "Usage: hub compare [USER] [<START>...]<END>"
           end
         else
-          range = args.pop
-          user = args.pop || repo_user
+          sha_or_tag = /(\w{1,2}|\w[\w.-]+\w)/
+          # replaces two dots with three: "sha1...sha2"
+          range = args.pop.sub(/^#{sha_or_tag}\.\.#{sha_or_tag}$/, '\1...\2')
+          project = if owner = args.pop then github_project(nil, owner)
+                    else current_project
+                    end
         end
-        { :user => user, :web => "/compare/#{range}" }
+
+        project.web_url "/compare/#{range}"
       end
     end
 
@@ -433,7 +569,7 @@ module Hub
     def hub(args)
       return help(args) unless args[1] == 'standalone'
       require 'hub/standalone'
-      puts Hub::Standalone.build
+      $stdout.puts Hub::Standalone.build
       exit
     rescue LoadError
       abort "hub is running in standalone mode."
@@ -486,9 +622,7 @@ module Hub
     # > git version
     # (print hub version)
     def version(args)
-      args.after do
-        puts "hub version %s" % Version
-      end
+      args.after 'echo', ['hub version', Version]
     end
     alias_method "--version", :version
 
@@ -508,13 +642,21 @@ module Hub
     end
     alias_method "--help", :help
 
+  private
+    #
+    # Helper methods are private so they cannot be invoked
+    # from the command line.
+    #
+
     # The text print when `hub help` is run, kept in its own method
     # for the convenience of the author.
     def improved_help_text
       <<-help
-usage: git [--version] [--exec-path[=GIT_EXEC_PATH]] [--html-path]
-    [-p|--paginate|--no-pager] [--bare] [--git-dir=GIT_DIR]
-    [--work-tree=GIT_WORK_TREE] [--help] COMMAND [ARGS]
+usage: git [--version] [--exec-path[=<path>]] [--html-path] [--man-path] [--info-path]
+           [-p|--paginate|--no-pager] [--no-replace-objects] [--bare]
+           [--git-dir=<path>] [--work-tree=<path>] [--namespace=<name>]
+           [-c name=value] [--help]
+           <command> [<args>]
 
 Basic Commands:
    init       Create an empty git repository or reinitialize an existing one
@@ -548,16 +690,10 @@ Advanced commands:
    bisect     Find by binary search the change that introduced a bug
    grep       Print files with lines matching a pattern in your codebase
 
-See 'git help COMMAND' for more information on a specific command.
+See 'git help <command>' for more information on a specific command.
 help
     end
 
-  private
-    #
-    # Helper methods are private so they cannot be invoked
-    # from the command line.
-    #
-
     # Extract global flags from the front of the arguments list.
     # Makes sure important ones are supplied for calls to subcommands.
     #
@@ -570,7 +706,7 @@ help
     # Special: `--version`, `--help` are replaced with "version" and "help".
     # Ignored: `--exec-path`, `--html-path` are kept in args list untouched.
     def slurp_global_flags(args)
-      flags = %w[ -c -p --paginate --no-pager --no-replace-objects --bare --version --help ]
+      flags = %w[ --noop -c -p --paginate --no-pager --no-replace-objects --bare --version --help ]
       flags2 = %w[ --exec-path= --git-dir= --work-tree= ]
 
       # flags that should be present in subcommands, too
@@ -581,6 +717,8 @@ help
       while args[0] && (flags.include?(args[0]) || flags2.any? {|f| args[0].index(f) == 0 })
         flag = args.shift
         case flag
+        when '--noop'
+          args.noop!
         when '--version', '--help'
           args.unshift flag.sub('--', '')
         when '-c'
@@ -588,7 +726,7 @@ help
           config_pair = args.shift
           # add configuration to our local cache
           key, value = config_pair.split('=', 2)
-          Context::GIT_CONFIG["config #{key}"] = value.to_s
+          git_reader.stub_config_value(key, value)
 
           globals << flag << config_pair
         when '-p', '--paginate', '--no-pager'
@@ -598,25 +736,26 @@ help
         end
       end
 
-      Context::GIT_CONFIG.executable = Array(Context::GIT_CONFIG.executable).concat(globals)
-      args.executable = Array(args.executable).concat(globals).concat(locals)
+      git_reader.add_exec_flags(globals)
+      args.add_exec_flags(globals)
+      args.add_exec_flags(locals)
     end
 
     # Handles common functionality of browser commands like `browse`
     # and `compare`. Yields a block that returns params for `github_url`.
     def browse_command(args)
       url_only = args.delete('-u')
-      $stderr.puts "Warning: the `-p` flag has no effect anymore" if args.delete('-p')
-      params = yield
+      warn "Warning: the `-p` flag has no effect anymore" if args.delete('-p')
+      url = yield
 
       args.executable = url_only ? 'echo' : browser_launcher
-      args.push github_url({:web => true, :private => true}.update(params))
+      args.push url
     end
 
     # Returns the terminal-formatted manpage, ready to be printed to
     # the screen.
     def hub_manpage
-      return "** Can't find groff(1)" unless command?('groff')
+      abort "** Can't find groff(1)" unless command?('groff')
 
       require 'open3'
       out = nil
@@ -659,7 +798,7 @@ help
 
     # http://nex-3.com/posts/73-git-style-automatic-paging-in-ruby
     def page_stdout
-      return unless $stdout.tty?
+      return if not $stdout.tty? or windows?
 
       read, write = IO.pipe
 
@@ -692,9 +831,9 @@ help
     end
 
     # Determines whether a user has a fork of the current repo on GitHub.
-    def repo_exists?(user)
-      require 'net/http'
-      url = API_REPO % [user, repo_name]
+    def repo_exists?(user, repo = repo_name)
+      load_net_http
+      url = API_REPO % [user, repo]
       Net::HTTPSuccess === Net::HTTP.get_response(URI(url))
     end
 
@@ -702,23 +841,79 @@ help
     #
     # Returns nothing.
     def fork_repo
-      url = API_FORK % [repo_owner, repo_name]
-      response = Net::HTTP.post_form(URI(url), 'login' => github_user, 'token' => github_token)
+      load_net_http
+      response = http_post API_FORK % [repo_owner, repo_name]
       response.error! unless Net::HTTPSuccess === response
     end
 
     # Creates a new repo using the GitHub API.
     #
     # Returns nothing.
-    def create_repo(options = {})
-      url = API_CREATE
-      params = {'login' => github_user, 'token' => github_token, 'name' => repo_name}
+    def create_repo(name, options = {})
+      params = {'name' => name.sub(/^#{github_user}\//, '')}
       params['public'] = '0' if options[:private]
       params['description'] = options[:description] if options[:description]
       params['homepage'] = options[:homepage] if options[:homepage]
 
-      response = Net::HTTP.post_form(URI(url), params)
+      load_net_http
+      response = http_post(API_CREATE, params)
+      response.error! unless Net::HTTPSuccess === response
+    end
+
+    # Returns parsed data from the new pull request.
+    def create_pullrequest(options)
+      project = options.fetch(:project)
+      params = {
+        'pull[base]' => options.fetch(:base),
+        'pull[head]' => options.fetch(:head)
+      }
+      params['pull[issue]'] = options[:issue] if options[:issue]
+      params['pull[title]'] = options[:title] if options[:title]
+      params['pull[body]'] = options[:body] if options[:body]
+
+      load_net_http
+      response = http_post(API_PULLREQUEST % [project.owner, project.name], params)
       response.error! unless Net::HTTPSuccess === response
+      # GitHub bug: although we request YAML, it returns JSON
+      if response['Content-type'].to_s.include? 'application/json'
+        { "html_url" => response.body.match(/"html_url":\s*"(.+?)"/)[1] }
+      else
+        require 'yaml'
+        YAML.load(response.body)['pull']
+      end
+    end
+
+    def pullrequest_editmsg(changes)
+      message_file = File.join(git_dir, 'PULLREQ_EDITMSG')
+      File.open(message_file, 'w') { |msg|
+        msg.puts
+        yield msg
+        if changes
+          msg.puts "#\n# Changes:\n#"
+          msg.puts changes.gsub(/^/, '# ').gsub(/ +$/, '')
+        end
+      }
+      edit_cmd = Array(git_editor).dup << message_file
+      system(*edit_cmd)
+      abort "can't open text editor for pull request message" unless $?.success?
+      title, body = read_editmsg(message_file)
+      abort "Aborting due to empty pull request title" unless title
+      [title, body]
+    end
+
+    def read_editmsg(file)
+      title, body = '', ''
+      File.open(file, 'r') { |msg|
+        msg.each_line do |line|
+          next if line.index('#') == 0
+          ((body.empty? and line =~ /\S/) ? title : body) << line
+        end
+      }
+      title.tr!("\n", ' ')
+      title.strip!
+      body.strip!
+      
+      [title =~ /\S/ ? title : nil, body =~ /\S/ ? body : nil]
     end
 
     def expand_alias(cmd)
@@ -730,5 +925,49 @@ help
       end
     end
 
+    def http_post(url, params = nil)
+      url = URI(url)
+      post = Net::HTTP::Post.new(url.request_uri)
+      post.basic_auth "#{github_user}/token", github_token
+      post.set_form_data params if params
+
+      port = url.port
+      if use_ssl = 'https' == url.scheme and not use_ssl?
+        # ruby compiled without openssl
+        use_ssl = false
+        port = 80
+      end
+
+      http = Net::HTTP.new(url.host, port)
+      if http.use_ssl = use_ssl
+        # TODO: SSL peer verification
+        http.verify_mode = OpenSSL::SSL::VERIFY_NONE
+      end
+      http.start { http.request(post) }
+    end
+
+    def load_net_http
+      require 'net/https'
+    rescue LoadError
+      require 'net/http'
+    end
+
+    def use_ssl?
+      defined? ::OpenSSL
+    end
+
+    # Fake exception type for net/http exception handling.
+    # Necessary because net/http may or may not be loaded at the time.
+    module HTTPExceptions
+      def self.===(exception)
+        exception.class.ancestors.map {|a| a.to_s }.include? 'Net::HTTPExceptions'
+      end
+    end
+
+    def display_http_exception(action, response)
+      $stderr.puts "Error #{action}: #{response.message} (HTTP #{response.code})"
+      warn "Check your token configuration (`git config github.token`)" if response.code.to_i == 401
+    end
+
   end
 end