history_cleaner.rb

Earthquake.init do
  command :history_cleaner do |m|
    re = Regexp.new(m[1])
    to_be_removed = []
    Readline::HISTORY.each_with_index do |entry, index|
      if re === entry
        puts "to be removed: #{entry}"
        to_be_removed << index
      end
    end
    if confirm("ok?", :y)
      to_be_removed.reverse_each do |index|
        Readline::HISTORY.delete_at(index)
      end
    end
  end
end