📦 sleepyfran / duets

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51module rec Duets.Cli.Scenes.Phone.Apps.BnB.List

open Duets.Agents
open Duets.Cli.Components
open Duets.Cli.Text
open Duets.Cli.Text.World
open Duets.Entities
open Duets.Simulation

/// Lists all of the current bookings that the character holds.
let listAll rentApp =
    let tableColumns =
        [ Styles.header "Place name"
          Styles.header "Location"
          Styles.header "Start date"
          Styles.header "End date"
          Styles.header "Price" ]

    let tableRows =
        Queries.Rentals.all (State.get ())
        |> List.map (fun rental ->
            let cityId, _ = rental.Coords
            let place = rental.Coords ||> Queries.World.placeInCityById
            let zone = Queries.World.zoneInCityById cityId place.ZoneId
            let expirationDate = Rental.dueDate rental

            let price =
                match rental.RentalType with
                | Seasonal _ -> $"{Styles.money rental.Amount} / season"
                | OneTime _ -> Styles.money rental.Amount

            [ placeName place
              Styles.place
                  $"""{Generic.cityName cityId} {Styles.faded $"({zone.Name})"}"""
              startDate rental
              Generic.dateWithDay expirationDate
              price ])

    showTable tableColumns tableRows

    rentApp ()

let private placeName (place: Place) =
    $"""{place.Name} {Styles.faded
                          $"({place.PlaceType |> World.Place.Type.toIndex |> World.placeTypeName})"}"""

let private startDate rental =
    match rental.RentalType with
    | Seasonal _ -> Styles.faded "-"
    | OneTime(fromDate, _) -> Generic.dateWithDay fromDate