.uniform.common-web_2.13.5.0.0-RC6.source-code.WebInterpreter.scala Maven / Gradle / Ivy

Go to download
Show more of this group Show more artifacts with this name
Show all versions of common-web_2.13 Show documentation
common-web
The newest version!
package ltbs.uniform
package common.web

import validation.Rule

trait WebInterpreter[Html] extends Primatives[Html] with MonadInterpreter [
  WebMonad[Html, +?],
  WebInteraction[Html, ?, ?],
  WebAskList[Html, ?]
] {

  implicit def monadInstance: cats.Monad[WebMonad[Html, +?]] =
    WebMonad.webMonadMonadInstance[Html]

  override def interactImpl[T, A](
    key: String,
    tellValue: T,
    default: Option[A],
    validation: Rule[A],
    customContent: Map[String,(String,List[Any])],
    wa: WebInteraction[Html,T,A]
  ): WebMonad[Html, A] = wa(
    key,
    Some(tellValue),
    default,
    validation,
    customContent
  )

  override def subjourneyImpl[A](
    path: List[String],
    inner: WebMonad[Html, A]
  ): WebMonad[Html, A] = subjourneyWM(identity, path:_*)(inner)

  override def askListImpl[A](
    key: String,
    askJourney: (Option[Int], List[A]) => WebMonad[Html,A],
    customDelete: (Int, List[A]) => WebMonad[Html,Boolean],
    default: Option[List[A]],
    validation: Rule[List[A]],
    customContent: Map[String,(String, List[Any])],
    asker: WebAskList[Html,A]
  ): WebMonad[Html, List[A]] =
    asker(key, askJourney, customDelete, default, validation, customContent)

  override def nonReturnImpl(
    nonReturn: Uniform.NonReturn
  ): WebMonad[Html, Unit] = for {
    pp <- getPathPrefix
    fullKey = pp :+ nonReturn.key
    _  <- db.updateF{db => db + (("_non-return" :: Nil) -> fullKey.mkString("/"))}
    _  <- pushBreadcrumb(fullKey.toList)
  } yield ()

  implicit def unitField = new WebAsk[Html,Unit] {
    def decode(out: Input): Either[ltbs.uniform.ErrorTree,Unit] = Right(())
    def encode(in: Unit): Input = Input.empty
    def render(
      pageIn: PageIn[Html],
      stepDetails: StepDetails[Html, Unit]
    ): Option[Html] = stepDetails.tell
  }

  implicit def nothingField = new WebAsk[Html,Nothing] {
    def decode(out: Input): Either[ltbs.uniform.ErrorTree,Nothing] =
      Left(ErrorMsg("tried to decode to nothing").toTree)

    def encode(in: Nothing): Input =
      sys.error("encoding nothing is not possible!")

    def render(
      pageIn: PageIn[Html],
      stepDetails: StepDetails[Html, Nothing]
    ): Option[Html] = stepDetails.tell
  }

  implicit val tellHtml: WebTell[Html, Html] = WebTell.fromFunction(identity)

}