Limit string preview with 100 characters

Author: 1602

.npmignore

@@ -0,0 +1,6 @@
+snippets
+tests
+elm-stuff
+dist
+src
+stylesheets

elm-package.json

@@ -1,5 +1,5 @@
 {
- "version": "2.1.0",
+ "version": "2.1.1",
  "summary": "JSON viewer for elm apps",
  "repository": "https://github.com/1602/json-viewer.git",
  "license": "ISC",

package.json

@@ -1,6 +1,6 @@
 {
  "name": "json-viewer-custom-element",
- "version": "2.1.0",
+ "version": "2.1.1",
  "description": "Custom HTML element: json-viewer",
  "main": "build/custom-element.js",
  "repository": "git@github.com:1602/json-viewer.git",

src/Json/Viewer.elm

@@ -237,9 +237,17 @@ previewValue : JsonValue -> Html msg
 previewValue v =
  case v of
  JsonValue.StringValue s ->
- toString s
- |> text
- |> inline JsonString
+ let
+ strLen =
+ String.length s
+ in
+ (if strLen > 100 then
+ (String.left 50 s) ++ "…" ++ (String.right 49 s)
+ else
+ toString s
+ )
+ |> text
+ |> inline JsonString
 
  JsonValue.NullValue ->
  "null"