forked from qt-creator/qt-creator
64 lines
1.7 KiB
C++
64 lines
1.7 KiB
C++
|
// Copyright (c) 2017 The Qt Company Ltd.
|
||
|
|
// SPDX-License-Identifier: LicenseRef-Qt-Commercial OR GPL-3.0-only WITH Qt-GPL-exception-1.0
|
||
|
|
|
||
|
|
#include "haskellsettings.h"
|
||
|
|
|
||
|
|
#include "haskellconstants.h"
|
||
|
|
#include "haskelltr.h"
|
||
|
|
|
||
|
|
#include <coreplugin/icore.h>
|
||
|
|
|
||
|
|
#include <utils/hostosinfo.h>
|
||
|
|
#include <utils/pathchooser.h>
|
||
|
|
#include <utils/layoutbuilder.h>
|
||
|
|
|
||
|
|
using namespace Utils;
|
||
|
|
|
||
|
|
namespace Haskell::Internal {
|
||
|
|
|
||
|
|
static HaskellSettings *theSettings;
|
||
|
|
|
||
|
|
HaskellSettings &settings()
|
||
|
|
{
|
||
|
|
return *theSettings;
|
||
|
|
}
|
||
|
|
|
||
|
|
HaskellSettings::HaskellSettings()
|
||
|
|
{
|
||
|
|
theSettings = this;
|
||
|
|
|
||
|
|
setId(Constants::OPTIONS_GENERAL);
|
||
|
|
setDisplayName(Tr::tr("General"));
|
||
|
|
setCategory("J.Z.Haskell");
|
||
|
|
setDisplayCategory(Tr::tr("Haskell"));
|
||
|
|
setCategoryIconPath(":/haskell/images/settingscategory_haskell.png");
|
||
|
|
|
||
|
|
registerAspect(&stackPath);
|
||
|
|
stackPath.setSettingsKey("Haskell/StackExecutable");
|
||
|
|
stackPath.setDisplayStyle(StringAspect::PathChooserDisplay);
|
||
|
|
stackPath.setExpectedKind(PathChooser::ExistingCommand);
|
||
|
|
stackPath.setPromptDialogTitle(Tr::tr("Choose Stack Executable"));
|
||
|
|
stackPath.setCommandVersionArguments({"--version"});
|
||
|
|
|
||
|
|
// stack from brew or the installer script from https://docs.haskellstack.org
|
||
|
|
// install to /usr/local/bin.
|
||
|
|
stackPath.setDefaultFilePath(HostOsInfo::isAnyUnixHost()
|
||
|
|
? FilePath::fromString("/usr/local/bin/stack")
|
||
|
|
: FilePath::fromString("stack"));
|
||
|
|
|
||
|
|
setLayouter([this](QWidget *widget) {
|
||
|
|
using namespace Layouting;
|
||
|
|
Column {
|
||
|
|
Group {
|
||
|
|
title(Tr::tr("General")),
|
||
|
|
Row { Tr::tr("Stack executable:"), stackPath }
|
||
|
|
},
|
||
|
|
st,
|
||
|
|
}.attachTo(widget);
|
||
|
|
});
|
||
|
|
|
||
|
|
readSettings(Core::ICore::settings());
|
||
|
|
}
|
||
|
|
|
||
|
|
} // Haskell::Internal
|