From 4788ac7655a93fbcc423feaf60eb1e887b2f41c2 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Sat, 21 Feb 2015 15:25:11 -0200
Subject: Define sx-delete

---
 sx-interaction.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/sx-interaction.el b/sx-interaction.el
index e534984..8eae96f 100644
--- a/sx-interaction.el
+++ b/sx-interaction.el
@@ -269,6 +269,17 @@ changes."
       ;; Display the changes in `data'.
       (sx--maybe-update-display))))
 
+
+;;; Delete
+(defun sx-delete (data &optional undo)
+  "Delete an object given by DATA.
+DATA can be a question, answer, or comment. Interactively, it is
+guessed from context at point.
+With UNDO prefix argument, undelete instead."
+  (interactive (list (sx--error-if-unread (sx--data-here))
+                     current-prefix-arg))
+  (sx-method-post-from-data data (if undo 'delete/undo 'delete)))
+
 
 ;;; Commenting
 (defun sx-comment (data &optional text)
-- 
cgit v1.2.3