fooheads.rax.sequence
Functions to handle unique "database" sequences (not Clojure seqs), auto increments and similar.
Functions to handle unique "database" sequences (not Clojure seqs), auto increments and similar.
sequence-genclj/s
(sequence-gen)(sequence-gen opts)Returns a stateful function that returns auto incremented sequence ids. Each returned function carries it's own state.
The function is called with a simple value or a vector path as the sequence 'name', and returns the next integer for that sequence. A sequence can also have a scope (see example).
Sequences starts at 1 by default, but can take a opts with start state :state and generator function :next-f
Simple example
(def seq-f (sequence-gen)) (seq-f :order/id) ;; => 1 (seq-f :order/id) ;; => 2 (seq-f :order-line/id) ;; => 1
Example with scope:
(def seq-f (sequence-gen)) (seq-f :order-line/seq-num "John Doe"]) ;; => 1 (seq-f :order-line/seq-num "John Doe"]) ;; => 2
(seq-f :order-line/seq-num [:order/id 50]) ;; => 1
(seq-f :order-line/seq-num [:order/id 50]) ;; => 2
(seq-f :order-line/seq-num [:order/id 51]) ;; => 1
Example with start state:
(def seq-f (sequence-gen {:state {:order/id 1000}})) (seq-f :order/id) ;; => 1001
Example with custom generator:
(def seq-f (sequence-gen {:next-f (fn [x] (if x (dec x) -1))})) (seq-f :order/id) ;; => -1
Returns a stateful function that returns auto incremented sequence ids.
Each returned function carries it's own state.
The function is called with a simple value or a vector path as
the sequence 'name', and returns the next integer for that
sequence. A sequence can also have a scope (see example).
Sequences starts at 1 by default, but can take a opts with start state
:state and generator function :next-f
Simple example
`(def seq-f (sequence-gen))
(seq-f :order/id) ;; => 1
(seq-f :order/id) ;; => 2
(seq-f :order-line/id) ;; => 1`
Example with scope:
`(def seq-f (sequence-gen))
(seq-f :order-line/seq-num "John Doe"]) ;; => 1
(seq-f :order-line/seq-num "John Doe"]) ;; => 2`
(seq-f :order-line/seq-num [:order/id 50]) ;; => 1
(seq-f :order-line/seq-num [:order/id 50]) ;; => 2
(seq-f :order-line/seq-num [:order/id 51]) ;; => 1
Example with start state:
`(def seq-f (sequence-gen {:state {:order/id 1000}}))
(seq-f :order/id) ;; => 1001`
Example with custom generator:
`(def seq-f (sequence-gen {:next-f (fn [x] (if x (dec x) -1))}))
(seq-f :order/id) ;; => -1`
cljdoc is a website building & hosting documentation for Clojure/Script libraries
× close