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

- [TUI] notify when a parsing error occurred when querying local database.

This commit is contained in:
cage 2024-06-24 12:18:06 +02:00
parent 1f58010447
commit 883d2c0105
1 changed files with 25 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
src/program-events.lisp
View File

@ -2038,30 +2038,31 @@
(defmethod process-event ((object fediverse-local-query-event)) (defmethod process-event ((object fediverse-local-query-event))
(with-accessors ((payload payload)) object (with-accessors ((payload payload)) object
(multiple-value-bind (statuses destination-folder) (tui-utils:with-notify-errors
(fediverse-post-local-search:parse-search-statuses payload) (multiple-value-bind (statuses destination-folder)
(let ((folder (or destination-folder (fediverse-post-local-search:parse-search-statuses payload)
(query-results-folder-name)))) (let ((folder (or destination-folder
(loop for status in statuses do (query-results-folder-name))))
(let* ((status-id (db:row-message-status-id status)) (loop for status in statuses do
(status-row (db:find-status-id status-id))) (let* ((status-id (db:row-message-status-id status))
(when (not (db::find-status-id-folder-timeline status-id (status-row (db:find-status-id status-id)))
folder (when (not (db::find-status-id-folder-timeline status-id
db:+home-timeline+)) folder
(setf (getf status-row :folder) db:+home-timeline+))
folder) (setf (getf status-row :folder)
(setf (getf status-row :timeline) folder)
db:+home-timeline+) (setf (getf status-row :timeline)
(multiple-value-bind (query column-values) db:+home-timeline+)
(db-utils:insert-query db:+table-status+ status-row) (multiple-value-bind (query column-values)
(db-utils:query-low-level query column-values))))) (db-utils:insert-query db:+table-status+ status-row)
(db:renumber-timeline-message-index db:+home-timeline+ (db-utils:query-low-level query column-values)))))
folder (db:renumber-timeline-message-index db:+home-timeline+
:account-id nil) folder
(let ((refresh-event (make-instance 'refresh-thread-windows-event :account-id nil)
:new-folder folder (let ((refresh-event (make-instance 'refresh-thread-windows-event
:new-timeline db:+home-timeline+))) :new-folder folder
(push-event refresh-event)))))) :new-timeline db:+home-timeline+)))
(push-event refresh-event)))))))
;;;; end events ;;;; end events