Skip to content

Instantly share code, notes, and snippets.

View AngelMunoz's full-sized avatar
🏠
Working from home

Angel D. Munoz AngelMunoz

🏠
Working from home
204 followers · 242 following
View GitHub Profile
@AngelMunoz
AngelMunoz / meme-editor.imba
Last active September 11, 2022 04:59
A simple canvas based meme-like editor
const sizeOrMax\((size: number, max: number) => number) =
do(size,max) size > max ? max : size
export tag MemeEditor
css .row
d: flex; fld: column
css footer
d:flex; fld:column; m:auto
css canvas
@AngelMunoz
AngelMunoz / Navigo.fs
Created June 30, 2022 19:45
A custom written bindings for https://github.com/krasimir/navigo
module Navigo
open System
open Fable.Core
type DoneFn<'T> = 'T -> unit
type GenerateOptions =
abstract includeRoot: bool
@AngelMunoz
AngelMunoz / script.fsx
Last active April 15, 2022 14:35
a small script to explore reducible from F# (run with: dotnet fsi ./script.fsx)
#r "nuget: Reducible, 0.2.0"
open Morris.Reducible
type UserReducer =
| EmailDelta of string option
| AgeDelta of int option
| NameDelta of string option
type User =
@AngelMunoz
AngelMunoz / falco-text
Created April 12, 2022 01:17
F# Http Frameworks from zero
cd repos; dotnet new webapi -lang F# -o FalcoSample
cd FalcoSample; dotnet add package Falco
code -r .
open System
open Microsoft.AspNetCore.Http
open Falco
open Falco.Routing
open Falco.HostBuilder
@AngelMunoz
AngelMunoz / Extensions.fs
Created March 13, 2022 21:54
Scriban + HTMX F# extensions for Giraffer
namespace Extensions
open System
open System.Runtime.CompilerServices
open System.IO
open System.Threading.Tasks
open Microsoft.AspNetCore.Antiforgery
open Microsoft.AspNetCore.Http
open Microsoft.Extensions.DependencyInjection
open Microsoft.Extensions.Primitives
@AngelMunoz
AngelMunoz / install-perla.ps1
Created October 1, 2021 16:27
Install Perla in windows machines
Param($version = "latest")
$baseUrl = "https://api.github.com";
$releasesUrl = "$baseUrl/repos/AngelMunoz/Perla/releases";
$releasesLatestUrl = "$releasesUrl/latest";
$releasesByTagUrl = "$releasesUrl/tags/v";
$outDir = "$Env:USERPROFILE\.perla";
@AngelMunoz
AngelMunoz / index.html
Last active December 3, 2022 11:14
Implement SSE with F# and Saturn
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<meta http-equiv="X-UA-Compatible" content="IE=edge">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<title>Document</title>
</head>
<body>
<script>
@AngelMunoz
AngelMunoz / LitExtensions.fs
Created September 10, 2021 18:13
Bindings for LitElement
module Lit.Extensions
open Fable.Core
open Fable.Core.JsInterop
open Lit
[<Interface>]
type ReactiveController =
abstract member hostConnected : unit -> unit
@AngelMunoz
AngelMunoz / dev-to-sitefi.fsx
Created August 15, 2021 03:45
Convert Dev.to articles into markdown files with site-fi front matter
#r "nuget: FSharp.SystemTextJson, 0.17.4"
#r "nuget: Ply, 0.3.1"
open System.IO
open System.Text.Json
open System.Text.Json.Serialization
open System
@AngelMunoz
AngelMunoz / acive-pattern.fsx
Last active July 31, 2021 16:03
open System.IO
// each case is kind of a "label"
// active patterns are limited to 7 choices though so keep that in mind
let (|IsNet50|Else|EndsWithSlash|) (path: string) =
if path.EndsWith("net5.0") then
IsNet50
else if path.EndsWith('/')then
EndsWithSlash
else Else path