cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- substituted default values for 'fetch-remote-status'.

This commit is contained in:
cage 2024-06-27 16:50:31 +02:00
parent ebbee28430
commit 1f14329852
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/api-client.lisp
View File

@ -501,7 +501,10 @@ become an emty string (\"\")
:limit limit :limit limit
:min-id max-id)))) :min-id max-id))))
(defun-api-call fetch-remote-status (status-id &optional folder timeline) (defun-api-call fetch-remote-status (status-id
&optional
(folder db:+default-status-folder+)
(timeline db:+local-timeline+))
"Fetch a single status identified by status-id and generate an event "Fetch a single status identified by status-id and generate an event
`fetch-remote-status-event' that, in turn will save the status to the `fetch-remote-status-event' that, in turn will save the status to the
database." database."

4
src/program-events.lisp
View File

@ -558,11 +558,11 @@
(defclass fetch-remote-status-event (program-event) (defclass fetch-remote-status-event (program-event)
((timeline ((timeline
:initform nil :initform db:+local-timeline+
:initarg :timeline :initarg :timeline
:accessor timeline) :accessor timeline)
(folder (folder
:initform nil :initform db:+default-status-folder+
:initarg :folder :initarg :folder
:accessor folder))) :accessor folder)))