diff -r ad7b40d1f520 -r 29677daeb8ab maven.el --- 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)