me/c4k-forgejo
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add spec for mailer

Browse source
This commit is contained in:
bom 2022-07-22 10:51:27 +02:00
parent 0a6919f4f9
commit de7bd6200e
1 changed files with 21 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
src/main/cljc/dda/c4k_gitea/gitea.cljc
View file

@ -1,17 +1,28 @@
(ns dda.c4k-gitea.gitea (ns dda.c4k-gitea.gitea
(:require (:require
[clojure.spec.alpha :as s] [clojure.spec.alpha :as s]
#?(:cljs [shadow.resource :as rc]) [clojure.string :as str]
#?(:clj [orchestra.core :refer [defn-spec]] #?(:cljs [shadow.resource :as rc])
:cljs [orchestra.core :refer-macros [defn-spec]]) #?(:clj [orchestra.core :refer [defn-spec]]
[dda.c4k-common.yaml :as yaml] :cljs [orchestra.core :refer-macros [defn-spec]])
[dda.c4k-common.common :as cm] [dda.c4k-common.yaml :as yaml]
[dda.c4k-common.base64 :as b64] [dda.c4k-common.common :as cm]
[dda.c4k-common.predicate :as pred] [dda.c4k-common.base64 :as b64]
[dda.c4k-common.postgres :as postgres])) [dda.c4k-common.predicate :as pred]
[dda.c4k-common.postgres :as postgres]))
(s/def ::fqdn pred/fqdn-string?) (s/def ::fqdn pred/fqdn-string?)
(s/def ::issuer pred/letsencrypt-issuer?) (s/def ::issuer pred/letsencrypt-issuer?)
(s/def ::mailer-from pred/bash-env-string?)
; TODO: Move to pred/host-port?
(s/def ::mailer-host-port #(let [split-string (str/split % #":")]
(and (= (count split-string) 2)
(pred/fqdn-string? (first split-string))
; TODO: Move this to pred/port-number?
(let [snd (second split-string)]
(and (integer? snd)
(> 0 snd)
(<= 65535 snd))))))
(s/def ::mailer-user pred/bash-env-string?) (s/def ::mailer-user pred/bash-env-string?)
(s/def ::mailer-pw pred/bash-env-string?) (s/def ::mailer-pw pred/bash-env-string?)