DaveWM

(->> (macroexpand '(let [~selection]))
      second
      (partition 2)
      (map (fn [[sym val]]
             (intern *ns* sym (eval val)))))

DaveWM

SalesForce Requests
  HTTP Call
    success -> Success
    400 response -> Exception
    404 response -> Exception
    401 response -> Refresh Token
    other failure -> Wait
  Refresh Token
    token received -> HTTP Call
  Wait

DaveWM

#!/usr/bin/env bb
;; ^^ this tells our shell to use Babashka to run this script

;; read the file path of our CSV and the key field from the command line args
(def csv-file-path (first *command-line-args*))
(def key-field (second *command-line-args*))

;; read the CSV line-by-line into a data structure
(def csv-data
  (with-open [reader (io/reader csv-file-path)]

DaveWM

(ns datomic-update-cardinality-many
  (:require [datomic.api :as d]))

(defn update-attr-txs [db entity-id attr values]
  (let [current-vals (-> (d/q '[:find [?p ...]
                                :where [?id :intention/parents ?p]
                                :in $ ?id]
                              db
                              entity-id)
                         (set))

DaveWM

Loan
  Non-existent
    origination -> Payable
  Payable
    Current
      payment time elapses -> Delinquent
      full term reached -> End of Term
    Delinquent
      insufficient payment -> Delinquent
      defaulted -> Default

DaveWM

import commonjs from 'rollup-plugin-commonjs';

export default {
    entry: 'test.js',
    format: 'iife',
    moduleName: 'main',
    plugins: [
        commonjs({
            include: 'x.js'
        })