factor out gitweb-descriptions

[iankelling.org] / iank-mod.el

diff --git a/iank-mod.el b/iank-mod.el
index 26da79d7a68667b529f51fa7073f67a097a97069..4faea5f958d70d4d42953584745fa74325db9b5b 100644 (file)
--- 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))