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

- changed the way a message is deleted: when deleting a reblogging 

message delete the reblogged message as well.

This way  quit should  be faster  as the  folder ".reblogged"  can not
grows without limit anymore.
This commit is contained in:
cage 2021-03-13 18:46:01 +01:00
parent f0bc12c435
commit 81e5c3eba1
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/db.lisp
View File

@ -158,7 +158,7 @@
(define-constant +default-reblogged-timeline+ ".reblogged"
:test #'string=)
(define-constant +default-reblogged-folder+ "reblogged"
(define-constant +default-reblogged-folder+ +default-status-folder+
:test #'string=)
@ -2301,8 +2301,8 @@ to `timeline' , `folder' and possibly `account-id', older than
(from :status)
(where (:= :deletedp +db-true+))))))
(defun statuses-id-marked-to-delete (timeline folder)
(query (select :status-id
(defun statuses-marked-to-delete (timeline folder)
(query (select :*
(from :status)
(where (:and (:= :deletedp +db-true+)
(:= :timeline timeline)
@ -2317,9 +2317,13 @@ where all parent messages are saved."
(all-timelines (all-status-timelines)))
(loop for folder in all-folders do
(loop for timeline in all-timelines do
(let ((marked-to-delete (statuses-id-marked-to-delete timeline folder)))
(let ((marked-to-delete (statuses-marked-to-delete timeline folder)))
(loop for status-to-delete in marked-to-delete do
(delete-status timeline folder (row-message-status-id status-to-delete))))))))
(when-let ((reblogged-id (row-message-reblog-id status-to-delete)))
(delete-status +default-reblogged-timeline+
+default-reblogged-folder+
reblogged-id))
(delete-status timeline folder (row-message-status-id status-to-delete))))))))
(defun max-username-length (timeline-type folder)
(let ((query (select (fields (:max (:length :account.acct)))
@ -2503,7 +2507,7 @@ status has been downloaded from the net and ignored because belog to an ignored
(all-timelines (all-status-timelines)))
(loop for folder in all-folders do
(loop for timeline in all-timelines do
(let ((marked-to-delete (statuses-id-marked-to-delete timeline folder)))
(let ((marked-to-delete (statuses-marked-to-delete timeline folder)))
(loop for status-to-delete in marked-to-delete do
(add-to-status-ignored (row-message-status-id status-to-delete)
folder