Skip to content

Instantly share code, notes, and snippets.

View object's full-sized avatar

Vagif Abilov object

181 followers · 10 following
View GitHub Profile
@object
object / Messages.fs
Created June 27, 2024 19:35
Fable workshop (2024). Step 8. Messages.fs
module Messages
open Shared
type Msg =
| EventSetChanged of string
| PlaybackDelayChanged of string
| StartPlayback
| PausePlayback
| StopPlayback
@object
object / SocketServer.fs
Last active June 27, 2024 19:06
Fable workshop (2024). Step 8. SocketServer.fs
module SocketServer
open System
open System.IO
open Microsoft.AspNetCore.Http
open Giraffe
open Elmish
open Elmish.Bridge
open Thoth.Json.Net
@object
object / WebServer.fs
Last active June 27, 2024 19:07
Fable workshop (2024). Step 8. WebServer.fs
module WebServer
open System.IO
open Microsoft.AspNetCore.Cors.Infrastructure
open Giraffe
open Saturn
open Elmish.Bridge
open Shared
open SocketServer
@object
object / Shared.fs
Last active June 27, 2024 18:41
Fable workshop (2024). Step 8. Shared.fs
namespace Shared
open System
module Route =
let hello = "/api/hello"
let files = "/api/files"
let socket = "/socket"
module Dto =
@object
object / View.fs
Created June 27, 2024 18:22
Fable workshop (2024). Step 7. View.fs
module View
open Feliz
open Feliz.Bulma
open System
open Shared
open Model
open Messages
@object
object / Update.fs
Created June 27, 2024 18:21
Fable workshop (2024). Step 7. Update.fs
module Update
open System
open Elmish
open Fable.SimpleHttp
open Thoth.Json
open Shared
open Model
open Messages
@object
object / Shared.fs
Created June 27, 2024 18:16
Fable workshop (2024). Step 7. Shared.fs
namespace Shared
open System
module Route =
let hello = "/api/hello"
let files = "/api/files"
module Dto =
@object
object / index.html
Created June 27, 2024 18:12
Fable workshop (2024). Step 6. index.html
<!doctype html>
<html>
<head>
<title>SAFE Template</title>
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/bulma/0.9.0/css/bulma.min.css"/>
<script src="https://kit.fontawesome.com/409fb4cc7a.js" crossorigin="anonymous"></script>
</head>
<body>
@object
object / View.fs
Created June 27, 2024 18:05
Fable workshop (2024). Step 6. View.fs
module View
open Feliz
open Feliz.Bulma
open System
open Model
open Messages
let view (state : Model) dispatch =
@object
object / Update.fs
Last active October 18, 2024 09:12
Fable workshop (2024). Step 6. Update.fs
module Update
open System
open Elmish
open Fable.SimpleHttp
open Model
open Messages
let tryParseWith (tryParseFunc: string -> bool * _) = tryParseFunc >> function