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

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

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

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 (..)

shamansir

module Main exposing (..)


import Browser

import Html exposing (Html)
import Html as H


type alias Flags = ()

shamansir

module Main exposing (main)

import Browser
import Html exposing (Html, button, div, h2, input, text)
import Html.Attributes exposing (class, placeholder, value)
import Html.Events exposing (onClick, onInput)
import Parser exposing (..)
import Parser as P exposing (..)

shamansir

module ComonadicUI.Component where
  
import Control.Comonad (Comonad(..))

import ComonadicUI.Pairing
import ComonadicUI.UI 


type Component base w m a = w (UI base m a)

shamansir

# magick: set the correct path to libMagickCore.dylib
install_name_tool -change \
    /ImageMagick-7.0.9/lib/libMagickCore-7.Q16HDRI.7.dylib \
    @executable_path/../lib/libMagickCore-7.Q16HDRI.7.dylib \
    /Users/shamansir/ImageMagick-7.0.9/bin/magick

# magick: set the correct path to libMagickWand.dylib
install_name_tool -change \
    /ImageMagick-7.0.9/lib/libMagickWand-7.Q16HDRI.7.dylib \
    @executable_path/../lib/libMagickWand-7.Q16HDRI.7.dylib \