diff options
| author | Leon <gh@leonrische.me> | 2022-09-18 16:25:23 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-09-18 16:25:23 +0200 |
| commit | 96245b721f7bf62bb330b2aef717351e063bcaa4 (patch) | |
| tree | 750b9d6b72443021531be23c041849f2ec041b37 | |
| parent | 9bdc59cd0d1d979bf0f073224a947c53391f4c05 (diff) | |
| parent | e53e4cc48fb3f3cddd08cdfe0877f8354be253a9 (diff) | |
Merge pull request #91 from cashweaver/feat/total-positions
feat: Show total positions in dashboard
| -rw-r--r-- | org-fc-dashboard.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/org-fc-dashboard.el b/org-fc-dashboard.el index cf25056..9165d5a 100644 --- a/org-fc-dashboard.el +++ b/org-fc-dashboard.el @@ -121,6 +121,7 @@ environment without svg support." (cl-incf avg-interval (plist-get pos :interval))))) (cl-incf (gethash (plist-get card :type) by-type 0) 1)) (list :total total + :total-positions n-pos :suspended suspended :due due :by-type (org-fc-dashboard--hashtable-to-alist by-type) @@ -210,6 +211,8 @@ environment without svg support." (insert (propertize "Position Statistics\n\n" 'face 'org-level-1)) + (insert (format " Total: %d\n\n" + (plist-get stats :total-positions))) (insert (format " Due: %d (now) %d (day) %d (week) %d (month)\n\n" (plist-get due-stats :now) (plist-get due-stats :day) |