Thomas Letan

@lthms.soap.coffee

152 Followers 108 Following

“Decent solutions provider.” He/him. https://soap.coffee/~lthms

A screenshot of my terminal with infamous overloaded error, 9/10 attempts.

A screenshot with a section heading: “Why Kubernetes?”

A screenshot of my next article draft, titled “I Built Myself a Managed Cluster”.

A claude caude discussion

❯ /vee:contradictor
● 😈 Contradictor mode activated. Go ahead, say something — I dare you to convince me.
❯ /vee:normal
● 😈 Oh, running back to normal mode already? Couldn't handle a little pushback? 😏
🦊 Back to normal mode. How can I help?

A cropped screenshot of my homepage showing several articles from 2024 as my “most recent publications”

A screenshot of an empty article about “How I want to use LLMs in 2026”

A screenshot of Claude Code showing the agent checking its work against lite user stories. Each user stories is mapped to one or more changes it has introduced.

A graph showing my latest article has been seen a bit today, 622 visits exactly.

A rendering of the previous log in Honeycomb.io

A preview of an #OCaml library i’m building to get OpenTelemetry-first structured logging (among other things)

A screenshot of eio-trace output; it shows exactly what happens. In practice, it's a good way to demonstrate the connection is reused (only one `connect`).

The “before” snapshot. No indication of log level.

A screenshot of two cool-retro-term instance, one with neovim started, the other with just the output of `ls`.
It’s cool and retro, but a little flashy tbh.

A brown colorless theme for Neovim, where only the comments have an emphasis color. There are some unwanted colors like in the autocompletion windows. This will go away eventually.

let gzip content =
let inc, ouc = Unix.pipe () in
let ouc = Gzip.open_out_chan Unix.(out_channel_of_descr ouc) in
let _writer =
Domain.spawn (fun () ->
Gzip.output_substring ouc content 0 String.(length content);
Gzip.close_out ouc)
in
let res = In_channel.input_all Unix.(in_channel_of_descr inc) in
Unix.close inc;
res

module Inputs = struct
let rec from_channel_ephemeral inc : (int * int) Seq.t =
fun () ->
match In_channel.input_line inc with
| Some line -> (
match String.split_on_char ',' line with
| [ left; right ] ->
Seq.Cons
( (int_of_string left, int_of_string right),
from_channel_ephemeral inc )
| _ -> assert false)
| None -> Seq.Nil

let from_channel inc =
inc |> from_channel_ephemeral |> Seq.memoize |> Seq.unzip
end

$Five fractals have fought to claim and keep pixels in a black canvas.$