kordano

keycode   8 =
keycode   9 = Escape NoSymbol Escape
keycode  10 = 1 exclam 1 exclam onesuperior exclamdown onesuperior
keycode  11 = 2 quotedbl 2 quotedbl twosuperior oneeighth twosuperior
keycode  12 = 3 section 3 section threesuperior sterling threesuperior
keycode  13 = 4 dollar 4 dollar onequarter currency onequarter
keycode  14 = 5 percent 5 percent onehalf threeeighths onehalf
keycode  15 = 6 ampersand 6 ampersand notsign fiveeighths notsign
keycode  16 = 7 slash 7 slash braceleft seveneighths braceleft
keycode  17 = 8 parenleft 8 parenleft bracketleft trademark bracketleft

kordano

{:norm    :a1-example
 :tx-data [{:db/doc         "example"
            :db/ident       :example
            :db/valueType   :db.type/string
            :db/cardinality :db.cardinality/one}]
 :tx-fn   io.replikativ.garantie/neutral-fn}

kordano

(require '[datahike.api :as d])

(def schema [{:db/ident       :name
              :db/cardinality :db.cardinality/one
              :db/index       true
              :db/unique      :db.unique/identity
              :db/valueType   :db.type/string}
             {:db/ident       :parents
              :db/cardinality :db.cardinality/many
              :db/valueType   :db.type/ref}

kordano

(require '[datahike.api :as d])
(import '[java.util Random]))

(taoensso.timbre/set-level! :warn)

;; Thanks to https://stackoverflow.com/a/64034927/10978897
(defn rand-str
  ^String [^Long len]
  (let [leftLimit 97
        rightLimit 122

kordano

(require '[datahike.api :as d])

(def schema [{:db/ident       :name
              :db/cardinality :db.cardinality/one
              :db/index       true
              :db/unique      :db.unique/identity
              :db/valueType   :db.type/string}
             {:db/ident       :parents
              :db/cardinality :db.cardinality/many
              :db/valueType   :db.type/ref}

kordano

(require '[datahike.api :as d])

(def schema [{:db/ident       :name
              :db/cardinality :db.cardinality/one
              :db/index       true
              :db/unique      :db.unique/identity
              :db/valueType   :db.type/string}
             {:db/ident       :parents
              :db/cardinality :db.cardinality/many
              :db/valueType   :db.type/ref}

kordano

;; -*- mode: emacs-lisp; lexical-binding: t -*-
;; This file is loaded by Spacemacs at startup.
;; It must be stored in your home directory.

(defun dotspacemacs/layers ()
  "Layer configuration:
This function should only modify configuration layer settings."
  (setq-default
   ;; Base distribution to use. This is a layer contained in the directory
   ;; `+distribution'. For now available distributions are `spacemacs-base'

kordano

(require '[datahike.api :as d])

(def cfg {:store {:backend :file
                :path "/tmp/history-bug"}
        :schema-flexibility :read})

(d/delete-database cfg)

(d/create-database cfg)

kordano

(require '[datahike.api :as d])

(def schema [{:db/ident       :name
              :db/cardinality :db.cardinality/one
              :db/index       true
              :db/unique      :db.unique/identity
              :db/valueType   :db.type/string}
             {:db/ident       :sibling
              :db/cardinality :db.cardinality/many
              :db/valueType   :db.type/ref}

kordano

(require '[datahike.api :as d])

(defn random-uuid []
  (java.util.UUID/randomUUID))

(def ascii-ish
  (map char (concat (range 48 58) (range 65 91) (range 97 123))))

(defn random-char []
  (rand-nth ascii-ish))