16 lines
515 B
EmacsLisp
16 lines
515 B
EmacsLisp
|
;;; lang/kotlin/autoload.el -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
;;;autoload
|
||
|
|
(defun +kotlin/locate-gradlew-file ()
|
||
|
|
"Gradlew file location for this project."
|
||
|
|
(locate-dominating-file buffer-file-name "gradlew"))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun +kotlin/run-gradlew (command)
|
||
|
|
"Run gradlew in this project."
|
||
|
|
(interactive "sCommand: ")
|
||
|
|
(let ((default-directory (+kotlin/locate-gradlew-file))
|
||
|
|
(compilation-read-command nil)
|
||
|
|
(compile-command (format "sh gradlew %s" command)))
|
||
|
|
(call-interactively #'compile)))
|