Reactive Fable without ReactJs | F#

 

module App

open Browser.Dom

// Get a reference to our button and cast the Element to an HTMLButtonElement

let myButton =

document.querySelector (".my-button") :?> Browser.Types.HTMLButtonElement

let count = Event<int>()

let counter =

MailboxProcessor<int>.Start(fun inbox ->

let rec loop n =

async {

do! Async.Sleep(1000)

let seconds = n + 1

count.Trigger seconds

return! loop seconds

}

loop 0)

let displ = count.Publish.Subscribe(fun e -> myButton.innerHTML <- sprintf "<h1>%A</h1>" e)

counter.Start()

myButton.onclick <- fun _ -> console.log ("OK")