--- a/maven.el Wed Mar 29 22:56:36 2017 +0300
+++ b/maven.el Wed Mar 29 23:55:10 2017 +0300
@@ -5,11 +5,11 @@
;;; Code:
-(defvar maven.command "mvn")
+(defvar maven-command "mvn")
-(defvar maven.help-buffer-name "*Maven Help*")
+(defvar maven/help-buffer-name "*Maven Help*")
-(defun maven.parse-pom-dependency-in-region (start end)
+(defun maven/parse-pom-dependency-in-region (start end)
(let (groupId artifactId version)
(save-restriction
(narrow-to-region start end)
@@ -25,7 +25,7 @@
(list groupId artifactId version)
)))
-(defun maven.parse-pom-dependency (&optional point)
+(defun maven/parse-pom-dependency (&optional point)
(let (start end pos groupId artifactId version fs-o bs-o fs-c bs-c)
(save-excursion
(if (looking-at "[^>]*<[^!]")
@@ -43,58 +43,58 @@
(setq bs-c (re-search-forward ">" nil t)))
(cond
((and fs-o (= fs-o point) fs-c)
- (maven.parse-pom-dependency-in-region fs-o fs-c))
+ (maven/parse-pom-dependency-in-region fs-o fs-c))
((and bs-o (<= bs-o point) fs-c (<= point fs-c))
- (maven.parse-pom-dependency-in-region bs-o fs-c))
+ (maven/parse-pom-dependency-in-region bs-o fs-c))
((and fs-o fs-c)
- (maven.parse-pom-dependency-in-region fs-o fs-c))
+ (maven/parse-pom-dependency-in-region fs-o fs-c))
((and bs-o bs-c)
- (maven.parse-pom-dependency-in-region bs-o bs-c))
+ (maven/parse-pom-dependency-in-region bs-o bs-c))
(t
(list nil nil nil)))
)))
-;; (pp (maven.parse-pom-dependency))
+;; (pp (maven/parse-pom-dependency))
;;;###autoload
-(defun maven.help ()
+(defun maven-help ()
"Run help:describe for plugin at point."
(interactive)
(let (dependency groupId artifactId)
- (setq dependency (maven.parse-pom-dependency))
+ (setq dependency (maven/parse-pom-dependency))
(setq groupId (elt dependency 0))
(setq artifactId (elt dependency 1))
(if (not (and groupId artifactId))
(message "Can't find `groupId' or `artifactId'")
(shell-command
- (format "%s help:describe -Ddetail -DgroupId=%s -DartifactId=%s" maven.command groupId artifactId)
- (switch-to-buffer maven.help-buffer-name)) )
+ (format "%s help:describe -Ddetail -DgroupId=%s -DartifactId=%s" maven-command groupId artifactId)
+ (switch-to-buffer maven/help-buffer-name)) )
))
;;;###autoload
-(defun maven.effective-pom ()
+(defun maven-effective-pom ()
"Run help:effective-pom for plugin at point."
(interactive)
(shell-command
- (format "%s help:effective-pom" maven.command)
- (switch-to-buffer maven.help-buffer-name)) )
+ (format "%s help:effective-pom" maven-command)
+ (switch-to-buffer maven/help-buffer-name)) )
;;;###autoload
-(defun maven.effective-settings ()
+(defun maven-effective-settings ()
"Run help:effective-settings for plugin at point."
(interactive)
(shell-command
- (format "%s help:effective-settings" maven.command)
- (switch-to-buffer maven.help-buffer-name)) )
+ (format "%s help:effective-settings" maven-command)
+ (switch-to-buffer maven/help-buffer-name)) )
;;;###autoload
-(defun maven.dependency-tree ()
+(defun maven-dependency-tree ()
"Run dependency:tree for plugin at point."
(interactive)
(shell-command
- (format "%s dependency:tree" maven.command)
- (switch-to-buffer maven.help-buffer-name)) )
+ (format "%s dependency:tree" maven-command)
+ (switch-to-buffer maven/help-buffer-name)) )
-(defun maven.project-root ()
+(defun maven/project-root ()
"Root of project."
(let ( (dir default-directory) (found nil) )
(while (and (not found) (> (length dir) 5))
@@ -103,7 +103,7 @@
(setq dir (expand-file-name (concat dir "/.."))))
found))
-(defun maven.file-package ()
+(defun maven/file-package ()
"Return file package."
(save-excursion
(goto-char (point-min))
@@ -116,24 +116,24 @@
(concat pkg "." cls))) ))
;;;###autoload
-(defun maven.run-file ()
+(defun maven-run-file ()
"Run exec:java for current file."
(interactive)
- (let* ( (default-directory (concat (maven.project-root) "/")) )
+ (let* ( (default-directory (concat (maven/project-root) "/")) )
(if (not default-directory)
(message "Can't find maven project root")
(compilation-start
- (format "%s exec:java -Dexec.mainClass=%s" maven.command (maven.file-package))))))
+ (format "%s exec:java -Dexec.mainClass=%s" maven-command (maven/file-package))))))
;;;###autoload
-(defun maven.run-test ()
+(defun maven-run-test ()
"Run test -Dtest=... for current file."
(interactive)
- (let* ( (default-directory (concat (maven.project-root) "/")) )
+ (let* ( (default-directory (concat (maven/project-root) "/")) )
(if (not default-directory)
(message "Can't find maven project root")
(compilation-start
- (format "%s test -Dtest=%s" maven.command (maven.file-package))))))
+ (format "%s test -Dtest=%s" maven-command (maven/file-package))))))
(provide 'maven)