hook up is tech
This commit is contained in:
parent
0cfefc5f04
commit
672e1944b0
5 changed files with 40 additions and 1 deletions
|
|
@ -2,6 +2,7 @@
|
|||
(:require
|
||||
[clj-http.client :as http-client]
|
||||
[micro-blog.config :refer [config]]
|
||||
[micro-blog.is-tech]
|
||||
[micro-blog.pocket-base :as pb]
|
||||
[micro-blog.utils :as utils]
|
||||
[taoensso.telemere :as tel]))
|
||||
|
|
@ -44,6 +45,7 @@
|
|||
(tel/log! {:level :info :data {:remoteId (:id raw-post)}} "Transforming mastodon post")
|
||||
(hash-map
|
||||
:source :mastodon
|
||||
:isTech (micro-blog.is-tech/is-tech? (:content raw-post))
|
||||
:fullPost raw-post
|
||||
:remoteId (:id raw-post)
|
||||
:authorId (get-in raw-post [:account :id])
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue