ah45

(ns juxt-validate
  (:require [clojure.string :as string]))

(defn validate-format
  [v]
  (if (every? #(contains? v %) #{:name :email :id})
    [:ok v]
    [:error {:invalid-format "expected id, name, and email"}]))

(defn validate-email

ah45

(ns deferred-fn-output-schema-validation
  (:require
   [manifold.deferred :as d]
   [schema.core :as s]
   [schema.spec.core :as s.spec]
   [schema.spec.leaf :as s.leaf]
   [schema.macros :as s.macros]
   [schema.utils :as s.utils]))

(defrecord Deferred [schema]

ah45

;; in ~/.lein/profiles.clj
{;; a distinct cider-nrepl profile
 :cider-nrepl {:plugins [[cider/cider-nrepl "0.22.0-beta1"]
                         [refactor-nrepl "2.4.0"]]}
 ;; with an alias to always use it when running `lein repl`
 :user {:aliases {"repl" ["with-profile" "+cider-nrepl" "repl"]}}

ah45

{:test-refresh {:plugins [[com.jakemccrary/lein-test-refresh "0.23.0"]]
                :test-refresh {:notify-command ["terminal-notifier" "-title" "Tests" "-message"]
                               :quiet true
                               :changes-only true}}
 :dev {:dependencies [[criterium "0.4.4"]]}
 :cider-nrepl {:plugins [[cider/cider-nrepl "0.21.1"]
                         [refactor-nrepl "2.4.0"]]}
 :eftest {:plugins [[lein-eftest "0.5.7"]]
          :eftest {:multithread? :vars
                   :thread-count 4}}

ah45

Keybase proof

I hereby claim:

• I am ah45 on github.
• I am ah45 (https://keybase.io/ah45) on keybase.
• I have a public key whose fingerprint is B072 177B 3D8C 46B3 7E95 2785 38BB DA97 7152 B5F2

To claim this, I am signing this object:

ah45

F# SPA Live Development

Pieces of the puzzle:

• F#
• Fable
• Webpack
• Suave / Freya / the .NET web framework of your choice

ah45

Following on from a meeting with Simon, Ed, and Bryan. It seems like we’re trying to answer two questions:

• Where are we overloaded?
• What aren't we using? (That we should look to find or fit work to.)

Different contexts:

• Managing current load
• Always starts with released shop orders.

ah45

(ns railway-oriented-programming
  "An adaptation of [Railway Oriented Programming](rop) using the
  [Cats](cats) library in Clojure.

  [rop]: http://fsharpforfunandprofit.com/posts/recipe-part2/
  [cats]: https://github.com/funcool/cats"
  (:require [cats.builtin]
            [cats.core :as cats]
            [cats.monad.either :as either]))

ah45

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Integer
  Dim p As Integer
  
  For i = 1 To Worksheets.Count
    If (Worksheets(i).Name <> "Data") Then
      For p = 1 To Worksheets(i).PivotTables.Count
        Worksheets(i).PivotTables(p).PivotCache.Refresh
      Next p
    End If

ah45

(ns thoth.transit-xhr
  (:require [cljs-time.format :as tf]
            [cognitect.transit :as tr]
            [com.cognitect.transit.types :as trt]
            [goog.events :as events])
  (:import [goog.net XhrIo]))

(def http-methods
  "The HTTP request codes we support Transit payloads in."
  {:get "GET"