gistfile1.el

(defun huwigs-build-ipregistry (clean)
  "Build the IP Registry UI project.

Argument CLEAN if prefix arg is given, clean and then build."
  (interactive "P")
  (let ((default-directory *ipregistry-project-directory*)
        (command (if clean 
                     "/home/huwigs/bin/mvn -B clean pmd:check tomcat6:run"
                   "/home/huwigs/bin/mvn -DskipTests=true tomcat6:run"))
        (tags-revert-without-query t))
    (setenv "JAVA_HOME" *java-home*)
    (shell-command "/usr/bin/etags -R")
    (visit-tags-table *ipregistry-project-directory*)
    (setq compilation-parse-errors-filename-function 'huwigs-compilation-parse-maven-filenames-function)
    (compile command)))