make emacs can navigate codes in a jar file like vim did.

History.txt

@@ -4,6 +4,18 @@
 
 === New features
  * company mode completion can be case insensitive
+ * added eclim-run-configuartion which runs a run configuration in the
+   compilation buffer.
+ * added eclim-java-generate-getter which generates a getter method
+   for the symbol at point.
+ * added eclim-java-generate-setter which generates a setter method
+   for the symbol at point.
+ * added eclim-java-refactor-move-class which allows moving a top level
+   class or interface from one package to another.
+ * added eclim-project-setting-set which can assign an Eclim project
+   setting.
+ * Fixed some compiler warnings. Not all compiler warnings were fixed
+   since those changes could not be tested.
 
 == 0.3
 

README.md

@@ -1,13 +1,13 @@
 Development has moved to https://github.com/emacs-eclim/emacs-eclim
 
 [![License GPL 3][badge-license]](http://www.gnu.org/licenses/gpl-3.0.txt)
-[![Build Status](https://travis-ci.org/senny/emacs-eclim.svg?branch=master)](https://travis-ci.org/senny/emacs-eclim)
+[![Build Status](https://travis-ci.org/emacs-eclim/emacs-eclim.svg?branch=master)](https://travis-ci.org/emacs-eclim/emacs-eclim)
 [![MELPA](http://melpa.org/packages/emacs-eclim-badge.svg)](http://melpa.org/#/emacs-eclim)
 [![MELPA Stable](http://stable.melpa.org/packages/emacs-eclim-badge.svg)](http://stable.melpa.org/#/emacs-eclim)
 
 ## Overview
 
-[![Join the chat at https://gitter.im/senny/emacs-eclim](https://badges.gitter.im/Join%20Chat.svg)](https://gitter.im/senny/emacs-eclim?utm_source=badge&utm_medium=badge&utm_campaign=pr-badge&utm_content=badge)
+[![Join the chat at https://gitter.im/emacs-eclim/emacs-eclim](https://badges.gitter.im/emacs-eclim/emacs-eclim.svg)](https://gitter.im/emacs-eclim/emacs-eclim?utm_source=badge&utm_medium=badge&utm_campaign=pr-badge&utm_content=badge)
 
 [Eclim](http://eclim.org) is an Eclipse plugin which exposes Eclipse
 features through a server interface.  When this server is started, the

company-emacs-eclim.el

@@ -1,4 +1,4 @@
-;; company-emacs-eclim.el --- an interface to the Eclipse IDE.
+;;; company-emacs-eclim.el --- an interface to the Eclipse IDE.
 ;;
 ;; Copyright (C) 2009-2012   Fredrik Appelberg
 ;; Copyright (C) 2013-2014   Dmitry Gutov
@@ -16,7 +16,7 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;
-;;; Description
+;;; Commentary:
 ;;
 ;; company-emacs-eclim.el -- company-mode backend that replaces company-eclim
 ;;
@@ -26,26 +26,30 @@
 ;;
 ;; Minimum company-mode version required: 0.7.
 
+;;; Code:
+
 ;;* Eclim Company
 
 (require 'eclim)
 (require 'eclim-completion)
 (require 'eclim-java)
 (require 'company)
+(require 'cl-lib)
 
 (defcustom company-emacs-eclim-ignore-case t
   "If t, case is ignored in completion matches."
   :group 'eclim-company
   :type '(choice (const :tag "Yes" t)
                  (const :tag "No" nil)))
 
+;;;###autoload
 (defun company-emacs-eclim-setup ()
   "Convenience function that adds company-emacs-eclim to the list
   of available company backends."
   (setq company-backends
         (cons 'company-emacs-eclim
-              (remove-if (lambda (b) (find b '(company-nxml company-eclim)))
-                         company-backends))))
+              (cl-remove-if (lambda (b) (cl-find b '(company-nxml company-eclim)))
+                            company-backends))))
 
 (defun company-emacs-eclim--before-prefix-in-buffer (prefix)
   "Search for the text before prefix that may be included as part of completions"
@@ -80,17 +84,22 @@
       (mapcar
        (lambda (candidate)
          (annotate (without-redundant-prefix candidate)))
-       (eclim--completion-candidates)))))
+       ;; Company says backend is responsible for filtering prefix case.
+       (if company-emacs-eclim-ignore-case
+           (eclim--completion-candidates)
+         (cl-remove-if-not #'(lambda(str) (string-prefix-p prefix str))
+                           (eclim--completion-candidates)))))))
 
 (defun company-emacs-eclim--annotation (candidate)
   (let ((str (get-text-property 0 'eclim-meta candidate)))
     (when (and str (string-match "(" str))
       (substring str (match-beginning 0)))))
 
+;;;###autoload
 (defun company-emacs-eclim (command &optional arg &rest ignored)
   "`company-mode' back-end for Eclim completion"
   (interactive (list 'interactive))
-  (case command
+  (cl-case command
     (interactive (company-begin-backend 'company-emacs-eclim))
     (prefix (let ((start (and eclim-mode
                               (eclim--accepted-p (buffer-file-name))
@@ -115,3 +124,4 @@
     (eclim--completion-action beg end)))
 
 (provide 'company-emacs-eclim)
+;;; company-emacs-eclim.el ends here

eclim-ant.el

@@ -67,7 +67,7 @@ stored. It is used globally for all eclim projects."
   (eclim--check-project project)
   (mapcar (lambda (line)
             (split-string line "|"))
-          (eclim--call-process "ant_validate" "-p" project "-f" file)))
+          (eclim--call-process "ant_validate" "-p" project "-f" buildfile)))
 
 (defun eclim/ant-target-list (project buildfile)
   (eclim--check-project project)
@@ -89,7 +89,7 @@ buffer. The results are displayed in a dedicated compilation buffer."
     (dolist (line (eclim/ant-validate project file))
       (insert (eclim--convert-find-result-to-string line))
       (newline)))
-  (beginning-of-buffer)
+  (goto-char (point-min))
   (compilation-mode))
 
 (defun eclim-ant-run (target)

eclim-completion.el

@@ -50,6 +50,13 @@
 
 (defvar eclim--completion-candidates nil)
 
+(defvar eclim-insertion-functions nil
+  "Use one of these functons when inserting a completion in
+preference to yasnippet or raw insertion. Each will be called
+with a yas template and should return nil iff it cannot do the
+insertion (e.g. wrong mode). For example, `eclim-completion-insert-empty'
+removes all arguments before inserting.")
+
 (defun eclim--complete ()
   (setq eclim--is-completing t)
   (unwind-protect
@@ -75,6 +82,7 @@
     (setq eclim--is-completing nil)))
 
 (defun eclim--completion-candidates-filter (c)
+  "Rejects completion candidate C (non-nil return) in certain situations."
   (case major-mode
     ((xml-mode nxml-mode) (or (search "XML Schema" c)
                               (search "Namespace" c)))
@@ -142,15 +150,24 @@ buffer."
 
 (defun eclim--completion-yasnippet-convert (completion)
   "Convert a completion string to a yasnippet template"
-  (apply #' concat
-            (loop for c across (replace-regexp-in-string ", " "," completion)
-                  collect (case c
-                            (40 "(${")
-                            (60 "<${")
-                            (44 "}, ${")
-                            (41 "})")
-                            (62 "}>")
-                            (t (char-to-string c))))))
+  (let ((level 0))
+    (replace-regexp-in-string
+     ;; ORs: 1) avoid empty case; 2) eat spaces sometimes; 3) not when closing.
+     "()\\|[(<,] *\\|[)>]"
+     #'(lambda (m)
+         (let ((c (string-to-char m)) (repl m))
+           (unless (string= m "()")
+             (when (memq c '(?\( ?<)) (incf level))
+             (when (<= level 1) (setq repl (case c
+                                             (?\( "(${")
+                                             (?< "<${")
+                                             (?, "}, ${")
+                                             (?\) "})")
+                                             (?> "}>")
+                                             (t (error "RE/case mismatch")))))
+             (when (memq c '(?\) ?>)) (decf level)))
+           repl))
+     completion)))
 
 (defvar eclim--completion-start)
 
@@ -161,6 +178,15 @@ buffer."
           (case major-mode
             ((java-mode javascript-mode js-mode ruby-mode groovy-mode php-mode c-mode c++-mode scala-mode)
              (progn
+               ;; Allow completion after open bracket. Eclipse/eclim do.
+               (when (or (eq ?\( (char-before))
+                         ;; Template? Technically it could be a less-than sign
+                         ;; but it's unlikely the user completes there and
+                         ;; no particular harm done.
+                         (and (eq ?\< (char-before))
+                              (memq major-mode
+                                    '(java-mode c++-mode goovy-mode))))
+                 (backward-char 1))
                (ignore-errors (beginning-of-thing 'symbol))
                ;; Completion candidates for annotations don't include '@'.
                (when (eq ?@ (char-after))
@@ -183,9 +209,12 @@ buffer."
                   (package (if (and rest (string-match "\\w+\\(\\.\\w+\\)*" rest)) rest nil))
                   (template (eclim--completion-yasnippet-convert insertion)))
              (delete-region beg end)
-             (if (and eclim-use-yasnippet template (featurep 'yasnippet) yas-minor-mode)
+             (unless (loop for f in eclim-insertion-functions thereis
+                           (funcall f template))
+               (if (and eclim-use-yasnippet template
+                        (featurep 'yasnippet) yas-minor-mode)
                  (yas/expand-snippet template)
-               (insert insertion))
+               (insert insertion)))
              (when package
                (eclim-java-import
                 (concat package "." (substring insertion 0 (or (string-match "[<(]" insertion)
@@ -212,12 +241,13 @@ buffer."
         (backward-char)))))
 
 (defun eclim--completion-action (beg end)
-  (case major-mode
-    ('java-mode (eclim--completion-action-java beg end))
-    ('groovy-mode (eclim--completion-action-java beg end))
-    ((c-mode c++-mode) (eclim--completion-action-java beg end))
-    ('nxml-mode (eclim--completion-action-xml beg end))
-    (t (eclim--completion-action-default))))
+  (let ((eclim--is-completing t)) ;; an import should not refresh problems
+    (case major-mode
+      ('java-mode (eclim--completion-action-java beg end))
+      ('groovy-mode (eclim--completion-action-java beg end))
+      ((c-mode c++-mode) (eclim--completion-action-java beg end))
+      ('nxml-mode (eclim--completion-action-xml beg end))
+      (t (eclim--completion-action-default)))))
 
 (defun eclim--render-doc (str)
   "Performs rudimentary rendering of HTML elements in
@@ -238,4 +268,14 @@ completion candidates list."
     (when doc
       (eclim--render-doc doc))))
 
+(defun eclim-completion-insert-empty (template)
+  "Insert a completion erasing arguments, leaving point inside argument list
+or outside if empty. Meant for `eclim-insertion-functions'."
+  (save-match-data
+    (if (not (string-match "${.*}" template))
+        (insert template)
+      (insert (substring template 0 (match-beginning 0)))
+      (save-excursion (insert (substring template (match-end 0))))))
+  t)
+
 (provide 'eclim-completion)

eclim-java-run.el

@@ -146,5 +146,16 @@
                                 classpath
                                 project-dir))))
 
+(defun eclim-run-configuartion (configuration-name)
+      "Runs the configuration given in CONFIGURATION-NAME in the compilation buffer."
+      (interactive (list (eclim-java-run--ask-which-configuration)))
+      (let* ((configurations (eclim-java-run--load-configurations (eclim-project-name)))
+             (configuration (eclim-java-run--configuration configuration-name configurations))
+             (project-dir (eclim-java-run--project-dir (eclim-project-name)))
+             (classpath (eclim/java-classpath (eclim-project-name)))
+             (default-directory project-dir)
+             (command (eclim-java-run--command configuration (eclim-java-run--java-vm-args classpath))))
+        (compile command)))
+
 (provide 'eclim-java-run)
 ;;; eclim-java-run.el ends here