aphyr

:- use_module(library(pairs)).
:- use_module(library(reif)).

not_in_list(K, L) :-
  if_((L = []),
    true,
    ([X | More] = L,
     dif(K, X),
     not_in_list(K, More))).

aphyr

Hi Kyle,
 
My name is Tammy and I am on the team at Riviera Partners. Your name surfaced
in several of my searches today and across various filters - from distributed
systems to Clojure and encompassing Ruby and JavaScript. Well-rounded
individual, are we? I also heard from a former colleague of mine that your
programming began at the tender age of 2.... impressive! I just signed up for
CodeAcademy - should be interesting!
 
I am not sure how things are going for you at Boundary (are you still there)?

aphyr

## Clean new node

[x] Shut down Mastodon
[x] Shut down ES
[x] Shut down Redis
[x] Delete ES data
[x] Delete Redis data
[x] Delete Postgres data

## Prep new node

aphyr

:- use_module(library(reif)).

axiom([quote, X], X).

axiom([atom, X], R) :-
  axiom(X, XR),
  ((atomic(XR),   R = t, !) ;
   (compound(XR), R = [])).

axiom([eq, X, Y], R) :-

aphyr

(defrecord Retry [bindings])

(defmacro with-retry
  "It's really fucking inconvenient not being able to recur from within (catch)
  expressions. This macro wraps its body in a (loop [bindings] (try ...)).
  Provides a (retry & new bindings) form which is usable within (catch) blocks:
  when this form is returned by the body, the body will be retried with the new
  bindings."
  [initial-bindings & body]
  (assert (vector? initial-bindings))

aphyr

#!/bin/bash

DIR=`mktemp -dt pdf-sign.XXXXXXXX` || exit 1
cd "$DIR"
pdfseparate "$1" "$DIR/page%d.pdf"
inkscape `ls | tail -1`
pdfunite page*.pdf "$1 signed.pdf"
rm -rf "$DIR"

aphyr

import java.io.File;
import java.io.IOException;
import java.util.Random;
import java.util.Scanner;

/**
 * Boggle.
 * 
 * @author Kyle Kingsbury
 * 

aphyr

user=> (-> '(dt/loopr [sum 0] [x xs, y ys] (recur (+ sum x y))) macroexpand pprint)
(let* [sum 0
       sum (clojure.core/reduce
             (clojure.core/fn reduce-x-2690 [sum x]
               (clojure.core/reduce (clojure.core/fn reduce-y-2692 [sum y]
                                      (. clojure.lang.Numbers (add (. clojure.lang.Numbers (add sum x)) y)))
                                    sum
                                    ys))
             sum
             xs)]

aphyr

. $GLOBALAUTOSTART

#xmodmap ~/.xmodmaprc
#imwheel -k -b "6 7" &

eval $(cat ~/.fehbg) &
gnome-settings-daemon &
/usr/lib/notification-daemon/notification-daemon &

# Mouse

aphyr

Aphyr
Oct 11, 9:12 PM

Hi there!

First time user here--I bought a 5TB plan for the year, checked my homedir in
"Backup", and hit save. It did a bunch of disk IO for a few minutes, then just
sat at 100% CPU for the last 8 hours. The "Scan Now" spinner is rotating and it
says "Scanning folders for new backup items". The Activity tab is empty and the
Actions log says "Application: save backup selection" is finalizing. I killed