module: add :lang ada

modules/lang/ada/config.el

@@ -0,0 +1,44 @@
+;;; lang/ada/config.el -*- lexical-binding: t; -*-
+
+;;
+;;; Packages
+
+(defun +ada-common-config (mode)
+  (when (modulep! +lsp)
+    (add-hook (intern (format "%s-local-vars-hook" mode)) #'lsp! 'append))
+
+  (map! :map ,(intern (format "%s-map" mode))
+        :localleader
+        :desc "Build Alire Project" "b" #'+ada/alr-build
+        :desc "Run Alire Project"   "r" #'+ada/alr-run
+        :desc "Clean Alire Project" "c" #'+ada/alr-clean))
+
+
+(use-package! ada-mode
+  :mode "\\.gpr\\'"
+  :config
+  (+ada-common-config 'ada-mode))
+
+
+(use-package! ada-ts-mode
+  :when (modulep! +tree-sitter)
+  :defer t
+  :init
+  (set-tree-sitter! 'ada-mode 'ada-ts-mode
+    '((ada :url "https://github.com/briot/tree-sitter-ada")))
+  :config
+  (+ada-common-config 'ada-ts-mode)
+
+  (setq ada-ts-mode-grammar-install nil)  ; redundant w/ `treesit-auto-install-grammar'
+
+  ;; HACK: `ada-ts-mode' sets buffer-local values for
+  ;;   `treesit-language-source-alist' and `eglot-server-program' during major
+  ;;   mode activation. This is poor ettiquite, overshadowing any user changes
+  ;;   to the global values of these variables. Not to mention, it's redundant
+  ;;   with ~set-tree-sitter!~ and ~eglot~ already handling support for
+  ;;   ada-ts-mode.
+  ;; REVIEW: Undo buffer-local changes to these variables upstream.
+  (defadvice! +ada--suppress-side-effects-a (&rest _)
+    :after #'ada-ts-mode
+    (kill-local-variable 'treesit-language-source-alist)
+    (kill-local-variable 'eglot-server-programs)))