86 lines
3.2 KiB
EmacsLisp
86 lines
3.2 KiB
EmacsLisp
|
((java-mode
|
||
|
|
.
|
||
|
|
((eval
|
||
|
|
.
|
||
|
|
(progn
|
||
|
|
(defun my/point-in-defun-declaration-p ()
|
||
|
|
(let ((bod (save-excursion (c-beginning-of-defun)
|
||
|
|
(point))))
|
||
|
|
(<= bod
|
||
|
|
(point)
|
||
|
|
(save-excursion (goto-char bod)
|
||
|
|
(re-search-forward "{")
|
||
|
|
(point)))))
|
||
|
|
|
||
|
|
(defun my/is-string-concatenation-p ()
|
||
|
|
"Returns true if the previous line is a string concatenation"
|
||
|
|
(save-excursion
|
||
|
|
(let ((start (point)))
|
||
|
|
(forward-line -1)
|
||
|
|
(if (re-search-forward " \\\+$" start t) t nil))))
|
||
|
|
|
||
|
|
(defun my/inside-java-lambda-p ()
|
||
|
|
"Returns true if point is the first statement inside of a lambda"
|
||
|
|
(save-excursion
|
||
|
|
(c-beginning-of-statement-1)
|
||
|
|
(let ((start (point)))
|
||
|
|
(forward-line -1)
|
||
|
|
(if (search-forward " -> {" start t) t nil))))
|
||
|
|
|
||
|
|
(defun my/trailing-paren-p ()
|
||
|
|
"Returns true if point is a training paren and semicolon"
|
||
|
|
(save-excursion
|
||
|
|
(end-of-line)
|
||
|
|
(let ((endpoint (point)))
|
||
|
|
(beginning-of-line)
|
||
|
|
(if (re-search-forward "[ ]*);$" endpoint t) t nil))))
|
||
|
|
|
||
|
|
(defun my/prev-line-call-with-no-args-p ()
|
||
|
|
"Return true if the previous line is a function call with no arguments"
|
||
|
|
(save-excursion
|
||
|
|
(let ((start (point)))
|
||
|
|
(forward-line -1)
|
||
|
|
(if (re-search-forward ".($" start t) t nil))))
|
||
|
|
|
||
|
|
(defun my/arglist-cont-nonempty-indentation (arg)
|
||
|
|
(if (my/inside-java-lambda-p)
|
||
|
|
'+
|
||
|
|
(if (my/is-string-concatenation-p)
|
||
|
|
16
|
||
|
|
(unless (my/point-in-defun-declaration-p) '++))))
|
||
|
|
|
||
|
|
(defun my/statement-block-intro (arg)
|
||
|
|
(if (and (c-at-statement-start-p) (my/inside-java-lambda-p)) 0 '+))
|
||
|
|
|
||
|
|
(defun my/block-close (arg)
|
||
|
|
(if (my/inside-java-lambda-p) '- 0))
|
||
|
|
|
||
|
|
(defun my/arglist-close (arg) (if (my/trailing-paren-p) 0 '--))
|
||
|
|
|
||
|
|
(defun my/arglist-intro (arg)
|
||
|
|
(if (my/prev-line-call-with-no-args-p) '++ 0))
|
||
|
|
|
||
|
|
(c-set-offset 'inline-open 0)
|
||
|
|
(c-set-offset 'topmost-intro-cont '+)
|
||
|
|
(c-set-offset 'statement-block-intro 'my/statement-block-intro)
|
||
|
|
(c-set-offset 'block-close 'my/block-close)
|
||
|
|
(c-set-offset 'knr-argdecl-intro '+)
|
||
|
|
(c-set-offset 'substatement-open '+)
|
||
|
|
(c-set-offset 'substatement-label '+)
|
||
|
|
(c-set-offset 'case-label '+)
|
||
|
|
(c-set-offset 'label '+)
|
||
|
|
(c-set-offset 'statement-case-open '+)
|
||
|
|
(c-set-offset 'statement-cont '++)
|
||
|
|
(c-set-offset 'arglist-intro 'my/arglist-intro)
|
||
|
|
(c-set-offset 'arglist-cont-nonempty '(my/arglist-cont-nonempty-indentation c-lineup-arglist))
|
||
|
|
(c-set-offset 'arglist-close 'my/arglist-close)
|
||
|
|
(c-set-offset 'inexpr-class 0)
|
||
|
|
(c-set-offset 'access-label 0)
|
||
|
|
(c-set-offset 'inher-intro '++)
|
||
|
|
(c-set-offset 'inher-cont '++)
|
||
|
|
(c-set-offset 'brace-list-intro '+)
|
||
|
|
(c-set-offset 'func-decl-cont '++)
|
||
|
|
))
|
||
|
|
(c-basic-offset . 4)
|
||
|
|
(c-comment-only-line-offset . (0 . 0)))))
|