Merge branch 'java-config'

custom.el

@@ -22,6 +22,8 @@
  '(dired-listing-switches "-alh")
  '(elpy-eldoc-show-current-function
    nil)
+ '(find-file-suppress-same-file-warnings
+   t)
  '(hippie-expand-try-functions-list
    (quote
     (try-expand-dabbrev
@@ -57,7 +59,9 @@
  '(menu-bar-mode nil)
  '(package-selected-packages
    (quote
-    (elmacro
+    (autodisass-java-bytecode
+     meghanada
+     elmacro
      ace-window
      winum
      spaceline

settings.org

@@ -184,6 +184,67 @@ This handy function is a customized ripoff of custom-save-all
 #+END_SRC
 * Major modes
 ** Java
+*** Meghanada
+#+BEGIN_SRC emacs-lisp
+  (use-package autodisass-java-bytecode
+    :defer t)
+
+  (use-package meghanada
+    :defer t
+    :init
+    (add-hook 'java-mode-hook
+	      (lambda ()
+		(meghanada-mode t)
+		(flycheck-mode +1)
+		(add-hook 'before-save-hook 'meghanada-code-beautify-before-save)))
+
+    :config
+    (setq indent-tabs-mode nil)
+    (setq meghanada-server-remote-debug t)
+    (setq meghanada-javac-xlint "-Xlint:all,-processing")
+    (defhydra hydra-meghanada (:hint nil :exit t)
+      "
+  ^Edit^                           ^Tast or Task^
+  ^^^^^^-------------------------------------------------------
+ _f_: meghanada-compile-file _m_: meghanada-restart
+ _c_: meghanada-compile-project _t_: meghanada-run-task
+ _o_: meghanada-optimize-import _j_: meghanada-run-junit-test-case
+ _s_: meghanada-switch-test-case _J_: meghanada-run-junit-class
+ _v_: meghanada-local-variable _R_: meghanada-run-junit-recent
+ _i_: meghanada-import-all _r_: meghanada-reference
+ _g_: magit-status _T_: meghanada-typeinfo
+ _q_: exit
+  "
+      ("f" meghanada-compile-file)
+      ("m" meghanada-restart)
+
+      ("c" meghanada-compile-project)
+      ("o" meghanada-optimize-import)
+      ("s" meghanada-switch-test-case)
+      ("v" meghanada-local-variable)
+      ("i" meghanada-import-all)
+
+      ("g" magit-status)
+
+      ("t" meghanada-run-task)
+      ("T" meghanada-typeinfo)
+      ("j" meghanada-run-junit-test-case)
+      ("J" meghanada-run-junit-class)
+      ("R" meghanada-run-junit-recent)
+      ("r" meghanada-reference)
+
+      ("q" exit)
+      ("z" nil "leave"))
+    :bind
+    (:map meghanada-mode-map
+	  ("C-S-t" . meghanada-switch-testcase)
+	  ("M-RET" . meghanada-local-variable)
+	  ("M-r" . meghanada-reference)
+	  ("M-t" . meghanada-typeinfo)
+	  ("C-z" . hydra-meghanada/body))
+    :commands
+    (meghanada-mode))
+#+END_SRC
 ** JavaScript
 #+BEGIN_SRC emacs-lisp
   (use-package js2-mode