;;; Commentary:

;;

;;; Code:

  (let (groupId artifactId version)

    (save-restriction

      (narrow-to-region start end)

      (goto-char start)

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

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

      (goto-char start)

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

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

      (goto-char start)

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

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

      (list groupId artifactId version)

      )))

  (unless point

    (setq point (point)))

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

    (save-excursion

      (goto-char point)

      (unless (eq (char-after) ?<)

        (search-backward "<"))

      (setq point (point))

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

      (when fs-o

        (setq fs-o (- fs-o 12)))

      (goto-char point)

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

      (goto-char point)

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

      (goto-char point)

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

      (when bs-c

        (setq bs-c (+ bs-c 13)))

      (cond

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

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

       ((and fs-o fs-c)

       ((and bs-o bs-c)

       (t

        (list nil nil nil)))

      )))

;;;###autoload

(defun maven.help ()

  "Run help:describe for plugin at point."

  (interactive)

  (let (dependency groupId artifactId)

    (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)) )

    ))

;;;###autoload

(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)) )

;;;###autoload

(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)) )

;;;###autoload

(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)) )

(defun maven.project-root ()

  "Root of project."

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

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

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

        (setq found dir))

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

    found))

(defun maven.file-package ()

  "Return file package."

  (save-excursion

    (goto-char (point-min))

    (let (pkg cls)

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

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

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

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

      (when (and pkg cls)

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

;;;###autoload

(defun maven.run-file ()

  "Run exec:java for current file."

  (interactive)

  (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))))))

;;;###autoload

(defun maven.run-test ()

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

  (interactive)

  (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))))))