New function: dashboard-suspend-note.

* Suspend either selected-ids or note at point, depending on the value
  of selected-ids.

1 files changed, 9 insertions, 0 deletions

diff --git a/gnosis-dashboard.el b/gnosis-dashboard.el
index a2ec5ce..8aa4a25 100644
--- a/gnosis-dashboard.el
+++ b/gnosis-dashboard.el
@@ -206,6 +206,15 @@ Optionally, use  when using multiple months."
   (let ((id (or id (string-to-number (tabulated-list-get-id)))))
     (gnosis-edit-note id)))
 
+(defun gnosis-dashboard-suspend-note ()
+  "Suspend note."
+  (interactive)
+  (if gnosis-dashboard--selected-ids
+      (gnosis-dashboard-marked-suspend)
+    (gnosis-suspend-note (string-to-number (tabulated-list-get-id)))
+    (gnosis-dashboard-output-notes gnosis-dashboard-note-ids)
+    (revert-buffer t t t)))
+
 (defun gnosis-dashboard-output-notes (note-ids)
   "Return NOTE-IDS contents on gnosis dashboard."
   (cl-assert (listp note-ids) t "`note-ids' must be a list of note ids.")