ddd3950e49
New module: src/rendering/framebuffer.lisp (tangled from org/framebuffer.org) - framebuffer-backend class: implements backend protocol by writing to 2D cell array instead of emitting escape sequences - cell struct: per-cell state (char, fg, bg, bold, italic, underline, link-url) - make-framebuffer / framebuffer-width / framebuffer-height - draw-text, draw-rect, draw-border, draw-link, draw-ellipsis methods - diff-framebuffers: compares two framebuffers, returns changed cells - flush-framebuffer: diff + output changes to real backend - with-scissor macro: clip drawing operations to rectangle - cursor-move: added default no-op method for all backends - 20 new tests, all passing (372 total) Version bumped from 0.11.0 to 0.13.0. License field set to GPL-3.0 in ASDF.
64 lines
1.7 KiB
Common Lisp
64 lines
1.7 KiB
Common Lisp
(in-package :cl-tty.backend)
|
|
|
|
(defclass backend () ())
|
|
|
|
(defgeneric initialize-backend (backend)
|
|
(:method ((b backend)) b))
|
|
|
|
(defgeneric shutdown-backend (backend)
|
|
(:method ((b backend)) (values)))
|
|
|
|
(defgeneric backend-size (backend)
|
|
(:method ((b backend))
|
|
(values 80 24)))
|
|
|
|
(defgeneric backend-write (backend string))
|
|
|
|
(defgeneric backend-clear (backend)
|
|
(:method ((b backend))
|
|
(backend-write b (format nil "~C[2J~C[H" #\Esc #\Esc))))
|
|
|
|
(defgeneric draw-text (backend x y string fg bg &key
|
|
bold italic underline reverse dim blink))
|
|
|
|
(defgeneric draw-border (backend x y width height
|
|
&key style fg bg title title-align))
|
|
|
|
(defgeneric draw-rect (backend x y width height &key bg))
|
|
|
|
(defgeneric draw-link (backend x y string url &key fg bg))
|
|
|
|
(defgeneric draw-ellipsis (backend x y width &key fg bg))
|
|
|
|
(defgeneric cursor-move (backend x y)
|
|
(:method ((b backend) x y) (declare (ignore x y)) (values)))
|
|
|
|
(defgeneric cursor-hide (backend)
|
|
(:method ((b backend)) (values)))
|
|
|
|
(defgeneric cursor-show (backend)
|
|
(:method ((b backend)) (values)))
|
|
|
|
(defgeneric cursor-style (backend shape &key blink)
|
|
(:method ((b backend) shape &key blink) (values)))
|
|
|
|
(defgeneric begin-sync (backend)
|
|
(:method ((b backend)) (values)))
|
|
|
|
(defgeneric end-sync (backend)
|
|
(:method ((b backend)) (values)))
|
|
|
|
(defgeneric read-event (backend &key timeout)
|
|
(:method ((b backend) &key timeout) (values nil nil)))
|
|
|
|
(defgeneric enable-mouse (backend)
|
|
(:method ((b backend)) (values)))
|
|
|
|
(defgeneric enable-bracketed-paste (backend)
|
|
(:method ((b backend)) (values)))
|
|
|
|
(defgeneric capable-p (backend feature)
|
|
(:method ((b backend) feature)
|
|
(declare (ignore feature))
|
|
nil))
|