cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-03 04:37:29 +01:00
Code Issues

- renamed function 'db:mark-status-deleted-p'.

Browse Source
This commit is contained in:
cage 2021-11-30 21:18:09 +01:00
parent 0b5c56f0ee
commit 6f06e0cd14
4 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
modules/delete-by-regex.lisp
View File

@ -36,7 +36,7 @@
(db:mark-status-read timeline-type
timeline-folder
status-id)
(db:mark-status-deleted-p timeline-type
(db:mark-status-deleted timeline-type
timeline-folder
status-id))))
rows)

2
src/db.lisp
View File

@ -2151,7 +2151,7 @@ reblogged (if exists)."
(defun mark-status-unread (timeline folder status-id)
(mark-status-boolean-value timeline folder status-id :redp +db-false+))
(defun mark-status-deleted-p (timeline folder status-id)
(defun mark-status-deleted (timeline folder status-id)
"Mark status as need to be deleted."
(mark-status-boolean-value timeline folder status-id :deletedp +db-true+))

2
src/package.lisp
View File

@ -946,7 +946,7 @@
:all-attachments-urls-to-status
:mark-status-read
:mark-status-unread
:mark-status-deleted-p
:mark-status-deleted
:mark-status-prevent-deletion
:count-status-redp
:count-status

2
src/thread-window.lisp
View File

@ -898,7 +898,7 @@ db:renumber-timeline-message-index."
&key (move-down-selected-message nil))
(if (selected-row object)
(progn
(mark-selected-status-boolean-value object #'db:mark-status-deleted-p)
(mark-selected-status-boolean-value object #'db:mark-status-deleted)
(resync-rows-db object :redraw t)
(when move-down-selected-message
(go-message-down object)))