feat: set up initial project structure including editor config

.editorconfig

···
+# EditorConfig is awesome: https://EditorConfig.org
+root = true
+
+[*]
+indent_style = space
+indent_size = 2
+end_of_line = lf
+charset = utf-8
+trim_trailing_whitespace = true
+insert_final_newline = true
+
+# Fantomas Configuration
+[*{fs,.fsi,.fsx}]
+fsharp_max_record_width = 60
+max_line_length = 120
+fsharp_space_before_colon = true
+fsharp_max_array_or_list_number_of_items = 3
+fsharp_multiline_bracket_style = stroustrup
+fsharp_newline_before_multiline_computation_expression = false

.gitignore

···
 *.VisualState.xml
 TestResult.xml
 nunit-*.xml
+
+.fake

PDSharp.Core/Config.fs

···
+namespace PDSharp.Core
+
+module Config =
+  type AppConfig = { PublicUrl : string; DidHost : string }

PDSharp.Core/Library.fs

···
 namespace PDSharp.Core
 
-module Say =
-    let hello name =
-        printfn "Hello %s" name
+module Models =
+  [<CLIMutable>]
+  type DescribeServerResponse = {
+    availableUserDomains : string list
+    did : string
+    inviteCodeRequired : bool
+  }

PDSharp.Core/PDSharp.Core.fsproj

···
     </PropertyGroup>
 
     <ItemGroup>
+        <Compile Include="Config.fs"/>
         <Compile Include="Library.fs"/>
     </ItemGroup>
 

PDSharp.Tests/PDSharp.Tests.fsproj

···
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>net9.0</TargetFramework>
+    <IsPackable>false</IsPackable>
+    <GenerateProgramFile>false</GenerateProgramFile>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="Tests.fs" />
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="coverlet.collector" Version="6.0.2" />
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="17.12.0" />
+    <PackageReference Include="xunit" Version="2.9.2" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.8.2" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <ProjectReference Include="..\PDSharp\PDSharp.fsproj" />
+    <ProjectReference Include="..\PDSharp.Core\PDSharp.Core.fsproj" />
+  </ItemGroup>
+
+</Project>

PDSharp.Tests/Program.fs

···
+module Program
+
+[<EntryPoint>]
+let main _ = 0

PDSharp.Tests/Tests.fs

···
+module Tests
+
+open System
+open Xunit
+open PDSharp.Core.Models
+open PDSharp.Core.Config
+
+[<Fact>]
+let ``My test`` () = Assert.True(true)
+
+[<Fact>]
+let ``Can instantiate AppConfig`` () =
+  let config = {
+    PublicUrl = "https://example.com"
+    DidHost = "did:web:example.com"
+  }
+
+  Assert.Equal("did:web:example.com", config.DidHost)
+
+[<Fact>]
+let ``Can instantiate DescribeServerResponse`` () =
+  let response = {
+    availableUserDomains = [ "example.com" ]
+    did = "did:web:example.com"
+    inviteCodeRequired = true
+  }
+
+  Assert.Equal("did:web:example.com", response.did)
+  Assert.Equal(1, response.availableUserDomains.Length)

PDSharp.sln

···
 
 Microsoft Visual Studio Solution File, Format Version 12.00
+# 
 Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "PDSharp", "PDSharp\PDSharp.fsproj", "{FE3C5D60-6A4F-402E-AF13-B37020876850}"
 EndProject
 Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "PDSharp.Core", "PDSharp.Core\PDSharp.Core.fsproj", "{FFF8A779-342A-4DC3-92D6-5BB5D5238CB5}"
+EndProject
+Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "PDSharp.Tests", "PDSharp.Tests\PDSharp.Tests.fsproj", "{3212A539-34FB-4A57-8028-DC066904A17D}"
 EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
···
 		{FFF8A779-342A-4DC3-92D6-5BB5D5238CB5}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{FFF8A779-342A-4DC3-92D6-5BB5D5238CB5}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{FFF8A779-342A-4DC3-92D6-5BB5D5238CB5}.Release|Any CPU.Build.0 = Release|Any CPU
+		{3212A539-34FB-4A57-8028-DC066904A17D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{3212A539-34FB-4A57-8028-DC066904A17D}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{3212A539-34FB-4A57-8028-DC066904A17D}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{3212A539-34FB-4A57-8028-DC066904A17D}.Release|Any CPU.Build.0 = Release|Any CPU
 	EndGlobalSection
 EndGlobal

PDSharp/PDSharp.fsproj

···
     </PropertyGroup>
 
     <ItemGroup>
-        <Compile Include="Program.fs"/>
+        <Compile Include="Program.fs" />
+    </ItemGroup>
+
+    <ItemGroup>
+      <PackageReference Include="Giraffe" Version="8.2.0" />
+      <PackageReference Include="Microsoft.Extensions.Configuration.Binder" Version="10.0.1" />
+      <PackageReference Include="Microsoft.Extensions.Configuration.EnvironmentVariables" Version="10.0.1" />
+      <PackageReference Include="Microsoft.Extensions.Configuration.Json" Version="10.0.1" />
+    </ItemGroup>
+
+    <ItemGroup>
+      <ProjectReference Include="..\PDSharp.Core\PDSharp.Core.fsproj" />
+    </ItemGroup>
+
+    <ItemGroup>
+      <Content Include="appsettings.json">
+        <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+      </Content>
     </ItemGroup>
 
 </Project>

PDSharp/Program.fs

···
-// For more information see https://aka.ms/fsharp-console-apps
-printfn "Hello from F#"
+open System
+open System.IO
+open Microsoft.AspNetCore.Builder
+open Microsoft.AspNetCore.Hosting
+open Microsoft.Extensions.Hosting
+open Microsoft.Extensions.DependencyInjection
+open Microsoft.Extensions.Configuration
+open Giraffe
+open PDSharp.Core.Models
+open PDSharp.Core.Config
+
+module App =
+
+  let describeServerHandler : HttpHandler =
+    fun next ctx ->
+      let config = ctx.GetService<AppConfig>()
+
+      // TODO: add to config
+      let response = {
+        availableUserDomains = []
+        did = config.DidHost
+        inviteCodeRequired = true
+      }
+
+      json response next ctx
+
+  let webApp =
+    choose [
+      route "/xrpc/com.atproto.server.describeServer" >=> describeServerHandler
+      route "/" >=> text "PDSharp PDS is running."
+      RequestErrors.NOT_FOUND "Not Found"
+    ]
+
+  let configureApp (app : IApplicationBuilder) = app.UseGiraffe webApp
+
+  let configureServices (config : AppConfig) (services : IServiceCollection) =
+    services.AddGiraffe() |> ignore
+    services.AddSingleton<AppConfig>(config) |> ignore
+
+  [<EntryPoint>]
+  let main args =
+    let configBuilder =
+      ConfigurationBuilder()
+        .SetBasePath(AppContext.BaseDirectory)
+        .AddJsonFile("appsettings.json", optional = false, reloadOnChange = true)
+        .AddEnvironmentVariables(prefix = "PDSHARP_")
+        .Build()
+
+    let appConfig = configBuilder.Get<AppConfig>()
+
+    Host
+      .CreateDefaultBuilder(args)
+      .ConfigureWebHostDefaults(fun webHostBuilder ->
+        webHostBuilder.Configure(configureApp).ConfigureServices(configureServices appConfig)
+        |> ignore)
+      .Build()
+      .Run()
+
+    0

PDSharp/appsettings.json

···
+{
+  "PublicUrl": "http://localhost:5000",
+  "DidHost": "did:web:localhost"
+}