add extension for schemas

CHANGELOG.md

@@ -5,6 +5,12 @@ of [keepachangelog.com](http://keepachangelog.com/).
 
 ## [Unreleased]
 
+## [25.52.52] - 2024-07-25
+
+## Added
+
+- Add `LocalDateWire` schema extension.
+
 ## [25.52.51] - 2024-07-25
 
 ## Added
@@ -695,7 +701,9 @@ of [keepachangelog.com](http://keepachangelog.com/).
 
 - Add `loose-schema` function.
 
-[Unreleased]: https://github.com/macielti/common-clj/compare/v25.52.51...HEAD
+[Unreleased]: https://github.com/macielti/common-clj/compare/v25.52.52...HEAD
+
+[25.52.52]: https://github.com/macielti/common-clj/compare/v25.52.51...v25.52.52
 
 [25.52.51]: https://github.com/macielti/common-clj/compare/v25.52.50...v25.52.51
 

project.clj

@@ -1,4 +1,4 @@
-(defproject net.clojars.macielti/common-clj "25.52.51"
+(defproject net.clojars.macielti/common-clj "25.52.52"
   :description "Just common Clojure code that I use across projects"
   :url "https://github.com/macielti/common-clj"
   :license {:name "EPL-2.0 OR GPL-2.0-or-later WITH Classpath-exception-2.0"

src/common_clj/schema/extensions.clj

@@ -0,0 +1,6 @@
+(ns common-clj.schema.extensions
+  (:require [schema.core :as s]))
+
+(s/defschema LocalDateWire
+  "Example: '2024-09-07'"
+  (s/constrained s/Str #(re-matches #"^\d{4}-\d{2}-\d{2}T\d{2}$" %)))