Find file
Fetching contributors…
Cannot retrieve contributors at this time
106 lines (89 sloc) 3.95 KB
;; eclim-ant.el --- an interface to the Eclipse IDE.
;; Copyright (C) 2009 Yves Senn <yves senn * gmx ch>
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <>.
;;; Contributors
;;; Conventions
;; Conventions used in this file: Name internal variables and functions
;; "eclim--<descriptive-name>", and name eclim command invocations
;; "eclim/command-name", like eclim/project-list.
;;* Eclim Ant
(define-key eclim-mode-map (kbd "C-c C-e a c") 'eclim-ant-clear-cache)
(define-key eclim-mode-map (kbd "C-c C-e a r") 'eclim-ant-run)
(define-key eclim-mode-map (kbd "C-c C-e a a") 'eclim-ant-run)
(define-key eclim-mode-map (kbd "C-c C-e a v") 'eclim-ant-validate)
(defgroup eclim-ant nil
"Build java projects using Apache Ant"
:group 'eclim)
(defcustom eclim-ant-directory ""
"This variable contains the location, where the main buildfile is
stored. It is used globally for all eclim projects."
:group 'eclim-ant
:type 'directory)
(defcustom eclim-ant-buildfile-name "build.xml"
"The name of the main buildfile from your projects."
:group 'eclim-ant
:type 'string)
(defvar eclim--ant-target-cache nil)
(defun eclim--ant-buildfile-name ()
(concat (file-name-as-directory eclim-ant-directory) eclim-ant-buildfile-name))
(defun eclim--ant-buildfile-path ()
(file-name-directory (concat (eclim--project-dir) "/" (eclim--ant-buildfile-name))))
(defun eclim--ant-targets (project buildfile)
(when (null eclim--ant-target-cache)
(setq eclim--ant-target-cache (make-hash-table :test 'equal)))
(or (gethash buildfile eclim--ant-target-cache)
(puthash buildfile (eclim/ant-target-list project buildfile) eclim--ant-target-cache)))
(defun eclim--ant-read-target (project buildfile)
(eclim--completing-read "Target: " (append (eclim--ant-targets project buildfile) nil)))
(defun eclim/ant-validate (project buildfile)
(eclim--check-project project)
(mapcar (lambda (line)
(split-string line "|"))
(eclim--call-process "ant_validate" "-p" project "-f" file)))
(defun eclim/ant-target-list (project buildfile)
(eclim--check-project project)
(eclim--call-process "ant_targets" "-p" project "-f" buildfile))
(defun eclim-ant-clear-cache ()
"Clear the cached ant target list. This can be usefull when the
buildfile for the current project has changed and needs to be updated"
(setq eclim--ant-target-cache nil))
(defun eclim-ant-validate (project file)
"Run ant-xml validation against the file opened in the current
buffer. The results are displayed in a dedicated compilation buffer."
(interactive (list (eclim-project-name) (buffer-file-name)))
(pop-to-buffer (get-buffer-create "*eclim: build*"))
(let ((buffer-read-only nil))
(dolist (line (eclim/ant-validate project file))
(insert (eclim--convert-find-result-to-string line))
(defun eclim-ant-run (target)
"run a specified ant target in the scope of the current project. If
the function is called interactively the users is presented with a
list of all available ant targets."
(interactive (list (eclim--ant-read-target (eclim-project-name)
(let ((default-directory (eclim--ant-buildfile-path)))
;; TODO: use the right version of java to execute ant
(compile (concat "ant " target))))
(provide 'eclim-ant)