Post #1444916
2026-03-08 22:34 UTC
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
Replies (1)
-
@dougmerritt@mathstodon.xyz 2026-03-08 22:43
@screwlisp You forgot to change 'space' in a complex inscrutable way at each step. @mousebot @wrog @cdegroot @ramin_hal9001 @kentpitman