Add promotional logging for PXL-JAM 2024 on first debug log initialization

Author: SchlenkR

fiddle/pxlClockFsiMessage.fsx

@@ -0,0 +1,12 @@
+
+#r "../src/FsHttp/bin/debug/net6.0/FsHttp.dll"
+
+open FsHttp
+open FsHttp.Operators
+
+
+http {
+    GET "https://www.wikipedia.de"
+}
+|> Request.send
+|> ignore

src/FsHttp/Dsl.fs

@@ -26,7 +26,7 @@ module internal HeaderContext =
     // TODO: I really(!!) have to code the URL stuff on type level;
     // this makes problems all over the place; feels like C# :D
 
-    let  create () =
+    let create () =
         // FSI init HACK
         FsiInit.init ()
 

src/FsHttp/FsiInit.fs

@@ -13,20 +13,39 @@ type InitResult =
 
 let mutable private state = Uninitialized
 
+let private logPxlClockOnFirstSend =
+    let mutable firstSend = true
+    fun () ->
+        if firstSend then
+            firstSend <- false
+            let msg = @"
+
+**************************************************************
+
+    +---------+
+    |         |    PXL-JAM 2024
+    |   PXL   |      - github.com/CuminAndPotato/PXL-JAM
+    |  CLOCK  |      - WIN a PXL-Clock MK1
+    |         |      - until 8th of January 2025
+    +---------+
+
+**************************************************************
+
+    "
+            printfn "%s" msg
+
 // This seems like a HACK, but there shouldn't be the requirement of referencing FCS in FSI.
 let doInit () =
     if state <> Uninitialized then
         state
     else
-
         let fsiAssemblyName = "FSI-ASSEMBLY"
-
         let isInteractive =
             // This hack is indeed one (see https://fsharp.github.io/fsharp-compiler-docs/fsi-emit.html)
             AppDomain.CurrentDomain.GetAssemblies()
-            |> Array.exists (fun asm -> (*asm.IsDynamic &&*)
-                asm.GetName().Name.StartsWith(fsiAssemblyName, StringComparison.Ordinal)
-            )
+            |> Array.map (fun asm -> asm.GetName().Name)
+            |> Array.exists (fun asmName -> (*asm.IsDynamic &&*)
+                asmName.StartsWith(fsiAssemblyName, StringComparison.Ordinal))
 
         state <-
             try
@@ -51,7 +70,9 @@ let doInit () =
                                 // see #121: It's important to not touch the logDebugMessages
                                 // value when it was already set before this init function was called.
                                 match Fsi.logDebugMessages with
-                                | None -> Fsi.enableDebugLogs ()
+                                | None ->
+                                    do logPxlClockOnFirstSend ()
+                                    Fsi.enableDebugLogs ()
                                 | _ -> ()
 
                             let addPrinter (f: 'a -> string) =
@@ -80,4 +101,5 @@ let doInit () =
 
         state
 
-let init () = doInit () |> ignore
+let init () =
+    doInit () |> ignore

src/FsHttp/Request.fs

@@ -131,29 +131,10 @@ let toRequestAndMessage (request: IToRequest) : Request * HttpRequestMessage =
 let toRequest request = request |> toRequestAndMessage |> fst
 let toHttpRequestMessage request = request |> toRequestAndMessage |> snd
 
-let logPxlClockOnFirstSend =
-    let mutable firstSend = true
-    fun () ->
-        if firstSend then
-            firstSend <- false
-            let msg = @"
-
-    +---------+
-    |         |    PXL-JAM 2024
-    |   PXL   |      - github.com/CuminAndPotato/PXL-JAM
-    |  CLOCK  |      - WIN a PXL-Clock MK1
-    |         |      - until 8th of January 2025
-    +---------+
-    
-"
-            Fsi.logfn "%s" msg
-
 /// Builds an asynchronous request, without sending it.
 let toAsync cancellationTokenOverride (context: IToRequest) =
     async {
         let request, requestMessage = toRequestAndMessage context
-
-        do logPxlClockOnFirstSend ()
         do Fsi.logfn $"Sending request {addressToString request} ..."
 
         use finalRequestMessage =