From 4e7de3567baef5e8bee140909be87f608b3db8b9 Mon Sep 17 00:00:00 2001 From: Michael Ghaben Date: Wed, 29 Oct 2025 00:48:13 -0700 Subject: Initial commit --- slang-lsp.el | 277 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 277 insertions(+) create mode 100644 slang-lsp.el (limited to 'slang-lsp.el') diff --git a/slang-lsp.el b/slang-lsp.el new file mode 100644 index 0000000..b5edf80 --- /dev/null +++ b/slang-lsp.el @@ -0,0 +1,277 @@ +;;; -*- lexical- binding: t; -*- +;;; slang-lsp.el --- LSP mode for Slang shader files + +;;; Code: +(require 'eglot) +(require 'slang-mode) + + +(defgroup slang-lsp nil + "LSP integration for Slang mode." + :group 'slang + :prefix "slang-lsp-") + +(defcustom slang-lsp-server-executable "slangd" + "Path to the slangd language server executable. +Can be either a full path or just the executable name if it's in PATH." + :type 'string + :group 'slang-lsp) + +(defcustom slang-lsp-server-args '() + "Additional arguments to pass to the slangd server." + :type '(repeat string) + :group 'slang-lsp) + +(defcustom slang-lsp-auto-enable t + "Whether to automatically enable LSP when opening Slang files." + :type 'boolean + :group 'slang-lsp) + +(defcustom slang-lsp-server-search-paths + '("/usr/local/bin" + "/usr/bin" + "~/.local/bin" + "~/bin" + "/opt/slang/bin") + "Paths to search for slangd executable." + :type '(repeat directory) + :group 'slang-lsp) + +(defun slang-lsp--find-server-executable () + "Find the slangd executable in the system. +Returns the full path to slangd if found, nil otherwise." + (or + ;; Check if custom executable path is valid + (when (and slang-lsp-server-executable + (not (string= slang-lsp-server-executable "slangd")) + (file-executable-p slang-lsp-server-executable)) + slang-lsp-server-executable) + + ;; Check if slangd is in PATH + (executable-find "slangd") + + ;; Search in common installation paths + (cl-some (lambda (path) + (let ((full-path (expand-file-name "slangd" path))) + (when (file-executable-p full-path) + full-path))) + slang-lsp-server-search-paths))) + +(defun slang-lsp-server-available-p () + "Check if slangd server is available on the system." + (not (null (slang-lsp--find-server-executable)))) + +(defun slang-lsp-setup-server () + "Configure eglot to use slangd for Slang files." + (let ((server-path (slang-lsp--find-server-executable))) + (if server-path + (progn + (add-to-list 'eglot-server-programs + `((slang-mode) . (,server-path ,@slang-lsp-server-args))) + (message "Slang LSP: configured slangd server at %s" server-path)) + (message "Slang LSP: slangd server not found. Please install Slang compiler or set slang-lsp-server-executable.")))) + +(defun slang-lsp-start () + "Start LSP server for current Slang buffer." + (interactive) + (if (slang-lsp-server-available-p) + (eglot-ensure) + (user-error "slangd server not available. Please install Slang compiler"))) + +(defun slang-lsp-restart () + "Restart LSP server for current Slang buffer." + (interactive) + (when (eglot-current-server) + (eglot-shutdown (eglot-current-server))) + (slang-lsp-start)) + +(defun slang-lsp-stop () + "Stop LSP server for current buffer." + (interactive) + (when (eglot-current-server) + (eglot-shutdown (eglot-current-server)))) + +(defun slang-lsp-show-server-info () + "Display information about the current LSP server." + (interactive) + (if-let ((server (eglot-current-server))) + (message "Slang LSP: Server running at %s (PID: %s)" + (eglot--server-capable-or-lose server :serverInfo :name "Unknown") + (process-id (eglot--process server))) + (message "Slang LSP: No server running for this buffer"))) + +(defun slang-lsp-update-configuration () + "Send updated workspace configuration to the language server." + (interactive) + (if-let ((server (eglot-current-server))) + (progn + (slang-lsp--setup-workspace-configuration) + (eglot-signal-didChangeConfiguration server) + (message "Slang LSP: Configuration updated")) + (message "Slang LSP: No server running for this buffer"))) + +;; Enhanced mode configuration +(defun slang-lsp-configure-buffer () + "Configure current buffer for optimal LSP experience." + (when (derived-mode-p 'slang-mode) + ;; Enable common LSP features + (setq-local eldoc-documentation-strategy 'eldoc-documentation-compose-eagerly) + + ;; Configure completion (use what's available) + (if (fboundp 'cape-dabbrev) + (setq-local completion-at-point-functions + (list #'eglot-completion-at-point + #'cape-dabbrev + #'cape-file)) + (setq-local completion-at-point-functions + (list #'eglot-completion-at-point + #'dabbrev-completion))) + + ;; Set up keybindings - only use capabilities that slangd actually supports + (local-set-key (kbd "C-c l d") #'xref-find-definitions) ; Uses definitionProvider + ;; Note: slangd doesn't support referencesProvider, implementationProvider, or typeDefinitionProvider + ;; so we don't bind those keys to avoid errors + (local-set-key (kbd "C-c l n") #'eglot-rename) + (local-set-key (kbd "C-c l f") #'eglot-format) + (local-set-key (kbd "C-c l a") #'eglot-code-actions) + (local-set-key (kbd "C-c l h") #'eldoc) + (local-set-key (kbd "C-c l s") #'slang-lsp-show-server-info) + (local-set-key (kbd "C-c l R") #'slang-lsp-restart) + (local-set-key (kbd "C-c l c") #'slang-lsp-update-configuration))) + +;; Auto-enable hook +(defun slang-lsp-auto-enable () + "Automatically enable LSP for Slang files if configured." + (when (and slang-lsp-auto-enable + (slang-lsp-server-available-p)) + (slang-lsp-start) + (slang-lsp-configure-buffer))) + +;; Initialization function +(defun slang-lsp-initialize () + "Initialize Slang LSP integration." + (slang-lsp-setup-server) + + ;; Add hook for auto-enabling LSP + (add-hook 'slang-mode-hook #'slang-lsp-auto-enable) + + ;; Configure eglot for better Slang support + (with-eval-after-load 'eglot + ;; Slang-specific server configuration + (add-to-list 'eglot-stay-out-of 'flymake) ; Use eglot's diagnostics + + ;; Enhanced diagnostics display + (setq eglot-events-buffer-size 0) ; Disable events buffer for performance + (setq eglot-autoshutdown t) ; Auto-shutdown when last buffer is closed + + ;; Optional: Log when LSP connects successfully + (add-hook 'eglot-managed-mode-hook + (lambda () + (when (derived-mode-p 'slang-mode) + (message "Slang LSP: Connected successfully")))) + + ;; Define workspace configuration for Slang LSP + (defun slang-lsp--workspace-configuration (server) + "Return workspace configuration for Slang Language Server." + (list :slang (list :completion (list :enableSnippets t + :enableAutoImport t) + :diagnostics (list :enableExperimental t) + :formatting (list :enable t) + :hover (list :enable t) + :semanticTokens (list :enable t) + :inlayHints (list :enable t)))) + + + ;; Set up workspace configuration for slang-mode buffers + (defun slang-lsp--setup-workspace-configuration () + "Set up workspace configuration for current slang buffer." + (setq-local eglot-workspace-configuration + (slang-lsp--workspace-configuration nil))) + + ;; Hook to set up workspace configuration when LSP starts + (add-hook 'eglot-managed-mode-hook + (lambda () + (when (derived-mode-p 'slang-mode) + (slang-lsp--setup-workspace-configuration)))) + )) + +;; Interactive commands for menu +(defun slang-lsp-install-guide () + "Show installation guide for slangd." + (interactive) + (message "To install slangd LSP server: 1) Download Slang from https://github.com/shader-slang/slang/releases 2) Extract slangd executable from bin/ directory 3) Add to PATH or set slang-lsp-server-executable 4) Restart Emacs. NOTE: The slangd from Vulkan SDK is NOT the LSP server!")) + +(defun slang-lsp-check-server-type () + "Check if the current slangd is the correct LSP server." + (interactive) + (let ((server-path (slang-lsp--find-server-executable))) + (if server-path + (message "✓ Found slangd at: %s (with LSP symbols based on your analysis)" server-path) + (message "No slangd executable found. Download from https://github.com/shader-slang/slang/releases")))) + +(defun slang-lsp-test-server-manual () + "Manually test the slangd server connection." + (interactive) + (let ((server-path (slang-lsp--find-server-executable))) + (if server-path + (let* ((buffer-name "*slangd-test*") + (process (start-process "slangd-test" buffer-name server-path))) + (set-process-query-on-exit-flag process nil) + (message "Started slangd test process. Check buffer: %s" buffer-name) + ;; Send a simple LSP initialize request + (run-with-timer 1 nil + (lambda () + (when (process-live-p process) + (process-send-string process + "Content-Length: 122\r\n\r\n{\"jsonrpc\":\"2.0\",\"id\":1,\"method\":\"initialize\",\"params\":{\"capabilities\":{},\"processId\":null}}\n") + (message "Sent initialize request to slangd")))) + ;; Kill after 5 seconds + (run-with-timer 5 nil + (lambda () + (when (process-live-p process) + (kill-process process) + (message "Killed slangd test process"))))) + (message "No slangd executable found")))) + +(defun slang-lsp-debug-capabilities () + "Debug function to show what capabilities the LSP server supports." + (interactive) + (if-let ((server (eglot-current-server))) + (let ((caps (eglot--capabilities server))) + (with-current-buffer (get-buffer-create "*Slang LSP Debug*") + (erase-buffer) + (insert "=== Slang LSP Server Capabilities ===\n\n") + (insert (format "Full capabilities object:\n%S\n\n" caps)) + (insert "Specific capability checks:\n") + (insert (format "definitionProvider: %S\n" (eglot-server-capable :definitionProvider))) + (insert (format "referencesProvider: %S\n" (eglot-server-capable :referencesProvider))) + (insert (format "implementationProvider: %S\n" (eglot-server-capable :implementationProvider))) + (insert (format "typeDefinitionProvider: %S\n" (eglot-server-capable :typeDefinitionProvider))) + (insert (format "declarationProvider: %S\n" (eglot-server-capable :declarationProvider))) + (pop-to-buffer (current-buffer)))) + (message "No LSP server running"))) + +;; Add menu items to slang-mode +(with-eval-after-load 'slang-mode + (easy-menu-add-item slang-mode-menu nil + '("LSP" + ["Start LSP" slang-lsp-start :enable (not (eglot-current-server))] + ["Stop LSP" slang-lsp-stop :enable (eglot-current-server)] + ["Restart LSP" slang-lsp-restart :enable (eglot-current-server)] + "---" + ["Find Definition" xref-find-definitions :enable (eglot-current-server)] + ;; Note: References, Implementation, Type Definition not supported by this slangd version + ["Rename Symbol" eglot-rename :enable (eglot-current-server)] + ["Format Buffer" eglot-format :enable (eglot-current-server)] + ["Code Actions" eglot-code-actions :enable (eglot-current-server)] + "---" + ["Update Configuration" slang-lsp-update-configuration :enable (eglot-current-server)] + ["Server Info" slang-lsp-show-server-info :enable (eglot-current-server)] + ["Debug Capabilities" slang-lsp-debug-capabilities :enable (eglot-current-server)] + ["Check Server Type" slang-lsp-check-server-type t] + ["Test Server Manual" slang-lsp-test-server-manual t] + ["Installation Guide" slang-lsp-install-guide t]))) + +(provide 'slang-lsp) + +;;; slang-lsp.el ends here -- cgit v1.2.3