mirror of
https://github.com/doomemacs/doomemacs
synced 2025-09-14 15:46:56 -05:00
45 lines
1.5 KiB
EmacsLisp
45 lines
1.5 KiB
EmacsLisp
;;; 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)))
|