agson/src/agson.coffee

Querying and manipulating JSON graphs

lenses = require './agson/lenses'
traversals = require './agson/traversals'
combinators = require './agson/combinators'

liftL = (lensf) -> (args...) ->
  new AgsonQuery @lens.then lensf args...

class AgsonQuery

  constructor: (@lens) ->
  toString: ->
    "agson(#{@lens.toString()})"

  list: liftL -> traversals.list
  object: liftL -> traversals.object
  property: liftL lenses.property
  index: liftL lenses.property

  where: liftL (predicate) ->
    combinators.where (ma) ->
      ma.map(predicate).getOrElse false

  recurse: ->
    lens = @lens.then combinators.recurse -> lens
    new AgsonQuery lens

  run: (data) -> @lens.run data

module.exports = new AgsonQuery
  then: (lens) -> lens