org-board: Confirm before archiving

1 files changed, 9 insertions, 0 deletions

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