d1b9a524e5fe default tip

More
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Wed, 22 Oct 2025 15:48:44 -0400
parents 890e2d48b6f7
children (none)
branches/tags default tip
files bin/addcontact bin/b bin/backpackfor bin/base36-to-uuid bin/broken-screenshot bin/c bin/collapse bin/cqn bin/cvs bin/delete-broken-screenshot bin/doc bin/echon bin/enq bin/gcontrol bin/hank bin/hi bin/kpa bin/lein bin/lml bin/lqn bin/nicedate bin/nnl bin/parse-contacts bin/posix bin/pspg bin/search-contacts bin/subtree-cpu-usage bin/tqn bin/trst bin/tvs bin/u

Changes

--- a/bin/addcontact	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,12 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-# USAGE: addcontact 'Kevin Wu <kevinwuhoo@gmail.com>'
-
-RAW="$1"
-
-EMAIL="$(echo "$1" | grep -Po '<.+>' | tr -d '<>')"
-NAME="$(echo "$1" | sed -e 's/ [^ ]*$//')"
-
-printf "$EMAIL"'\t'"$NAME"'\t\n' >> ~/.contacts
--- a/bin/b	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,5 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-python ~/src/t/t.py --task-dir ./ --list TODO "$@"
--- a/bin/backpackfor	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,6 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-cp ~/Dropbox/tasks/backpack-archive ~/Dropbox/tasks/backpack.txt
-nvim ~/Dropbox/tasks/backpack.txt
--- a/bin/base36-to-uuid	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,11 +0,0 @@
-#!/usr/bin/env python
-
-import sys, uuid
-
-s = ''
-if len(sys.argv) != 2 or sys.argv[1] == '-':
-    s = sys.stdin.read().strip()
-else:
-    s = sys.argv[1]
-
-print uuid.UUID(hex(int(s, 36))[2:-1].zfill(32))
--- a/bin/broken-screenshot	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,6 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-ls -1 ~/screenshots/*.png | sort -nr | head -1 | xargs cp -t ~/Dropbox/fucked-screenshots/
-echom "shit's fucked again"
--- a/bin/c	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,5 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-cacl --no-inform --batch "$@"
--- a/bin/collapse	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,5 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-sed -e 's/  */ /g'
--- a/bin/cqn	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,5 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-/home/sjl/bin/lqn.core --script ~/src/lqn/bin/cqn-sh.lisp "$@"
--- a/bin/cvs	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,5 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-csvconcat "$@" | cv
--- a/bin/delete-broken-screenshot	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,8 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-SS=`ls -1 ~/Dropbox/fucked-screenshots/*.png | sort -nr | head -1`
-test "$SS" != ""
-rm "$SS"
-echom "deleted $SS"
--- a/bin/doc	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,14 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-LANG=$1
-shift
-
-if test "$LANG" = "go"; then
-    LANG=golang
-fi
-
-QUERY=$(echo -n "$@" | urlencode)
-
-w3m "https://duckduckgo.com/?q=$LANG+$QUERY"
--- a/bin/echon	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,3 +0,0 @@
-#!/usr/bin/env bash
-
-echo -n "$@"
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/enq	Wed Oct 22 15:48:44 2025 -0400
@@ -0,0 +1,7 @@
+#!/usr/bin/env bash
+
+set -euo pipefail
+
+echo Enqueueing: "$@"
+
+echo "$@" > ~/q
--- a/bin/gcontrol	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,3 +0,0 @@
-#!/usr/bin/env bash
-
-env XDG_CURRENT_DESKTOP=GNOME gnome-control-center
--- a/bin/hank	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,34 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-echo "
-         _____________ _„-,-~''~''':::'':::':::::''::::''~
-    _,-'':::::::::::::::::::::::::::::::::::::::::::''-„
-   ..,-':::::::::::::::::::::::::::::::::::::::::::::::
-   ,-'::::::::::::::::::::::::::„:„„-~-~--'~-'~--~-~--~-
-  ..,'::::::::::,~'': : : : : : : : : : : : : : : : '-|
-  ..|::::::::,-': : : : : : : : - -~''''¯¯''-„: : : : :\\
-  ..|:::::::: : : : : : : : : _„„--~'''''~-„: : : : '|
-  ..'|:::::::,': : : : : : :_„„-: : : : : : : : ~--„_: |'
-   |:::::: : : „--~~'''~~''''''''-„ _..„~''''''''''''¯|
-   |:::::,':_„„-|: : :_„---~: : ''¯¯''''|: ~---„_:   ||
-  ..,~-,_/'': : : |: _ o__): : |: :: : : : _o__): \\..|
-  ../,'-,: : : : : ''-,_______,-'': : : : ''-„_____|
-  ..\\: : : : : : : : : : : : : : :„: : : : :-,: : :\\
-   ',:': : : : : : : : : : : : :,-'__: : : :_', ;: ,'
-   .'-,-': : : : : :___„-: : :'': : ¯''~~'': ': : ~--|'
-    .|: ,: : : : : : : : : : : : : : : : : : : :: :
-    .'|: \\: : : : : : : : -,„_„„-~~--~--„_: :: : : |
-    ..|: \\: : : : : : : : : : : :-------~: : : : : |
-    ..|: :''-,: : : : : : : : : : : : : : : : : :
-    ..',: : :''-, : : : : : : : : : : : :  : :: ,'
-     | : : : : : : : : :_ : : : : : : : : : : ,-'
-     |: : : : : : : : : : '''~----------~''
-    ._|: : : : : : : : : : : : : : : : : : :
-   .„-''. '-,_: : : : : : : : : : : : : : : : : ,'
-  ,-''. . . . . '''~-„_: : : : : : : : : : : : :,-'''-„
-             █▀█░█▀█░█▀█░█▀█░█▀█░█▄░█░█▀▀░░
-             █▀▀░█▀▄░█░█░█▀▀░█▀█░█▀██░█▀░░░
-             ▀░░░▀░▀░▀▀▀░▀░░░▀░▀░▀░░▀░▀▀▀░▀
-"
--- a/bin/hi	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,9 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-set -m
-
-REGEX="$1"
-shift
-
-batchcolor '('"$REGEX"')'
--- a/bin/kpa	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,5 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-killall pulseaudio
--- a/bin/lein	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,391 +0,0 @@
-#!/usr/bin/env bash
-
-# Ensure this file is executable via `chmod a+x lein`, then place it
-# somewhere on your $PATH, like ~/bin. The rest of Leiningen will be
-# installed upon first run into the ~/.lein/self-installs directory.
-
-export LEIN_VERSION="2.5.3"
-
-case $LEIN_VERSION in
-    *SNAPSHOT) SNAPSHOT="YES" ;;
-    *) SNAPSHOT="NO" ;;
-esac
-
-if [[ "$OSTYPE" == "cygwin" ]] || [[ "$OSTYPE" == "msys" ]]; then
-    delimiter=";"
-else
-    delimiter=":"
-fi
-
-if [[ "$OSTYPE" == "cygwin" ]]; then
-  cygwin=true
-else
-  cygwin=false
-fi
-
-function command_not_found {
-    >&2 echo "Leiningen coundn't find $1 in your \$PATH ($PATH), which is required."
-    exit 1
-}
-
-function make_native_path {
-    # ensure we have native paths
-    if $cygwin && [[ "$1"  == /* ]]; then
-    echo -n "$(cygpath -wp "$1")"
-    elif [[ "$OSTYPE" == "msys" && "$1"  == /?/* ]]; then
-    echo -n "$(sh -c "(cd $1 2</dev/null && pwd -W) || echo $1 | sed 's/^\\/\([a-z]\)/\\1:/g'")"
-    else
-    echo -n "$1"
-    fi
-}
-
-#  usage : add_path PATH_VAR [PATH]...
-function add_path {
-    local path_var="$1"
-    shift
-    while [ -n "$1" ];do
-        # http://bashify.com/?Useful_Techniques:Indirect_Variables:Indirect_Assignment
-        if [[ -z ${!path_var} ]]; then
-          export ${path_var}="$(make_native_path "$1")"
-        else
-          export ${path_var}="${!path_var}${delimiter}$(make_native_path "$1")"
-        fi
-    shift
-    done
-}
-
-function download_failed_message {
-    echo "Failed to download $1 (exit code $2)"
-    echo "It's possible your HTTP client's certificate store does not have the"
-    echo "correct certificate authority needed. This is often caused by an"
-    echo "out-of-date version of libssl. It's also possible that you're behind a"
-    echo "firewall and haven't set HTTP_PROXY and HTTPS_PROXY."
-}
-
-function self_install {
-  if [ -r "$LEIN_JAR" ]; then
-    echo "The self-install jar already exists at $LEIN_JAR."
-    echo "If you wish to re-download, delete it and rerun \"$0 self-install\"."
-    exit 1
-  fi
-  echo "Downloading Leiningen to $LEIN_JAR now..."
-  mkdir -p "$(dirname "$LEIN_JAR")"
-  LEIN_URL="https://github.com/technomancy/leiningen/releases/download/$LEIN_VERSION/leiningen-$LEIN_VERSION-standalone.zip"
-  $HTTP_CLIENT "$LEIN_JAR.pending" "$LEIN_URL"
-  local exit_code=$?
-  if [ $exit_code == 0 ]; then
-      # TODO: checksum
-      mv -f "$LEIN_JAR.pending" "$LEIN_JAR"
-  else
-      rm "$LEIN_JAR.pending" 2> /dev/null
-      download_failed_message "$LEIN_URL" "$exit_code"
-      exit 1
-  fi
-}
-
-function check_root {
-  local -i user_id
-  # Thank you for the complexity, Solaris
-  if [ `uname` = "SunOS" -a -x /usr/xpg4/bin/id ]; then
-    user_id=$(/usr/xpg4/bin/id -u 2>/dev/null || echo 0)
-  else
-    user_id=$(id -u 2>/dev/null || echo 0)
-  fi
-  [ $user_id -eq 0 -a "$LEIN_ROOT" = "" ] && return 0
-  return 1
-}
-
-if check_root; then
-    echo "WARNING: You're currently running as root; probably by accident."
-    echo "Press control-C to abort or Enter to continue as root."
-    echo "Set LEIN_ROOT to disable this warning."
-    read _
-fi
-
-NOT_FOUND=1
-ORIGINAL_PWD="$PWD"
-while [ ! -r "$PWD/project.clj" ] && [ "$PWD" != "/" ] && [ $NOT_FOUND -ne 0 ]
-do
-    cd ..
-    if [ "$(dirname "$PWD")" = "/" ]; then
-        NOT_FOUND=0
-        cd "$ORIGINAL_PWD"
-    fi
-done
-
-export LEIN_HOME="${LEIN_HOME:-"$HOME/.lein"}"
-
-for f in "/etc/leinrc" "$LEIN_HOME/leinrc" ".leinrc"; do
-  if [ -e "$f" ]; then
-    source "$f"
-  fi
-done
-
-if $cygwin; then
-    export LEIN_HOME=$(cygpath -w "$LEIN_HOME")
-fi
-
-LEIN_JAR="$LEIN_HOME/self-installs/leiningen-$LEIN_VERSION-standalone.jar"
-
-# normalize $0 on certain BSDs
-if [ "$(dirname "$0")" = "." ]; then
-    SCRIPT="$(which "$(basename "$0")")"
-    if [ -z "$SCRIPT" ]; then
-        SCRIPT="$0"
-    fi
-else
-    SCRIPT="$0"
-fi
-
-# resolve symlinks to the script itself portably
-while [ -h "$SCRIPT" ] ; do
-    ls=$(ls -ld "$SCRIPT")
-    link=$(expr "$ls" : '.*-> \(.*\)$')
-    if expr "$link" : '/.*' > /dev/null; then
-        SCRIPT="$link"
-    else
-        SCRIPT="$(dirname "$SCRIPT"$)/$link"
-    fi
-done
-
-BIN_DIR="$(dirname "$SCRIPT")"
-
-export LEIN_JVM_OPTS="${LEIN_JVM_OPTS-"-XX:+TieredCompilation -XX:TieredStopAtLevel=1"}"
-
-# This needs to be defined before we call HTTP_CLIENT below
-if [ "$HTTP_CLIENT" = "" ]; then
-    if type -p curl >/dev/null 2>&1; then
-        if [ "$https_proxy" != "" ]; then
-            CURL_PROXY="-x $https_proxy"
-        fi
-        HTTP_CLIENT="curl $CURL_PROXY -f -L -o"
-    else
-        HTTP_CLIENT="wget -O"
-    fi
-fi
-
-
-# When :eval-in :classloader we need more memory
-grep -E -q '^\s*:eval-in\s+:classloader\s*$' project.clj 2> /dev/null && \
-    export LEIN_JVM_OPTS="$LEIN_JVM_OPTS -Xms64m -Xmx512m"
-
-if [ -r "$BIN_DIR/../src/leiningen/version.clj" ]; then
-    # Running from source checkout
-    LEIN_DIR="$(dirname "$BIN_DIR")"
-
-    # Need to use lein release to bootstrap the leiningen-core library (for aether)
-    if [ ! -r "$LEIN_DIR/leiningen-core/.lein-bootstrap" ]; then
-        echo "Leiningen is missing its dependencies."
-        echo "Please run \"lein bootstrap\" in the leiningen-core/ directory"
-        echo "with a stable release of Leiningen. See CONTRIBUTING.md for details."
-        exit 1
-    fi
-
-    # If project.clj for lein or leiningen-core changes, we must recalculate
-    LAST_PROJECT_CHECKSUM=$(cat "$LEIN_DIR/.lein-project-checksum" 2> /dev/null)
-    PROJECT_CHECKSUM=$(sum "$LEIN_DIR/project.clj" "$LEIN_DIR/leiningen-core/project.clj")
-    if [ "$PROJECT_CHECKSUM" != "$LAST_PROJECT_CHECKSUM" ]; then
-        if [ -r "$LEIN_DIR/.lein-classpath" ]; then
-            rm "$LEIN_DIR/.lein-classpath"
-        fi
-    fi
-
-    # Use bin/lein to calculate its own classpath.
-    if [ ! -r "$LEIN_DIR/.lein-classpath" ] && [ "$1" != "classpath" ]; then
-        echo "Recalculating Leiningen's classpath."
-        ORIG_PWD="$PWD"
-        cd "$LEIN_DIR"
-
-        LEIN_NO_USER_PROFILES=1 $0 classpath .lein-classpath
-        sum "$LEIN_DIR/project.clj" "$LEIN_DIR/leiningen-core/project.clj" > \
-            .lein-project-checksum
-        cd "$ORIG_PWD"
-    fi
-
-    mkdir -p "$LEIN_DIR/target/classes"
-    export LEIN_JVM_OPTS="$LEIN_JVM_OPTS -Dclojure.compile.path=$LEIN_DIR/target/classes"
-    add_path CLASSPATH "$LEIN_DIR/leiningen-core/src/" "$LEIN_DIR/leiningen-core/resources/" \
-        "$LEIN_DIR/test:$LEIN_DIR/target/classes" "$LEIN_DIR/src" ":$LEIN_DIR/resources"
-
-    if [ -r "$LEIN_DIR/.lein-classpath" ]; then
-        add_path CLASSPATH "$(cat "$LEIN_DIR/.lein-classpath" 2> /dev/null)"
-    else
-        add_path CLASSPATH "$(cat "$LEIN_DIR/leiningen-core/.lein-bootstrap" 2> /dev/null)"
-    fi
-else # Not running from a checkout
-    add_path CLASSPATH "$LEIN_JAR"
-
-    BOOTCLASSPATH="-Xbootclasspath/a:$LEIN_JAR"
-
-    if [ ! -r "$LEIN_JAR" -a "$1" != "self-install" ]; then
-        self_install
-    fi
-fi
-
-# TODO: explain what to do when Java is missing
-export JAVA_CMD="${JAVA_CMD:-"java"}"
-export LEIN_JAVA_CMD="${LEIN_JAVA_CMD:-$JAVA_CMD}"
-
-if [[ -z "${DRIP_INIT+x}" && "$(basename "$LEIN_JAVA_CMD")" == *drip* ]]; then
-    export DRIP_INIT="$(printf -- '-e\n(require (quote leiningen.repl))')"
-    export DRIP_INIT_CLASS="clojure.main"
-fi
-
-# Support $JAVA_OPTS for backwards-compatibility.
-export JVM_OPTS="${JVM_OPTS:-"$JAVA_OPTS"}"
-
-# Handle jline issue with cygwin not propagating OSTYPE through java subprocesses: https://github.com/jline/jline2/issues/62
-cygterm=false
-if $cygwin; then
-  case "$TERM" in
-    rxvt* | xterm* | vt*) cygterm=true ;;
-  esac
-fi
-
-if $cygterm; then
-  LEIN_JVM_OPTS="$LEIN_JVM_OPTS -Djline.terminal=jline.UnixTerminal"
-  stty -icanon min 1 -echo > /dev/null 2>&1
-fi
-
-# TODO: investigate http://skife.org/java/unix/2011/06/20/really_executable_jars.html
-# If you're packaging this for a package manager (.deb, homebrew, etc)
-# you need to remove the self-install and upgrade functionality or see lein-pkg.
-if [ "$1" = "self-install" ]; then
-    if [ -r "$BIN_DIR/../src/leiningen/version.clj" ]; then
-        echo "Running self-install from a checkout is not supported."
-        echo "See CONTRIBUTING.md for SNAPSHOT-specific build instructions."
-        exit 1
-    fi
-    echo "Manual self-install is deprecated; it will run automatically when necessary."
-    self_install
-elif [ "$1" = "upgrade" ] || [ "$1" = "downgrade" ]; then
-    if [ "$LEIN_DIR" != "" ]; then
-        echo "The upgrade task is not meant to be run from a checkout."
-        exit 1
-    fi
-    if [ $SNAPSHOT = "YES" ]; then
-        echo "The upgrade task is only meant for stable releases."
-        echo "See the \"Bootstrapping\" section of CONTRIBUTING.md."
-        exit 1
-    fi
-    if [ ! -w "$SCRIPT" ]; then
-        echo "You do not have permission to upgrade the installation in $SCRIPT"
-        exit 1
-    else
-        TARGET_VERSION="${2:-stable}"
-        echo "The script at $SCRIPT will be upgraded to the latest $TARGET_VERSION version."
-        echo -n "Do you want to continue [Y/n]? "
-        read RESP
-        case "$RESP" in
-            y|Y|"")
-                echo
-                echo "Upgrading..."
-                TARGET="/tmp/lein-$$-upgrade"
-                if $cygwin; then
-                    TARGET=$(cygpath -w "$TARGET")
-                fi
-                LEIN_SCRIPT_URL="https://github.com/technomancy/leiningen/raw/$TARGET_VERSION/bin/lein"
-                $HTTP_CLIENT "$TARGET" "$LEIN_SCRIPT_URL"
-                if [ $? == 0 ]; then
-                    cmp -s "$TARGET" "$SCRIPT"
-                    if [ $? == 0 ]; then
-                        echo "Leiningen is already up-to-date."
-                    fi
-                    mv "$TARGET" "$SCRIPT" && chmod +x "$SCRIPT"
-                    exec "$SCRIPT" version
-                else
-                    download_failed_message "$LEIN_SCRIPT_URL"
-                fi;;
-            *)
-                echo "Aborted."
-                exit 1;;
-        esac
-    fi
-else
-    if $cygwin; then
-        # When running on Cygwin, use Windows-style paths for java
-        ORIGINAL_PWD=$(cygpath -w "$ORIGINAL_PWD")
-    fi
-
-    # apply context specific CLASSPATH entries
-    if [ -f .lein-classpath ]; then
-        add_path CLASSPATH "$(cat .lein-classpath)"
-    fi
-
-    if [ -n "$DEBUG" ]; then
-        echo "Leiningen's classpath: $CLASSPATH"
-    fi
-
-    if [ -r .lein-fast-trampoline ]; then
-        export LEIN_FAST_TRAMPOLINE='y'
-    fi
-
-    if [ "$LEIN_FAST_TRAMPOLINE" != "" ] && [ -r project.clj ]; then
-        INPUTS="$* $(cat project.clj) $LEIN_VERSION $(test -f "$LEIN_HOME/profiles.clj" && cat "$LEIN_HOME/profiles.clj")"
-
-        if command -v shasum >/dev/null 2>&1; then
-            SUM="shasum"
-        elif command -v sha1sum >/dev/null 2>&1; then
-            SUM="sha1sum"
-        else
-            command_not_found "sha1sum or shasum"
-        fi
-
-        export INPUT_CHECKSUM=$(echo "$INPUTS" | $SUM | cut -f 1 -d " ")
-        # Just don't change :target-path in project.clj, mkay?
-        TRAMPOLINE_FILE="target/trampolines/$INPUT_CHECKSUM"
-    else
-        if hash mktemp 2>/dev/null; then
-            # Check if mktemp is available before using it
-            TRAMPOLINE_FILE="$(mktemp /tmp/lein-trampoline-XXXXXXXXXXXXX)"
-        else
-            TRAMPOLINE_FILE="/tmp/lein-trampoline-$$"
-        fi
-        trap "rm -f $TRAMPOLINE_FILE" EXIT
-    fi
-
-    if $cygwin; then
-        TRAMPOLINE_FILE=$(cygpath -w "$TRAMPOLINE_FILE")
-    fi
-
-    if [ "$INPUT_CHECKSUM" != "" ] && [ -r "$TRAMPOLINE_FILE" ]; then
-        if [ -n "$DEBUG" ]; then
-            echo "Fast trampoline with $TRAMPOLINE_FILE."
-        fi
-        exec sh -c "exec $(cat "$TRAMPOLINE_FILE")"
-    else
-        export TRAMPOLINE_FILE
-        "$LEIN_JAVA_CMD" \
-            "${BOOTCLASSPATH[@]}" \
-            -Dfile.encoding=UTF-8 \
-            -Dmaven.wagon.http.ssl.easy=false \
-            -Dmaven.wagon.rto=10000 \
-            $LEIN_JVM_OPTS \
-            -Dleiningen.original.pwd="$ORIGINAL_PWD" \
-            -Dleiningen.script="$SCRIPT" \
-            -classpath "$CLASSPATH" \
-            clojure.main -m leiningen.core.main "$@"
-
-        EXIT_CODE=$?
-
-        if $cygterm ; then
-          stty icanon echo > /dev/null 2>&1
-        fi
-
-        ## TODO: [ -r "$TRAMPOLINE_FILE" ] may be redundant? A trampoline file
-        ## is always generated these days.
-        if [ -r "$TRAMPOLINE_FILE" ] && [ "$LEIN_TRAMPOLINE_WARMUP" = "" ]; then
-            TRAMPOLINE="$(cat "$TRAMPOLINE_FILE")"
-            if [ "$INPUT_CHECKSUM" = "" ]; then
-                rm "$TRAMPOLINE_FILE"
-            fi
-            if [ "$TRAMPOLINE" = "" ]; then
-                exit $EXIT_CODE
-            else
-                exec sh -c "exec $TRAMPOLINE"
-            fi
-        else
-            exit $EXIT_CODE
-        fi
-    fi
-fi
--- a/bin/lml	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,5 +0,0 @@
-#!/usr/bin/env bash
-
-set -eo pipefail
-
-ln -s "/home/sjl/src/makerlisp/sjl/$1.l" .
--- a/bin/lqn	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,5 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-/home/sjl/bin/lqn.core --script ~/src/lqn/bin/lqn-sh.lisp "$@"
--- a/bin/nicedate	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,5 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-date --utc +%Y-%m-%dT%H-%M-%SZ
--- a/bin/nnl	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,5 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-tr -d '\n'
--- a/bin/parse-contacts	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,15 +0,0 @@
-#!/usr/bin/env bash
-
-# Parse a contacts.csv exported from Google (in Outlook format) into something
-# human-usable.
-
-set -euo pipefail
-
-awk '{ $14 = $1 " " $2 " " $3; print $14, $15 }' FS=, OFS=, \
-    | tail +2 - \
-    | sed -Ee 's/ +,/,/' \
-    | tr -s ' ' \
-    | sort -t, -k2,1 -r \
-    | awk '!seen[$2]++' FS=, OFS=, \
-    | sort -t, -k2,2 \
-    | awk '{ print $2, $1 }' FS=, OFS="	"
--- a/bin/posix	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,12 +0,0 @@
-#!/usr/bin/env bash
-
-if [ -z "$1" ]; then
-    w3m "$HOME/Dropbox/docs/posix/idx/utilities.html"
-else
-    HTMLFILE="$HOME/Dropbox/docs/posix/utilities/$1.html"
-    if [ -s "$HTMLFILE" ]; then
-        w3m "$HTMLFILE"
-    else
-        echo "No matching file for '$1'"
-    fi
-fi
--- a/bin/pspg	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,5 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-/usr/bin/pspg --vertical-cursor --style 5 "$@"
--- a/bin/search-contacts	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,5 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-echo "Email	Name	Memo"
-grep -i "$1" ~/.contacts
--- a/bin/subtree-cpu-usage	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,6 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-x="$1"
-pidstat -h -u -p $(descendent-pids "$x" | tr -s '\n' ',' | sed -e 's/,$//') 5 1
--- a/bin/tqn	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,5 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-/home/sjl/bin/lqn.core --script ~/src/lqn/bin/tqn-sh.lisp "$@"
--- a/bin/trst	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,5 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-tr ' ' $'\t'
--- a/bin/tvs	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,5 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-csvconcat "$@" | tv
--- a/bin/u	Wed Oct 22 15:28:13 2025 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,5 +0,0 @@
-#!/usr/bin/env bash
-
-set -euo pipefail
-
-du -hd1 "$@"