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:54:55 +02:00
parent d9d5e83651
commit 05e954ba1d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
main.rkt
View File

@@ -18,14 +18,14 @@
(let ((ext (call-with-values (lambda () (get-window-text-extent l font)) (let ((ext (call-with-values (lambda () (get-window-text-extent l font))
(lambda (w h) w)))) (lambda (w h) w))))
;(printf "label: ~a, max-w: ~a, w: ~a\n" l w ext) ;(printf "label: ~a, max-w: ~a, w: ~a\n" l w ext)
(if (or (< w 10) (<= ext w)) (if (or (< w 10) (<= ext w) (string=? l ""))
l l
(let* ((factor (/ w ext)) (let* ((factor (/ w ext))
(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) (when (= drop 0)
(set! drop (- drop 1))) (set! 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)