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 state)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 map as the starting state.
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 {:order/id 1000)) (seq-f :order/id) ;; => 1001
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 map as the starting state.
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 {:order/id 1000))
(seq-f :order/id) ;; => 1001`
cljdoc is a website building & hosting documentation for Clojure/Script libraries
× close