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