cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-19 23:33:03 +01:00
Code Issues

- [fediverse] scheduled checking for instance's announcement on boot.

Browse Source
This commit is contained in:
cage 2024-05-24 14:37:42 +02:00
parent 5745c64272
commit 3e62f6fd3b
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/scheduled-events.lisp
View File

@ -67,9 +67,7 @@
(gen-scheduler-function (look-for-announcements (gen-scheduler-function (look-for-announcements
+announcements-check-frequency+) +announcements-check-frequency+)
(when *thread-window* (%look-for-announcements))
(ui:notify (_ "Looking for announcements…"))
(program-events:push-event (make-instance 'program-events:check-announcements-event))))
(gen-at-boot-function purge-history (gen-at-boot-function purge-history
(db:purge-history)) (db:purge-history))
@ -81,6 +79,14 @@
(gen-at-boot-function sync-gempub-library (gen-at-boot-function sync-gempub-library
(gempub:sync-library :notify t)) (gempub:sync-library :notify t))
(defun %look-for-announcements ()
(when *thread-window*
(ui:notify (_ "Looking for announcements…"))
(program-events:push-event (make-instance 'program-events:check-announcements-event))))
(gen-at-boot-function look-for-announcement-on-boot
(%look-for-announcements))
(defun run-scheduled-events (ticks) (defun run-scheduled-events (ticks)
(when (api-pleroma:instance-pleroma-p) (when (api-pleroma:instance-pleroma-p)
(refresh-all-chats-messages ticks) (refresh-all-chats-messages ticks)
@ -91,4 +97,5 @@
(purge-gemlog-entries ticks) (purge-gemlog-entries ticks)
(purge-history) (purge-history)
(refresh-gemlog-posts) (refresh-gemlog-posts)
(sync-gempub-library)) (sync-gempub-library)
(look-for-announcement-on-boot))