contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add support for past dates

This commit is contained in:
contrapunctus 2022-06-17 00:20:27 +05:30
parent 716f2f0373
commit 965dea65c0
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
init.org
View File

@ -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))
))))