travisshears/micro_blog_repo_fetchers
1
0
Fork 0
Code Issues Pull requests 1 Projects Releases Packages Wiki Activity Actions

add mastodon cron

Browse source
This commit is contained in:
Travis Shears 2025-08-04 10:10:53 +02:00
parent 6249124c17
commit ded5314125
2 changed files with 13 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/micro_blog/main.clj
View file

@ -3,12 +3,17 @@
(:import [java.time Instant Duration])
(:require [chime.core :as chime]
[taoensso.telemere :as tel]
[micro-blog.blue-sky :as blue-sky]))
[micro-blog.blue-sky :as blue-sky]
[micro-blog.mastodon :as masto]))
(def crons [blue-sky/run
masto/run])
(defn -main []
(tel/log! :info "Setting up crons")
(chime/chime-at (chime/periodic-seq (Instant/now) (Duration/ofMinutes 30))
(fn [_time]
(blue-sky/run)))
(doseq [[i cron] (map-indexed vector crons)]
(let [start (.plus (Instant/now) (Duration/ofMinutes (* i 5)))]
(chime/chime-at (chime/periodic-seq start (Duration/ofMinutes 30))
(fn [_time]
(cron)))))
@(promise))