Before I met Amber I never expected to get married again. No joke, I really thought I’d just solo the rest of my life or just at most have a “life partner” that’s close but I’m not legally attached to, because it was a terrifying thought to be legally attached to pretty much anyone.
Then I met Amber, and she’s my life partner. She’s it. She’s my ride or die, and now she’s my wife.
I love you, my wife. More! ❤️
So the Zoitechat script has been redone for irssi. Because why not?
use strict;
use warnings;
use utf8;
use Irssi;
use Encode qw(decode encode);
use File::Spec;
use Cwd qw(abs_path);
our $VERSION = '1.12';
our %IRSSI = (
authors => 'Converted from tdf_send.py',
name => 'tdf_send',
description => 'Render and send wrapped TheDraw .TDF fonts',
license => 'Public Domain',
);
my $TDF_MARKER = "\x55\xaa\x00\xff";
my $FIRST_FONT_OFFSET = 20;
my $FONT_HEADER_SIZE = 213;
my $UNDEFINED_OFFSET = 0xFFFF;
my $MAX_IRC_BYTES = 350;
my @DOS_TO_IRC = (1, 2, 3, 10, 4, 6, 7, 15, 14, 12, 9, 11, 4, 13, 8, 0);
my %OUTLINE_MAP = (
A => 0xCD, B => 0xC4, C => 0xB3, D => 0xBA,
E => 0xD5, F => 0xBB, G => 0xD6, H => 0xBF,
I => 0xC8, J => 0xBE, K => 0xC0, L => 0xBD,
M => 0xB5, N => 0xC7,
);
my %PC_DISPLAY_GLYPHS = (
1=>'☺', 2=>'☻', 3=>'♥', 4=>'♦', 5=>'♣', 6=>'♠', 7=>'•', 8=>'◘',
9=>'○', 10=>'◙', 11=>'♂', 12=>'♀', 14=>'♫', 15=>'☼', 16=>'►',
17=>'◄', 18=>'↕', 19=>'‼', 20=>'¶', 21=>'§', 22=>'▬', 23=>'↨',
24=>'↑', 25=>'↓', 26=>'→', 27=>'←', 28=>'∟', 29=>'↔', 30=>'▲',
31=>'▼', 127=>'⌂',
);
my %TDF_BLOCK_GLYPHS = (
0xB0=>'░', 0xB1=>'▒', 0xB2=>'▓', 0xDB=>'█',
0xDC=>'▄', 0xDD=>'▌', 0xDE=>'▐', 0xDF=>'▀', 0xFE=>'█',
);
my %loaded_fonts;
my $loaded_file;
Irssi::settings_add_str('tdf', 'tdf_font_directory', "$ENV{HOME}/fonts");
Irssi::settings_add_str('tdf', 'tdf_last_font_file', '');
sub cp437_to_utf8 {
my ($value) = @_;
return $TDF_BLOCK_GLYPHS{$value} if exists $TDF_BLOCK_GLYPHS{$value};
return $PC_DISPLAY_GLYPHS{$value} if exists $PC_DISPLAY_GLYPHS{$value};
return decode('cp437', chr($value), Encode::FB_DEFAULT);
}
sub font_key {
my ($name) = @_;
$name =~ s/\x00//g;
$name =~ s/\x{A0}/ /g;
$name =~ s/^\s+|\s+$//g;
return lc $name;
}
sub display_width {
my ($text) = @_;
$text =~ s/\x03\d{2},\d{2}//g;
$text =~ s/\x0f//g;
return length($text);
}
sub compact_irc_colors {
my ($line) = @_;
my ($result, $last_color) = ('', undef);
while (length $line) {
if ($line =~ s/^(\x03\d{2},\d{2})//) {
my $color = $1;
if (!defined $last_color || $color ne $last_color) {
$result .= $color;
$last_color = $color;
}
next;
}
my $char = substr($line, 0, 1, '');
$last_color = undef if $char eq "\x0f";
$result .= $char;
}
return $result;
}
sub get_font_directory {
my $dir = Irssi::settings_get_str('tdf_font_directory');
$dir =~ s/^~/$ENV{HOME}/;
return $dir;
}
sub resolve_tdf_path {
my ($value) = @_;
$value =~ s/^~/$ENV{HOME}/;
my @candidates = (
File::Spec->file_name_is_absolute($value) || $value =~ m!/!
? $value
: File::Spec->catfile(get_font_directory(), $value)
);
for my $candidate (@candidates) {
return abs_path($candidate) if -f $candidate;
if ($candidate !~ /\.tdf$/i) {
my $with_extension = "$candidate.tdf";
return abs_path($with_extension) if -f $with_extension;
}
}
die qq{Could not find "$value" in } . get_font_directory();
}
sub character {
my ($font, $char) = @_;
return [' '] if $char eq ' ';
my $code = ord($char);
return [$char] if $code < 33 || $code > 126;
my $offset = $font->{offsets}->[$code - 33];
return [$char] if !defined($offset)
|| $offset == $UNDEFINED_OFFSET
|| $offset + 2 > length($font->{data});
my $width = ord(substr($font->{data}, $offset, 1));
my $height = ord(substr($font->{data}, $offset + 1, 1));
my $pos = $offset + 2;
return [' '] if $width == 0;
my @rows;
my $row = '';
my $columns = 0;
while ($pos < length($font->{data})) {
my $value = ord(substr($font->{data}, $pos++, 1));
if ($value == 0) {
if (length($row) || !@rows) {
my $padding = $width - $columns;
$padding = 0 if $padding < 0;
push @rows, $row . (' ' x $padding);
}
last;
}
if ($value == 13) {
my $padding = $width - $columns;
$padding = 0 if $padding < 0;
push @rows, $row . (' ' x $padding);
$row = '';
$columns = 0;
next;
}
my $color_value;
if ($font->{font_type} == 2) {
last if $pos >= length($font->{data});
$color_value = ord(substr($font->{data}, $pos++, 1));
}
my $glyph;
if ($font->{font_type} == 0) {
my $reference = chr($value);
if ($reference eq '@') {
$glyph = ' ';
} elsif ($reference eq 'O') {
$glyph = "\x{A0}";
} elsif ($reference eq '&') {
next;
} elsif (exists $OUTLINE_MAP{$reference}) {
$glyph = cp437_to_utf8($OUTLINE_MAP{$reference});
} else {
$glyph = cp437_to_utf8($value);
}
} else {
$glyph = cp437_to_utf8($value);
}
if (defined $color_value) {
my $fg = $DOS_TO_IRC[$color_value & 0x0F];
my $bg = $DOS_TO_IRC[($color_value >> 4) & 0x07];
$row .= sprintf("\x03%02d,%02d%s", $fg, $bg, $glyph);
} else {
$row .= $glyph;
}
$columns++;
}
push @rows, (' ' x $width) while @rows < $height;
return @rows ? \@rows : [(' ' x $width)];
}
sub render {
my ($font, $text) = @_;
my @rendered;
my @source_lines = split(/\n/, $text, -1);
@source_lines = ('') unless @source_lines;
for my $source_line (@source_lines) {
# Explicit blank paragraphs render as one blank IRC line.
if ($source_line eq '') {
push @rendered, "\x0f";
next;
}
my @glyphs = map { character($font, $_) } split(//, $source_line);
next unless @glyphs;
my @widths;
for my $glyph (@glyphs) {
my $max_width = 1;
for my $glyph_row (@$glyph) {
my $width = display_width($glyph_row);
$max_width = $width if $width > $max_width;
}
push @widths, $max_width;
}
my $height = 1;
for my $glyph (@glyphs) {
$height = scalar(@$glyph) if scalar(@$glyph) > $height;
}
my @output = ('') x $height;
for my $i (0 .. scalar(@glyphs) - 1) {
for my $row_index (0 .. $height - 1) {
if ($row_index < scalar(@{$glyphs[$i]})) {
$output[$row_index] .= $glyphs[$i]->[$row_index];
} else {
$output[$row_index] .= ' ' x $widths[$i];
}
}
if ($i < scalar(@glyphs) - 1) {
$_ .= ' ' x $font->{spacing} for @output;
}
}
push @rendered, map { $_ . "\x0f" } @output;
}
return @rendered;
}
sub rendered_lines_fit {
my ($font, $text, $limit) = @_;
for my $line (render($font, $text)) {
return 0 if length(encode('UTF-8', compact_irc_colors($line))) > $limit;
}
return 1;
}
sub render_wrapped {
my ($font, $text, $limit) = @_;
$limit //= $MAX_IRC_BYTES;
my @all_lines;
for my $paragraph (split(/\n/, $text, -1)) {
if ($paragraph eq '') {
push @all_lines, render($font, '');
next;
}
my @words = split(/\s+/, $paragraph);
my $current = '';
for my $word (@words) {
my $candidate = $current eq '' ? $word : "$current $word";
if (rendered_lines_fit($font, $candidate, $limit)) {
$current = $candidate;
next;
}
if ($current ne '') {
push @all_lines, render($font, $current);
$current = '';
}
if (rendered_lines_fit($font, $word, $limit)) {
$current = $word;
next;
}
my $partial = '';
for my $char (split(//, $word)) {
my $part_candidate = $partial . $char;
if (rendered_lines_fit($font, $part_candidate, $limit)) {
$partial = $part_candidate;
} else {
die 'One rendered character is wider than IRC allows.'
if $partial eq '';
push @all_lines, render($font, $partial);
$partial = $char;
}
}
$current = $partial;
}
push @all_lines, render($font, $current) if $current ne '';
}
return @all_lines;
}
sub load_tdf {
my ($path) = @_;
open my $fh, '<:raw', $path or die "Cannot open $path: $!";
local $/;
my $blob = <$fh>;
close $fh;
die 'Not a valid TheDraw .TDF file.'
unless substr($blob, 0, 20) eq "\x13TheDraw FONTS file\x1a";
my %fonts;
my $pos = $FIRST_FONT_OFFSET;
while ($pos + $FONT_HEADER_SIZE <= length($blob)) {
last unless substr($blob, $pos, 4) eq $TDF_MARKER;
my $name_length = ord(substr($blob, $pos + 4, 1));
$name_length = 12 if $name_length > 12;
my $name = decode('cp437', substr($blob, $pos + 5, $name_length));
$name =~ s/\x00.*$//s;
$name =~ s/^\s+|\s+$//g;
my $font_type = ord(substr($blob, $pos + 21, 1));
my $spacing = ord(substr($blob, $pos + 22, 1));
my $block_size = unpack('v', substr($blob, $pos + 23, 2));
my @offsets = unpack('v94', substr($blob, $pos + 25, 188));
my $data_start = $pos + $FONT_HEADER_SIZE;
my $data_end = $data_start + $block_size;
$data_end = length($blob) if $data_end > length($blob);
if ($name ne '') {
$fonts{font_key($name)} = {
name => $name,
font_type => $font_type,
spacing => $spacing > 0 ? $spacing - 1 : 0,
data => substr($blob, $data_start, $data_end - $data_start),
offsets => \@offsets,
};
}
$pos = $data_start + $block_size;
}
die 'No readable fonts were found in this file.' unless %fonts;
%loaded_fonts = %fonts;
$loaded_file = abs_path($path);
}
sub get_font {
my ($name) = @_;
my $font = $loaded_fonts{font_key($name)};
die qq{Font "$name" was not found. Use /TDFFONTS to list fonts.}
unless $font;
return $font;
}
sub send_lines {
my ($server, $target, @lines) = @_;
for my $line (@lines) {
$line =~ s/[\r\n]//g;
$line = compact_irc_colors($line);
die 'A rendered line is too wide for IRC.'
if length(encode('UTF-8', $line)) > $MAX_IRC_BYTES;
# Do not pre-encode: Irssi performs outgoing encoding itself.
$server->command("MSG $target $line");
}
}
sub active_target {
my $window = Irssi::active_win();
my $item = $window->{active};
die 'No active channel or query.'
unless $item && $item->{server};
return ($item->{server}, $item->{name});
}
sub parse_quoted {
my ($text) = @_;
my @args;
while ($text =~ /\G\s*(?:"([^"]*)"|'([^']*)'|(\S+))/gc) {
push @args, defined($1) ? $1 : defined($2) ? $2 : $3;
}
return @args;
}
sub cmd_tdfload {
my ($data) = @_;
eval {
die 'Usage: /TDFLOAD <filename-or-path>' unless $data =~ /\S/;
my $path = resolve_tdf_path($data);
load_tdf($path);
Irssi::settings_set_str('tdf_last_font_file', $loaded_file);
Irssi::print(
'Loaded ' . scalar(keys %loaded_fonts) . " font(s) from $loaded_file"
);
};
Irssi::print("TDF error: $@") if $@;
}
sub cmd_tdfdir {
my ($data) = @_;
eval {
if ($data !~ /\S/) {
Irssi::print('TDF directory: ' . get_font_directory());
return;
}
$data =~ s/^~/$ENV{HOME}/;
die "Directory does not exist: $data" unless -d $data;
my $path = abs_path($data);
Irssi::settings_set_str('tdf_font_directory', $path);
Irssi::print("TDF directory set to: $path");
};
Irssi::print("TDF error: $@") if $@;
}
sub cmd_tdffonts {
if (!%loaded_fonts) {
Irssi::print('No TDF file loaded. Use /TDFLOAD <file>.');
return;
}
Irssi::print(
'Loaded fonts: ' .
join(', ', sort map { $_->{name} } values %loaded_fonts)
);
}
sub cmd_tdf {
my ($data) = @_;
eval {
my @args = parse_quoted($data);
die 'Usage: /TDF "Font Name" text' unless @args >= 2;
my $font = get_font(shift @args);
my ($server, $target) = active_target();
send_lines($server, $target, render_wrapped($font, join(' ', @args)));
};
Irssi::print("TDF error: $@") if $@;
}
sub cmd_tdfto {
my ($data) = @_;
eval {
my @args = parse_quoted($data);
die 'Usage: /TDFTO <#channel-or-nick> "Font Name" text'
unless @args >= 3;
my $target = shift @args;
my $font = get_font(shift @args);
my ($server) = active_target();
send_lines($server, $target, render_wrapped($font, join(' ', @args)));
};
Irssi::print("TDF error: $@") if $@;
}
Irssi::command_bind('tdfload', \&cmd_tdfload);
Irssi::command_bind('tdfdir', \&cmd_tdfdir);
Irssi::command_bind('tdffonts', \&cmd_tdffonts);
Irssi::command_bind('tdf', \&cmd_tdf);
Irssi::command_bind('tdfto', \&cmd_tdfto);
Irssi::print("TDF Send $VERSION loaded");
my $saved_font = Irssi::settings_get_str('tdf_last_font_file');
if ($saved_font && -f $saved_font) {
eval {
load_tdf($saved_font);
Irssi::print("TDF Send restored $saved_font");
};
Irssi::print("TDF auto-load error: $@") if $@;
} else {
Irssi::print('TDF Send font directory: ' . get_font_directory());
}
So on a recommendation from shmoo on Libera, I decided to get myself a Pro duck.ai account for just whatever bullshit I feel like doing. It’s actually so much better than Google’s Gemini subscription shit. Way better. Infinitely better.
Anyways, I vibecoded a zoitechat script that allows you to send “The Draw Font” ascii spam to whatever channel. It works pretty well I guess. I fuckin dig it. I dunno how well it works in edge cases, so if anyone has any updates please do pass along.
So I have a horrendous NNN stack I maintain. It’s really bad. Like, awful. But it’s really fun to fuck with. I think I’m going to post it up. For sure not tonight, but maybe soon. Need to double/triple/quadruple check that it isn’t full of sensitive system information. I just think it would be cool to throw it up. It’s a pretty usable system as it’s written, even if it’s ugly and probably poorly done. But I fed the files to ChatGPT and it gave me a modular refactor in the form of five new files. It broke my config out into five files. It’s pretty awesome. It didn’t actually change anything in functionality, it just made maintaining it much more doable.
I’m a man who loves standards. Especially open standards. They’re basically free rights to manufacture interoperable components for use in large and complex systems.
I have a rather nice laptop charger and it just so happens to use the XT60 connector. Unfortunately I noticed one day that the XT60 connector on my laptop charger was a little loose. Maybe even more than a little loose. I only noticed this because my laptop said it was about to die, which is really unusual for a laptop that’s plugged into the wall.
I need to write something technical soon or I might lose my mind. The problem is that I really don’t get up to playing with tech all too often, at least not outside of just dicking around on videogames. There may be a small loophole with that soon, though. I recently ordered my own Analogue Pocket. It won’t arrive for a few weeks yet, but I fully plan on both reviewing and detailing any mods or ricing I do with it. I’m thinking that should provide some entertainment as well as an excuse for me to write something that’s at least a little interesting.
Yes, another stupid “proof of life” post. I guess because I’ve been stupid busy. I’ve been an engineer for ten years now. It’s weird how it simultaneously feels like forever and only a short while. I honestly can’t explain it very well. I guess you could say I’ve found my groove. I was recently promoted somewhat. Our engineering team is tiered based on experience, and I recently attained the highest level an engineer can hold at my company. It’s a nice feeling, but it’s also sort of anxiety inducing. Is this it? Is this the highest I can go? I dunno. I guess I should worry less about that and more about treading water at my current level. I have a lot to be grateful for. My life is a charmed one, honestly. I don’t punch a clock. I have endless computers and gadgets to entertain me. I don’t get hassled about working from home. I have a good amount of freedom at work. I have a wonderful marriage and the best wife in the universe. I get to spend every day with my best friend. I like that as I add things to the list they only get more amazing. I’m at a point in life where I could complain, but even I would be critical of the whining. It’s so unnecessary. I’m at a point in life where I don’t travel as much as I used to for work. The heavy work travel used to serve a purpose for me. It got me out of a chaotic household. But now the home I have is my sanctuary. It’s the center of my peace in life. Traveling for work serves only to disrupt my peace nowadays, and I’m grateful that sometimes I get to take my wife with me. I never imagined I would have a life like this one day. I never realized my best friend was just out there waiting for me to drop into her life so we could be a team and make our dreams come true together. Honestly, if you’re wondering why I don’t write much, it’s because I’ve always used writing to cope with negative thoughts or feelings. It was something introduced to me early on in life when my dad died, and counselors were teaching me ways to cope with hardships in life. Writing became my favorite and sometimes only outlet. It was only ever really therapeutic to write away the negativity, so most of my writing had been little other than a dump of the negativity I needed to shed in life. I just don’t have that negativity in my life anymore. I’m free of pretty much every absurdity that was ever foisted upon me. So that’s the big reason my writing has tapered to almost nothing. I have to force myself to write about the good, because I don’t have a problem with the good. I don’t need to release it onto some page to lift the volume and heaviness from my heart and dole it out to the page. That’s not to say my life is perfect, no life is perfect. I could stand to win the Powerball at some point. I guess that would be perfection for me. Give me an early retirement and I’d never be able to complain again. Well, I think I have sat here staring at the next line long enough. I really can’t think of anything more to say. Life is good. Life is great, honestly. What more is there to say?
If you’re like me, you’re just a smidge OCD about your seedbox. You might even run one on your own home network. Yeah yeah, I know the risks. Blah blah. Anyways, I’ve been running my own on a mac mini with a 12TB external plugged into it, and I mostly use it headless. It’s been rocking awesome for five years now. However, I’ve sometimes had issues with rtorrent stability from time to time. That said, I finally got sick of it and decided to leverage the obscure dark arts of launchd. It’s not superbly documented, I can barely find much of use on the internet about it, and what little I can find doesn’t exactly shine a bright light on this black box tool.