From 14c5059d751a9ba5e39064dcd71f4172431c98ca Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sat, 3 Aug 2024 18:53:45 +0300 Subject: New function: dashboard-sort-total-notes. * Function to be used to sort tag dashboard for total notes. --- gnosis-dashboard.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gnosis-dashboard.el') diff --git a/gnosis-dashboard.el b/gnosis-dashboard.el index 6f4a7ca..f70142d 100644 --- a/gnosis-dashboard.el +++ b/gnosis-dashboard.el @@ -271,6 +271,12 @@ Optionally, use when using multiple months." (let ((notes (gnosis-get-tag-notes tag))) `(,tag ,(number-to-string (length notes))))) +(defun gnosis-dashboard-sort-total-notes (entry1 entry2) + "Sort function for the total notes column, for ENTRY1 and ENTRY2." + (let ((total1 (string-to-number (elt (cadr entry1) 1))) + (total2 (string-to-number (elt (cadr entry2) 1)))) + (< total1 total2))) + (defun gnosis-dashboard-output-deck (id) "Output contents from deck with ID, formatted for gnosis dashboard." (cl-loop for item in (append (gnosis-select -- cgit v1.2.3