Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 5f74873f34
Fetching contributors…

Cannot retrieve contributors at this time

file 74 lines (67 sloc) 3.006 kb
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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74
;;; Archivo de configuración de emacs para jdee, git-emacs y ecb
;;;
;;; 2009-2011 juanger
;;;
;;;

(add-to-list 'load-path (expand-file-name "~/.emacs.d/site/"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/site/git-emacs"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/site/jdee/lisp"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/site/cedet-1.0pre7/common"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/site/elib"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/site/cedet-1.0pre7/semantic"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/site/cedet-1.0pre7/speedbar"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/site/cedet-1.0pre7/eieio"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/site/cedet-1.0pre7/ede"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/site/ecb-2.40"))

(load-file (expand-file-name "~/.emacs.d/site/cedet-1.0pre7/common/cedet.el"))

(require 'git-emacs)
(require 'jde)
(require 'ecb)

(defvar mvn-command-history nil
  "Maven command history variable")

(defun mvn(&optional args)
  "Runs maven in the current project. Starting at the directory where the file being visited resides, a search is
made for pom.xml recsurively. A maven command is made from the first directory where the pom.xml file is found is then displayed
in the minibuffer. The command can be edited as needed and then executed. Errors are navigate to as in any other compile mode"
  (interactive)
  (let ((fn (buffer-file-name)))
    (let ((dir (file-name-directory fn)))
      (while (and (not (file-exists-p (concat dir "/pom.xml")))
                  (not (equal dir (file-truename (concat dir "/..")))))
        (setf dir (file-truename (concat dir "/.."))))
      (if (not (file-exists-p (concat dir "/pom.xml")))
          (message "No pom.xml found")
        (compile (read-from-minibuffer "Command: "
                                       (concat "mvn -f " dir "/pom.xml") nil nil 'mvn-command-history))))))

(defun run-mvn()
  (interactive)
  (progn
    (mvn)
    (bsh-exit)
    (jde-load-all-project-files)))

;;;;;;;;;
;;;;;
;;;;; Custom variables
;;;;;
;;;;;;;;;
(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(before-save-hook (quote (delete-trailing-whitespace)))
 '(ecb-auto-activate t)
 '(ecb-options-version "2.40")
 '(ecb-primary-secondary-mouse-buttons (quote mouse-1--mouse-2))
 '(ecb-tip-of-the-day nil)
 '(indent-tabs-mode nil)
 '(paren-match-face (quote paren-face-match-light))
 '(paren-sexp-mode t)
 '(show-paren-mode t)
 '(transient-mark-mode t))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 )
Something went wrong with that request. Please try again.