m68k-lsp.el

;;; m68k-lsp.el --- lsp-mode configuration for m68k assembly

;;; Commentary:
;; lsp mode configuration for
;; https://github.com/grahambates/m68k-lsp
;; uses the basic m68k setup 

;;; Code:

(require 'lsp-mode)

;; defined in m68k-mode
(defvar m68k-mode-hook nil)

(add-to-list 'm68k-mode-hook #'lsp)
(add-to-list 'lsp-language-id-configuration '(m68k-mode . "m68k"))

(defcustom m68k-processor-types ["mc68000"]
  "Types of processors we are targeting (e.g, mc68000, mc68020, mc68881 etc.). Set to get fitting completion candidates, documentation etc."
  :group 'm68k-lsp
  :type 'vector)

(defcustom m68k-include-paths []
  "Include paths to include in your session. Equivalent to INCDIR in the source code."
  :type '(repeat string)
  :group 'm68k-lsp)

(defcustom m68k-format-case "lower"
  "What casing to use for instructions and registers when formatting."
  :type '(choice (const "lower")
                 (const "upper")
                 (const "any"))
  :group 'm68k-lsp)

;; TODO: alignment settings for formatter

(lsp-register-custom-settings
 '(("m68k.format.case" m68k-format-case)
   ("m68k.processors" m68k-processor-types)
   ("m68.includePaths" m68-include-paths)))

(lsp-dependency
 'm68k-lsp-server
 '(:system "m68k-lsp-server")
 '(:npm :package "m68k-lsp-server"
        :path "m68k-lsp-server"))

(lsp-register-client
 (make-lsp-client
  :new-connection (lsp-stdio-connection (lambda () (list (or (executable-find "m68k-lsp-server")
                                                        (lsp-package-path 'm68k-lsp-server))
                                                    "--stdio")))
  :priority -1
  :activation-fn (lsp-activate-on "m68k")
  :initialized-fn (lambda (workspace)
                    (with-lsp-workspace workspace
                      (lsp--set-configuration (lsp-configuration-section "m68k"))))
  :server-id 'm68k-ls
  :download-server-fn (lambda (_client callback error-callback _update?)
                        (lsp-package-ensure 'm68k-lsp-server callback error-callback))))

(provide 'm68k-lsp)
;;; m68k-lsp.el ends here