sml-projects/shf/fcore/text-builder/text-builder-utils.sml

structure TextBuilderUtils =
struct
  structure TC = TextConstants

  type env_data =
    { charR: Real32.real
    , charG: Real32.real
    , charB: Real32.real

    , cursorR: Real32.real
    , cursorG: Real32.real
    , cursorB: Real32.real

    , searchHighlightR: Real32.real
    , searchHighlightG: Real32.real
    , searchHighlightB: Real32.real

    (* different colours for char when cursor is on char *)
    , cursorHighlightedCharR: Real32.real
    , cursorHighlightedCharG: Real32.real
    , cursorHighlightedCharB: Real32.real

    , searchHighlightedCharR: Real32.real
    , searchHighlightedCharG: Real32.real
    , searchHighlightedCharB: Real32.real

    , charZ: Real32.real
    , cursorZ: Real32.real
    , searchHighlightZ: Real32.real

    , startX: int
    , startY: int

    , scrollColumnStart: int
    , scrollColumnEnd: int
    , lastLineNumber: int

    (* fw/fh = float window width and float window height *)
    , fw: Real32.real
    , fh: Real32.real

    , searchList: PersistentVector.t
    }

  fun initEnv
    ( startX
    , startY
    , endX
    , endY
    , floatWindowWidth
    , floatWindowHeight
    , searchList
    , visualScrollColumn
    , startLine
    ) : env_data =
    let
      val width = endX - startX
      val lastLineNumber =
        let
          val height = endY - startY
          val howManyLines = height div TC.ySpace
        in
          startLine + howManyLines
        end
    in
      if TC.textLineWidth > width then
        { charR = 0.0
        , charG = 0.0
        , charB = 0.0

        , searchHighlightR = 0.41
        , searchHighlightG = 0.05
        , searchHighlightB = 0.67

        , cursorR = 0.0
        , cursorG = 0.0
        , cursorB = 0.0

        , searchHighlightedCharR = 0.89
        , searchHighlightedCharG = 0.89
        , searchHighlightedCharB = 0.89

        , cursorHighlightedCharR = 0.89
        , cursorHighlightedCharG = 0.89
        , cursorHighlightedCharB = 0.89

        , charZ = 0.01
        , cursorZ = 0.03
        , searchHighlightZ = 0.05

        , startX = startX
        , startY = startX

        , scrollColumnStart = visualScrollColumn
        , scrollColumnEnd = width div TC.xSpace + visualScrollColumn
        , lastLineNumber = lastLineNumber

        , fw = floatWindowWidth
        , fh = floatWindowHeight

        , searchList = searchList
        }
      else
        let
          val startX = (width - TC.textLineWidth) div 2
        in
          { charR = 0.0
          , charG = 0.0
          , charB = 0.0

          , searchHighlightR = 0.41
          , searchHighlightG = 0.05
          , searchHighlightB = 0.67

          , cursorR = 0.0
          , cursorG = 0.0
          , cursorB = 0.0

          , searchHighlightedCharR = 0.89
          , searchHighlightedCharG = 0.89
          , searchHighlightedCharB = 0.89

          , cursorHighlightedCharR = 0.89
          , cursorHighlightedCharG = 0.89
          , cursorHighlightedCharB = 0.89

          , charZ = 0.01
          , cursorZ = 0.03
          , searchHighlightZ = 0.05

          , startX = startX
          , startY = startY

          , scrollColumnStart = visualScrollColumn
          , scrollColumnEnd = visualScrollColumn + TC.textLineCount
          , lastLineNumber = lastLineNumber

          , fw = floatWindowWidth
          , fh = floatWindowHeight

          , searchList = searchList
          }
        end
    end

  (* different functions to make vectors of different things we want to draw. *)
  fun makeCursor (posX, posY, env: env_data) =
    Rect.lerp
      ( Real32.fromInt (posX - 2)
      , Real32.fromInt posY
      , #cursorZ env
      , TC.scale
      , #fw env
      , #fh env
      , #cursorR env
      , #cursorG env
      , #cursorB env
      )

  fun makeSearchHighlight (posX, posY, env: env_data) =
    Rect.lerp
      ( Real32.fromInt (posX - 2)
      , Real32.fromInt posY
      , #searchHighlightZ env
      , TC.scale
      , #fw env
      , #fh env
      , #searchHighlightR env
      , #searchHighlightG env
      , #searchHighlightB env
      )

  fun makeChr (chr, posX, posY, env: env_data) =
    CozetteAscii.make
      ( chr
      , Real32.fromInt posX
      , Real32.fromInt posY
      , #charZ env
      , TC.scale
      , #fw env
      , #fh env
      , #charR env
      , #charG env
      , #charB env
      )

  fun makeCursorHighlightedChr (chr, posX, posY, env: env_data) =
    CozetteAscii.make
      ( chr
      , Real32.fromInt posX
      , Real32.fromInt posY
      , #charZ env
      , TC.scale
      , #fw env
      , #fh env
      , #cursorHighlightedCharR env
      , #cursorHighlightedCharG env
      , #cursorHighlightedCharB env
      )

  fun makeSearchHighlightedChr (chr, posX, posY, env: env_data) =
    CozetteAscii.make
      ( chr
      , Real32.fromInt posX
      , Real32.fromInt posY
      , #charZ env
      , TC.scale
      , #fw env
      , #fh env
      , #searchHighlightedCharR env
      , #searchHighlightedCharG env
      , #searchHighlightedCharB env
      )

  (* gets line start idx, relative to right hd *)
  fun getRelativeLineStartFromRightHead (startLine, curLine, rLnHd) =
    if startLine > curLine then
      let val lnPos = startLine - curLine - 1
      in Vector.sub (rLnHd, lnPos) + 1
      end
    else
      0

  (* gets line start idx, absolute *)
  fun getAbsoluteLineStartFromRightHead (curIdx, startLine, curLine, rLnHd) =
    let
      val startIdx =
        if startLine > curLine then
          let val lnPos = startLine - curLine - 1
          in Vector.sub (rLnHd, lnPos) + 1
          end
        else
          0
    in
      curIdx + startIdx
    end

  fun getLineAbsIdxFromBuffer (startLine, buffer: LineGap.t) =
    let
      val {rightLines, line = curLine, idx = curIdx, ...} = buffer
    in
      case rightLines of
        rLnHd :: _ =>
          getAbsoluteLineStartFromRightHead (curIdx, startLine, curLine, rLnHd)
      | [] =>
          raise Fail
            "text-builder-utils.sml 268:\ 
            \should never call function when at end of buffer"
    end
end