hans/ellipsis-msg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ok

Browse Source
This commit is contained in:
Hans Dijkema
2025-08-07 23:53:17 +02:00
parent b10712a9e1
commit d9d5e83651
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
main.rkt
View File

@@ -24,12 +24,14 @@
(strl (string-length l)) (strl (string-length l))
(n-strl (round (* strl factor))) (n-strl (round (* strl factor)))
(drop (- strl n-strl))) (drop (- strl n-strl)))
(when (= drop 0)
(set! drop (- drop 1)))
(if (eq? ellipsis 'right) (if (eq? ellipsis 'right)
(let ((nl (str:string-drop l drop))) (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))) (ellipsize w (str:string-drop l drop)))
(let ((nl (str:string-drop-right 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)))))))) (ellipsize w (str:string-drop-right l drop))))))))
(define/override (set-label l . resize) (define/override (set-label l . resize)