ocaml: Extract to zed-extensions/ocaml repository (#20825)
This PR extracts the OCaml extensions to the [zed-extensions/ocaml](https://github.com/zed-extensions/ocaml) repository. Release Notes: - N/A
This commit is contained in:
Marshall Bowers
GitHub
parent
ad94ad511a
commit
df1d0dec0a
20 changed files with 1 additions and 650 deletions
7
Cargo.lock
generated
7
Cargo.lock
generated
|
|
@ -15346,13 +15346,6 @@ dependencies = [
|
|||
"zed_extension_api 0.1.0",
|
||||
]
|
||||
|
||||
[[package]]
|
||||
name = "zed_ocaml"
|
||||
version = "0.1.1"
|
||||
dependencies = [
|
||||
"zed_extension_api 0.1.0",
|
||||
]
|
||||
|
||||
[[package]]
|
||||
name = "zed_php"
|
||||
version = "0.2.2"
|
||||
|
|
|
|||
|
|
@ -148,7 +148,6 @@ members = [
|
|||
"extensions/haskell",
|
||||
"extensions/html",
|
||||
"extensions/lua",
|
||||
"extensions/ocaml",
|
||||
"extensions/php",
|
||||
"extensions/perplexity",
|
||||
"extensions/prisma",
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
# OCaml
|
||||
|
||||
OCaml support is available through the [OCaml extension](https://github.com/zed-industries/zed/tree/main/extensions/ocaml).
|
||||
OCaml support is available through the [OCaml extension](https://github.com/zed-extensions/ocaml).
|
||||
|
||||
- Tree Sitter: [tree-sitter/tree-sitter-ocaml](https://github.com/tree-sitter/tree-sitter-ocaml)
|
||||
- Language Server: [ocaml/ocaml-lsp](https://github.com/ocaml/ocaml-lsp)
|
||||
|
|
|
|||
|
|
@ -1,16 +0,0 @@
|
|||
[package]
|
||||
name = "zed_ocaml"
|
||||
version = "0.1.1"
|
||||
edition = "2021"
|
||||
publish = false
|
||||
license = "Apache-2.0"
|
||||
|
||||
[lints]
|
||||
workspace = true
|
||||
|
||||
[lib]
|
||||
path = "src/ocaml.rs"
|
||||
crate-type = ["cdylib"]
|
||||
|
||||
[dependencies]
|
||||
zed_extension_api = "0.1.0"
|
||||
|
|
@ -1 +0,0 @@
|
|||
../../LICENSE-APACHE
|
||||
|
|
@ -1,25 +0,0 @@
|
|||
id = "ocaml"
|
||||
name = "OCaml"
|
||||
description = "OCaml support."
|
||||
version = "0.1.1"
|
||||
schema_version = 1
|
||||
authors = ["Rashid Almheiri <69181766+huwaireb@users.noreply.github.com>"]
|
||||
repository = "https://github.com/zed-industries/zed"
|
||||
|
||||
[language_servers.ocamllsp]
|
||||
name = "ocamllsp"
|
||||
languages = ["OCaml", "OCaml Interface"]
|
||||
|
||||
[grammars.ocaml]
|
||||
repository = "https://github.com/tree-sitter/tree-sitter-ocaml"
|
||||
commit = "0b12614ded3ec7ed7ab7933a9ba4f695ba4c342e"
|
||||
path = "grammars/ocaml"
|
||||
|
||||
[grammars.ocaml_interface]
|
||||
repository = "https://github.com/tree-sitter/tree-sitter-ocaml"
|
||||
commit = "0b12614ded3ec7ed7ab7933a9ba4f695ba4c342e"
|
||||
path = "grammars/interface"
|
||||
|
||||
[grammars.dune]
|
||||
repository = "https://github.com/WHForks/tree-sitter-dune"
|
||||
commit = "b3f7882e1b9a1d8811011bf6f0de1c74c9c93949"
|
||||
|
|
@ -1,8 +0,0 @@
|
|||
name = "Dune"
|
||||
grammar = "dune"
|
||||
path_suffixes = ["dune", "dune-project"]
|
||||
brackets = [
|
||||
{ start = "(", end = ")", close = true, newline = true },
|
||||
{ start = "\"", end = "\"", close = true, newline = false, not_in = ["string"] }
|
||||
]
|
||||
tab_size = 2
|
||||
|
|
@ -1,5 +0,0 @@
|
|||
(stanza_name) @function
|
||||
(field_name) @property
|
||||
(quoted_string) @string
|
||||
(multiline_string) @string
|
||||
(action_name) @keyword
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
((ocaml_syntax) @injection.content
|
||||
(#set! injection.language "ocaml"))
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
("(" @open ")" @close)
|
||||
("{" @open "}" @close)
|
||||
|
|
@ -1,12 +0,0 @@
|
|||
name = "OCaml Interface"
|
||||
code_fence_block_name = "ocaml"
|
||||
grammar = "ocaml_interface"
|
||||
path_suffixes = ["mli"]
|
||||
block_comment = ["(* ", " *)"]
|
||||
autoclose_before = ";,=)}"
|
||||
brackets = [
|
||||
{ start = "{", end = "}", close = true, newline = true },
|
||||
{ start = "[", end = "]", close = true, newline = true },
|
||||
{ start = "(", end = ")", close = true, newline = true }
|
||||
]
|
||||
tab_size = 2
|
||||
|
|
@ -1 +0,0 @@
|
|||
../ocaml/highlights.scm
|
||||
|
|
@ -1,21 +0,0 @@
|
|||
[
|
||||
(type_binding)
|
||||
|
||||
(value_specification)
|
||||
(method_specification)
|
||||
|
||||
(external)
|
||||
(field_declaration)
|
||||
] @indent
|
||||
|
||||
(_ "<" ">" @end) @indent
|
||||
(_ "{" "}" @end) @indent
|
||||
(_ "(" ")" @end) @indent
|
||||
|
||||
(_ "object" @start "end" @end) @indent
|
||||
|
||||
(signature
|
||||
"sig" @start
|
||||
"end" @end) @indent
|
||||
|
||||
";;" @outdent
|
||||
|
|
@ -1,48 +0,0 @@
|
|||
(module_type_definition
|
||||
"module" @context
|
||||
"type" @context
|
||||
name: (_) @name) @item
|
||||
|
||||
(module_definition
|
||||
"module" @context
|
||||
(module_binding name: (_) @name)) @item
|
||||
|
||||
(type_definition
|
||||
"type" @context
|
||||
(type_binding name: (_) @name)) @item
|
||||
|
||||
(class_definition
|
||||
"class" @context
|
||||
(class_binding
|
||||
"virtual"? @context
|
||||
name: (_) @name)) @item
|
||||
|
||||
(class_type_definition
|
||||
"class" @context
|
||||
"type" @context
|
||||
(class_type_binding
|
||||
"virtual"? @context
|
||||
name: (_) @name)) @item
|
||||
|
||||
(instance_variable_definition
|
||||
"val" @context
|
||||
"method"? @context
|
||||
name: (_) @name) @item
|
||||
|
||||
(method_specification
|
||||
"method" @context
|
||||
"virtual"? @context
|
||||
(method_name) @name) @item
|
||||
|
||||
(value_specification
|
||||
"val" @context
|
||||
(value_name) @name) @item
|
||||
|
||||
(external
|
||||
"external" @context
|
||||
(value_name) @name) @item
|
||||
|
||||
(exception_definition
|
||||
"exception" @context
|
||||
(constructor_declaration
|
||||
(constructor_name) @name)) @item
|
||||
|
|
@ -1,5 +0,0 @@
|
|||
("(" @open ")" @close)
|
||||
("[" @open "]" @close)
|
||||
("[|" @open "|]" @close)
|
||||
("{" @open "}" @close)
|
||||
("\"" @open "\"" @close)
|
||||
|
|
@ -1,14 +0,0 @@
|
|||
name = "OCaml"
|
||||
grammar = "ocaml"
|
||||
path_suffixes = ["ml"]
|
||||
block_comment = ["(* ", " *)"]
|
||||
autoclose_before = ";,=)}]"
|
||||
brackets = [
|
||||
{ start = "{", end = "}", close = true, newline = true },
|
||||
{ start = "{|", end = "|", close = true, newline = true, not_in = ["string"] },
|
||||
{ start = "[", end = "]", close = true, newline = true },
|
||||
{ start = "[|", end = "|", close = true, newline = true, not_in = ["string"] },
|
||||
{ start = "(", end = ")", close = true, newline = true },
|
||||
{ start = "\"", end = "\"", close = true, newline = false, not_in = ["string"] }
|
||||
]
|
||||
tab_size = 2
|
||||
|
|
@ -1,158 +0,0 @@
|
|||
; Modules
|
||||
;--------
|
||||
|
||||
[(module_name) (module_type_name)] @title
|
||||
|
||||
; Types
|
||||
;------
|
||||
|
||||
[(class_name) (class_type_name) (type_constructor)] @type
|
||||
|
||||
(tag) @variant ;; Polymorphic Variants
|
||||
(constructor_name) @constructor ;; Exceptions, variants and the like
|
||||
|
||||
; Functions
|
||||
;----------
|
||||
|
||||
(let_binding
|
||||
pattern: (value_name) @function
|
||||
(parameter))
|
||||
|
||||
(let_binding
|
||||
pattern: (value_name) @function
|
||||
body: [(fun_expression) (function_expression)])
|
||||
|
||||
(value_specification (value_name) @function)
|
||||
|
||||
(external (value_name) @function)
|
||||
|
||||
(method_name) @function
|
||||
|
||||
(infix_expression
|
||||
left: (value_path (value_name) @function)
|
||||
operator: (concat_operator) @operator
|
||||
(#eq? @operator "@@"))
|
||||
|
||||
(infix_expression
|
||||
operator: (rel_operator) @operator
|
||||
right: (value_path (value_name) @function)
|
||||
(#eq? @operator "|>"))
|
||||
|
||||
(application_expression
|
||||
function: (value_path (value_name) @function))
|
||||
|
||||
; Variables
|
||||
;----------
|
||||
|
||||
(value_pattern) @variable
|
||||
|
||||
(type_variable) @variable.special
|
||||
|
||||
; Properties
|
||||
;-----------
|
||||
|
||||
[(field_name) (instance_variable_name)] @property
|
||||
|
||||
; Labels
|
||||
;-------
|
||||
|
||||
[(label_name) (parameter)] @label
|
||||
|
||||
(parameter
|
||||
pattern: (value_pattern) @label)
|
||||
; despite the above rule, we should still label value_pattern as a variable
|
||||
; when a label name is present
|
||||
(parameter
|
||||
(label_name)
|
||||
pattern: (value_pattern) @variable)
|
||||
|
||||
; Constants
|
||||
;----------
|
||||
|
||||
(boolean) @boolean
|
||||
|
||||
[(number) (signed_number)] @number
|
||||
|
||||
[(string) (character)] @string
|
||||
|
||||
(quoted_string "{" @string "}" @string) @string
|
||||
(quoted_string_content) @string
|
||||
|
||||
|
||||
(escape_sequence) @string.escape
|
||||
|
||||
[
|
||||
(conversion_specification)
|
||||
(pretty_printing_indication)
|
||||
] @punctuation.special
|
||||
|
||||
; Operators
|
||||
;----------
|
||||
|
||||
(match_expression (match_operator) @keyword)
|
||||
|
||||
(value_definition [(let_operator) (let_and_operator)] @keyword)
|
||||
|
||||
[
|
||||
(prefix_operator)
|
||||
(sign_operator)
|
||||
(pow_operator)
|
||||
(mult_operator)
|
||||
(add_operator)
|
||||
(concat_operator)
|
||||
(rel_operator)
|
||||
(and_operator)
|
||||
(or_operator)
|
||||
(assign_operator)
|
||||
(hash_operator)
|
||||
(indexing_operator)
|
||||
(let_operator)
|
||||
(let_and_operator)
|
||||
(match_operator)
|
||||
] @operator
|
||||
|
||||
["*" "#" "::" "<-"] @operator
|
||||
|
||||
; Keywords
|
||||
;---------
|
||||
|
||||
[
|
||||
"and" "as" "assert" "begin" "class" "constraint" "do" "done" "downto" "else"
|
||||
"end" "exception" "external" "for" "fun" "function" "functor" "if" "in"
|
||||
"include" "inherit" "initializer" "lazy" "let" "match" "method" "module"
|
||||
"mutable" "new" "nonrec" "object" "of" "open" "private" "rec" "sig" "struct"
|
||||
"then" "to" "try" "type" "val" "virtual" "when" "while" "with"
|
||||
] @keyword
|
||||
|
||||
; Punctuation
|
||||
;------------
|
||||
|
||||
["(" ")" "[" "]" "{" "}" "[|" "|]" "[<" "[>" "[@@" "[@" "[%"] @punctuation.bracket
|
||||
|
||||
(object_type ["<" ">"] @punctuation.bracket)
|
||||
|
||||
[
|
||||
"," "." ";" ":" "=" "|" "~" "?" "+" "-" "!" ">" "&"
|
||||
"->" ";;" ":>" "+=" ":=" ".."
|
||||
] @punctuation.delimiter
|
||||
|
||||
; Attributes
|
||||
;-----------
|
||||
|
||||
[
|
||||
(attribute)
|
||||
(item_attribute)
|
||||
(floating_attribute)
|
||||
(extension)
|
||||
(item_extension)
|
||||
(quoted_extension)
|
||||
(quoted_item_extension)
|
||||
|
||||
] @attribute
|
||||
|
||||
(attribute_id) @tag
|
||||
|
||||
; Comments
|
||||
;---------
|
||||
|
||||
[(comment) (line_number_directive) (directive) (shebang)] @comment
|
||||
|
|
@ -1,45 +0,0 @@
|
|||
[
|
||||
(let_binding)
|
||||
(type_binding)
|
||||
|
||||
(method_definition)
|
||||
|
||||
(external)
|
||||
(value_specification)
|
||||
(method_specification)
|
||||
|
||||
(match_case)
|
||||
|
||||
(function_expression)
|
||||
|
||||
(field_declaration)
|
||||
(field_expression)
|
||||
|
||||
(application_expression)
|
||||
] @indent
|
||||
|
||||
(_ "[" "]" @end) @indent
|
||||
(_ "[|" "|]" @end) @indent
|
||||
(_ "<" ">" @end) @indent
|
||||
(_ "{" "}" @end) @indent
|
||||
(_ "(" ")" @end) @indent
|
||||
|
||||
(_ "object" @start "end" @end) @indent
|
||||
|
||||
(structure
|
||||
"struct" @start
|
||||
"end" @end) @indent
|
||||
|
||||
(signature
|
||||
"sig" @start
|
||||
"end" @end) @indent
|
||||
|
||||
(parenthesized_expression
|
||||
"begin" @start
|
||||
"end") @indent
|
||||
|
||||
(do_clause
|
||||
"do" @start
|
||||
"done" @end) @indent
|
||||
|
||||
";;" @outdent
|
||||
|
|
@ -1,59 +0,0 @@
|
|||
(_structure_item/value_definition
|
||||
"let" @context
|
||||
(let_binding
|
||||
pattern: (_) @name)) @item
|
||||
|
||||
(_structure_item/exception_definition
|
||||
"exception" @context
|
||||
(constructor_declaration
|
||||
(constructor_name) @name)) @item
|
||||
|
||||
(_structure_item/module_definition
|
||||
"module" @context
|
||||
(module_binding
|
||||
name: (module_name) @name)) @item
|
||||
|
||||
(module_type_definition
|
||||
"module" @context
|
||||
"type" @context
|
||||
name: (_) @name) @item
|
||||
|
||||
(type_definition
|
||||
"type" @context
|
||||
(type_binding name: (_) @name)) @item
|
||||
|
||||
(value_specification
|
||||
"val" @context
|
||||
(value_name) @name) @item
|
||||
|
||||
(class_definition
|
||||
"class" @context
|
||||
(class_binding
|
||||
"virtual"? @context
|
||||
name: (_) @name)) @item
|
||||
|
||||
(class_type_definition
|
||||
"class" @context
|
||||
"type" @context
|
||||
(class_type_binding
|
||||
"virtual"? @context
|
||||
name: (_) @name)) @item
|
||||
|
||||
(instance_variable_definition
|
||||
"val" @context
|
||||
"method"? @context
|
||||
name: (_) @name) @item
|
||||
|
||||
(method_specification
|
||||
"method" @context
|
||||
"virtual"? @context
|
||||
(method_name) @name) @item
|
||||
|
||||
(method_definition
|
||||
"method" @context
|
||||
"virtual"? @context
|
||||
name: (_) @name) @item
|
||||
|
||||
(external
|
||||
"external" @context
|
||||
(value_name) @name) @item
|
||||
|
|
@ -1,219 +0,0 @@
|
|||
use std::ops::Range;
|
||||
use zed::lsp::{Completion, CompletionKind, Symbol, SymbolKind};
|
||||
use zed::{CodeLabel, CodeLabelSpan};
|
||||
use zed_extension_api::{self as zed, Result};
|
||||
|
||||
const OPERATOR_CHAR: [char; 17] = [
|
||||
'~', '!', '?', '%', '<', ':', '.', '$', '&', '*', '+', '-', '/', '=', '>', '@', '^',
|
||||
];
|
||||
|
||||
struct OcamlExtension;
|
||||
|
||||
impl zed::Extension for OcamlExtension {
|
||||
fn new() -> Self {
|
||||
Self
|
||||
}
|
||||
|
||||
fn language_server_command(
|
||||
&mut self,
|
||||
_language_server_id: &zed::LanguageServerId,
|
||||
worktree: &zed::Worktree,
|
||||
) -> Result<zed::Command> {
|
||||
let path = worktree.which("ocamllsp").ok_or_else(|| {
|
||||
"ocamllsp (ocaml-language-server) must be installed manually.".to_string()
|
||||
})?;
|
||||
|
||||
Ok(zed::Command {
|
||||
command: path,
|
||||
args: Vec::new(),
|
||||
env: worktree.shell_env(),
|
||||
})
|
||||
}
|
||||
|
||||
fn label_for_completion(
|
||||
&self,
|
||||
_language_server_id: &zed::LanguageServerId,
|
||||
completion: Completion,
|
||||
) -> Option<CodeLabel> {
|
||||
let name = &completion.label;
|
||||
let detail = completion.detail.as_ref().map(|s| s.replace('\n', " "));
|
||||
|
||||
match completion.kind.zip(detail) {
|
||||
Some((CompletionKind::Constructor | CompletionKind::EnumMember, detail)) => {
|
||||
let (argument, return_t) = detail
|
||||
.split_once("->")
|
||||
.map_or((None, detail.as_str()), |(arg, typ)| {
|
||||
(Some(arg.trim()), typ.trim())
|
||||
});
|
||||
|
||||
let type_decl = "type t = ";
|
||||
let type_of = argument.map(|_| " of ").unwrap_or_default();
|
||||
let argument = argument.unwrap_or_default();
|
||||
let terminator = "\n";
|
||||
let let_decl = "let _ ";
|
||||
let let_colon = ": ";
|
||||
let let_suffix = " = ()";
|
||||
let code = format!(
|
||||
"{type_decl}{name}{type_of}{argument}{terminator}{let_decl}{let_colon}{return_t}{let_suffix}"
|
||||
);
|
||||
|
||||
let name_start = type_decl.len();
|
||||
let argument_end = name_start + name.len() + type_of.len() + argument.len();
|
||||
let colon_start = argument_end + terminator.len() + let_decl.len();
|
||||
let return_type_end = code.len() - let_suffix.len();
|
||||
Some(CodeLabel {
|
||||
code,
|
||||
spans: vec![
|
||||
CodeLabelSpan::code_range(name_start..argument_end),
|
||||
CodeLabelSpan::code_range(colon_start..return_type_end),
|
||||
],
|
||||
filter_range: (0..name.len()).into(),
|
||||
})
|
||||
}
|
||||
|
||||
Some((CompletionKind::Field, detail)) => {
|
||||
let filter_range_start = if name.starts_with(['~', '?']) { 1 } else { 0 };
|
||||
|
||||
let record_prefix = "type t = { ";
|
||||
let record_suffix = "; }";
|
||||
let code = format!("{record_prefix}{name} : {detail}{record_suffix}");
|
||||
|
||||
Some(CodeLabel {
|
||||
spans: vec![CodeLabelSpan::code_range(
|
||||
record_prefix.len()..code.len() - record_suffix.len(),
|
||||
)],
|
||||
code,
|
||||
filter_range: (filter_range_start..name.len()).into(),
|
||||
})
|
||||
}
|
||||
|
||||
Some((CompletionKind::Value, detail)) => {
|
||||
let let_prefix = "let ";
|
||||
let suffix = " = ()";
|
||||
let (l_paren, r_paren) = if name.contains(OPERATOR_CHAR) {
|
||||
("( ", " )")
|
||||
} else {
|
||||
("", "")
|
||||
};
|
||||
let code = format!("{let_prefix}{l_paren}{name}{r_paren} : {detail}{suffix}");
|
||||
|
||||
let name_start = let_prefix.len() + l_paren.len();
|
||||
let name_end = name_start + name.len();
|
||||
let type_annotation_start = name_end + r_paren.len();
|
||||
let type_annotation_end = code.len() - suffix.len();
|
||||
|
||||
Some(CodeLabel {
|
||||
spans: vec![
|
||||
CodeLabelSpan::code_range(name_start..name_end),
|
||||
CodeLabelSpan::code_range(type_annotation_start..type_annotation_end),
|
||||
],
|
||||
filter_range: (0..name.len()).into(),
|
||||
code,
|
||||
})
|
||||
}
|
||||
|
||||
Some((CompletionKind::Method, detail)) => {
|
||||
let method_decl = "class c : object method ";
|
||||
let end = " end";
|
||||
let code = format!("{method_decl}{name} : {detail}{end}");
|
||||
|
||||
Some(CodeLabel {
|
||||
spans: vec![CodeLabelSpan::code_range(
|
||||
method_decl.len()..code.len() - end.len(),
|
||||
)],
|
||||
code,
|
||||
filter_range: (0..name.len()).into(),
|
||||
})
|
||||
}
|
||||
|
||||
Some((kind, _)) => {
|
||||
let highlight_name = match kind {
|
||||
CompletionKind::Module | CompletionKind::Interface => "title",
|
||||
CompletionKind::Keyword => "keyword",
|
||||
CompletionKind::TypeParameter => "type",
|
||||
_ => return None,
|
||||
};
|
||||
|
||||
Some(CodeLabel {
|
||||
spans: vec![(CodeLabelSpan::literal(name, Some(highlight_name.to_string())))],
|
||||
filter_range: (0..name.len()).into(),
|
||||
code: String::new(),
|
||||
})
|
||||
}
|
||||
_ => None,
|
||||
}
|
||||
}
|
||||
|
||||
fn label_for_symbol(
|
||||
&self,
|
||||
_language_server_id: &zed::LanguageServerId,
|
||||
symbol: Symbol,
|
||||
) -> Option<CodeLabel> {
|
||||
let name = &symbol.name;
|
||||
|
||||
let (code, filter_range, display_range) = match symbol.kind {
|
||||
SymbolKind::Property => {
|
||||
let code = format!("type t = {{ {}: (); }}", name);
|
||||
let filter_range: Range<usize> = 0..name.len();
|
||||
let display_range = 11..11 + name.len();
|
||||
(code, filter_range, display_range)
|
||||
}
|
||||
SymbolKind::Function
|
||||
if name.contains(OPERATOR_CHAR)
|
||||
|| (name.starts_with("let") && name.contains(OPERATOR_CHAR)) =>
|
||||
{
|
||||
let code = format!("let ( {name} ) () = ()");
|
||||
|
||||
let filter_range = 6..6 + name.len();
|
||||
let display_range = 0..filter_range.end + 1;
|
||||
(code, filter_range, display_range)
|
||||
}
|
||||
SymbolKind::Function => {
|
||||
let code = format!("let {name} () = ()");
|
||||
|
||||
let filter_range = 4..4 + name.len();
|
||||
let display_range = 0..filter_range.end;
|
||||
(code, filter_range, display_range)
|
||||
}
|
||||
SymbolKind::Constructor => {
|
||||
let code = format!("type t = {name}");
|
||||
let filter_range = 0..name.len();
|
||||
let display_range = 9..9 + name.len();
|
||||
(code, filter_range, display_range)
|
||||
}
|
||||
SymbolKind::Module => {
|
||||
let code = format!("module {name} = struct end");
|
||||
let filter_range = 7..7 + name.len();
|
||||
let display_range = 0..filter_range.end;
|
||||
(code, filter_range, display_range)
|
||||
}
|
||||
SymbolKind::Class => {
|
||||
let code = format!("class {name} = object end");
|
||||
let filter_range = 6..6 + name.len();
|
||||
let display_range = 0..filter_range.end;
|
||||
(code, filter_range, display_range)
|
||||
}
|
||||
SymbolKind::Method => {
|
||||
let code = format!("class c = object method {name} = () end");
|
||||
let filter_range = 0..name.len();
|
||||
let display_range = 17..24 + name.len();
|
||||
(code, filter_range, display_range)
|
||||
}
|
||||
SymbolKind::String => {
|
||||
let code = format!("type {name} = T");
|
||||
let filter_range = 5..5 + name.len();
|
||||
let display_range = 0..filter_range.end;
|
||||
(code, filter_range, display_range)
|
||||
}
|
||||
_ => return None,
|
||||
};
|
||||
|
||||
Some(CodeLabel {
|
||||
code,
|
||||
spans: vec![CodeLabelSpan::code_range(display_range)],
|
||||
filter_range: filter_range.into(),
|
||||
})
|
||||
}
|
||||
}
|
||||
|
||||
zed::register_extension!(OcamlExtension);
|
||||
Loading…
Add table
Add a link
Reference in a new issue