svg.escobar.life

A simple SVG markup editor for the web

Commit
844d6e00bfab6a257696163999f3f18cb4595f9b
Parent
8c02e98c131ded8fac6a90fba2afa1803e9ad39b
Author
Pablo Emilio Escobar Gaviria <pablo-escobar@riseup.net>
Date

Minor improvments

Diffstat

2 files changed, 13 insertions, 3 deletions

Status File Name N° Changes Insertions Deletions
Modified css/styles.css 14 12 2
Modified src/Editor.elm 2 1 1 
diff --git a/css/styles.css b/css/styles.css
@@ -134,12 +134,13 @@ body {
     white-space: pre;
     overflow: scroll;
 
-    width: 100%;
+    width: calc(100% - 3em);
     height: 100%;
+    margin-left: 3em;
 
     font-family: 'IBM Plex Mono', 'EmojiOne Color', monospace;
     font-size: 15pt;
-    line-height: 1.5em;
+    line-height: 1.4em;
 
     border: none;
     background: transparent;
@@ -179,6 +180,15 @@ body {
   line-height: 1.4em;
 }
 
+.elmsh-line::before {
+  display: inline-block;
+  width: 2em;
+  margin-right: 1em;
+
+  content: attr(data-elmsh-lc);
+  font-weight: bold;
+}
+
 .elmsh-comm {
     font-style: italic;
     color: var(--comm);

diff --git a/src/Editor.elm b/src/Editor.elm
@@ -35,7 +35,7 @@ textarea model =
 codeDisplay : Model -> Html Msg
 codeDisplay model =
   xml (if model.image == "" then placeholder else model.image)
-    |> Result.map (toBlockHtml Nothing)
+    |> Result.map (toBlockHtml (Just 1))
     |> Result.withDefault (pre [] [ code [] [ text model.image ] ])
 
 onScroll : ((Int, Int) -> msg) -> Attribute msg