From 7990b059ecc9149d529dd3998bdb8401e050d9ff Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Thu, 20 Apr 2017 21:57:54 -0400
Subject: org-board: Confirm before archiving

---
 init.el | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 33218b8..0a2a06b 100644
--- a/init.el
+++ b/init.el
@@ -303,6 +303,15 @@
   :init
   (put 'org-attach-directory 'safe-local-variable #'stringp))
 
+(use-package org-board
+  :defer t
+  :config
+  (advice-add 'org-board-archive :before
+              (lambda (&rest _)
+                (unless (yes-or-no-p "Archive entry? ")
+                  (user-error "Archiving aborted")))
+              '((name . "org-board-archive-confirm"))))
+
 (use-package km-org
   :defer t
   :init
-- 
cgit v1.2.3