From 5e071a813391267b7ebcfdae15862b7c75e51e14 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 8 Mar 2024 08:03:04 +0200 Subject: gnosis-dashboard: Display total note number as integer --- gnosis.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/gnosis.el b/gnosis.el index 2588b61..a719803 100644 --- a/gnosis.el +++ b/gnosis.el @@ -1577,9 +1577,10 @@ to improve readability." (defun gnosis-dashboard-output-deck (id) "Output contents from deck with ID, formatted for gnosis dashboard." - (cl-loop for item in (append (gnosis-select '[name failure-factor ef-increase ef-decrease ef-threshold] + (cl-loop for item in (append (gnosis-select + '[name failure-factor ef-increase ef-decrease ef-threshold initial-interval] 'decks `(= id ,id) t) - (gnosis-dashboard-deck-note-count id)) + (mapcar 'string-to-number (gnosis-dashboard-deck-note-count id))) when (listp item) do (cl-remove-if (lambda (x) (and (vectorp x) (zerop (length x)))) item) collect (prin1-to-string item))) @@ -1591,7 +1592,8 @@ to improve readability." ("ef-increase" 15 t) ("ef-decrease" 15 t) ("ef-threshold" 15 t) - ("Notes" 10 t)]) + ("Initial Interval" 20 t) + ("Total Notes" 10 t)]) (tabulated-list-init-header) (let ((max-id (apply 'max (gnosis-select 'id 'decks '1=1 t)))) (setq tabulated-list-entries -- cgit v1.2.3