epost

.cpu 6502
* = $c000

start
    inc $d020
    inc $d021
    jmp start    

epost

module Main where

import Prelude

import Color (Color(..), black, white, lighten)
import Color.Scheme.MaterialDesign (blueGrey, green, red, yellow)
import Control.Monad.Eff (Eff(..))
import Data.Array ((..), cons, take, drop, mapWithIndex, length, index)
import Data.Foldable (class Foldable, foldMap, fold)
import Data.Int (toNumber, ceil, round, floor)

epost

module Main where

import Prelude
import Control.Monad.Free
import Data.Exists
import Data.Foldable (fold)
import Data.Maybe
import Data.Symbol
import TryPureScript

epost

module Main where

import Prelude

import Control.Monad ((=<<))
import Data.Array (mapWithIndex, index, cons)
import Data.Lens (iso)
import Data.Foldable (sum)
import Data.Maybe
import React as R

epost

;; Usage:
;;   `(add-to-list 'auto-mode-alist '("\\.aql\\'" . aql-mode))`
;;
;; References:
;;  - http://www.wilfred.me.uk/blog/2015/03/19/adding-a-new-language-to-emacs/
;;  - https://www.emacswiki.org/emacs/EmacsSyntaxTable

(defconst aql-mode-syntax-table
  (let ((table (make-syntax-table java-mode-syntax-table)))
    ;; # is punctuation, but // is a comment starter

epost

module Main where

import Prelude

import Data.Array
import Data.Foldable
import Data.Traversable (for)
import Data.Maybe
import Data.Int (toNumber)
import React as R

epost

module Main where

import Prelude

import React as R
import React.DOM as R
import React.DOM (text, a, h1', p', div)
import React.DOM.Props as RP
import React.DOM.Props (style, onClick, href, target)
import Thermite hiding (defaultMain) as T

epost

module Main where

import Prelude
import Data.Array
import Data.Foldable
import Data.Int (toNumber)
import Data.Maybe
import Signal.DOM (animationFrame)
import Flare
import Flare.Drawing

epost

module Main where

import Prelude

import Control.Monad.Eff.Console (logShow, log)
import Data.Tuple
import Data.Map (Map, lookup, singleton)
import TryPureScript

main = render =<< withConsole do

epost

var R = require('ramda')
var FV = require('fantasy-validations')
var DV = require('data.validation') // folktale

var V = FV

// extend with flatten and chain
V.prototype.flatten = function () {
  return this.f ? this : this.s // TODO use fold
}