pete-murphy

Practical Accessibility

6 Semantic HTML

Importance of marking up tabular data as a <table>, NVDA for example exposes keyboard shortcuts:

https://download.nvaccess.org/documentation/en/keyCommands.html

pete-murphy

Non-simple message reporter

Simple messages have the shape Lang -> String

This rule is in a dirty/WIP state with lots of extraneous cruft, but declarationEnterVisitor is the significant part, and it serves two purposes:

1. reports non-simple messages (despite the name of the rule / module) for use with Rule.withDataExtractor
2. reports errors for messages whose key appears in out.json (these are messages that were found to have been edited unintentionally, the JSON is a map from message key / function name to original source that we should restore)

pete-murphy

sentinel props =
    Html.Styled.node "intersection-sentinel"
        [ Attributes.class "h-8 block"
        , Attributes.style "background-color" "red"
        , Attributes.disabled props.disabled
        , Attributes.attribute "disabled"
            (if props.disabled then
                "true"

             else

pete-murphy

elm-css Extraction

TODO

Step 0: setup

Clone this repo: https://github.com/bigardone/elm-css-patterns/blob/master/elm.json

• Setup elm-review rule for quick edit/feedback cycle

pete-murphy

module ElmCssExtractor exposing (rule)

import Elm.Syntax.Expression as Expression exposing (Expression)
import Elm.Syntax.ModuleName exposing (ModuleName)
import Elm.Syntax.Node as Node exposing (Node(..))
import Elm.Syntax.Range exposing (Range)
import Json.Encode
import Review.ModuleNameLookupTable as ModuleNameLookupTable exposing (ModuleNameLookupTable)
import Review.Rule as Rule exposing (Error, Rule)

pete-murphy

{-# LANGUAGE BlockArguments #-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}

module ColorParser where

import Control.Monad
import Data.Aeson as A (ToJSON, Value, encode, object, (.=))
import Data.Aeson.Key (fromString)

pete-murphy

module Main where

import Prelude

import Data.Maybe (Maybe(..))
import Data.Map as Map
import Data.Traversable as Traversable
import Effect (Effect)
import Effect.Exception as Exception
import Effect.Unsafe as Effect.Unsafe

pete-murphy

Often we want to iterate through a collection of items, performing some effect for each item. This means we want some function that looks like

(a -> f b) -> t a -> result

where a -> f b is our effectful computation, t a is our collection (of as) and result could take a few different shapes depending on the requirements of our program, especially in the common case when the effect f encapsulates some notion of failure (like TaskEither in fp-ts, or anything with ExceptT in its stack in Haskell).

[!TIP]

pete-murphy

module FnReport exposing (rule)

{-| Run with

elm-review ./src/Well/I18n.elm --extract --report=json --rules FnReport | jq -r '.extracts.FnReport'

-}

import Dict
import Elm.Syntax.Declaration as Declaration exposing (Declaration)

pete-murphy

module ModuleUsage exposing (..)

import Dict exposing (Dict)
import Elm.Syntax.Expression as Expression exposing (Expression)
import Elm.Syntax.Import exposing (Import)
import Elm.Syntax.ModuleName exposing (ModuleName)
import Elm.Syntax.Node as Node exposing (Node)
import Json.Encode as Encode
import Review.ModuleNameLookupTable as ModuleNameLookupTable exposing (ModuleNameLookupTable)
import Review.Project.Dependency as Dependency exposing (Dependency)