1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
/****************************************************************************
**
** Copyright (C) 2017 The Qt Company Ltd.
** Contact: https://www.qt.io/licensing/
**
** This file is part of Qt Creator.
**
** Commercial License Usage
** Licensees holding valid commercial Qt licenses may use this file in
** accordance with the commercial license agreement provided with the
** Software or, alternatively, in accordance with the terms contained in
** a written agreement between you and The Qt Company. For licensing terms
** and conditions see https://www.qt.io/terms-conditions. For further
** information use the contact form at https://www.qt.io/contact-us.
**
** GNU General Public License Usage
** Alternatively, this file may be used under the terms of the GNU
** General Public License version 3 as published by the Free Software
** Foundation with exceptions as appearing in the file LICENSE.GPL3-EXCEPT
** included in the packaging of this file. Please review the following
** information to ensure the GNU General Public License requirements will
** be met: https://www.gnu.org/licenses/gpl-3.0.html.
**
****************************************************************************/
#include "haskelleditorwidget.h"
#include "haskellconstants.h"
#include "haskelltokenizer.h"
#include <coreplugin/icore.h>
#include <coreplugin/infobar.h>
#include <texteditor/textdocument.h>
#include <utils/textutils.h>
#include <QTextBlock>
#include <QTimer>
using namespace TextEditor;
namespace Haskell {
namespace Internal {
HaskellEditorWidget::HaskellEditorWidget(QWidget *parent)
: TextEditorWidget(parent)
{
}
Utils::optional<Token> HaskellEditorWidget::symbolAt(QTextDocument *doc, int position,
int *line, int *column)
{
Utils::Text::convertPosition(doc, position, line, column);
if (*line < 0 || *column < 0)
return Utils::nullopt;
const QTextBlock block = doc->findBlockByNumber(*line - 1);
if (block.text().isEmpty())
return Utils::nullopt;
const int startState = block.previous().isValid() ? block.previous().userState() : -1;
const Tokens tokens = HaskellTokenizer::tokenize(block.text(), startState);
const Token token = tokens.tokenAtColumn(*column);
if (token.isValid()
&& (token.type == TokenType::Variable
|| token.type == TokenType::Operator
|| token.type == TokenType::Constructor
|| token.type == TokenType::OperatorConstructor)) {
return token;
}
return Utils::nullopt;
}
void HaskellEditorWidget::showFailedToStartStackError(const QString &stackExecutable,
TextEditorWidget *widget)
{
static const char id[] = "Haskell.FailedToStartStack";
Core::IDocument *document = widget->textDocument();
if (!document->infoBar()->containsInfo(id)) {
Core::InfoBarEntry info(
id,
tr("Failed to start Haskell Stack \"%1\". Make sure you have stack installed and configured in the options.")
.arg(stackExecutable));
info.setCustomButtonInfo(Core::ICore::msgShowOptionsDialog(), [document] {
QTimer::singleShot(0, Core::ICore::instance(), [document] {
document->infoBar()->removeInfo(id);
Core::ICore::showOptionsDialog(Constants::OPTIONS_GENERAL);
});
});
document->infoBar()->addInfo(info);
}
}
void HaskellEditorWidget::findLinkAt(const QTextCursor &cursor,
Utils::ProcessLinkCallback &&processLinkCallback,
bool resolveTarget,
bool inNextSplit)
{
Utils::Link link;
int line, column;
const Utils::optional<Token> symbol = symbolAt(document(), cursor.position(), &line, &column);
if (symbol) {
const QTextBlock block = document()->findBlockByNumber(line - 1);
Utils::Link link;
link.linkTextStart = block.position() + symbol->startCol;
link.linkTextEnd = link.linkTextStart + symbol->length;
if (resolveTarget) {
m_followSymbolAssistProvider.setOpenInNextSplit(inNextSplit);
invokeAssist(FollowSymbol, &m_followSymbolAssistProvider);
}
}
processLinkCallback(link);
}
} // namespace Internal
} // namespace Haskell
|
