elisp.el

(defun arno/update-eclipse ()
  (interactive)
  (thread-last (eclim/project-list)
    ;; Get names from project list
    (mapcar (lambda (p) (assoc-default 'name p)))
    ;; Remove unused projects to prevent eclipse from reopening them
    (remove-if (lambda (s) (or (equal s "GantrySync") (equal s "SvgUtil"))))
    ;; Refresh the remaining projects
    (eclim-project-refresh)))


(defun arno/update-eclipse ()
  (interactive)
  (eclim-project-refresh (remove-if (lambda (s)
                                      (or (equal s "GantrySync")
                                          (equal s "SvgUtil")))
                                    (mapcar (lambda (p)
                                              (assoc-default 'name p))
                                            (eclim/project-list)))))