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

remove 'import Lisp 1.0' (obsolete)

Browse source
This commit is contained in:
pls.153 2022-03-07 12:51:52 +01:00
parent a4caf3330c
commit 9114e28b92
9 changed files with 7 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/cpp/main.cpp
View file

@ -7,6 +7,7 @@
#include <QQuickView>
#include <iostream>
#include "lqml.h"
#include "qml_ext.h"
#ifdef Q_OS_MACOS
#define ADD_MACOS_BUNDLE_IMPORT_PATH \
@ -62,6 +63,9 @@ int main(int argc, char* argv[]) {
view.connect(&app, &QGuiApplication::lastWindowClosed,
[]() { LQML::eval("(qml:qquit)"); });
Lisp lisp;
view.engine()->rootContext()->setContextProperty("Lisp", &lisp);
LQML lqml(argc, argv, &view);
if (arguments.contains("-v") || arguments.contains("--version")) {
lqml.printVersion();
@ -131,9 +135,9 @@ int main(int argc, char* argv[]) {
}
// load Lisp file
QStringList lisp = arguments.filter(".lisp");
if (!lisp.isEmpty()) {
QString file = QDir::fromNativeSeparators(lisp.first());
QStringList files = arguments.filter(".lisp");
if (!files.isEmpty()) {
QString file = QDir::fromNativeSeparators(files.first());
LQML::eval(QString("(load \"%1\")").arg(file), true);
}