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)
return (reverse changesets)
else collect
(list
:osm-url
(my-make-osm-url id)
:osm-comment
(my-get-changeset-comment changeset)) into changesets)
(list :osm-url (my-make-osm-url id)
:osm-comment (my-get-changeset-comment changeset))
into changesets)
;; no changeset information in file - just use
;; the latest changeset from the response
(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))
`(:changesets ,new-changesets))))
;; (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
***** my-save-osm-changeset-details