IGJoshua

Keybase proof

I hereby claim:

• I am IGJoshua on github.
• I am jsuskalo (https://keybase.io/jsuskalo) on keybase.
• I have a public key whose fingerprint is FF1D 4D9C 713C ED3B 29F9 9ADF 9B6B A586 EFF1 B9F0

To claim this, I am signing this object:

IGJoshua

(require '[clojure.spec.alpha :as s])

(defn- regex-cond-helper
  [expr-sym clauses default]
  (if-not (empty? clauses)
    (let [inner-clause (regex-cond-helper expr-sym (rest clauses) default)
          {:keys [regex bindings body] :as clause} (first clauses)
          regex (case (first regex)
                  :regex (second regex)
                  :else `(re-pattern ~(second regex)))

IGJoshua

(require '[clojure.spec.alpha :as s])

(s/def ::defreloadable-args
  (s/cat :name simple-symbol?
         :doc (s/? string?)
         :attr-map (s/? map?)
         :fn-tails (s/+ any?)))

(defmacro defreloadable
  "Defines a new function as [[defn]], but old references will refer to new versions when reloaded.

IGJoshua

(require '[clojure.core.matrix :as mat])

(defprotocol Support
  :extend-via-metadata true
  (support [this direction]
    "Calculates a support point for the object in the given direction.")
  (dimensions [this]
    "Returns the number of dimensions this support operates in."))

(defn minkowski-support

IGJoshua

Thinking About {kau}

This is a translation of the Lojban above. While some parts have been rephrased for ease of reading, the general style and structure intentionally mirrors that of the lojban text.

IGJoshua

The lojban I speak

coi ro do mi’e la saski’o tu’a dei cu ve ciksi tu’a lo me mi moi jbobau

Introduction

IGJoshua

(ns notes
  (:refer-clojure
   :exclude [read])
  (:require
   [clojure.spec.alpha :as s]
   [mfiano.parsley.data-types :refer [read]]
   [mfiano.parsley.io :refer [open-file]]
   [net.cgrand.xforms :as xf]))

(s/def :entry/endian #{:endian/little :endian/big})

IGJoshua

(s/def :entry/endian #{:endian/little :endian/big})

(s/def :entry/type keyword?)
(s/def :entry/id keyword?)

(s/def ::entry (s/keys :req [:entry/id :entry/type]
                       :opt [:entry/endian]))

(s/def :entry/size pos-int?)