diff --git a/init.org b/init.org
index b3d298c..e8081ea 100644
--- a/init.org
+++ b/init.org
@@ -2320,17 +2320,20 @@ What if...
 :CUSTOM_ID: my-chronometrist-insert-exercise-data
 :END:
 #+BEGIN_SRC emacs-lisp
-(defun my-chronometrist-insert-exercise-data ()
+(defun my-chronometrist-insert-exercise-data (&optional date)
   "Add exercise data from OsmAnd tracks to Chronometrist.
 Only tracks for today's date are considered."
   (interactive)
-  (when-let* ((dir       (concat "/media/data/phone/contrapunctus/Nokia 6.1/Android/data/net.osmand.plus/files/tracks/rec/"
-                                 (format-time-string "%+4Y-%m/")))
+  (when-let* ((day (if date
+                       (parse-iso8601-time-string date)
+                     (current-time)))
+              (dir (concat "/media/data/phone/contrapunctus/Nokia 6.1/Android/data/net.osmand.plus/files/tracks/rec/"
+                           (format-time-string "%+4Y-%m/" day)))
               (dir-check (file-exists-p dir))
               (files     (directory-files dir)))
     (cl-loop with activity
       for file in files
-      when (and (string-match-p (format-time-string "^%F_")
+      when (and (string-match-p (format-time-string "^%F_" day)
                                 file)
                 (or (and (string-match-p "(walk)" file)
                          (setq activity :walking))
@@ -2342,6 +2345,7 @@ Only tracks for today's date are considered."
       (with-current-buffer
           (get-buffer-create (find-file-noselect (concat dir file)))
         (append '(:name "Exercise")
+                `(,activity (0 . "meters"))
                 (my-get-gpx-timestamps))
         ;; (chronometrist-insert (chronometrist-active-backend))
         ))))