greywolve

package main

import (
	//"github.com/google/uuid"
	"github.com/prometheus/client_golang/prometheus"
	"github.com/prometheus/client_golang/prometheus/promhttp"
	"math/rand"
	"net/http"
	"time"
)

greywolve

#hello

greywolve

(require '[clojure.set :as set])
(require '[clojure.string :as string])

(def wildcard :*)

(defn permission-string->permission [perm-str]
  (->> (string/split perm-str #":")
       (mapv (fn [s]
               (->> (string/split s #",")
                    (map keyword)

greywolve

(defn get-schema [db]
  (letfn [(attr->schema-tx [db attr]
            (let [e (d/entity db attr)
                  em (->> e
                          (map identity)
                          (into {}))]
              (cond
                ;; attribute
                (:db/valueType e)
                (merge em {:db/id (d/tempid :db.part/db)