mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2025-12-07 11:00:45 -08:00
Code Issues Projects Releases Packages Wiki Activity

another review of "qml-lisp"

Browse source
This commit is contained in:
polos 2017-01-18 11:17:08 +01:00
parent 140e793040
commit 43abbe2415
7 changed files with 84 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

40
examples/M-modules/quick/qml-lisp/qml-lisp.lisp
View file

@ -1,11 +1,24 @@
;;; enable QML to call Lisp functions
;;;
;;; * enables QML to call Lisp functions
;;; * allows to get/set any QML property from Lisp (needs 'objectName' to be set)
;;;
;;; (requires a C++ plugin, see "lib/")
(defpackage :qml-lisp
(:use :common-lisp :eql)
(:nicknames :qml)
(:export
#:*quick-view*
#:root-object
#:qml-get
#:qml-set))
(provide :qml-lisp)
(in-package :eql)
(in-package :qml-lisp)
(defvar *qml-lisp* (qload-c++ "lib/qml_lisp"))
(defvar *qml-lisp* (qload-c++ "lib/qml_lisp"))
(defvar *quick-view* nil)
(defun string-to-symbol (name)
(let* ((upper (string-upcase name))
@ -16,8 +29,29 @@
(intern upper))))
(defun qml-apply (function arguments)
"Every 'Lisp.fun()' or 'Lisp.apply()' function call in QML will call this function."
(let ((value (apply (string-to-symbol function)
arguments)))
(if (stringp value)
value
(princ-to-string value))))
(let (root-object)
(defun root-object ()
(unless root-object
(setf root-object (|rootObject| *quick-view*)))
root-object))
(defun find-qml-object (name)
(if (string= (|objectName| (root-object)) name)
(root-object)
(qfind-child (root-object) name)))
(defun qml-get (object-name property-name)
"Get QML property. Needs 'objectName' to be set."
(qget (find-qml-object object-name) property-name))
(defun qml-set (object-name property-name value)
"Set QML property. Needs 'objectName' to be set."
(qset (find-qml-object object-name) property-name value))