madstap

(defn merge-consecutive-by-with-xf ; this name is less than ideal...
  "Returns a transducer that reduces merge-fn over consecutive values for which
  (consecutive-by value) is the same."
  [consecutive-by merge-fn]
  (fn [rf]
    (let [prev (atom ::none)]
      (fn
        ([] (rf))
        ([res]
         (let [p @prev]

madstap

(defn merge-consecutive-by-with-xf ; this name is less than ideal...
  "Returns a transducer that reduces merge-fn over consecutive values for which
  (consecutive-by value) is the same."
  [consecutive-by merge-fn]
  (fn [rf]
    (let [prev (atom ::none)]
      (fn
        ([] (rf))
        ([res]
         (let [p @prev]

madstap

#/bin/sh

# https://askubuntu.com/questions/799414/how-to-move-files-from-ubuntu-to-iphone


idevicepair pair

# Will exit with an error if there's a password on the device
# so unlock the device,
# then it will error again, but open a dialogue on the device.

madstap

Magit squashing http://www.howardism.org/Technical/Emacs/magit-squashing.html

Splitting commits https://stackoverflow.com/questions/1440050/how-to-split-last-commit-into-two-in-git/1440200 https://embeddedartistry.com/blog/2018/2/19/code-cleanup-splitting-up-git-commits-in-the-middle-of-a-branch https://stackoverflow.com/questions/6217156/break-a-previous-commit-into-multiple-commits https://git-scm.com/book/en/v2/Git-Tools-Rewriting-History

Make git forget about a file that was tracked, but is now in gitignore

madstap

;; In core.cljs
(ns foo.core
  (:require
    [pushy.core :as pushy]
    [re-frame.core :as rf]]))

(defn routing! []
  (pushy/start! (pushy/pushy #(rf/dispatch [:routes/set-page %]) routes/match)))

(defn ^:export init []

madstap

(ns golf.code-golfer)

(def ^:private safe-neighbors
  "The characters that indicate neighboring spaces are safe to remove."
  (set "(){}[]\""))

(defn- whitespace? [x]
  {:pre [(char? x)]}
  (Character/isWhitespace x))

madstap

;; I can use & as a name with def
(def & identity)

& ;=> #object[Function "function (a){return a}"]

;; But if I do
(& 42)

;; It throws the exception.

madstap

(ns foo.core
  (:require
    [net.cgrand.enlive-html :as e]))

(def x "<p>asd</p><a href=\"google.com\">google</a>")

;; Parse
(def y (e/html-snippet x))

y ;=> ({:tag :p, :attrs nil, :content ("asd")} {:tag :a, :attrs {:href "google.com"}, :content ("google")})

madstap

(ns conform-let
  (:require
    [clojure.spec :as s]
    [clojure.core.specs :as core-specs]))

(s/def ::conform-bindings
  (s/and vector?
         (s/spec (s/* (s/cat :binding ::core-specs/binding-form
                             :spec some?

madstap

;; Eval this in *scratch* (or emacs setup)
(setq cider-cljs-lein-repl
      "(do (require 'figwheel-sidecar.repl-api)
           (figwheel-sidecar.repl-api/start-figwheel!)
           (figwheel-sidecar.repl-api/cljs-repl))")

;; Then m-x cider-jack-in-clojurescript