cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-16 08:00:35 +01:00
Code Issues

- fixed function name.

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

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

@ -33,7 +33,7 @@
(status-id (db:row-message-status-id row))) (status-id (db:row-message-status-id row)))
(when (or (scan scanner user) (when (or (scan scanner user)
(scan scanner subject)) (scan scanner subject))
(db:mark-status-red-p timeline-type (db:mark-status-read timeline-type
timeline-folder timeline-folder
status-id) status-id)
(db:mark-status-deleted-p timeline-type (db:mark-status-deleted-p timeline-type

2
src/db.lisp
View File

@ -2145,7 +2145,7 @@ reblogged (if exists)."
(:= :status-id status-id)))))) (:= :status-id status-id))))))
(query query))) (query query)))
(defun mark-status-red-p (timeline folder status-id) (defun mark-status-read (timeline folder status-id)
(mark-status-boolean-value timeline folder status-id :redp +db-true+)) (mark-status-boolean-value timeline folder status-id :redp +db-true+))
(defun mark-status-unread (timeline folder status-id) (defun mark-status-unread (timeline folder status-id)

2
src/package.lisp
View File

@ -944,7 +944,7 @@
:all-attachments-to-status :all-attachments-to-status
:attachment-to-chat-message :attachment-to-chat-message
:all-attachments-urls-to-status :all-attachments-urls-to-status
:mark-status-red-p :mark-status-read
:mark-status-unread :mark-status-unread
:mark-status-deleted-p :mark-status-deleted-p
:mark-status-prevent-deletion :mark-status-prevent-deletion

2
src/thread-window.lisp
View File

@ -878,7 +878,7 @@ db:renumber-timeline-message-index."
actual-body actual-body
poll-text poll-text
actual-attachments)) actual-attachments))
(db:mark-status-red-p timeline-type timeline-folder status-id) (db:mark-status-read timeline-type timeline-folder status-id)
(resync-rows-db object :redraw t) (resync-rows-db object :redraw t)
(program-events:push-event refresh-event) (program-events:push-event refresh-event)
(draw *message-window*))))))) (draw *message-window*)))))))