[nongnu] elpa/dart-mode 8d83554 042/192: Properly indent lambdas.

[ELPA Syncer]

branch: elpa/dart-mode
commit 8d835544e33792794d5e1c2d6720cc26b9004160
Author: Nathan Weizenbaum <nweiz@google.com>
Commit: Nathan Weizenbaum <nweiz@google.com>

    Properly indent lambdas.
---
 dart-mode.el | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/dart-mode.el b/dart-mode.el
index 25099da..a7c7404 100644
--- a/dart-mode.el
+++ b/dart-mode.el
@@ -200,7 +200,9 @@
     (indent-tabs-mode . nil)
     (fill-column . 80)
     (c-offsets-alist . ((arglist-intro . +)
-                        (arglist-cont-nonempty . ++))))
+                        (arglist-cont-nonempty . ++)
+                        (statement-block-intro . dart-block-offset)
+                        (block-close . dart-block-offset))))
   "The default Dart styles.")
 
 (c-add-style "dart" dart-c-style)
@@ -211,6 +213,20 @@
 
 ;;; CC indentation support
 
+(defun dart-block-offset (info)
+  "Calculate the correct indentation for inline functions.
+
+When indenting inline functions, we want to pretend that
+functions taking them as parameters essentially don't exist."
+  (destructuring-bind (syntax . anchor) info
+    (let ((arglist-count
+           (loop for (symbol . _) in c-syntactic-context
+                 count (eq symbol 'arglist-cont-nonempty))))
+      (if (> arglist-count 0)
+          (- (* -1 c-basic-offset arglist-count)
+             (if (eq syntax 'block-close) c-basic-offset 0))
+        (if (eq syntax 'block-close) 0 '+)))))
+
 (defun dart-in-block-p (syntax-guess)
   "Return whether or not the immediately enclosing {} block is a code block.
 The other option, of course, is a map literal.