stevebuik

(ns cli-gist
  (:require [babashka.cli :as cli]
            [clojure.set :as set]
            [clojure.string :as str]))


(def upload-spec {:bucket-region {:ref      "<aws-region>"
                                  :desc     "The AWS region where the S3 bucket was created"
                                  :optional true
                                  :alias    :r}

stevebuik

(ns recursive-multi-malli
  (:require [malli.core :as m]
            [malli.util :as mu]
            [malli.error :as me]
            [criterium.core :as criterium]))

(def simple-tree-node
  [:schema {:registry {::type     [:enum :blue :green]
                       ::children [:vector [:ref ::node]]
                       ::node     [:multi {:dispatch :type}

stevebuik

(ns recursive-malli-perf
  (:require [malli.core :as m]
            [criterium.core :as criterium]))

(def simple-node
  [:map
   [:name string?]])

(def simple-tree-node
  [:and simple-node

stevebuik

(ns tools.graphql-fiddle
  (:require [clojure.pprint :refer [pprint]]
            [com.walmartlabs.lacinia.schema :as schema]
            [com.walmartlabs.lacinia.util :refer [attach-resolvers]]
            [com.walmartlabs.lacinia :as lacinia]))

(def definition
  {:objects   {:person     {:fields {:name      '{:type String}
                                     :nicknames '{:type (list String)}}}
               :saveResult {:fields {:status '{:type String}}}}

stevebuik

Keybase proof

I hereby claim:

• I am stevebuik on github.
• I am beechhouses (https://keybase.io/beechhouses) on keybase.
• I have a public key ASD09p9I5oo2CA7Yos0DGyreoRyJrpE53h-09XoS39YebQo

To claim this, I am signing this object:

stevebuik

(defn release
  "Do push and deploy of app.  Supports stable and unstable releases.  Returns when deploy finishes running."
  [args]
  (try
    (println "Pushing..")
    (let [push-data (ion-dev/push args)
          deploy-args (merge (select-keys args [:creds-profile :region :uname])
                             (select-keys push-data [:rev])
                             {:group group})]
      (println "Deploying..")

stevebuik

(ns components.datomic.core-test
  (:require
    [clojure.pprint :refer [pprint]]
    [clojure.test :refer :all]
    [datomic.client.api :as d]
    [datomic.client.api.impl :as di]
    [datomic.api :as db-free])
  (:import (java.util UUID)))

(declare test-conn)

stevebuik

(require '[clojure.pprint :refer [pprint]])
(require '[datomic.api :as d])
(require '[clojure.spec :as s])
(require '[clojure.spec.test :as st])

(s/def ::optional-attributes (s/* (s/alt :db/fulltext (s/and (partial = :fulltext)
                                                             ; conformer should be last so that it returns the transformed value
                                                             (s/conformer (constantly true)))
                                         :db/index (s/and (partial = :index)
                                                          (s/conformer (constantly true)))

stevebuik

(require '[om.next :as om])
(require '[clojure.pprint :refer [pprint]])

(def initial-state
  {:root {:id       1
          :name     "root"
          :type     :branch
          :children [{:id   2
                      :type :leaf
                      :name "first child"}

stevebuik

[:dali/page

   [:dali/stack
    {:direction :down, :anchor :center, :gap 25, :position [100 100]}

    [:dali/stack
     {:direction :right, :anchor :left, :gap 25}
     [:g
      {}
      [:dali/align