rung-tools / rung-cli

import {

    __,

    T,

    all,

    allPass,

    clamp,

    complement,

    cond,

    equals,

    evolve,

    gte,

    identity,

    length,

    lte,

    map,

    none,

    propEq,

    replace,

    split,

    take,

    tryCatch,

    unary,

    values

} from 'ramda';

import { isEmail, isHexColor, isURL } from 'validator';

export const Integer = { name: 'Integer' };

export const Double = { name: 'Double' };

export const DateTime = { name: 'DateTime' };

export const Natural = { name: 'Natural' };

export const Char = length => ({ name: 'Char', length });

export const IntegerRange = (from, to) => ({ name: 'IntegerRange', from, to });

export const DoubleRange = (from, to) => ({ name: 'DoubleRange', from, to });

export const Money = { name: 'Money' };

export const Color = { name: 'Color' };

export const Email = { name: 'Email' };

export const Checkbox = { name: 'Checkbox' };

export const OneOf = values => ({ name: 'OneOf', values });

export const Url = { name: 'Url' };

export const IntegerMultiRange = (from, to) => ({ name: 'IntegerMultiRange', from, to });

export const Calendar = { name: 'Calendar' };

export const AutoComplete = { name: 'AutoComplete' };

export const Location = { name: 'Location' };

/**

 * Returns the human-readable name of a type

 *

 * @author Marcelo Haskell Camargo

 * @param {String} type {anonymous}

 * @return {String} {anonymous}

 */

export const getTypeName = cond([

    [propEq('name', 'Char'), t => `Char(${t.length})`],

    [propEq('name', 'IntegerRange'), t => `IntegerRange(${t.from}, ${t.to})`],

    [propEq('name', 'DoubleRange'), t => `DoubleRange(${t.from}, ${t.to})`],

    [propEq('name', 'OneOf'), t => `OneOf([${t.values.join(', ')}])`],

]);

export const validator = {

    Calendar: String & equals('Invalid Date'),

    Color: isHexColor,

    Email: unary(isEmail),

    Integer: complement(isNaN),

    IntegerMultiRange: (from, to) => allPass([

        length & equals(2),

        evolve([gte(__, from), lte(__, to)]) & values & all(identity)]),

    Money: complement(isNaN),

    Natural: lte(0),

    Url: unary(isURL)

};

export const filter = {

    Calendar: date => new Date(date),

    Char: take,

    IntegerMultiRange: split(' ') & map(parseInt(_, 10)),

    Money: tryCatch(replace(',', '.') & parseFloat, ~NaN)

};