Thomas Letan
LightNews LightNews
lthms.soap.coffee
Thomas Letan
@lthms.soap.coffee
140 followers 120 following 250 posts
Technical debt producer. He/him.
https://soap.coffee/~lthms
Posts Replies Media Videos
lthms.soap.coffee
eio-trace is really cool
May 31, 2025 at 5:31 PM
lthms.soap.coffee
Trying to perform another request before releasing the first switch will open a second connections, as expected
May 31, 2025 at 2:33 PM
lthms.soap.coffee
Okay, eio-trace is pretty awesome
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`).
May 31, 2025 at 2:31 PM
lthms.soap.coffee
Even nicer with a better unicode character
January 11, 2025 at 5:54 PM
lthms.soap.coffee
At $WORK, our logging library does not show the level (warning, debug, etc.) of a given log. Or… doesn’t it? 👀
The “before” snapshot. No indication of log level. The after screenshot. The log levels are clearly displayed (in caps even).
January 11, 2025 at 4:56 PM
lthms.soap.coffee
The OCaml Planet effect is real! 👀
January 7, 2025 at 7:23 PM
lthms.soap.coffee
Work in progress
January 1, 2025 at 12:22 PM
lthms.soap.coffee
I still need to understand _why_.
December 31, 2024 at 6:11 PM
lthms.soap.coffee
Okay, will I stick to this marvel or not?
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.
December 30, 2024 at 9:50 PM
lthms.soap.coffee
Work in progress.
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.
December 22, 2024 at 4:14 PM
lthms.soap.coffee
In-memory compression using camlzip and Unix pipes. One had to think about blocking writes 😂
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
December 15, 2024 at 11:11 PM
lthms.soap.coffee
I might participate to the Advent of Code for the first time this year. Gave a late try to the first day, and it was a nice opportunity to mess with the Seq module from the OCaml standard library.

Seq.memoize to make sure we only read our input file once.
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
December 1, 2024 at 11:26 PM
lthms.soap.coffee
Fractals War!
Five fractals have fought to claim and keep pixels in a black canvas.
July 10, 2023 at 6:58 AM
lthms.soap.coffee
Tried a new style for the links of my website 👀
June 25, 2023 at 10:59 AM