From ba7110c1565a7ca1272a647425aa573596347a47 Mon Sep 17 00:00:00 2001
From: Victor Ren <victor.ren@ericsson.com>
Date: Sun, 13 Nov 2016 03:53:46 +0100
Subject: Add an option erlang-icr-indent

The option makes it possible to customize the indention of
if/case/recieve patterns.

Before the change, the indentation of 'if' patterns is 3 steps and
'case' patterns is 4 steps.  It cannot be changed alone.  Some people
prefer other styles, for example, zero indentation.

case a of
true ->
   do_something();
false ->
   do_something_else()
end.

This patch just adds an option `erlang-icr-indent'. Its default value is
`nil' which means keeping the legacy behavior.  When non-nil, the
pattens of if/case/receive are indented according to
`erlang-icr-indent'.  "(setq erlang-icr-indent 0)" will keep
if/case/receive at the same column of the sub-clauses.

Change-Id: I10c32e42dbf69cbe187f55223b9aa7824853e493
---
 lib/tools/emacs/erlang.el | 25 +++++++++++++++++--------
 1 file changed, 17 insertions(+), 8 deletions(-)

(limited to 'lib/tools/emacs')

diff --git a/lib/tools/emacs/erlang.el b/lib/tools/emacs/erlang.el
index 40f0bb7f80..39c6065ce4 100644
--- a/lib/tools/emacs/erlang.el
+++ b/lib/tools/emacs/erlang.el
@@ -479,6 +479,11 @@ To activate the workaround, place the following in your `~/.emacs' file:
   "*Indentation of Erlang calls/clauses within blocks.")
 (put 'erlang-indent-level 'safe-local-variable 'integerp)
 
+(defvar erlang-icr-indent nil
+  "*Indentation of Erlang if/case/receive/ patterns.  `nil' means
+  keeping default behavior.  When non-nil, indent to th column of
+  if/case/receive.")
+
 (defvar erlang-indent-guard 2
   "*Indentation of Erlang guards.")
 (put 'erlang-indent-guard 'safe-local-variable 'integerp)
@@ -2919,14 +2924,16 @@ Return nil if inside string, t if in a comment."
                  (t
                   (save-excursion
                     (goto-char (nth 1 stack-top))
-                    (if (looking-at "case[^_a-zA-Z0-9]")
-                        (+ (nth 2 stack-top) erlang-indent-level)
-                      (skip-chars-forward "a-z")
-                      (skip-chars-forward " \t")
-                      (if (memq (following-char) '(?% ?\n))
+                    (if (and erlang-icr-indent
+                             (looking-at "\\(if\\|case\\|receive\\)[^_a-zA-Z0-9]"))
+                        (+ (nth 2 stack-top) erlang-icr-indent)
+                      (if (looking-at "\\(case\\|receive\\)[^_a-zA-Z0-9]")
                           (+ (nth 2 stack-top) erlang-indent-level)
-                        (current-column))))))
-           )
+                        (skip-chars-forward "a-z")
+                        (skip-chars-forward " \t")
+                        (if (memq (following-char) '(?% ?\n))
+                            (+ (nth 2 stack-top) erlang-indent-level)
+                          (current-column))))))))
           ((and (eq (car stack-top) '||) (looking-at "\\(]\\|>>\\)[^_a-zA-Z0-9]"))
            (nth 2 (car (cdr stack))))
           ;; Real indentation, where operators create extra indentation etc.
@@ -2948,7 +2955,9 @@ Return nil if inside string, t if in a comment."
                       ;; If in fun definition use standard indent level not double
                       ;;(if (not (eq (car (car (cdr stack))) 'fun))
                       ;; Removed it made multi clause fun's look to bad
-                      (setq off (* 2 erlang-indent-level)))) ;; )
+                      (setq off (+ erlang-indent-level (if (not erlang-icr-indent)
+                                                           erlang-indent-level
+                                                         erlang-icr-indent))))) 
                (let ((base (erlang-indent-find-base stack indent-point off skip)))
                  ;; Special cases
                  (goto-char indent-point)
-- 
cgit v1.2.3