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(?Send)]
 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        latest_version: Box<dyn 'static + Send + Any>,
 57        container_dir: PathBuf,
 58        _: &dyn LspAdapterDelegate,
 59    ) -> Result<LanguageServerBinary> {
 60        let latest_version = latest_version.downcast::<String>().unwrap();
 61        let server_path = container_dir.join(SERVER_PATH);
 62        let package_name = "@elm-tooling/elm-language-server";
 63
 64        let should_install_language_server = self
 65            .node
 66            .should_install_npm_package(package_name, &server_path, &container_dir, &latest_version)
 67            .await;
 68
 69        if should_install_language_server {
 70            self.node
 71                .npm_install_packages(&container_dir, &[(package_name, latest_version.as_str())])
 72                .await?;
 73        }
 74
 75        Ok(LanguageServerBinary {
 76            path: self.node.binary_path().await?,
 77            env: None,
 78            arguments: server_binary_arguments(&server_path),
 79        })
 80    }
 81
 82    async fn cached_server_binary(
 83        &self,
 84        container_dir: PathBuf,
 85        _: &dyn LspAdapterDelegate,
 86    ) -> Option<LanguageServerBinary> {
 87        get_cached_server_binary(container_dir, &*self.node).await
 88    }
 89
 90    async fn installation_test_binary(
 91        &self,
 92        container_dir: PathBuf,
 93    ) -> Option<LanguageServerBinary> {
 94        get_cached_server_binary(container_dir, &*self.node).await
 95    }
 96
 97    fn workspace_configuration(&self, _workspace_root: &Path, cx: &mut AppContext) -> Value {
 98        // elm-language-server expects workspace didChangeConfiguration notification
 99        // params to be the same as lsp initialization_options
100        let override_options = ProjectSettings::get_global(cx)
101            .lsp
102            .get(SERVER_NAME)
103            .and_then(|s| s.initialization_options.clone())
104            .unwrap_or_default();
105
106        match override_options.clone().as_object_mut() {
107            Some(op) => {
108                // elm-language-server requests workspace configuration
109                // for the `elmLS` section, so we have to nest
110                // another copy of initialization_options there
111                op.insert("elmLS".into(), override_options);
112                serde_json::to_value(op).unwrap_or_default()
113            }
114            None => override_options,
115        }
116    }
117}
118
119async fn get_cached_server_binary(
120    container_dir: PathBuf,
121    node: &dyn NodeRuntime,
122) -> Option<LanguageServerBinary> {
123    async_maybe!({
124        let mut last_version_dir = None;
125        let mut entries = fs::read_dir(&container_dir).await?;
126        while let Some(entry) = entries.next().await {
127            let entry = entry?;
128            if entry.file_type().await?.is_dir() {
129                last_version_dir = Some(entry.path());
130            }
131        }
132        let last_version_dir = last_version_dir.ok_or_else(|| anyhow!("no cached binary"))?;
133        let server_path = last_version_dir.join(SERVER_PATH);
134        if server_path.exists() {
135            Ok(LanguageServerBinary {
136                path: node.binary_path().await?,
137                env: None,
138                arguments: server_binary_arguments(&server_path),
139            })
140        } else {
141            Err(anyhow!(
142                "missing executable in directory {:?}",
143                last_version_dir
144            ))
145        }
146    })
147    .await
148    .log_err()
149}