ikitommi

Clojurists Together Project Update Q3 2020 August 15-31

First goal is to get a stable release of Malli out. This has involved some hammock time, revisiting the design decisions and both designing and implementing features that still could effect the shape of the core apis. And a lot of refactoring. Work is mostly tracked via #116.

Done stuff

Simple Schemas

• Add utilities for users to easily create simple schemas with property-based validation, including :min and :max ranges for numbers, collections and dates.
• More built-in schemas: :int, :double, :boolean, :keyword, :symbol, :qualified-keyword, :qualified-symbol and :uuid

ikitommi

{
  "swagger": "2.0",
  "x-id": [
    "reitit.swagger/default"
  ],
  "info": {
    "title": "my-api",
    "version": "v1",
    "description": "with [malli](https://github.com/metosin/malli) and reitit-ring"
  },

ikitommi

{
  "swagger": "2.0",
  "info": {
    "version": "1.0.0",
    "title": "Swagger Petstore"
  },
  "paths": {
    "/pet": {
      "post": {
        "tags": [

ikitommi

(require '[malli.core :as m])

;; using :and
(def Name
  [:and {:documentation "Human name"} string?])

;; adding props to predicate schema
(def Name
  [string? {:documentation "Human name"}])

ikitommi

(ns postgres)

(require '[clojure.string :as str])
(require '[malli.core :as m])
(require '[malli.transform :as mt])

(defn -transform-keys [f m]
  (reduce-kv
    (fn [acc k v] (assoc acc (f k) v))
    (empty m)

ikitommi

;; a sample data
(def tappi
  {:mydomain/type :restaurant
   :mydomain.restaurant/name "Vanha Tappi"
   :mydomain.restaurant/tags #{:burgers :beer}
   :mydomain.restaurant/stars 4.5
   :mydomain.restaurant/address {:mydomain.address/street "Jokipohjantie 18"
                                 :mydomain.address/city "Tampere"}})

(require '[clojure.spec-alpha2 :as s])

ikitommi

import kotlin.reflect.KClass
import kotlin.reflect.KParameter
import kotlin.reflect.KProperty1
import kotlin.reflect.full.declaredMemberProperties
import kotlin.reflect.full.primaryConstructor

data class Address(
  val street: String? = null,
  val zip: String? = null
)

ikitommi

;; clj -Sdeps '{:deps {metosin/malli {:git/url "https://github.com/metosin/malli"
;;                                    :sha "68b9940fcf4671a3fcff7bb4844f7f06b2277a34"}}}'

;
; ███▄ ▄███▓ ▄▄▄       ██▓     ██▓     ██▓
; ▓██▒▀█▀ ██▒▒████▄    ▓██▒    ▓██▒    ▓██▒
; ▓██    ▓██░▒██  ▀█▄  ▒██░    ▒██░    ▒██▒
; ▒██    ▒██ ░██▄▄▄▄██ ▒██░    ▒██░    ░██░
; ▒██▒   ░██▒ ▓█   ▓██▒░██████▒░██████▒░██░
; ░ ▒░   ░  ░ ▒▒   ▓▒█░░ ▒░▓  ░░ ▒░▓  ░░▓

ikitommi

(require '[reitit.core :as r])
(require '[reitit.impl])
(require '[criterium.core :as cc])

(def router
  (-> [["/robots.txt" {:get ::get:.robots.txt}]
       ["/after/:post-id" {:get ::get:.after.:post-id}]
       ["/static/*path" {:get ::get:.static.*path}]
       ["/post/:post-id" {:get ::get:.post.:post-id}]
       ["/sitemap.xml" {:get ::get:.sitemap.xml}]

ikitommi

;;
;; spec2
;;

(require '[clojure.spec-alpha2 :as s])

(s/def ::order
  (s/schema {:purchaser string?
             :due-date inst?
             :line-items (s/coll-of (s/schema {:item-id pos-int?