Skip to content

Instantly share code, notes, and snippets.

@q3cpma
q3cpma / why tcl.md
Last active October 4, 2024 09:47
Why Tcl
@q3cpma
q3cpma / mkcdb.sh
Last active August 15, 2024 14:48
Generate a compilation database in pure sh
#!/bin/sh
# Portability: Linux, *BSD, MacOS, Illumos (mktemp -d)
# Dependencies: realpath (POSIX 2024), jq (optional)
set -eu
echo() { printf '%s\n' "$*"; }
die() { echo "$@" >&2; exit 1; }
quote() { printf "'%s'\n" "$(printf '%s\n' "$1" | sed "s#'#'\\\\''#g")"; }
usage()
@q3cpma
q3cpma / anonymize_pdf.sh
Last active March 24, 2025 21:47
Anonymize PDFs
#!/bin/sh
# Portability: Linux, *BSD, MacOS, Illumos (mktemp -d)
# Dependencies: Tcl (>=8.5), exiftool, mutool or qpdf
set -eu
echo() { printf '%s\n' "$*"; }
die() { echo "$@" >&2; exit 1; }
has_cmd() { command -v "$1" >/dev/null; }
usage()

A way to convert markup from a certain imageboard into HTML. Contains two version: a pure Tcl one and another in Common Lisp using a few packages.

Example usage:

$ cat sample.txt
>green
<pink
==heading==
**spoiler** ''italic'' '''bold''' __underlined__ ~~strikethrough~~
Normal