QuantumGhost

@startuml
' uncomment the line below if you're using computer with a retina display
' skinparam dpi 300
!define Table(name,desc) class name as "desc" << (T,#FFAAAA) >>
' we use bold for primary key
' green color for unique
' and underscore for not_null
!define primary_key(x) <b>x</b>
!define unique(x) <color:green>x</color>
!define not_null(x) <u>x</u>

gfredericks

(ns user.defn+spec
  (:require [clojure.spec :as s]))

(defn non-&-sym? [x] (and (symbol? x) (not= '& x)))

(s/def ::arglist
  (s/cat :normal-args (s/* (s/cat :name non-&-sym?
                                  :spec-form (s/? (s/cat :- #{:-}
                                                         :spec ::s/any))))
         :varargs (s/? (s/cat :& #{'&}

miikka

(ns example
  (:require [clojure.spec :as spec]
            [ring.swagger.swagger2 :as rs]
            [schema.core :as s]))

(spec/def ::id string?)
(spec/def ::name string?)

(spec/def ::street string?)
(spec/def ::city #{"tre" "hki"})

ghadishayban

;;
;; Example usages at the bottom of the file
;;

(defn productions
  "Returns a sequence of values by repeatedly calling `produce!` until it
   returns `fin`. The sequence can be used lazily/caching or reducible/non-caching.

   The arity-2 variant's `produce!` takes no arguments and returns a value
     or the terminator.

ikitommi

Specs & Schema for Clojure web apps

Common ground for different modelling libs (Spec, Schema, ...) for web usage.

Additional metadata on models

• for Schema, there are multiple ways to add extra metadata (at least in ring-swagger, schema-tools and in compojure-api)
• emerging tools for spec
• could have a common model
  • less syntax to learn

ghadishayban

;; differences from scheme unfold
;; even initial value is lazy
;; predicate sense reversed
;; internal state == produced value, no special mapper-fn
;; no tail-gen
(defn series
  "Produces a sequence of values.

   `f` is a function that given a value, returns the next value.
   `continue?` is a predicate that determines whether to produce

frenchy64

update_spec_alpha () {
  git grep -l clojure.spec | xargs sed -i '' 's/clojure.spec /clojure.spec.alpha /g'
  git grep -l clojure.spec | xargs sed -i '' 's/clojure.spec.test /clojure.spec.test.alpha /g'
  git grep -l clojure.spec | xargs sed -i '' 's/clojure.spec.gen /clojure.spec.gen.alpha /g'
}

mpneuried

UPDATE public.mytable SET
jsonfieldname = jsonb_set( jsonfieldname, '{json_obj_key}', array_to_json(
	ARRAY(
		SELECT DISTINCT( UNNEST( ARRAY(
			SELECT json_array_elements_text( COALESCE( jsonfieldname::json->'json_obj_key', '[]' ) )
		) || ARRAY['Element to add'] ) )
	)
)::jsonb )
WHERE id = 23
RETURNING *;

reborg

Conference Radar

My list of interesting conf, mainly Europe/Lispy (but not only).

• https://inclojure.org (Jan, Bengalaru, India)
• https://fby.by (Jan, Minsk, Belarus)
• http://www.lambdadays.org/ (Feb, Krakow, Poland)
• https://10times.com/clojured ClojureD (Feb, Berlin)
• https://racketfest.com (Mar, Berlin)
• https://clojuredays.org Dutch Clojure Days (Apr)

hiredman

(ns deployer
  (:require [clojure.tools.deps.alpha :as deps]
            [clojure.tools.deps.alpha.reader :as reader]
            [clojure.java.io :as io]
            [clojure.string :as string])
  (:import (java.security MessageDigest)
           (com.jcraft.jsch JSch)
           (java.net URI)))

(def hex-alphabet (vec "0123456789ABCDEF"))