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