Constants.fs

module BlindfoldChessTraining.Constants

open BlindfoldChessTraining.Types
open Microsoft.Maui.Devices

let os =
    match DeviceInfo.Current.Platform with
    | v when v = DevicePlatform.Android -> Android
    | v when v = DevicePlatform.iOS -> IOS
    | _ -> raise UnknownOS

let volumePressOrPanGestureDebounceTimeout = 500L

let numOfLevelsPerCategory = 10
let numOfPuzzlesPerLevel = 50

let fontSize = 20.

let visualWidth =
    DeviceDisplay.MainDisplayInfo.Width / DeviceDisplay.MainDisplayInfo.Density

let appStoreUrl =
    match os with
    | Android -> "https://play.google.com/store/apps/details?id=com.github.mrdimosthenis.blindfoldchesstraining"
    | IOS -> "https://apps.apple.com/us/app/apple-store/id1553271236"

let gitHubUrl = "https://github.com/mrdimosthenis/BlindfoldChessTraining"
let linkedInUrl = "https://www.linkedin.com/in/mrdimosthenis/"

let privacyPolicyUrl =
    "https://github.com/mrdimosthenis/BlindfoldChessTraining/blob/master/privacy_policy.md"