From 39a54a94c460147494b2dd079a39d2c1ce91168a Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 10 May 2024 14:01:52 +0300 Subject: Add gnosis-get-deck--note --- gnosis.el | 7 +++++++ 1 file changed, 7 insertions(+) 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." -- cgit v1.2.3