cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-01-03 01:09:20 +01:00
Code Issues

- prevented inserting a duplicate row into search results folder.

Browse Source 
- renumbered search local results
This commit is contained in:
cage 2024-06-15 14:04:33 +02:00
parent c4aa8850a7
commit c119600081
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/program-events.lisp
View File

@ -2016,12 +2016,16 @@
(_ "accounts~2%")))
found-accounts)))
(loop for status in found-statuses do
(when (not (db::find-status-id-folder-timeline (tooter:id status)
(query-results-folder-name)
db:+home-timeline+))
(db:remove-from-status-ignored (tooter:id status)
(query-results-folder-name)
db:+home-timeline+)
(db:update-db status
:folder (query-results-folder-name)
:timeline db:+home-timeline+))
:timeline db:+home-timeline+)))
(db:renumber-timeline-message-index db:+home-timeline+
(query-results-folder-name)
:account-id nil)
@ -2047,6 +2051,9 @@
(multiple-value-bind (query column-values)
(db-utils:insert-query db:+table-status+ status-row)
(db-utils:query-low-level query column-values)))))
(db:renumber-timeline-message-index db:+home-timeline+
(query-results-folder-name)
:account-id nil)
(let ((refresh-event (make-instance 'refresh-thread-windows-event
:new-folder (query-results-folder-name)
:new-timeline db:+home-timeline+)))