1 ;;; maven.el --- Maven build project helpers.

     2 

     3 ;;; Commentary:

     4 ;;

     5 

     6 ;;; Code:

     7 

     8 (defvar maven-command "mvn")

     9 

    10 (defvar maven/help-buffer-name "*Maven Help*")

    11 

    12 (defun maven/parse-pom-dependency-in-region (start end)

    13   (let (groupId artifactId version)

    14     (save-restriction

    15       (narrow-to-region start end)

    16       (goto-char start)

    17       (re-search-forward "<groupId>\\([^<]*\\)</groupId>" nil t)

    18       (setq groupId (match-string-no-properties 1))

    19       (goto-char start)

    20       (re-search-forward "<artifactId>\\([^<]*\\)</artifactId>" nil t)

    21       (setq artifactId (match-string-no-properties 1))

    22       (goto-char start)

    23       (re-search-forward "<version>\\([^<]*\\)</version>" nil t)

    24       (setq version (match-string-no-properties 1))

    25       (list groupId artifactId version)

    26       )))

    27 

    28 (defun maven/parse-pom-dependency (&optional point)

    29   (let (start end pos groupId artifactId version fs-o bs-o fs-c bs-c)

    30     (save-excursion

    31       (if (looking-at "[^>]*<[^!]")

    32           (progn (search-forward "<") (backward-char))

    33         (search-backward "<"))

    34       (setq point (point))

    35       (when (re-search-forward "<\\(?:plugin\\|dependency\\)>" nil t)

    36         (setq fs-o (re-search-backward "<" nil t)))

    37       (goto-char point)

    38       (setq bs-o (re-search-backward "<\\(?:plugin\\|dependency\\)>" nil t))

    39       (goto-char point)

    40       (setq fs-c (re-search-forward "</\\(?:plugin\\|dependency\\)>" nil t))

    41       (goto-char point)

    42       (when (re-search-backward "</\\(?:plugin\\|dependency\\)>" nil t)

    43         (setq bs-c (re-search-forward ">" nil t)))

    44       (cond

    45        ((and fs-o (= fs-o point) fs-c)

    46         (maven/parse-pom-dependency-in-region fs-o fs-c))

    47        ((and bs-o (<= bs-o point) fs-c (<= point fs-c))

    48         (maven/parse-pom-dependency-in-region bs-o fs-c))

    49        ((and fs-o fs-c)

    50         (maven/parse-pom-dependency-in-region fs-o fs-c))

    51        ((and bs-o bs-c)

    52         (maven/parse-pom-dependency-in-region bs-o bs-c))

    53        (t

    54         (list nil nil nil)))

    55       )))

    56 ;; (pp (maven/parse-pom-dependency))

    57 

    58 ;;;###autoload

    59 (defun maven-help ()

    60   "Run help:describe for plugin at point."

    61   (interactive)

    62   (let (dependency groupId artifactId)

    63     (setq dependency (maven/parse-pom-dependency))

    64     (setq groupId (elt dependency 0))

    65     (setq artifactId (elt dependency 1))

    66     (if (not (and groupId artifactId))

    67         (message "Can't find `groupId' or `artifactId'")

    68       (shell-command

    69        (format "%s help:describe -Ddetail -DgroupId=%s -DartifactId=%s" maven-command groupId artifactId)

    70        (switch-to-buffer maven/help-buffer-name)) )

    71     ))

    72 

    73 ;;;###autoload

    74 (defun maven-effective-pom ()

    75   "Run help:effective-pom for plugin at point."

    76   (interactive)

    77   (shell-command

    78    (format "%s help:effective-pom" maven-command)

    79    (switch-to-buffer maven/help-buffer-name)) )

    80 

    81 ;;;###autoload

    82 (defun maven-effective-settings ()

    83   "Run help:effective-settings for plugin at point."

    84   (interactive)

    85   (shell-command

    86    (format "%s help:effective-settings" maven-command)

    87    (switch-to-buffer maven/help-buffer-name)) )

    88 

    89 ;;;###autoload

    90 (defun maven-dependency-tree ()

    91   "Run dependency:tree for plugin at point."

    92   (interactive)

    93   (shell-command

    94    (format "%s dependency:tree" maven-command)

    95    (switch-to-buffer maven/help-buffer-name)) )

    96 

    97 (defun maven/project-root ()

    98   "Root of project."

    99   (let ( (dir default-directory) (found nil) )

   100     (while (and (not found) (> (length dir) 5))

   101       (when (file-exists-p (concat dir "/pom.xml"))

   102         (setq found dir))

   103       (setq dir (expand-file-name (concat dir "/.."))))

   104     found))

   105 

   106 (defun maven/file-package ()

   107   "Return file package."

   108   (save-excursion

   109     (goto-char (point-min))

   110     (let (pkg cls)

   111       (re-search-forward "package +\\([[:alnum:]_.]+\\) *;" nil t)

   112       (setq pkg (match-string-no-properties 1))

   113       (re-search-forward "class\\s +\\([[:alnum:]_]+\\)\\(\\s \\|\n\\|implements [^{]*\\|extents [^{]*\\)*{" nil t)

   114       (setq cls (match-string-no-properties 1))

   115       (when (and pkg cls)

   116         (concat pkg "." cls))) ))

   117 

   118 ;;;###autoload

   119 (defun maven-run-file ()

   120   "Run exec:java for current file."

   121   (interactive)

   122   (let* ( (default-directory (concat (maven/project-root) "/")) )

   123     (if (not default-directory)

   124         (message "Can't find maven project root")

   125       (compilation-start

   126        (format "%s exec:java -Dexec.mainClass=%s" maven-command (maven/file-package))))))

   127 

   128 ;;;###autoload

   129 (defun maven-run-test ()

   130   "Run test -Dtest=... for current file."

   131   (interactive)

   132   (let* ( (default-directory (concat (maven/project-root) "/")) )

   133     (if (not default-directory)

   134         (message "Can't find maven project root")

   135       (compilation-start

   136        (format "%s test -Dtest=%s" maven-command (maven/file-package))))))

   137 

   138 (provide 'maven)

   139 

   140 ;;; maven.el ends here