maackle
diff --git a/‎docs/entry.3bf0104b.js.map
Lines changed: 0 additions & 1 deletion b/‎docs/entry.3bf0104b.js.map
Lines changed: 0 additions & 1 deletion
diff --git a/‎docs/entry.3bf0104b.js renamed to ‎docs/entry.4aabd04e.js
Lines changed: 3 additions & 3 deletions b/‎docs/entry.3bf0104b.js renamed to ‎docs/entry.4aabd04e.js
Lines changed: 3 additions & 3 deletions
diff --git a/‎docs/entry.4aabd04e.js.map
Lines changed: 1 addition & 0 deletions b/‎docs/entry.4aabd04e.js.map
Lines changed: 1 addition & 0 deletions
diff --git a/‎docs/index.html
Lines changed: 1 addition & 1 deletion b/‎docs/index.html
Lines changed: 1 addition & 1 deletion
diff --git a/‎src/Parser/Halogen.purs
Lines changed: 5 additions & 5 deletions b/‎src/Parser/Halogen.purs
Lines changed: 5 additions & 5 deletions
diff --git a/‎src/Parser/Halogen/Utils.purs
Lines changed: 5 additions & 0 deletions b/‎src/Parser/Halogen/Utils.purs
Lines changed: 5 additions & 0 deletions
@@ -1 +1 @@
-<!doctype html><html xmlns="http://www.w3.org/1999/xhtml" xmlns:foo="http://www.w3.org/2000/svg"><head><meta charset="utf-8"><title>html2purescript</title><style>body{font-family:sans-serif;text-align:center;margin:10px}textarea{width:100%;height:220px}.container{max-width:900px;margin:auto;text-align:left}.title{vertical-align:middle}.title .picker,h1{font-size:20px}label{display:block;color:#ac450a;border-bottom:1px solid #ac450a;margin-bottom:5px}section{margin:20px auto}</style></head><body> <script src="entry.3bf0104b.js"></script> </body></html>
+<!doctype html><html xmlns="http://www.w3.org/1999/xhtml" xmlns:foo="http://www.w3.org/2000/svg"><head><meta charset="utf-8"><title>html2purescript</title><style>body{font-family:sans-serif;text-align:center;margin:10px}textarea{width:100%;height:220px}.container{max-width:900px;margin:auto;text-align:left}.title{vertical-align:middle}.title .picker,h1{font-size:20px}label{display:block;color:#ac450a;border-bottom:1px solid #ac450a;margin-bottom:5px}section{margin:20px auto}</style></head><body> <script src="entry.4aabd04e.js"></script> </body></html>
@@ -62,7 +62,7 @@ definedClassName :: String -> Array Declaration
 definedClassName className =
   [ DeclSignature
     { comments: Nothing
-    , ident: Ident className
+    , ident: Ident (classNameToFunctionName className)
     , type_: TypeConstructor
       ( SmartQualifiedName__Simple
         (mkModuleName $ NonEmptyArray.cons' "Halogen" ["HTML"])
@@ -72,14 +72,14 @@ definedClassName className =
   , DeclValue
     { comments: Nothing
     , valueBindingFields:
-      { name: Ident className
+      { name: Ident (classNameToFunctionName className)
       , binders: []
       , guarded: Unconditional
         { whereBindings: []
         , expr:
           exprClassNameConstructor
           `ExprApp`
-          ( ExprString className )
+          (ExprString className)
         }
       }
     }
@@ -96,11 +96,11 @@ renderTree =
           [name] -> Array.singleton $
             (ExprIdent (fromHalogenHP (Ident "class_")))
             `ExprApp`
-            (ExprVar (Ident name))
+            (ExprVar (Ident (classNameToFunctionName name)))
           names' -> Array.singleton $
             (ExprIdent (fromHalogenHP (Ident "classes")))
             `ExprApp`
-            (ExprArray $ names' <#> (\name -> ExprVar (Ident name)))
+            (ExprArray $ names' <#> (\name -> ExprVar (Ident (classNameToFunctionName name))))
       Attribute key val -> Array.singleton $
         (ExprIdent (fromHalogenHP (Ident key)))
         `ExprApp`
 
@@ -14,6 +14,7 @@ import Debug.Trace (spy, trace)
 import Text.HTML.Parser (Attribute(..), HTML(..), parseHTML)
 import Text.Parsing.StringParser (ParseError)
 import Unsafe.Coerce (unsafeCoerce)
+import Data.String.Common as String
 
 fromHalogenHH :: forall a. a -> SmartQualifiedName a
 fromHalogenHH = SmartQualifiedName__Custom (mkModuleName $ NonEmptyArray.cons' "Halogen" ["HTML"]) (mkModuleName $ NonEmptyArray.cons' "HH" [])
@@ -44,3 +45,7 @@ collectClassNames =
       Attribute "class" val -> stringToClasses val
       _ -> []
   in Array.nub <<< fold <<< map collectClassNamesHtml
+
+-- "--" is BAM style modifier
+classNameToFunctionName :: String -> String
+classNameToFunctionName = String.replaceAll (String.Pattern "--") (String.Replacement "____") >>> String.replaceAll (String.Pattern "-") (String.Replacement "_")
Original file line number	Diff line number	Diff line change
`@@ -1 +1 @@`
`1`		-<!doctype html><html xmlns="http://www.w3.org/1999/xhtml" xmlns:foo="http://www.w3.org/2000/svg"><head><meta charset="utf-8"><title>html2purescript</title><style>body{font-family:sans-serif;text-align:center;margin:10px}textarea{width:100%;height:220px}.container{max-width:900px;margin:auto;text-align:left}.title{vertical-align:middle}.title .picker,h1{font-size:20px}label{display:block;color:#ac450a;border-bottom:1px solid #ac450a;margin-bottom:5px}section{margin:20px auto}</style></head><body> <script src="entry.3bf0104b.js"></script> </body></html>
	`1`	+<!doctype html><html xmlns="http://www.w3.org/1999/xhtml" xmlns:foo="http://www.w3.org/2000/svg"><head><meta charset="utf-8"><title>html2purescript</title><style>body{font-family:sans-serif;text-align:center;margin:10px}textarea{width:100%;height:220px}.container{max-width:900px;margin:auto;text-align:left}.title{vertical-align:middle}.title .picker,h1{font-size:20px}label{display:block;color:#ac450a;border-bottom:1px solid #ac450a;margin-bottom:5px}section{margin:20px auto}</style></head><body> <script src="entry.4aabd04e.js"></script> </body></html>