[chronometrist] add loop-file example

init.org

@@ -600,6 +600,21 @@ Return nil (and run `magit-status') if the user answers no."
        (generate-new-buffer-name "sed-tangle")
        (format "sed -n '/#+BEGIN_SRC emacs-lisp$/,/#+END_SRC$/{//!p;}' ~s.org > ~s.el" base base)))))
 
+#+END_SRC
+
+An example of querying the Chronometrist file data - finding out how much time I've spent on tasks matching a certain criteria.
+#+BEGIN_SRC emacs-lisp :tangle no :load no
+(chronometrist-loop-file for plist in chronometrist-file
+  with count = 0
+  when (and (equal (plist-get plist :name) "Composing")
+            (equal (plist-get plist :song) "आदि काल से आज तलक"))
+  sum (chronometrist-interval plist) into seconds
+  and do (cl-incf count)
+  finally return
+  (format "%s over %s days."
+          (ts-human-format-duration seconds)
+          count))
+
 #+END_SRC
 *** WISH emms
 1. [ ] make toggle command for emms-start/emms-stop