From 6cc777bba38e6bcb1bb55f4e633152fb7e79a528 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Wed, 7 Aug 2024 12:32:24 +0300 Subject: get-note-proto: Prioritize tags over decks. * Return deck proto value only if tags proto value is nil. --- gnosis.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'gnosis.el') diff --git a/gnosis.el b/gnosis.el index 0b5cd18..0b4b37e 100644 --- a/gnosis.el +++ b/gnosis.el @@ -2088,14 +2088,15 @@ CUSTOM-VALUES: Specify values for tags." (apply #'cl-mapcar #'max padded-lists)))) (defun gnosis-get-note-proto (id &optional custom-tags custom-deck custom-values) - "Return tag proto values for note ID." + "Return tag proto values for note ID. + +CUSTOM-VALUES: Custom values to be used instead. +CUSTOM-TAGS: Custom tags to be used instead. +CUSTOM-DECK: Custom deck to be used instead." (let* ((deck (or custom-deck (gnosis-get-note-deck-name id))) - (tags (or custom-tags (gnosis-get 'tags 'notes `(= id ,id)))) - (proto-values (or (delq nil (append (gnosis-get-custom-tag-values nil :proto tags custom-values) - (list (gnosis-get-custom-deck-value deck :proto - custom-values)))) - gnosis-algorithm-proto))) - (gnosis-proto-max-values proto-values))) + (tags-proto (gnosis-get-custom-tag-values id :proto custom-tags custom-values)) + (decks-proto (gnosis-get-custom-deck-value deck :proto custom-values))) + (if tags-proto (gnosis-proto-max-values tags-proto) (gnosis-proto-max-values decks-proto)))) (defun gnosis-get-note-tag-anagnosis (id &optional custom-tags custom-values) "Return the minimum anagnosis tag value for note ID." -- cgit v1.2.3