Skip to content

Instantly share code, notes, and snippets.

View Chadtech's full-sized avatar

Chadtech Chadtech

  • SuperFocus.ai
  • Pennsylvania
View GitHub Profile
{
"editor.formatOnSave": true,
"editor.fontFamily": "HFNSS",
"editor.fontSize": 32,
"workbench.fontAliasing": "none",
"editor.lineHeight": 21,
"workbench.colorTheme": "Monokai Dimmed",
"workbench.colorCustomizations": {
"editor.foreground": "#b0a69a",
"editor.background": "#030907",
module Html.Custom
exposing
( container
, row
, column
)
import Html.Grid as Grid
import Html exposing (Html)

Problem: Macs generally hide the scroll bar when its not in use. However, we want the scroll bar to be visible as a signal that there is hidden content that can be scrolled to

Research: Webkit browsers have some css that can be used to force the scrollbar to appear, but that doesnt help us in the case of

var util = require("gulp-util");
var cp = require("child_process");
var paths = {
public: "./public",
mainElm: "./src/Main.elm",
};
function makeElm() {
util.log(util.colors.cyan("Elm"), "starting");
-- Match on record
-- \{(.*\n?)*\}
TAR_OPTIONS=--no-same-owner stack setup
sudo stack build --exec radler-exe --fast
module Main exposing (main)
import Html exposing (Html, text)
main : Html msg
main =
multiply
(fromInt 9)
(fromInt 5)
genderDecoder : Decoder Gender
genderDecoder =
[ maleDecoder
, femaleDecoder
]
|> Decode.oneOf
maleDecoder : Decoder Gender
maleDcoder =
eyeColorDecoder
import Return2 as R2
import Return3 as R3
-- Return 2 --
R2.withCmd : Cmd msg -> model -> (model, Cmd msg)
R2.withCmds : List (Cmd msg) -> model -> (model, Cmd msg)
R2.withNoCmd : model -> (model, Cmd msg)
R2.withModel : model -> Cmd msg -> (model, Cmd msg)
R2.model : (model, Cmd msg) -> model
-- Ports.Manager --
type alias Manager msg =
{ threads : Dict String (Decoder msg)
, seed : Random.Seed
, errCtor : Error -> msg