blob: e2a98ffed2d5ab7b634dd000e8c0f4f3ba6fa872 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
(ns weepinbell.webhook-presets
"This component defines preset functions that transform data to webhook requests."
(:require [weepinbell.utils.url :refer [get-domain]]))
;; helpers
(defn- request-title-helper [hook source-name]
(case hook
:on-receive "A new webmention received, processing..."
:on-create (str source-name " mentioned you!")
:on-delete (str source-name " deleted their mention")
:on-update (str source-name " updated their mention")
"Something unexpected happened"))
(defn- request-data-helper [data]
{:source (get-in data [:webmention :source])
:target (get-in data [:webmention :target])
:source-domain (get-domain (get-in data [:webmention :source]))
:photo (get-in data [:extra :proxied-photo])})
;; presets
(defn- ntfy-request [hook data]
(let [{:keys [source target source-domain photo]} (request-data-helper data)]
{:body (str "from " source "\n" "to " target)
:headers {"Title" (request-title-helper hook source-domain)
"Click" source
"Icon" photo}}))
(defn- bark-request [hook data]
(let [{:keys [source target source-domain photo]} (request-data-helper data)]
{:form-params {"title" (request-title-helper hook source-domain)
"body" (str "from " source "\n" "to " target)
"url" source
"icon" photo}}))
(def request-presets {:ntfy ntfy-request :bark bark-request})
|
