mirror of
https://github.com/doomemacs/doomemacs
synced 2025-09-14 15:46:56 -05:00
28 lines
666 B
EmacsLisp
28 lines
666 B
EmacsLisp
;;; lang/ada/auoload.el -*- lexical-binding: t; -*-
|
|
|
|
(defun +ada--barf-unless-project ()
|
|
(unless (locate-dominating-file defaul-directory "alire.toml")
|
|
(user-error "Not inside an Alire project")))
|
|
|
|
|
|
;;;###autoload
|
|
(defun +ada/alr-build ()
|
|
"Run 'alr build' in the current project."
|
|
(interactive)
|
|
(+ada--barf-unless-project)
|
|
(compile "alr build"))
|
|
|
|
;;;###autoload
|
|
(defun +ada/alr-run ()
|
|
"Run 'alr run' in the current project."
|
|
(interactive)
|
|
(+ada--barf-unless-project)
|
|
(compile "alr run"))
|
|
|
|
;;;###autoload
|
|
(defun +ada/alr-clean ()
|
|
"Run 'alr clean' in the current project."
|
|
(interactive)
|
|
(+ada--barf-unless-project)
|
|
(compile "alr clean"))
|