Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance.
Project price only 1 $
You can buy this project and download/modify it how often you want.
ff4s.Compiler.scala Maven / Gradle / Ivy
/*
* Copyright 2022 buntec
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
package ff4s
import cats.Id
import cats.effect.std.Dispatcher
import cats.~>
import org.scalajs.dom
import scala.collection.mutable.HashMap
private[ff4s] trait Compiler[F[_], State, Action] {
def apply(
dsl: Dsl[F, State, Action],
state: State,
actionDispatch: Action => F[Unit]
): (dsl.ViewA ~> Id)
}
private[ff4s] object Compiler {
def apply[F[_], State, Action] = new Compiler[F, State, Action] {
private val literalsCache: HashMap[String, VNode[F]] =
collection.mutable.HashMap.empty[String, VNode[F]]
override def apply(
dsl: Dsl[F, State, Action],
state: State,
actionDispatch: Action => F[Unit]
): (dsl.ViewA ~> Id) = {
import dsl._
new (ViewA ~> Id) {
private var id0: Long = 0L
private def fromLiteral(html: String): VNode[F] =
VNode[F] {
val elm = dom.document.createElement("div")
elm.innerHTML = html
val vnode = snabbdom.toVNode(elm).toVNode
vnode match {
case snabbdom.VNode.Element(_, _, child :: Nil) =>
child // unwrap div if there is a single child
case _ =>
vnode // otherwise keep the wrapper div (TODO: throw instead?)
}
}
override def apply[A](fa: ViewA[A]): Id[A] = fa match {
case GetState() => state
case Text(s) => VNode[F](snabbdom.VNode.text(s))
case Empty() => VNode[F](snabbdom.VNode.empty)
case Literal(html, cache) =>
if (cache) literalsCache.getOrElseUpdate(html, fromLiteral(html))
else fromLiteral(html)
case Element(
tag,
children,
eventHandlers,
cls,
key,
onInsert,
onDestroy,
props,
attrs,
style,
thunkArgs
) =>
thunkArgs match {
case Some(args) => {
val renderFn = () => {
VNode[F, Action](
tag,
children,
cls,
key,
props,
attrs,
style,
eventHandlers,
onInsert,
onDestroy,
actionDispatch
)
}
VNode[F]((dispatcher: Dispatcher[F]) =>
snabbdom.thunk(
tag,
key.getOrElse(""): String,
(_: Any) =>
renderFn()
.toSnabbdom(
dispatcher
)
.asInstanceOf[
snabbdom.VNode.Element
], // TODO: this is broken
Seq(args(state))
)
)
}
case _ =>
VNode[F, Action](
tag,
children,
cls,
key,
props,
attrs,
style,
eventHandlers,
onInsert,
onDestroy,
actionDispatch
)
}
case GetUUID() => java.util.UUID.randomUUID()
case GetId() => { id0 += 1; id0 }
}
}
}
}
def transpile[F[_], StateA, StateB, ActionA, ActionB](
dslA: Dsl[F, StateA, ActionA],
dslB: Dsl[F, StateB, ActionB],
f: StateB => StateA,
g: ActionA => ActionB
): dslA.ViewA ~> dslB.View = {
new (dslA.ViewA ~> dslB.View) {
override def apply[A](fa: dslA.ViewA[A]): dslB.View[A] = fa match {
case dslA.Text(s) => dslB.text(s)
case dslA.Literal(html, cache) => dslB.literal(html, cache)
case dslA.Empty() => dslB.empty
case dslA.GetState() => dslB.getState.map(f)
case dslA.Element(
tag,
children,
eventHandlers,
cls,
key,
onInsert,
onDestroy,
props,
attrs,
style,
thunkArgs
) =>
dslB.element(
tag,
children,
eventHandlers.map { case (key, handler) =>
(key -> ((ev: dom.Event) => handler(ev).map(g)))
},
cls,
key,
onInsert.map(hook => (v: dom.Element) => g(hook(v))),
onDestroy.map(hook => (v: dom.Element) => g(hook(v))),
props,
attrs,
style,
thunkArgs.map(t => (s: StateB) => t(f(s)))
)
case dslA.GetUUID() => dslB.getUUID
case dslA.GetId() => dslB.getId
}
}
}
}
