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

revision of 'lib/qml-ui-vars.lisp'

Browse source
This commit is contained in:
polos 2020-07-30 20:28:40 +02:00
parent 4208e0ddf9
commit 6117a95bac
1 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -20,14 +20,15 @@
(defun class-name* (item)
(let ((name (|className| (|metaObject| item))))
(subseq name
(let ((start 0))
(dolist (q '("QDeclarative" "QQuick" "QQml" "Qml"))
(when (x:starts-with q name)
(setf start (length q))
(return)))
start)
(position #\_ name))))
(x:string-substitute "Map" "GeoMap"
(subseq name
(let ((start 0))
(dolist (q '("QDeclarative" "QQuick" "QQml" "Qml"))
(when (x:starts-with q name)
(setf start (length q))
(return)))
start)
(position #\_ name)))))
(defun sort* (list key &optional stable)
(funcall (if stable 'stable-sort 'sort)