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

Ask for date for exercise data

This commit is contained in:
contrapunctus 2022-06-24 12:25:23 +05:30
parent ec78217480
commit 6da9e69eb0
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
init.org
View File

@ -2320,19 +2320,17 @@ What if...
:CUSTOM_ID: my-chronometrist-copy-exercise-data
:END:
#+BEGIN_SRC emacs-lisp
(defun my-chronometrist-copy-exercise-data (&optional date)
"Add exercise data from OsmAnd tracks to Chronometrist.
Only tracks for today's date are considered."
(defun my-chronometrist-copy-exercise-data ()
"Add exercise data from OsmAnd tracks to Chronometrist."
(interactive)
(if-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)))
(if-let* ((date-iso (read-string "Date (ISO-8601): " (format-time-string "%F")))
(date (parse-iso8601-time-string date-iso))
(dir (concat "/media/data/phone/contrapunctus/Nokia 6.1/Android/data/net.osmand.plus/files/tracks/rec/"
(format-time-string "%+4Y-%m/" date)))
(dir-check (file-exists-p dir))
(plists (cl-loop with activity
for file in (directory-files dir)
when (and (string-match-p (format-time-string "^%F_" day)
when (and (string-match-p (format-time-string "^%F_" date)
file)
(or (and (string-match-p "(walk)" file)
(setq activity :walking))