Skip to content

P
purescript-gargantext
Commit d3ca60a7 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[CodeEditor] fix code/preview buttons

parent 90f5ec44
Show whitespace changes
Inline Side-by-side
Showing with 5 additions and 5 deletions
src/Gargantext/Components/CodeEditor.purs
View file @ d3ca60a7
...@@ -135,20 +135,20 @@ codeEditorCpt = R.hooksComponent "G.C.CE.CodeEditor" cpt ...@@ -135,20 +135,20 @@ codeEditorCpt = R.hooksComponent "G.C.CE.CodeEditor" cpt
codeHidden :: ViewType -> String codeHidden :: ViewType -> String
codeHidden Code = "" codeHidden Code = ""
codeHidden Both = "" codeHidden Both = ""
codeHidden _ = "hidden" codeHidden _ = " hidden"
dividerHidden :: ViewType -> String dividerHidden :: ViewType -> String
dividerHidden Both = "" dividerHidden Both = ""
dividerHidden _ = "hidden" dividerHidden _ = " hidden"
langClass :: CodeType -> String langClass :: CodeType -> String
langClass JSON = "language-json" langClass JSON = " language-json"
langClass Markdown = "language-md" langClass Markdown = " language-md"
previewHidden :: ViewType -> String previewHidden :: ViewType -> String
previewHidden Preview = "" previewHidden Preview = ""
previewHidden Both = "" previewHidden Both = ""
previewHidden _ = "hidden" previewHidden _ = " hidden"
onEditChange :: forall e. Record Controls -> e -> Effect Unit onEditChange :: forall e. Record Controls -> e -> Effect Unit
onEditChange controls@{codeElRef, codeOverlayElRef, editorCodeRef} e = do onEditChange controls@{codeElRef, codeOverlayElRef, editorCodeRef} e = do
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment