dvingo

PostgreSQL is Enough

https://www.postgresql.org

https://sive.rs/pg

Background Jobs

• https://github.com/citusdata/pg_cron

dvingo

(ns space.matterandvoid.helix
  #?(:cljs (:require-macros space.matterandvoid.helix))
  #?(:clj
     (:require
       [helix.core :as h]
       [helix.impl.analyzer :as hana]
       [helix.impl.props :as impl.props]
       [clojure.string :as string]))
  #?(:cljs (:require [helix.core :as h])))

dvingo

(ns my-app.malli.transform.pathom
  (:refer-clojure :exclude [uuid])
  (:require
    [malli.core :as m]
    [taoensso.timbre :as log]))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; helpers
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

dvingo

(ns space.matterandvoid.pathom-sieppari
  (:require
    [sieppari.context]
    [sieppari.core :as s]
    [taoensso.timbre :as log]))

(defn terminate-if
  "Takes a function that will be passed the pathom enviroment, if that function returns a non-falsey value
  the sieppari chain is terminated and whatever is returned from `f` is the response of the chain.

dvingo

mkdir -p ~/.local/bin

chsh -s /bin/bash

add this to ~/.bash_profile

export BASH_SILENCE_DEPRECATION_WARNING=1

system prefs -> displays -> update resolution

dvingo

(defn ws-listener
  [_request _response ws-map]
  (proxy [WebSocketAdapter] []
    (onWebSocketConnect [^Session ws-session]
      (proxy-super onWebSocketConnect ws-session)
      (when-let [f (:on-connect ws-map)]
        (f ws-session)))
    (onWebSocketClose [status-code reason]
      (when-let [f (:on-close ws-map)]
        (f (.getSession this) status-code reason)))

dvingo

(ns datascript-crux.pull-api
  (:require
    [crux.api :as crux]
    [datascript.pull-parser :as dpp]
    [my-app.crux-node :refer [crux-node]])
  (:import [datascript.pull_parser PullSpec]))

;; lightly adapted from:
;; https://github.com/tonsky/datascript/blob/master/src/datascript/pull_api.cljc
;; https://github.com/tonsky/datascript/blob/master/src/datascript/pull_parser.cljc

dvingo

(ns crux-pull
  (:require
    [edn-query-language.core :as eql]
    [crux.api :as crux]
    [my-app.crux-node :refer [crux-node]]))

(defn entity
  ([entity-id] (entity crux-node entity-id))
  ([crux-node entity-id]
   (crux/entity (crux/db crux-node) entity-id)))

dvingo

# Put on the last line of .bashrc:
# [ -f ~/.bash_aliases ] && source ~/.bash_aliases

# In ~/.bash_profile:
# [[ -f ~/.bashrc ]] && . ~/.bashrc
#

os=$(uname -s)

is_linux() {

dvingo

;; inspired by: https://clojuredocs.org/clojure.zip/zipper#example-54d91161e4b081e022073c72

(defn map-zipper
  [m ref-keys]
  {:pre [(set? ref-keys)]}
  (z/zipper
    (fn is-branch? [x]
      (let [ret
            (cond
              (not (coll? x))