4 files changed, 48 insertions, 0 deletions
diff --git a/opt/aux/gen-e-list.sh b/opt/aux/gen-e-list.sh
new file mode 100755
index 0000000..3d5ee4b
--- /dev/null
+++ b/opt/aux/gen-e-list.sh
@@ -0,0 +1,24 @@
+#!/bin/sh
+set -eu
+
+{
+	cat <<-EOF
+		~/Documents/txt/TODOs.md
+		~/Documents/txt/scratch.txt
+		$XDG_CONFIG_HOME/sh/rc
+		$XDG_CONFIG_HOME/guix/home.scm
+		$XDG_CONFIG_HOME/guix/system.scm
+	EOF
+
+	find ~/Documents/txt/*.txt ~/Documents/txt/*.md -not -name TODOs.md |
+		sed "s|^$HOME|~|" |
+		LANG=POSIX.UTF-8 sort
+
+	cat <<-EOF
+		~/dev/libre/package-repository/dependencies.dot
+		~/dev/private/armário/src/dinheiros/dinheiros.ledger
+		~/dev/libre/dotfiles/sh/fake-symlinks.sh
+		$XDG_CONFIG_HOME/guix/channels.scm
+		$XDG_CONFIG_HOME/lisp-cli/init.lisp
+	EOF
+} | sed "s|$HOME|~|"
diff --git a/opt/bin-dirs/clisp b/opt/bin-dirs/clisp
new file mode 120000
index 0000000..56fe4cc
--- /dev/null
+++ b/opt/bin-dirs/clisp
@@ -0,0 +1 @@
+/home/andreh/dev/misc/common-lisp/clisp/src
+\ No newline at end of file
diff --git a/opt/bin-dirs/euandre.org b/opt/bin-dirs/euandre.org
new file mode 120000
index 0000000..db5a280
--- /dev/null
+++ b/opt/bin-dirs/euandre.org
@@ -0,0 +1 @@
+/home/andreh/dev/published/euandre.org/src/bin
+\ No newline at end of file
diff --git a/opt/tests/assert-gpg-expiration.sh b/opt/tests/assert-gpg-expiration.sh
new file mode 100755
index 0000000..d17486e
--- /dev/null
+++ b/opt/tests/assert-gpg-expiration.sh
@@ -0,0 +1,22 @@
+#!/bin/sh
+set -eu
+
+
+SECRET_KEY='81F90EC3CD356060'
+NEXT_6_MONTHS="$(echo "$(date '+%s') + (60 * 60 * 24 * 30 * 6)" | bc)"
+
+gpg --with-colons --fixed-list-mode --list-keys "$SECRET_KEY" |
+	grep -e ^pub -e ^sub |
+	while read -r subkey; do
+		EXPIRY="$(echo "$subkey" | cut -d: -f7)"
+		if [ -z "$EXPIRY" ]; then
+			continue
+		fi
+
+		if [ "$EXPIRY" -gt "$(date '+%s')" ] &&
+				[ "$EXPIRY" -lt "$NEXT_6_MONTHS" ]; then
+			printf 'Key %s to expire soon!.\n' \
+				"$(echo "$subkey" | cut -d: -f5)" >&2
+			exit 1
+		fi
+	done