1use anyhow::{anyhow, Result};
2use async_trait::async_trait;
3use futures::StreamExt;
4use gpui::AppContext;
5use language::{LanguageServerName, LspAdapter, LspAdapterDelegate};
6use lsp::LanguageServerBinary;
7use node_runtime::NodeRuntime;
8use project::project_settings::ProjectSettings;
9use serde_json::Value;
10use settings::Settings;
11use smol::fs;
12use std::{
13 any::Any,
14 ffi::OsString,
15 path::{Path, PathBuf},
16 sync::Arc,
17};
18use util::{async_maybe, ResultExt};
19
20const SERVER_NAME: &str = "elm-language-server";
21const SERVER_PATH: &str = "node_modules/@elm-tooling/elm-language-server/out/node/index.js";
22
23fn server_binary_arguments(server_path: &Path) -> Vec<OsString> {
24 vec![server_path.into(), "--stdio".into()]
25}
26
27pub struct ElmLspAdapter {
28 node: Arc<dyn NodeRuntime>,
29}
30
31impl ElmLspAdapter {
32 pub fn new(node: Arc<dyn NodeRuntime>) -> Self {
33 ElmLspAdapter { node }
34 }
35}
36
37#[async_trait]
38impl LspAdapter for ElmLspAdapter {
39 fn name(&self) -> LanguageServerName {
40 LanguageServerName(SERVER_NAME.into())
41 }
42
43 async fn fetch_latest_server_version(
44 &self,
45 _: &dyn LspAdapterDelegate,
46 ) -> Result<Box<dyn 'static + Any + Send>> {
47 Ok(Box::new(
48 self.node
49 .npm_package_latest_version("@elm-tooling/elm-language-server")
50 .await?,
51 ) as Box<_>)
52 }
53
54 async fn fetch_server_binary(
55 &self,
56 version: Box<dyn 'static + Send + Any>,
57 container_dir: PathBuf,
58 _: &dyn LspAdapterDelegate,
59 ) -> Result<LanguageServerBinary> {
60 let version = version.downcast::<String>().unwrap();
61 let server_path = container_dir.join(SERVER_PATH);
62
63 if fs::metadata(&server_path).await.is_err() {
64 self.node
65 .npm_install_packages(
66 &container_dir,
67 &[("@elm-tooling/elm-language-server", version.as_str())],
68 )
69 .await?;
70 }
71
72 Ok(LanguageServerBinary {
73 path: self.node.binary_path().await?,
74 env: None,
75 arguments: server_binary_arguments(&server_path),
76 })
77 }
78
79 async fn cached_server_binary(
80 &self,
81 container_dir: PathBuf,
82 _: &dyn LspAdapterDelegate,
83 ) -> Option<LanguageServerBinary> {
84 get_cached_server_binary(container_dir, &*self.node).await
85 }
86
87 async fn installation_test_binary(
88 &self,
89 container_dir: PathBuf,
90 ) -> Option<LanguageServerBinary> {
91 get_cached_server_binary(container_dir, &*self.node).await
92 }
93
94 fn workspace_configuration(&self, _workspace_root: &Path, cx: &mut AppContext) -> Value {
95 // elm-language-server expects workspace didChangeConfiguration notification
96 // params to be the same as lsp initialization_options
97 let override_options = ProjectSettings::get_global(cx)
98 .lsp
99 .get(SERVER_NAME)
100 .and_then(|s| s.initialization_options.clone())
101 .unwrap_or_default();
102
103 match override_options.clone().as_object_mut() {
104 Some(op) => {
105 // elm-language-server requests workspace configuration
106 // for the `elmLS` section, so we have to nest
107 // another copy of initialization_options there
108 op.insert("elmLS".into(), override_options);
109 serde_json::to_value(op).unwrap_or_default()
110 }
111 None => override_options,
112 }
113 }
114}
115
116async fn get_cached_server_binary(
117 container_dir: PathBuf,
118 node: &dyn NodeRuntime,
119) -> Option<LanguageServerBinary> {
120 async_maybe!({
121 let mut last_version_dir = None;
122 let mut entries = fs::read_dir(&container_dir).await?;
123 while let Some(entry) = entries.next().await {
124 let entry = entry?;
125 if entry.file_type().await?.is_dir() {
126 last_version_dir = Some(entry.path());
127 }
128 }
129 let last_version_dir = last_version_dir.ok_or_else(|| anyhow!("no cached binary"))?;
130 let server_path = last_version_dir.join(SERVER_PATH);
131 if server_path.exists() {
132 Ok(LanguageServerBinary {
133 path: node.binary_path().await?,
134 env: None,
135 arguments: server_binary_arguments(&server_path),
136 })
137 } else {
138 Err(anyhow!(
139 "missing executable in directory {:?}",
140 last_version_dir
141 ))
142 }
143 })
144 .await
145 .log_err()
146}