branch: elpa/gnosis
commit 19d9a764551c08b51a1b3930707d4c6becc95266
Author: Thanos Apollo <pub...@thanosapollo.org>
Commit: Thanos Apollo <pub...@thanosapollo.org>
[fix] dashboard: Adjust values for non-strings.
* New for hypothesis apocalypse are going to be lists, we adjust so
that each of their items is a string for output.
---
gnosis.el | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/gnosis.el b/gnosis.el
index ae1a6805e9..82c28904d2 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -2651,10 +2651,10 @@ Skips days where no note was reviewed."
(cl-loop for sublist in entries
collect
(list (car sublist)
- (vconcat
+ (vconcat
(cl-loop for item in (cdr sublist)
if (listp item)
- collect (mapconcat #'identity item ",")
+ collect (mapconcat (lambda (x) (format "%s" x))
item ",")
else
collect (replace-regexp-in-string "\n" " " (format
"%s" item))))))))
@@ -2970,9 +2970,12 @@ DASHBOARD-TYPE: either Notes or Decks to display the
respective dashboard."
"\n"]
["Notes"
("s" "Search" gnosis-dashboard-suffix-query)
- ("n" "Notes" (lambda () (interactive) (gnosis-dashboard-output-notes
(gnosis-collect-note-ids))))
+ ("n" "Notes" (lambda () (interactive)
+ (gnosis-dashboard-output-notes
+ (gnosis-collect-note-ids))))
("d" "Decks" gnosis-dashboard-suffix-decks)
- ("t" "Tags" (lambda () (interactive) (gnosis-dashboard-output-tags)))]])
+ ("t" "Tags" (lambda () (interactive)
+ (gnosis-dashboard-output-tags)))]])
;;;###autoload
(defun gnosis-dashboard ()
