Archenoth

#!/bin/sh

KEYMAP=$1

if [ -z "$KEYMAP" ]; then
  KEYMAP=default
fi

if [ -f "$HOME/.termux/keymaps/$KEYMAP.properties" ]; then
  echo "Setting keymap: $KEYMAP"

Archenoth

#include <stdio.h>
#include <errno.h>
#include <stdlib.h>
#include <unistd.h>

#include <asm-generic/unistd.h>

#include <sys/procfs.h>
#include <sys/ptrace.h>
#include <sys/types.h>

Archenoth

extra-keys = [ \
  ['Z', '7', 'UP', '9', '\\\''], \
  ['TAB', 'LEFT', '5', 'RIGHT', '*'], \
  ['=', '1', 'DOWN', '3', 'ENTER'] \
]

Archenoth

(fn assert-tail [tail-sym body]
  "Asserts that the passed in tail-sym function is a tail-call position of the
passed-in body.

Throws an error if it is in a position to be returned or if the function is
situated to be called from a position other than the tail of the passed-in
body."
  (fn last-arg? [form i]
    (= (- (length form) 1) i))

Archenoth

Advent of Code 2021

(require '[clojure.string :as str])

— Day 1: Sonar Sweep —

You’re minding your own business on a ship at sea when the overboard alarm goes off! You rush to see if you can help. Apparently, one of the Elves tripped and accidentally sent the sleigh keys flying into the ocean!

Archenoth

Advent Of Code 2022

(require '[clojure.string :as str]
         '[clojure.core.match :refer [match]]
         '[clojure.edn :as edn])

Day 1: Calorie Counting

Archenoth

#!/bin/bash
EL=`cat <<-EL
  (load-theme 'modus-vivendi)

  (setq initial-scratch-message nil)

  ;; Squelch the creation of .#<filename> files
  (setq create-lockfiles nil)

  ;; Emacs auto-backups feel nicer when they collect in my ~/.emacs.d/backups

Archenoth

Advent Of Code 2023

(require '[clojure.string :as str]
         '[clojure.core.match :refer [match]]
         '[clojure.edn :as edn])

Day 1: Trebuchet?!

Archenoth

Advent Of Code 2024

(require '[clojure.string :as str]
         '[clojure.core.match :refer [match]]
         '[clojure.math.combinatorics :as combo])

Day 1: Historian Hysteria