X-Git-Url: https://iankelling.org/git/?p=iankelling.org;a=blobdiff_plain;f=iank-mod.el;h=4faea5f958d70d4d42953584745fa74325db9b5b;hp=26da79d7a68667b529f51fa7073f67a097a97069;hb=e02cd51eb9c9ac3f84a84fefd567d7217e34bc38;hpb=daefd301f9bdc0df7b7f4d77ca249291e9388d9b

diff --git a/iank-mod.el b/iank-mod.el
index 26da79d..4faea5f 100644
--- a/iank-mod.el
+++ b/iank-mod.el
@@ -38,6 +38,12 @@
   (interactive)
   (iankmod-set-state "banned"))
 
+;; for test comments, or comments we just want to delete from the
+;; db for whatever reason.
+(defun iankmod-delete ()
+  (interactive)
+  (iankmod-set-state "delete"))
+
 (defun iankmod-moderate ()
   (interactive)
   (iankmod-set-state "moderated"))
@@ -49,4 +55,5 @@
             (define-key map (kbd "b") 'iankmod-ban)
             (define-key map (kbd "m") 'iankmod-moderate)
             (define-key map (kbd "x") 'iankmod-save)
+            (define-key map (kbd "d") 'iankmod-delete)
             map))