From 76206a28ba3bbb411fccc7069a0539a4f5b2d037 Mon Sep 17 00:00:00 2001
From: Clemens Geibel <clemens.geibel@meissa-gmbh.de>
Date: Wed, 13 Apr 2022 13:39:55 +0200
Subject: [PATCH] Added predicate is-yaml?

---
 src/main/clj/dda/c4k_common/yaml.clj | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/main/clj/dda/c4k_common/yaml.clj b/src/main/clj/dda/c4k_common/yaml.clj
index e5ba27c..ba748a8 100644
--- a/src/main/clj/dda/c4k_common/yaml.clj
+++ b/src/main/clj/dda/c4k_common/yaml.clj
@@ -2,6 +2,7 @@
   (:require
    [clojure.java.io :as io]
    [clj-yaml.core :as yaml]
+   [clojure.string :as cs]
    [clojure.walk]
    [orchestra.core :refer [defn-spec]]
    [dda.c4k-common.predicate :as cp]))
@@ -22,6 +23,12 @@
   [edn cp/map-or-seq?]
   (yaml/generate-string edn :dumper-options {:flow-style :block}))
 
+(defn-spec is-yaml? boolean?
+  [filename string?]
+  (or
+   (cs/ends-with? filename ".yaml")
+   (cs/ends-with? filename ".yml")))
+
 (defn dispatch-by-resource-name 
   [resource]
   :clj)