Add gnosis-get-deck--note

1 files changed, 7 insertions, 0 deletions

diff --git a/gnosis.el b/gnosis.el
index 50c35f2..3bfc4b6 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -486,6 +486,13 @@ Set SPLIT to t to split all input given."
   "Return id for DECK name."
   (gnosis-get 'id 'decks `(= name ,deck)))
 
+(defun gnosis-get-deck--note (id &optional name)
+  "Get deck id for note ID.
+
+If NAME is t, return name of deck."
+  (let* ((id-clause `(= id ,id))
+	 (deck (gnosis-get 'deck-id 'notes id-clause)))
+    (if name (gnosis--get-deck-name deck) deck)))
 
 (cl-defun gnosis-suspend-note (id)
   "Suspend note with ID."