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

bug fix in js-arg, small revisions

Browse source
This commit is contained in:
polos 2021-03-02 09:59:10 +01:00
parent 69a094b6f8
commit 322b737e7b
10 changed files with 44 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

7
examples/M-modules/quick/9999/lisp/qml-lisp.lisp
View file

@ -62,8 +62,11 @@
(when (rest list)
(write-char #\,))))
(float
;; cut off Lisp specific notations
(princ (string-right-trim "dl0" (princ-to-string object))))
;; JS can't read 'd0' 'l0'
(let ((str (princ-to-string object)))
(x:when-it (position-if (lambda (ch) (find ch "dl")) str)
(setf (char str x:it) #\e))
(princ str)))
(t
(cond ((eql 't object)
(princ "true"))

2
examples/M-modules/quick/9999/qml/main.qml
View file

@ -26,6 +26,7 @@ Rectangle {
ctx.reset()
ctx.strokeStyle = "blue"
ctx.lineWidth = 10
ctx.lineCap = "round"
ctx.translate(110, 160)
Lisp.call("eql-user:paint")
@ -40,7 +41,6 @@ Rectangle {
width: parent.width
anchors.bottom: parent.bottom
horizontalAlignment: Qt.AlignHCenter
maximumLength: 4
text: "0000"
inputMask: "9999"

7
examples/M-modules/quick/Tic-Tac-Toe/qml-lisp.lisp
View file

@ -60,8 +60,11 @@
(when (rest list)
(write-char #\,))))
(float
;; cut off Lisp specific notations
(princ (string-right-trim "dl0" (princ-to-string object))))
;; JS can't read 'd0' 'l0'
(let ((str (princ-to-string object)))
(x:when-it (position-if (lambda (ch) (find ch "dl")) str)
(setf (char str x:it) #\e))
(princ str)))
(t
(cond ((eql 't object)
(princ "true"))

7
examples/M-modules/quick/item-model/qml-lisp.lisp
View file

@ -60,8 +60,11 @@
(when (rest list)
(write-char #\,))))
(float
;; cut off Lisp specific notations
(princ (string-right-trim "dl0" (princ-to-string object))))
;; JS can't read 'd0' 'l0'
(let ((str (princ-to-string object)))
(x:when-it (position-if (lambda (ch) (find ch "dl")) str)
(setf (char str x:it) #\e))
(princ str)))
(t
(cond ((eql 't object)
(princ "true"))

7
examples/M-modules/quick/painted-item/qml-lisp.lisp
View file

@ -60,8 +60,11 @@
(when (rest list)
(write-char #\,))))
(float
;; cut off Lisp specific notations
(princ (string-right-trim "dl0" (princ-to-string object))))
;; JS can't read 'd0' 'l0'
(let ((str (princ-to-string object)))
(x:when-it (position-if (lambda (ch) (find ch "dl")) str)
(setf (char str x:it) #\e))
(princ str)))
(t
(cond ((eql 't object)
(princ "true"))

7
examples/M-modules/quick/palindrome-2/qml-lisp.lisp
View file

@ -60,8 +60,11 @@
(when (rest list)
(write-char #\,))))
(float
;; cut off Lisp specific notations
(princ (string-right-trim "dl0" (princ-to-string object))))
;; JS can't read 'd0' 'l0'
(let ((str (princ-to-string object)))
(x:when-it (position-if (lambda (ch) (find ch "dl")) str)
(setf (char str x:it) #\e))
(princ str)))
(t
(cond ((eql 't object)
(princ "true"))

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

@ -60,8 +60,11 @@
(when (rest list)
(write-char #\,))))
(float
;; cut off Lisp specific notations
(princ (string-right-trim "dl0" (princ-to-string object))))
;; JS can't read 'd0' 'l0'
(let ((str (princ-to-string object)))
(x:when-it (position-if (lambda (ch) (find ch "dl")) str)
(setf (char str x:it) #\e))
(princ str)))
(t
(cond ((eql 't object)
(princ "true"))

7
examples/M-modules/quick/sokoban/lisp/qml-lisp.lisp
View file

@ -60,8 +60,11 @@
(when (rest list)
(write-char #\,))))
(float
;; cut off Lisp specific notations
(princ (string-right-trim "dl0" (princ-to-string object))))
;; JS can't read 'd0' 'l0'
(let ((str (princ-to-string object)))
(x:when-it (position-if (lambda (ch) (find ch "dl")) str)
(setf (char str x:it) #\e))
(princ str)))
(t
(cond ((eql 't object)
(princ "true"))

7
examples/M-modules/quick/table-view/qml-lisp.lisp
View file

@ -60,8 +60,11 @@
(when (rest list)
(write-char #\,))))
(float
;; cut off Lisp specific notations
(princ (string-right-trim "dl0" (princ-to-string object))))
;; JS can't read 'd0' 'l0'
(let ((str (princ-to-string object)))
(x:when-it (position-if (lambda (ch) (find ch "dl")) str)
(setf (char str x:it) #\e))
(princ str)))
(t
(cond ((eql 't object)
(princ "true"))

6
lib/qml-ui-vars.lisp
View file

@ -16,7 +16,8 @@
(in-package :qml-ui-variables)
(defparameter *qml-items* (qfind-children qml:*quick-view*))
(defparameter *qml-items* (qfind-children #+sailfish (qml:root-item)
#-sailfish qml:*quick-view*))
(defun class-name* (item)
(let ((name (|className| (|metaObject| item))))
@ -46,8 +47,7 @@
(flet ((one-space (s)
(x:join (remove-if 'x:empty-string (x:split s)))))
(let ((s (ext:run-program "grep" (list "-rn"
"--include"
"*.qml"
#-sailfish "--include" #-sailfish "*.qml"
(format nil "objectName:[[:space:]]*~S" name)
"qml/"))))
(loop :for line = (read-line s nil nil)