From 08a29ff775cf841a80ed2433ab219ccc953835ef Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 1 Jul 2022 19:18:22 -0500 Subject: [remove] [dep] lambda-riffs and hyperquirks --- src/interactive/text.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'src/interactive') diff --git a/src/interactive/text.lisp b/src/interactive/text.lisp index caba48e..a7c0582 100644 --- a/src/interactive/text.lisp +++ b/src/interactive/text.lisp @@ -56,7 +56,12 @@ (setf vao vao% elem-count count%)) (setf newlines (count #\newline content)) - (hq:with-plist ((l :l) (r :r)) (cl-fond:compute-extent (font-object font) content) + (let* ((extent + (cl-fond:compute-extent (font-object font) content)) + (l + (getf extent :l)) + (r + (getf extent :r))) (setf base-width (- r l) base-height (* (cl-fond:text-height (font-object font)) (1+ newlines)))))) -- cgit v1.2.3