From d9d5e83651dfc94ce7d5e33b8ecd0e2de4b47f16 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Thu, 7 Aug 2025 23:53:17 +0200 Subject: [PATCH] ok --- main.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/main.rkt b/main.rkt index b062035..f3fc74c 100644 --- a/main.rkt +++ b/main.rkt @@ -24,12 +24,14 @@ (strl (string-length l)) (n-strl (round (* strl factor))) (drop (- strl n-strl))) + (when (= drop 0) + (set! drop (- drop 1))) (if (eq? ellipsis 'right) (let ((nl (str:string-drop l drop))) - (printf "new-try ~a\n" nl) + ;(printf "new-try ~a\n" nl) (ellipsize w (str:string-drop l drop))) (let ((nl (str:string-drop-right l drop))) - (printf "new-try ~a\n" nl) + ;(printf "new-try ~a\n" nl) (ellipsize w (str:string-drop-right l drop)))))))) (define/override (set-label l . resize)