Implement --delete

TODO: Actually delete the message

2 files changed, 12 insertions, 1 deletions

diff --git a/ag b/ag
index 29ee0f2..dbb1584 100755
--- a/ag
+++ b/ag
@@ -142,7 +142,13 @@ def do_incremental
 end
 
 def do_delete
-  abort 'Come back later.'
+  id = Ag::Utils.resolve_id
+
+  begin
+    Ag::Storage.delete($options.name, id)
+  rescue => e
+    $stderr.puts "Cannot delete message: #{e}"
+  end
 end
 
 def do_reindex
diff --git a/lib/storage.rb b/lib/storage.rb
index b4a518e..f255633 100644
--- a/lib/storage.rb
+++ b/lib/storage.rb
@@ -220,6 +220,11 @@ module Ag::Storage
 
     result['hits']['total']
   end
+
+  def delete(list, id)
+    $es.delete(index: 'ml-' + list, type: 'message', id: id)
+  end
+
   def get(list, id)
     result = $es.search(
       index: 'ml-' + list,