shamansir

module Data.Record.Pairs where

import Prelude

import Data.Symbol (class IsSymbol)


import Prim.RowList as RL

class Pairs (xsA :: RL.RowList Type) (xsB :: RL.RowList Type)

shamansir

// take SVG commands and draw this path to HTML5 canvas

// commandList should look like that: [ { marker: "M", values: [ 10, 10 ] }, 
//                                      { marker: "l", values: [ 5, 7 ] },
//                                      { marker: "C", values: [ -5, 7.2, .3, -16, 24, 10 ] },
//                                      . . .
//                                      { marker: "z", values: [ ] } ]

// there's another gist which has the code to parse SVG paths: 
// https://gist.github.com/shamansir/0ba30dc262d54d04cd7f79e03b281505

shamansir

<?xml version="1.0" encoding="UTF-8"?>
<!--

 Author: Ma Jiehong <ma.jiehong@gmail.com>
 Copyright (C) 2010 Ma Jiehong

 This library is free software; you can redistribute it and/or
 modify it under the terms of the GNU Library General Public
 License as published by the Free Software Foundation; either
 version 2 of the License, or (at your option) any later version.

shamansir

// svgPathToCommands('M10,10 l 5,7 C-5,7.2,.3-16,24,10  z');
//
// produces:
//
// [ { marker: "M", values: [ 10, 10 ] }, 
//   { marker: "l", values: [ 5, 7 ] },
//   { marker: "C", values: [ -5, 7.2, 0.3, -16, 24, 10 ] },
//   { marker: "z", values: [ ] } ]
//
// commandsToSvgPath(svgPathToCommands('M10,10 l 5,7 C-5,7.2,.3-16,24,10  z'))

shamansir

let games = Array.from(document.getElementsByClassName('gamebox'));

function loadTitle(gamebox) {
    if (!gamebox) return null;
    return gamebox.querySelector('h2 b') ? gamebox.querySelector('h2 b').textContent.trim() : null;
 }

 function isNowPlaying(gamebox) {
     return gamebox.classList.contains('nowplaying');
 }

shamansir

module Rpd.API.Covered where

data Covered error state =
    Covered (Array error) (Maybe state)


nothing :: forall error state. Covered error state
nothing =
    Covered [] Nothing

shamansir

plus: {
    name: "Plus"
    info: "Left and Right identity for Alt"
    parent: "alt"
    "package": "Control*"
    members:
        [
            { name: "empty"
            , def: "f a"
            , laws : // FIXME: laws are incorrect

shamansir

module FromHex exposing (..)

import Color exposing (Color)


hexToColor : String -> Result String Color
hexToColor str =
    let
        digitToInt digit =
            case digit of

shamansir

Based on this article: https://workspacevita.com/how-to-use-own-videos-screensavers-mac-catalina/

The difference is that the Aerial Configuration screens shown there are outdated.

First, you need to prepare the video file so it would be visible to Aerial. Due to security.

1. Create /Users/Shared/screensavers folder.
2. Put a copy of your video file to /Users/Shared/screensavers.
3. That should be enough.

shamansir

module BinPack exposing (..)


import Browser
import Html exposing (Html, button, div, text, input)
import Html.Attributes as H exposing (..)
import Html.Events exposing (onClick)
import Random
import Svg exposing (..)
import Svg.Attributes as S exposing (..)