flashdev.el/flashdev-ant.el at master · shevchuk/flashdev.el · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
;;; flashdev-ant.el --- Support for Apache Ant for Flash development

;; Author: Demyan Rogozhin <demyan.rogozhin@gmail.com>

;; This file is a part of flashdev.el.

(require 'compile)

(defun flashdev-ant-build (&optional target)
  "Call apache Ant via M-x comile and highlight errors."
  (interactive)
  (let* ((target (or target "main"))
         (compilation-error-regexp-alist-alist
          (list
           '(flex
             "^\\(.+\\)(\\([[:digit:]]+\\)): \\([^:]+: \\([[:digit:]]+\\)\\)?"
             1 2 4)))
         (compilation-error-regexp-alist
          (list
           'flex)))
    (compilation-start (concat "ant -emacs -s build.xml " target))))

(defun flashdev-ant-target (target)
  (interactive "MAnt Target: ")
  (flashdev-ant-build target))

(provide 'flashdev-ant)
;;; flashdev-ant.el ends here