From 08a29ff775cf841a80ed2433ab219ccc953835ef Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
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