https://github.com/l29ah/ficlone Наговнякал небольшую утилитку для создания reflink'ов от кусочков файлов. К сожалению похоже линукс в обозримом будущем будет уметь только кратно размеру блока файловой системы делать их. Надо было нейронку просить написать наверное.

как-то раз присел чиркаш на мотоцикл - у него от страха прекратился цикл

Обнаружил что заебался с однопоточностью тормозной питонопараши и начал переписывать borgbackup на хаскеле. Уже научился пиздеть с удалённым сервером борга и читать метаданные репозитория и архивов, надеюсь на следующей неделе забекаплю уже чонить. https://github.com/l29ah/hyborg

@l29ah как вам такое?

https://tinystash.undef.im/il/XE5BDWBZBDRnDqanDuy8G57WBDwEywSbwAchh7SA8DmZsDiu913xQo4pRmeAjFawNJVAj8vjvNjqg5SreVsYLXk как вам такое?

В linux-5.7 приняли мой фикс для драйвера 9P-файловых систем: теперь при использовании неблокирующих fd файловая система не дожидается полного заполнения предоставленного программой буфера, а отдаёт то что есть после ответа сервера, какого бы размера он ни был, что позволяет использовать синтетические файловые системы с непредсказуемыми задержками. Например, hatexmpp3, где файл это лог чатика, и в случае отсутствия сообщения по запрошенному смещению read(2) блокируется до появления нового.

Я случайно переписал sendxmpp на haskell: https://github.com/l29ah/hsendxmpp

Собираем сбалансированную 3S3P батарею из имеющихся банок: import Data.Function import Data.List import Data.List.Split main = interact $ show . doit . map (read :: String -> Double) . lines doit list = minimumBy (compare `on` snd) $ map (\x -> (x, eval3s x)) $ mk3s list mk3s :: [Double] -> [[[Double]]] mk3s list = map (chunksOf 3) $ permutations list eval3s :: [[Double]] -> Double eval3s list = let sums = map sum list in (maximum sums) - (minimum sums)

https://github.com/l29ah/fl2k_signal_generator зделол в итоге лабораторный генератор сигналов с ncurses-интерфейсом: Set [f]requency by typing it and hitting Enter Up-Down: adjust frequency by 10% Right-Left: adjust frequency by 1% Setting waveform: s[q]uare, [s]ine, sa[w], [t]riangle [r]ound the frequency

https://github.com/l29ah/signal_generators наговнякал костылей чтобы использовать fl2k как универсальный генератор сигналов

Не покупайте датчик влажности DHT21, он же AM2301, это - говно. Биты плывут, а чексумма остаётся правильной. temp: 107.599998°C, humidity: 112.800003% valid checksum Для тех, кто всё же хочет обмазаться, я написал реализацию протокола общения с ним посредством FTDI: https://github.com/l29ah/dht21-ftdi

Починил IMAP в neomutt, теперь им можно пользоваться без регулярных рестартов клиента.

Наговнякал скрипт для gdb для починки содержимого регистров чтобы можно было делать bt, up, смотреть локальные переменные и делать и прочие полезные вещи после hard fault в ARM Cortex M-микроконтроллерах: define hfstack set $frame_ptr = (unsigned *)$sp if $lr & 0x10 set $sp = $frame_ptr + (8 * 4) else set $sp = $frame_ptr + (26 * 4) end set $lr = $frame_ptr[5] set $pc = $frame_ptr[6] bt end document hfstack set the correct stack context after a hard fault on Cortex M end

Начал пилить коллекцию патчей для EC от 51nb X210 с няшным dialog-интерфейсом: https://github.com/l29ah/x210-ec

Наговнякал осциллоскоп для stdin: https://github.com/l29ah/stdinscope

Скрутил вместе mpv и yandex-music-download: https://github.com/l29ah/yandex-music-download/tree/fixes mpv $(ya.pl -s -l -u https://music.yandex.ru/album/1893037/track/17198916)

https://github.com/l29ah/waitgdb написал костыль, останавливающий софтину в случае креша, чтобы к ней можно было подсосаться отладчиком.

Test/drive your servos using FTDI boards: https://github.com/l29ah/ft232-servo

Чёт data science в прыщесосноле хуевато идёт import Data.List import System.Environment import System.IO purgeOutliers :: Double -> [Double] -> ([Double], [Double]) purgeOutliers fraction list = let len = length list mean = sum list / fromIntegral len droplen = round $ fromIntegral len * fraction offsets = map (abs . (subtract mean)) list boundary = head $ drop droplen $ reverse $ sort offsets in partition (\x -> abs (x - mean) < boundary) list main :: IO () main = do args <- getArgs let fraction = read $ head args inp <- getContents let (good, bad) = (purgeOutliers fraction . map read . lines) inp hPutStr stdout $ unlines $ map show good hPutStr stderr $ unlines $ map show bad