mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 02:30:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

revisions

Browse source
This commit is contained in:
pls.153 2023-08-31 20:31:22 +02:00
parent c25ab9161f
commit 416789e07d
6 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
examples/cl-repl/lisp/editor.lisp
View file

@ -27,6 +27,8 @@
(defvar *button-text-color* "#26282a")
(defvar *button-opacity* 0.12) ; arrow and paren buttons only
(defvar *cursor-color* "blue")
(defun apply-colors ()
(qt:set-format qt:*cpp* *lisp-keyword-format*
(list :color *lisp-keyword-color*
@ -59,6 +61,7 @@
(dolist (button (list ui:*left* ui:*right* ui:*up* ui:*down*))
(q> |opacity| button *button-opacity*)
(q> |palette.windowText| button *button-text-color*))
(q> |cursorColor| ui:*main* *cursor-color*)
(unless (zerop (q< |length| ui:*edit*))
;; apply to editor
(q! |selectAll| ui:*edit*)