draft.rb

module Earthquake::Input
  def drafts
    @drafts ||= []
  end
end

Earthquake.init do
  d = drafts
  subcommands = {
    apply: ->(index){Readline::HISTORY.push(d.at(Integer(index)))},
    clear: ->       {d.clear if confirm("Are you sure?", :n)},
    delete:->(index){d.delete_at(Integer(index))},
    exec:  ->(index){input(d.delete_at(Integer(index)))},
    list:  ->       {ap d},
    save:  ->(text) {d << text.lstrip},
  }.with_indifferent_access
  command %r|^:draft (#{Regexp.union(subcommands.keys)})(\s+.*)?$|o, :as => :draft do |m|
    subcommand, arg = m.captures
    subcommands[subcommand][*[arg].compact]
  end
end