Skip to content

Instantly share code, notes, and snippets.

Avatar

Daniel Compton danielcompton

View GitHub Profile
View SketchSystems.spec
Subscription
Trial
billing_success -> Active
billing_failed -> Past Due
cancel -> Cancelled
Active
billing_success -> Active
billing_failed -> Past Due
cancel -> Cancelled
Past Due
@danielcompton
danielcompton / Clojure 1.10.0-beta5 stack trace
Last active Nov 8, 2018
Stack traces in Clojure 1.9 and Clojure 1.10 when you have compile errors in your user namespace
View Clojure 1.10.0-beta5 stack trace
$ lein test
Exception in thread "main" java.lang.ExceptionInInitializerError
at clojure.main.<clinit>(main.java:20)
Tests failed.
@danielcompton
danielcompton / ext.clj
Last active Mar 12, 2018
Extended attributes in Clojure
View ext.clj
(defn supports-extended-attributes?
"Not all filesystems suport Java's UserDefinedFileAttributes (a.k.a. extended attributes),
notably HFS+ and APFS on macOS.
Waiting for https://bugs.openjdk.java.net/browse/JDK-8030048 to add macOS support."
[^Path path]
(.supportsFileAttributeView
(Files/getFileStore path)
^Class UserDefinedFileAttributeView))
@danielcompton
danielcompton / backblaze.crash
Created Jan 7, 2018
Backblaze crash when opening Exclusions panel
View backblaze.crash
Process: System Preferences [767]
Path: /Applications/System Preferences.app/Contents/MacOS/System Preferences
Identifier: com.apple.systempreferences
Version: 14.0 (14.0)
Build Info: SystemPrefsApp-360000000000000~1
Code Type: X86-64 (Native)
Parent Process: ??? [1]
Responsible: System Preferences [767]
User ID: 503
@danielcompton
danielcompton / networking.tf
Created Dec 12, 2017
GCP and DNSimple dual DNS records with Terraform
View networking.tf
module "deps_dns_app_v6" {
source = "../modules/dns_record"
name = "app"
type = "AAAA"
value = "${google_compute_global_address.deps-ipv6.address}"
}
module "deps_return_path" {
source = "../modules/dns_record"
name = "return-path"
@danielcompton
danielcompton / .block
Last active Nov 14, 2016
re-frame trace
View .block
license: mit
border: yes
scrolling: no
View keybase.md

Keybase proof

I hereby claim:

  • I am danielcompton on github.
  • I am danielcompton (https://keybase.io/danielcompton) on keybase.
  • I have a public key ASCV7Ro3qdiNLyJRnwPaDJtimVdy4UC-IcQHL1_7rxFpWgo

To claim this, I am signing this object:

View cloverage release notes.md

From: https://clojurians.slack.com/archives/announce-to-everyone/p1472044031000606

There’s a new release of Cloverage out at [lvh/cloverage "1.0.7"] (It’s under my org on clojars, because I’m the new release manager — see https://github.com/lshift/cloverage/issues/103 for details). New features:

  • Features
  • Add codecov.io support with the --codecov flag (*78)
  • Add lcov (e.g. coverlay) support with the --lcov flag (#114)
  • Improvements
  • Coverage fn (internal hot loop) optimization (#90)
  • Dependency upgrades, including running tests on OpenJDK 8 (#105)
View non_idiomatic.cljs
(defn checkbox [short-name takes-place? word k]
^{:key (str k "takes-place")}
[:div.col.s2
[:input.filled-in {:type "checkbox"
:id (str "weekdays-" short-name)
:checked takes-place?}]
[:label.black-text {:for (str "weekdays-" short-name)
:style {:height "auto"
:line-height "normal"}}
word (when-not takes-place? (str " nicht" (when (= k :sun) ".")))]])
View j.clj
(ns gol.core
(:refer-clojure :exclude [* - + == /])
(:require [clojure.core.matrix :refer :all]
[clojure.core.matrix.operators :refer :all]))
(def start [[0 0 0 0 0]
[0 0 0 0 0]
[0 0 1 0 0]
[0 0 0 0 0]
[0 0 0 0 0]]
You can’t perform that action at this time.