Config.hs

-- | Bridge okf configuration to the baikai-kit engine's KitConfig.
module Okf.Cli.Kit.Config
  ( kitConfig,
  )
where

import Baikai.Interactive (InteractiveProvider (..))
import Baikai.Kit.Config (KitConfig)
import Baikai.Kit.Config qualified as Engine
import Control.Lens ((&), (.~))
import Data.Generics.Labels ()
import Okf.Cli.Config (KitSettings (..), OkfConfig (..), OkfProvider (..))

-- | Build the baikai-kit configuration from okf's loaded configuration. The
-- tool name "okf" fixes the on-disk layout for caches, installed assets, and
-- sidecar files.
kitConfig :: OkfConfig -> KitConfig
kitConfig OkfConfig {kit = KitSettings {repoUrl = url, providers = providerList}} =
  Engine.kitConfig "okf" url (map toInteractive providerList)
    & #projectRoot .~ Engine.projectRootByMarkers [".git", "okf-config.dhall", ".okf"]

toInteractive :: OkfProvider -> InteractiveProvider
toInteractive = \case
  ProviderClaude -> InteractiveClaude
  ProviderCodex -> InteractiveCodex