module Mpv.Seek where

import Mpv.Data.SeekFlags (SeekReference (Absolute, Relative), SeekRestart (Exact, Keyframes), SeekUnit (Percent, Time))

seekStyleArg ::
  SeekUnit ->
  SeekReference ->
  Text
seekStyleArg :: SeekUnit -> SeekReference -> Text
seekStyleArg SeekUnit
Time = \case
  SeekReference
Absolute -> Text
"absolute"
  SeekReference
Relative -> Text
"relative"
seekStyleArg SeekUnit
Percent = \case
  SeekReference
Absolute -> Text
"absolute-percent"
  SeekReference
Relative -> Text
"relative-percent"

seekRestartArg :: SeekRestart -> Text
seekRestartArg :: SeekRestart -> Text
seekRestartArg = \case
  SeekRestart
Keyframes -> Text
"keyframes"
  SeekRestart
Exact -> Text
"exact"