ericgj

Implementing a REST workflow using JSON Schema, an example

The problem domain

You are designing a document-control system. Users create and edit documents for publication. Documents can be draft, in review, on hold, in process, or published. Users have specific roles which determine which documents they have access to, and what they are permitted to do to the documents, as the documents move through the workflow. Some users are writers, others are editors.

Expressed in plain language, the rules are:

• Writers can view their own documents regardless of status.
• Writers can create new documents.
• Writers can save new documents as draft, or to in review if certain information is included.

ericgj

import dramatiq

@dramatiq.actor
def sequence(environ, sequence, environ_key=None, result_key=None):
    """ could be anything, just used to kick off a sequence """
    return {
        u'environ': environ,
        u'count': len(sequence)
    }

ericgj

"""
Derived from [fn.py](https://github.com/kachayev/fn.py) function 'curried'
Amended to fix wrapping error: cf. https://github.com/kachayev/fn.py/pull/75

Copyright 2013 Alexey Kachayev 
Under the Apache License, Version 2.0  
http://www.apache.org/licenses/LICENSE-2.0

"""

ericgj

#!/bin/env python

import sys
import re
from argparse import ArgumentParser

WORD_SPLIT  = re.compile('[^a-zA-Z0-9]+')
FIRST_ALPHA = re.compile('^[a-zA-Z]')

def render(args,typename,values):

ericgj

type Page
    = Search Page.Search.Model

type alias Model =
    { page : Page
    , session : Session
    }

type Msg

ericgj

# Usage:
#   ruby sequel_dot.rb [SEQUEL-DATABASE-URI] > output.dot
# Or pipe directly to Graphviz:
#   ruby sequel_dot.rb [SEQUEL-DATABASE-URI] | dot -Tgif > output.gif
#
# Note adapted from Jeremy Evans' and Rohit Namjoshi's son's code at 
#   http://sequel.heroku.com/2010/05/29/fun-with-graphviz-and-associations/
#
# However, instead of basing graph on model associations, this uses foreign key constraints of the db tables
# Thus, this relies on the database adapter supporting #foreign_key_list.

ericgj

-- update triggered by browser URL change
updatePage : Pages.Page -> Model -> (Model, Cmd Msg)
updatePage page model =
  let

    (valueTypesStatus, valueTypesTask) =
      if isLoadedValueTypes model then
        ( model.valueTypes

ericgj

module Validation 
  exposing 
    ( ValidationResult(..)
    , map, mapMessage, andThen, andMap, succeed
    , withDefault
    , fromMaybeInitial, fromMaybe, toMaybe
    , fromResultInitial, fromResult
    , toString, message, isValid, isInvalid
    , validate
    )

ericgj

import Html exposing (Html, div, button, text)
import Html.Attributes as Attr
import Html.Events as Evt
import Html.App exposing (beginnerProgram)
import Html.Events exposing (onClick)
import Json.Decode as Json
import String


sample : Person

ericgj

module AutocompleteIDList exposing (..)

{- 
  Adapted from  https://github.com/thebritican/elm-autocomplete/blob/master/examples/src/AccessibleExample.elm
  
  **Work in Progress**

  Note that the underlying items must be `List (id,item)` 
  and `selectedItem` is `Maybe id` .