mirror of
https://github.com/doomemacs/doomemacs
synced 2025-09-14 15:46:56 -05:00
27
modules/lang/ada/autoload.el
Normal file
27
modules/lang/ada/autoload.el
Normal file
@@ -0,0 +1,27 @@
|
||||
;;; 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"))
|
Reference in New Issue
Block a user