Rename non-interactive function +kotlin-locate-gradlew-file

This commit is contained in:
Oleksii Filonenko 2019-04-11 10:16:53 +03:00
parent 0c0aff60a1
commit 76fb819dfb
No known key found for this signature in database
GPG key ID: F3510FE5691629A1

View file

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