branch: elpa/gnosis
commit e35a62aed6b7a22672694a7db34941bdf1c50c5c
Author: Thanos Apollo <pub...@thanosapollo.org>
Commit: Thanos Apollo <pub...@thanosapollo.org>
Remove unused non-interactive functions.
---
gnosis.el | 16 ++--------------
1 file changed, 2 insertions(+), 14 deletions(-)
diff --git a/gnosis.el b/gnosis.el
index f4611ca120..8e0c82d700 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -278,10 +278,6 @@ Example:
"Return caar of VALUE from TABLE, optionally with where RESTRICTIONS."
(caar (gnosis-select value table restrictions)))
-(defun gnosis-get-type (id)
- "Return note for note ID."
- (car (gnosis-select-id 'type 'notes id)))
-
(defun gnosis--delete (table value)
"From TABLE use where to delete VALUE."
(emacsql gnosis-db `[:delete :from ,table :where ,value]))
@@ -711,15 +707,6 @@ When called with a prefix, unsuspends all notes for tag."
(cl-loop for note in notes
do (gnosis-update 'review-log `(= suspend ,suspend) `(= id
,note)))))
-(defun gnosis-suspend ()
- "Suspend note(s) with specified values."
- (interactive)
- (let ((item (gnosis-completing-read "Suspend by: " '("Deck" "Tag"))))
- (pcase item
- ("Deck" (gnosis-suspend-deck))
- ("Tag" (gnosis-suspend-tag))
- (_ (message "Not ready yet.")))))
-
(defun gnosis-generate-id (&optional length deck-p)
"Generate a unique gnosis ID.
@@ -2152,7 +2139,8 @@ CUSTOM-DECK: Custom deck to be used instead."
(let* ((deck (or custom-deck (gnosis-get-note-deck-name id)))
(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 (or decks-proto gnosis-algorithm-proto)))))
+ (if tags-proto (gnosis-proto-max-values tags-proto)
+ (gnosis-proto-max-values (or decks-proto gnosis-algorithm-proto)))))
(defun gnosis-get-note-tag-anagnosis (id &optional custom-tags custom-values)
"Return the minimum anagnosis tag value for note ID.
