Skip to content

Instantly share code, notes, and snippets.

#!/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.
#!/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"}
(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 October 29, 2018 09:23
clojure-tools for Arch Linux
# Maintainer: Reid 'arrdem' McKenzie <[email protected]>
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")
(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>.*?)$")
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 January 20, 2017 02:40
My markdown support
;; 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 April 5, 2017 07:48
A bootleg puppet
# -*- 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
@arrdem
arrdem / -
Created December 20, 2016 01:44
#!/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"
}
War Room Army
Cygnar - Sloan and six hunters
Theme: No Theme Selected
73 / 75 Army
Captain Kara Sloan - WJ: +28
- Reinholdt, Gobber Speculator - PC: 4