textarcana

#!/usr/bin/env perl -w

# Suggest alternate spellings for a word

use strict;
use Text::Aspell;

my $speller = Text::Aspell->new;

my $word = qq{$ARGV[0]};

textarcana

#!/usr/bin/env bash

set -Eeuo pipefail

profane_regex=$(
    perl -e '
        use Bad::Words;
        my $wordref = new Bad::Words;
        my $updated = $wordref->remove(qw(
            xxx

textarcana

filesystem_paths=$(
    find . \
        -name "*.php" \
        -not -name "*Test.php"
)

git log \
    --since='3 weeks ago' \
    --format='%ad' \
    --date=iso-local \

textarcana

filesystem_paths=$(find . -name "*Test.php")

git log \
    --since='3 weeks ago' \
    --format='%ad' \
    --date=iso-local \
    $filesystem_paths \
    | cut -d ' ' -f1 \
    | sort \
    | uniq -c

textarcana

(
    echo 'app/'
    echo 'test/'
) \
    | xargs -I@ bash -c "
        echo @
        git log \
                --since='3 weeks ago' \
                --format='%ad' \
                --date=iso-local @ \

textarcana

TZ=$(date +%z) git log --reverse --date-order --format="%cd" --date=iso-local \
  | dateround -S Sun \
  | cut -d'T' -f1 \
  | uniq -c \
  | column -t \
  | perl -pwe 's{\s+}{\t}'

textarcana

TZ=$(date +%z) git log --reverse --date-order --format="%cd" --date=iso-local \
	| cut -d- -f1-2 \
	| uniq -c \
	| column -t \
	| perl -pwe 's{\s+}{\t}'

textarcana

repo_age=$(git log --date=relative --reverse --format="%ad" | head -n1)
commits_in_history=$(git log --pretty=oneline | wc -l)
echo "$commits_in_history commits since $repo_age"

textarcana

git log -n1

textarcana

Keybase proof

I hereby claim:

• I am textarcana on github.
• I am noahsussman (https://keybase.io/noahsussman) on keybase.
• I have a public key whose fingerprint is 213A 97DC 9AAD 2558 211B 4AA9 69A2 64E6 E6FC 9159

To claim this, I am signing this object: