Merge branch 'master' of https://github.com/statebox/purescript-kdmoncat

Author: Sjoerd Visscher

src/Main.purs

@@ -7,8 +7,9 @@ import Data.String.Common (trim)
 import Data.String.Regex (regex, match)
 import Data.String.Regex.Flags (ignoreCase)
 import Data.Either (either)
+import Data.List (List(..))
 import Data.Maybe (Maybe(..), fromMaybe, maybe)
-import Data.Traversable (traverse)
+import Data.Traversable (traverse, for)
 import Effect (Effect)
 import Effect.Aff (Aff)
 import Effect.Class (liftEffect)
@@ -26,8 +27,11 @@ import Web.HTML.Event.EventTypes (message) as ET
 import Web.Event.EventTarget (addEventListener, eventListener)
 import Web.MessageEvent as MessageEvent
 
-import View.App (Action(UpdateContext, UpdatePixels))
+import Model (Box, Selection)
 import View.App as App
+import View.App (Action(UpdateContext, UpdatePixels))
+import View.Bricks as Bricks
+import View.Term as Term
 
 
 initialPixels :: String
@@ -91,6 +95,26 @@ runJs2 initialInput selector = do
 
 --------------------------------------------------------------------------------
 
+runBricksComponent :: ∀ q. Bricks.Input -> String -> Aff (Maybe (HalogenIO q Bricks.Output Aff))
+runBricksComponent input selector = do
+  elemMaybe <- selectElement (QuerySelector selector)
+  for elemMaybe $ runUI Bricks.bricksView input
+
+toBricksInput :: App.Input -> Box -> Bricks.Input
+toBricksInput = App.toBricksInput
+
+--------------------------------------------------------------------------------
+
+runTermComponent :: ∀ q. Term.Input -> String -> Aff (Maybe (HalogenIO q Void Aff))
+runTermComponent input selector = do
+  elemMaybe <- selectElement (QuerySelector selector)
+  for elemMaybe $ runUI Term.termView input
+
+emptySelection :: Selection
+emptySelection = { path: Nil, count: 0 }
+
+--------------------------------------------------------------------------------
+
 parseHash :: String -> App.Input
 parseHash hash =
   let defaultInput = { pixels: initialPixels, context: initialContext } in

src/View/Term.purs

@@ -45,7 +45,7 @@ handleAction = case _ of
   Update st@{ term } -> do
     H.put st
 
-render :: ∀ m. State -> H.ComponentHTML Action () m
+render :: ∀ m. Input -> H.ComponentHTML Action () m
 render { term, selection: { path, count } } = div [ classes [ ClassName "term" ] ] (rec (Just path) term) where
   rec :: Maybe Path -> TTerm -> Array (H.ComponentHTML Action () m)
   rec p (Fix (Ann _ TUnit)) = [ div [ clsSel p "tunit" ] [ i_ [ text "I" ] ] ]