Skip to content

Instantly share code, notes, and snippets.

Reid D McKenzie arrdem

Block or report user

Report or block arrdem

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@arrdem
arrdem / Nat.java
Created Sep 14, 2019
A thunk based implementation of natural numbers in Java
View Nat.java
package me.arrdem.ox;
import io.lacuna.bifurcan.IList;
import io.lacuna.bifurcan.Lists;
import kotlin.jvm.functions.Function0;
import org.jetbrains.annotations.NotNull;
import java.math.BigInteger;
public final class Nat implements Comparable<Nat> {
View monitor.py
#!/usr/bin/env python3
"""Evil monitoring.
Ping hosts, syslogging at INFO if they're up and happy, otherwise using Telnet scripting to force
reset them and syslogging at CRIT with what the uptime was prior to forced reboot.
Hosts are debounced, so that they have a chance to return before monitoring resumes.
No effort is made to detect network conditions or poweroffs.
View hostname.py
#!/usr/bin/env -S pex proquint --
"""Compute random proquints as hostnames, throw 'em in zones."""
import sys
from random import randint
from proquint import uint2quint_str
# eight bits of provider addressing
ZONES = {"sfo2", "wbu1"}
View valid.clj
(ns spec.extras.valid
(:require [clojure.spec.alpha :as s]))
(defn valid!
"`#'s/valid?` but throws an `ex-info` with `#'s/explain-data` of the
failure when `val` doesn't conform to `spec`.
Intended for always-on postconditions because `#'s/assert` is off by
default."
[spec val]
(if (s/valid? spec val)
@arrdem
arrdem / PKGBUILD
Created Oct 29, 2018
clojure-tools for Arch Linux
View PKGBUILD
# Maintainer: Reid 'arrdem' McKenzie <me@arrdem.com>
pkgname=clojure-tools
pkgver=1.9.0.397
pkgrel=2
pkgdesc="clojure-tools (clj, clojure)"
arch=('i686' 'x86_64')
url="https://clojure.org/guides/getting_started"
license=('EPL')
depends=('java-runtime-headless>=8')
source=("$pkgname-$pkgver.tar.gz")
View spellcheck.clj
(ns doc-test
(:require [clojure.test :as t]
[clojure.java.shell :refer [sh]]
[clojure.string :as str]
[clojure.java.io :as io])
(:import [java.io StringReader]))
(def aspell-pattern
#"& (?<word>\w+) (?<offset>\d+) (?<count>\d+): (?<alternatives>.*?)$")
View main.rs
struct MyVec<T>(T);
impl fmt::Display for MyVec<&Vec<i32>> {
fn fmt(&self, f: &mut fmt::Formatter) -> fmt::Result {
write!(f, "[");
for (i, el) in *(self.0).iter().enumerate() {
if i != 0 {
write!(f, ", ");
}
@arrdem
arrdem / 20-markdown.el
Created Jan 20, 2017
My markdown support
View 20-markdown.el
;; 20-markdown.el
(require 'markdown-mode)
;; One space per line implementation
(defun arrdem:markdown-nobreak-p ()
"Return nil if it is acceptable to break the current line at the point.
Supports Markdown links, liquid tags."
;; inside in square brackets (e.g., link anchor text)
@arrdem
arrdem / install.sh
Last active Apr 5, 2017
A bootleg puppet
View install.sh
# -*- mode: bash; indent-tabs-mode: nil; sh-basic-offset: 2; fill-column: 100; -*-
# About
# ==============================
# A bootleg dotfiles installer.
#
# Usage
# ==============================
#
# $FORCE - if non-empty then install.sh will happily clobber existing files/dirs
View -
#!/bin/bash
function install_package() {
if [ -e "$1/build.sh" ]; then
( cd "$1";
bash "build.sh")
fi
stow --ignore="build.sh" --ignore="README.md" -t ~ "$f"
}
You can’t perform that action at this time.