oak_scheme/
lsp.rs

1use crate::SchemeLanguage;
2use core::range::Range;
3use futures::Future;
4use oak_core::tree::RedNode;
5use oak_hover::{Hover, HoverProvider};
6use oak_lsp::service::LanguageService;
7use oak_vfs::Vfs;
8
9/// Hover provider implementation for Scheme.
10pub struct SchemeHoverProvider;
11
12impl HoverProvider<SchemeLanguage> for SchemeHoverProvider {
13    fn hover(&self, node: &RedNode<SchemeLanguage>, _range: Range<usize>) -> Option<Hover> {
14        let _kind = node.green.kind;
15        // Basic Scheme hover implementation
16        None
17    }
18}
19
20/// Language service implementation for Scheme.
21pub struct SchemeLanguageService<V: Vfs> {
22    vfs: V,
23    workspace: oak_lsp::workspace::WorkspaceManager,
24    hover_provider: SchemeHoverProvider,
25}
26
27impl<V: Vfs> SchemeLanguageService<V> {
28    /// Creates a new `SchemeLanguageService`.
29    pub fn new(vfs: V) -> Self {
30        Self { vfs, workspace: oak_lsp::workspace::WorkspaceManager::default(), hover_provider: SchemeHoverProvider }
31    }
32}
33
34impl<V: Vfs + Send + Sync + 'static + oak_vfs::WritableVfs> LanguageService for SchemeLanguageService<V> {
35    type Lang = SchemeLanguage;
36    type Vfs = V;
37
38    fn vfs(&self) -> &Self::Vfs {
39        &self.vfs
40    }
41
42    fn workspace(&self) -> &oak_lsp::workspace::WorkspaceManager {
43        &self.workspace
44    }
45
46    fn get_root(&self, uri: &str) -> impl Future<Output = Option<RedNode<'_, SchemeLanguage>>> + Send + '_ {
47        let _source = self.vfs().get_source(uri);
48        async move {
49            // Placeholder implementation
50            None
51        }
52    }
53
54    fn hover(&self, uri: &str, range: Range<usize>) -> impl Future<Output = Option<oak_lsp::Hover>> + Send + '_ {
55        let uri = uri.to_string();
56        async move { self.with_root(&uri, |root| self.hover_provider.hover(&root, range).map(|h| oak_lsp::Hover { contents: h.contents, range: h.range })).await.flatten() }
57    }
58}
oak_scheme/lsp.rs

oak_scheme/
lsp.rs
