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

Prevent error when there is no new OSM data to insert

This commit is contained in:
contrapunctus 2022-04-27 21:22:53 +05:30
parent d4fafb46e7
commit 1905951cab
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
init.org
View File

@ -1963,11 +1963,9 @@ When I clock out of the "OSM" task, this code stores changeset details in it.
if (equal id last-id) if (equal id last-id)
return (reverse changesets) return (reverse changesets)
else collect else collect
(list (list :osm-url (my-make-osm-url id)
:osm-url :osm-comment (my-get-changeset-comment changeset))
(my-make-osm-url id) into changesets)
:osm-comment
(my-get-changeset-comment changeset)) into changesets)
;; no changeset information in file - just use ;; no changeset information in file - just use
;; the latest changeset from the response ;; the latest changeset from the response
(let* ((changeset (first response-changesets)) (let* ((changeset (first response-changesets))
@ -1979,7 +1977,9 @@ When I clock out of the "OSM" task, this code stores changeset details in it.
(chronometrist-latest-record (chronometrist-active-backend)) (chronometrist-latest-record (chronometrist-active-backend))
`(:changesets ,new-changesets)))) `(:changesets ,new-changesets))))
;; (message "Last changeset ID - %s" last-id) ;; (message "Last changeset ID - %s" last-id)
(chronometrist-replace-last (chronometrist-active-backend) new-plist))) ;; don't update if the latest changeset ID was already recorded
(when new-changesets
(chronometrist-replace-last (chronometrist-active-backend) new-plist))))
#+END_SRC #+END_SRC
***** my-save-osm-changeset-details ***** my-save-osm-changeset-details