PEZ

(ns fuzzy
  (:require ["vscode" :as vscode]
            [clojure.string :as string]
            [joyride.core :as joyride]
            [promesa.core :as p]))

(defn- get-configured-exclude-patterns! []
  (->> ["search.exclude" "files.exclude"]
       (mapcat (fn [config-key]
                 (-> (.get (vscode/workspace.getConfiguration) config-key)

PEZ

;; Joyride thousands highlighter
;; The end goal here is to help humans read long numbers by highlighting groups of thousands
;; First we need to find the groups of thousands. We only want to highlight _odd_ groups
;; of thousands, starting with the least significant group to the most significant group.
;; We also consider the most significant group of thousands when it is not three digits long.

; Here is some test data, line numbers are on the left
; The xxx are the groups of thousands we want to highlight on the numbers on the line above them.
;08  1111111222111333444 :foo 555666 :bar 123 :baz 1234
;09  x   xxx   xxx   xxx         xxx                xxx

PEZ

(ns learndatalogtoday.repl-fiddle
  (:require [learndatalogtoday.handler :as handler]
            [datomic.client.api :as d]))

(defn exercise-chapter [n]
  (reduce (fn [acc {:keys [question inputs :as exercise]}]
            (conj acc [(count acc)
                       question ((fn [[query & args]]
                                   (list 'comment
                                         (apply list

PEZ

(ns my-dumdom.macros
  (:require [dumdom.core :as dumdom]))

(defn- extract-docstr
  [[docstr? & forms]]
  (if (string? docstr?)
    [docstr? forms]
    ["" (cons docstr? forms)]))

(defn- extract-opts

PEZ

{:linters {:dumdom/component-options {:level :warning}}
 :hooks {:analyze-call {dumdom.core/defcomponent hooks.dumdom/defcomponent}}}

PEZ

# The longest config I have ever written to get something minimal.
# I only want:
#   1. an unabberiviated path
#   2. the git branch, status, commit, state
#   3. The newline.
# Rationale for this approach:
#   I like a lot of the default format, so don't want to override it by default.

[directory]
disabled=false

PEZ

"env/dev/clj:env/dev/cljs:env/dev/resources:test/clj:test/cljs:env/test/resources:src/clj:src/cljs:src/cljc:resources:/Users/pez/.m2/repository/binaryage/devtools/1.0.6/devtools-1.0.6.jar:/Users/pez/.m2/repository/breaking-point/breaking-point/0.1.2/breaking-point-0.1.2.jar:/Users/pez/.m2/repository/buddy/buddy-hashers/1.8.158/buddy-hashers-1.8.158.jar:/Users/pez/.m2/repository/camel-snake-kebab/camel-snake-kebab/0.4.3/camel-snake-kebab-0.4.3.jar:/Users/pez/.m2/repository/cider/cider-nrepl/0.28.5/cider-nrepl-0.28.5.jar:/Users/pez/.m2/repository/clj-http/clj-http/3.12.3/clj-http-3.12.3.jar:/Users/pez/.m2/repository/clj-statecharts/clj-statecharts/0.1.5/clj-statecharts-0.1.5.jar:/Users/pez/.m2/repository/clj-time/clj-time/0.15.2/clj-time-0.15.2.jar:/Users/pez/.m2/repository/clout/clout/2.2.1/clout-2.2.1.jar:/Users/pez/.m2/repository/com/github/seancorfield/honeysql/2.2.891/honeysql-2.2.891.jar:/Users/pez/.m2/repository/com/taoensso/nippy/3.1.3/nippy-3.1.3.jar:/Users/pez/.m2/repository/com/taoensso/tempura/1.3.0

PEZ

flf2a$ 6 4 6 -1 4
3x5 font by Richard Kirk ([email protected]).
Ported to figlet, and slightly changed (without permission :-})
by Daniel Cabeza Gras ([email protected])

    @
    @
    @
    @
    @

PEZ

# Previous branch is `baz`
~/Foo(bar|✔) % rebobl -
logging to: /var/folders/t5/gqxhj8pd6p9_tnvy6sbtmy480000gn/T/rebob.YJJZirAY
rebob: No branch given, checking REBOBS in /Users/pez/.my-configs/rebob_config.zshrc
rebob: rebob /Users/pez/Foo:bar on -
rebob: pulling?: false
rebob: Created: .rebobing
Saved working directory and index state WIP on bar: 17fa37c Add baz
rebob: Stashed -u (.rebobing stashed)
Current branch bar is up to date.

PEZ

    "paste-replaced.replacers": [
        [ // hostname/path -> Markdown url
            [".*", "[$&](https://$&)"],
        ],
        [ // Clojure namespace -> file path segment
            ["\\.", "/", "g"],
            ["-", "_", "g"],
        ],
        [ // Love bomb, anything -> 💪♥️♥️♥️♥️♥️♥️💪
            [".", "♥️", "g"],