Post #1444915
2026-03-08 09:56 UTC
@screwlisp
Seems like the universe is calling on you to fix it!
@mousebot @wrog @cdegroot @ramin_hal9001 @kentpitman
Replies (1)
-
@screwlisp@gamerplus.org 2026-03-08 22:34
With some apologies to legends: (defun chained-toot (lim str) (let ((space (- lim 8)) (End (length str)) (span (+ 1 (ceiling (/ (length str) (- lim 8)))))) (cl-loop for idx from 1 to span for start from 0 by space for end from space by space for piece = (cl-subseq str start (min end End)) for addy = (format "%s\n%d/%d" piece idx span) collect addy))) @dougmerritt @mousebot @wrog @cdegroot @ramin_hal9001 @kentpitman #elisp