github/org-habit-streaks
1
0
Fork 0
mirror of https://github.com/correl/org-habit-streaks.git synced 2024-11-23 11:09:52 +00:00
Code Issues Projects Releases Packages Wiki Activity

Add a dynamic block for generating a habit summary

Browse source
This commit is contained in:
Correl Roush 2015-12-30 13:02:05 -05:00
parent b44bcc7fe2
commit 4ecf1e12de
1 changed files with 24 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
org-habit-streaks.el
View file

@ -68,5 +68,29 @@
0))) 0)))
(list current-streak streaks))) (list current-streak streaks)))
;;;###autoload
(defun org-dblock-write:habit-summary (params)
(let ((streaks (org-map-entries
(lambda ()
(list (org-get-heading t t)
(let ((org-habit-streaks-preceding-days 365))
(org-habit-streaks))))
"STYLE=\"habit\"+TODO=\"TODO\"")))
(insert "| Habit | Best Streak | Current Streak |\n")
(insert "|-\n")
(insert (mapconcat (lambda (row)
(let ((habit (first row))
(best-streak (first (-sort #'> (-map #'length (cdr (second row))))))
(current-streak (car (second row))))
(concat "| "
(mapconcat (apply-partially 'format "%s")
(list habit best-streak current-streak)
" | ")
"|")))
streaks
"\n"))
(org-table-align)))
(provide 'org-habit-streaks) (provide 'org-habit-streaks)
;;; org-habit-streaks.el ends here ;;; org-habit-streaks.el ends here