minimal

(ns user
  (:require [babashka.fs :as fs]
            [clojure.java.shell :refer [sh]]
            [clojure.string :as str]
            [clojure.tools.cli :refer [parse-opts]]))

(def allowed-files
  #{"envrc" "shell.nix" "justfile" "Makefile"})

(def mappings

minimal

(require 'package)
(add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/"))
(add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/"))
(package-initialize)

;; minimally, install use-package
(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package))

minimal

#!/usr/bin/env bash
# check formatting of clj files changed from master
lein cljfmt check $(git diff --name-only origin/master |
                        grep "\\.clj[sc]\\?$" |
						paste -s -d" ")

minimal

(s/fdef defspec-test
  :args (s/cat :name simple-symbol?
               :sym-or-syms any?
               :rest (s/? (s/cat
                           :num-tests (s/or :int (s/nilable int?) :form list?)
                           :last (s/? (s/cat :opts (s/nilable map?)))))))

(defmacro defspec-test
  ([name sym-or-syms] `(defspec-test ~name ~sym-or-syms nil nil))
  ([name sym-or-syms num-tests] `(defspec-test ~name ~sym-or-syms ~num-tests nil))

minimal

(import
 '[java.time ZonedDateTime]
 '[java.time.format DateTimeFormatter])

;; add a RELEASE closure define with the current iso date, RAVEN_DSN from env var
(deftask production []
  (task-options! cljs {:optimizations :advanced
                       :compiler-options {:closure-defines {"goog.DEBUG" false
                                                            "myapp.core.RAVEN_DSN" (System/getenv "RAVEN_DSN")
                                                            "myapp.core.RELEASE" (.. (ZonedDateTime/now)

minimal

(import
 '[java.time ZonedDateTime]
 '[java.time.format DateTimeFormatter])
 
 (.. (ZonedDateTime/now) (format DateTimeFormatter/ISO_INSTANT))

minimal

(defmacro with-err-str
  [& body]
  `(let [s# (new java.io.StringWriter)]
     (binding [*err* s#]
       ~@body
       (str s#))))

(defn get-stack-trace-str
  [e]
  (with-err-str (clojure.repl/pst e)))

minimal

Keybase proof

I hereby claim:

• I am minimal on github.
• I am chrismcdevitt (https://keybase.io/chrismcdevitt) on keybase.
• I have a public key ASAn-hMAOgM71LkgIgKbcYsMCICzciHIvMdNcGm9olzSfAo

To claim this, I am signing this object:

minimal

(ns player-ladder.test-util
  (:require [clojure.data :as data]
            [clojure.pprint :as pp]
            [clojure.string :as str]
            [clojure.test :refer :all]))


(defn diff->string [diffs]
  (str/join
   (for [[actual [a b]] diffs

minimal

diff --git a/src/composite.c b/src/composite.c
index 0f729bc..80e15f1 100644
--- a/src/composite.c
+++ b/src/composite.c
@@ -1727,20 +1727,45 @@ should be ignored.  */)
 
   if (NILP (string))
     {
-      if (NILP (BVAR (current_buffer, enable_multibyte_characters)))
-	error ("Attempt to shape unibyte text");