;;---------------------------------------------------------------------------
;;
;; Emacs-Options for Java programming
;; (indentation is compatible to the "SeMoA Code Conventions")
;;
;; This addon to '.emacs' requires 'cc-mode.el'
;; ('cc-mode.el' is available at: http://cc-mode.sourceforge.net)
;;
;;---------------------------------------------------------------------------

;; associate java-mode with file extension '.java'
(setq auto-mode-alist
      (append
       '(("\\.java$" . java-mode)
	 ) auto-mode-alist))

;; define semoa java style settings
(defconst semoa-java-style
  '((c-tab-always-indent           . t)
    (c-comment-only-line-offset    . 4)
    (c-hanging-braces-alist        . ((substatement-open after)
                                      (brace-list-open)))
    (c-hanging-colons-alist        . ((member-init-intro before)
                                      (inher-intro)
                                      (case-label after)
                                      (label after)
                                      (access-label after)))
    (c-cleanup-list                . (scope-operator
                                      empty-defun-braces
                                      defun-close-semi))
    
    (c-offsets-alist     . ((string . -1000)
			    (c . c-lineup-C-comments)
			    (defun-open . 0)
			    (defun-close . 0)
			    (defun-block-intro . +)
			    (class-open . 0)
			    (class-close . 0)
			    (inline-open . 0)
			    (inline-close . 0)
			    (topmost-intro . 0)
			    (topmost-intro-cont . 0)
			    (member-init-intro . +)
			    (member-init-cont . 0)
			    (inher-intro . +)
			    (inher-cont . 0)
			    (block-open . 0)
			    (block-close . 0)
			    (brace-list-open . +)
			    (brace-list-close . 0)
			    (brace-list-intro . +)
			    (brace-list-entry . 0)
			    (statement . 0)
			    (statement-cont . +)
			    (statement-block-intro . +)
			    (statement-case-intro . +)
			    (statement-case-open . +)
			    (substatement . +)
			    (substatement-open . 0)
			    (case-label . +)
			    (access-label . -)
			    (label . -1000)
			    (do-while-closure . 0)
			    (else-clause . 0)
			    (comment-intro . 0)
			    (arglist-intro . +)
			    (arglist-cont . 0)
			    (arglist-cont-nonempty . c-lineup-arglist)
			    (arglist-close . 0)
			    (stream-op . +)
			    (inclass . +)
			    (cpp-macro . -1000)
			    (friend . 0)
			    (objc-method-intro . 0)
			    (objc-method-args-cont . 0)
			    (objc-method-call-cont . 0)))

    (c-basic-offset . 4)
    (c-echo-syntactic-information-p . t)
    )
  "SeMoA Java Programming Style")

;; Customizations for java-mode
(defun semoa-mode-hook ()
  ;; add the SeMoA java style and set it for the current buffer
  (c-add-style "SeMoA" semoa-java-style t)
  ;; offset customizations not in semoa-java-style
  (c-set-offset 'member-init-intro '++)
  ;; other customizations
  (setq tab-width 4
	;; this will make sure spaces are used instead of tabs
        indent-tabs-mode nil)
  ;; we like auto-newline and hungry-delete
  (c-toggle-auto-hungry-state 1)
  (custom-set-variables
   '(c-hanging-semi&comma-criteria nil))
  )

(add-hook 'java-mode-hook 'semoa-mode-hook)


;;---------------------------------------------------------------------------