An attempt to append an Environment Variable for the current user on windows

prepend-to-user-path.fsx

open System
open Spectre.Console
open System.Collections.Generic
open System.Linq

let sampleVar = "SAMPLE_VAR"

let path =
    let mapped =
        Environment
            .GetEnvironmentVariables(EnvironmentVariableTarget.User)
            .Cast<DictionaryEntry>()
        |> Seq.map (fun de -> string de.Key,string de.Value)
        |> Map.ofSeq

    let values =
        (mapped.Item "Path").Split(';')

    values
    |> Array.map
        (fun pathValue ->
            if not (mapped |> Map.exists(fun _ value -> value = pathValue)) then
                pathValue
            else
                let value =
                    mapped
                    |> Seq.tryFind (fun entry -> entry.Value = pathValue)

                match value with
                | Some kvp -> $"%%{kvp.Key}%%"
                | None -> pathValue

            )
    |> Array.reduce (fun curr next -> $"{curr};{next}")