critical fixes: schedule-event, :fiveam deps, syntax-highlighters, draw-rect frame sig

This commit is contained in:
Hermes
2026-05-11 23:03:52 +00:00
parent ad34ec1b63
commit 448127c696
7 changed files with 11 additions and 18 deletions

View File

@@ -212,11 +212,10 @@ See =docs/plans/2026-05-11-rendering-pipeline.md= for full implementation plan.
:bold bold :italic italic :underline underline
:link-url link-url)))
(defmethod draw-rect ((fb framebuffer-backend) x y w h &key fg bg style)
(declare (ignore style))
(defmethod draw-rect ((fb framebuffer-backend) x y w h &key bg)
(dotimes (row h)
(dotimes (col w)
(%set-cell fb (+ x col) (+ y row) #\space :fg fg :bg bg))))
(%set-cell fb (+ x col) (+ y row) #\space :fg nil :bg bg))))
(defmethod draw-border ((fb framebuffer-backend) x y w h &key (style :single) title title-align fg bg)
(let* ((chars (case style