Skip to content

Graphical text buffer #854

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
cxxxr merged 12 commits into from
Jul 31, 2023
Merged

Graphical text buffer #854

Changes from 1 commit
Commits
Show all changes
12 commits
Select commit Hold shift + click to select a range
c92b4d8
add a new drawing method
cxxxr Jul 26, 2023
95924fa
cache drawing
cxxxr Jul 30, 2023
a9a968f
tweak
cxxxr Jul 30, 2023
19e88f9
fix merge-attribute: also included plist
cxxxr Jul 30, 2023
4175d6f
set cursor position for input-method
cxxxr Jul 30, 2023
47c70ad
fix the character when wrapping
cxxxr Jul 30, 2023
ec356f9
Allow fonts to be specified in attribute
cxxxr Jul 30, 2023
f53ca60
add image support
cxxxr Jul 30, 2023
445d2ab
refactor
cxxxr Jul 31, 2023
e1ebf42
extract function: drawing-cache
cxxxr Jul 31, 2023
97f48e7
disable cache on wrap
cxxxr Jul 31, 2023
e7a87e6
rename v2-text-buffer -> graphical-text-buffer
cxxxr Jul 31, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
fix merge-attribute: also included plist
  • Loading branch information
@cxxxr
cxxxr committed Jul 30, 2023
commit 19e88f91948a9f7363a6e666734b22b186bbe096
10 changes: 7 additions & 3 deletions src/attribute.lisp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -22,6 +22,7 @@
:initform nil
:accessor attribute-cache)
(plist
:initarg :plist
:initform nil
:accessor attribute-plist)))

Expand All @@ -43,13 +44,14 @@
(defun (setf attribute-value) (value attribute key)
(setf (getf (attribute-plist attribute) key) value))

(defun make-attribute (&key foreground background reverse bold underline)
(defun make-attribute (&key foreground background reverse bold underline plist)
(make-instance 'attribute
:foreground (or (maybe-base-color foreground) nil)
:background (or (maybe-base-color background) nil)
:reverse reverse
:bold bold
:underline (or (maybe-base-color underline) underline)))
:underline (or (maybe-base-color underline) underline)
:plist plist))

(defun ensure-attribute (x &optional (errorp t))
(cond ((symbolp x)
Expand All @@ -72,7 +74,9 @@
:reverse (or (attribute-reverse over)
(attribute-reverse under))
:underline (or (attribute-underline over)
(attribute-underline under))))
(attribute-underline under))
:plist (append (attribute-plist over)
(attribute-plist under))))

(defun attribute-equal (attribute1 attribute2)
(and (equal (attribute-foreground attribute1)
Expand Down