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

revision

Browse source
This commit is contained in:
pls.153 2023-08-29 18:49:39 +02:00
parent bf091c3801
commit b3e55b77f5
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -25,6 +25,7 @@
(defvar *button-color* "#e0e0e0") (defvar *button-color* "#e0e0e0")
(defvar *button-text-color* "#26282a") (defvar *button-text-color* "#26282a")
(defvar *button-opacity* 0.12) ; arrow and paren buttons only
(defun apply-colors () (defun apply-colors ()
(qt:set-format qt:*cpp* *lisp-keyword-format* (qt:set-format qt:*cpp* *lisp-keyword-format*
@ -52,9 +53,11 @@
(dolist (item (list (root-item) ui:*clipboard-menu*)) (dolist (item (list (root-item) ui:*clipboard-menu*))
(q> |palette.button| item *button-color*) (q> |palette.button| item *button-color*)
(q> |palette.buttonText| item *button-text-color*)) (q> |palette.buttonText| item *button-text-color*))
(dolist (item (list ui:*paren-open* ui:*paren-close*)) (dolist (button (list ui:*paren-open* ui:*paren-close*))
(q> |icon.color| item *button-text-color*)) (q> |opacity| button *button-opacity*)
(q> |icon.color| button *button-text-color*))
(dolist (button (list ui:*left* ui:*right* ui:*up* ui:*down*)) (dolist (button (list ui:*left* ui:*right* ui:*up* ui:*down*))
(q> |opacity| button *button-opacity*)
(q> |palette.windowText| button *button-text-color*)) (q> |palette.windowText| button *button-text-color*))
(unless (zerop (q< |length| ui:*edit*)) (unless (zerop (q< |length| ui:*edit*))
;; apply to editor ;; apply to editor