[nongnu] elpa/dart-mode 848f983 104/192: Show docs for expansions

[ELPA Syncer]

branch: elpa/dart-mode
commit 848f9836a53efe7d54b3689ec164b376222dc4a2
Author: Natalie Weizenbaum <nex342@gmail.com>
Commit: Natalie Weizenbaum <nex342@gmail.com>

    Show docs for expansions
---
 dart-mode.el | 42 +++++++++++++++++++++++++++++++++++++++---
 1 file changed, 39 insertions(+), 3 deletions(-)

diff --git a/dart-mode.el b/dart-mode.el
index 12cf8a3..180583f 100644
--- a/dart-mode.el
+++ b/dart-mode.el
@@ -1458,14 +1458,50 @@ If FIRST is non-nil, this is the first completion event 
for this completion."
 (defun dart--use-expand-suggestion (offset length suggestion)
   "Inserts SUGGESTION at OFFSET and LENGTH."
   (dart--json-let suggestion
-      (completion
-       (selection-offset selectionOffset))
+      (completion element
+       (selection-offset selectionOffset)
+       (is-deprecated isDeprecated)
+       (doc-summary docSummary))
     (setq dart--last-expand-length (length completion))
 
     (goto-char offset)
     (delete-char length)
     (save-excursion (insert completion))
-    (forward-char selection-offset)))
+    (forward-char selection-offset)
+
+    (with-temp-buffer
+      (when (eq is-deprecated t)
+        (insert (dart--face-string "DEPRECATED" 'font-lock-warning-face) ?\n))
+
+      (insert (dart--highlight-description (dart--description-of-element 
element)))
+      (when doc-summary
+        (insert ?\n ?\n (dart--highlight-dartdoc doc-summary nil)))
+
+      (message "%s" (buffer-string)))))
+
+(defun dart--description-of-element (element)
+  "Returns a textual description of an analysis server ELEMENT."
+  (dart--json-let element
+      (kind name parameters
+       (return-type returnType)
+       (type-parameters typeParameters))
+    (with-temp-buffer
+      (if (equal kind "CONSTRUCTOR")
+          (progn
+            (insert "new " return-type)
+            (unless (string-empty-p name)
+              (insert "." name))
+            (insert parameters)
+            (insert " → " return-type))
+
+        (case kind
+          ("GETTER" (insert "get "))
+          ("SETTER" (insert "set ")))
+        (insert name)
+        (when type-parameters (insert type-parameters))
+        (when parameters (insert parameters))
+        (when return-type (insert " → " return-type)))
+      (buffer-string))))
 
 
 ;;; Popup Mode