ramda, convert properties of objet into snakeCase or camelCase

normalizer.js

import { concat, zipObj, keys, values, map, isEmpty, curry } from 'ramda'
const log = curry(console.log)
const snakeCaseObj = [{
  a_b: "asdasdasd",
  c_a: "2018-02-20T18:43:17.104Z",
  t_c: {
    s_d: "2018-02-20",
    e_d: "2018-02-20",
    b_t: {
      c_a: "2018-02-20T18:43:17.104Z"
    }
  },
  v_b: {
    g_a: "2018-02-20T18:43:17.104Z"
  }
}]
const camelCaseObj = [{
  aB: "asdasdasd",
  cA: "2018-02-20T18:43:17.104Z",
  tC: {
    sD: "2018-02-20",
    eD: "2018-02-20",
    bT: {
      cA: "2018-02-20T18:43:17.104Z"
    }
  },
  vB: {
    gA: "2018-02-20T18:43:17.104Z"
  }
}]

const camelCase = str => str.replace(/[-_]([a-z])/g, m => m[1].toUpperCase())
const snakeCase = str => str.replace(/([A-Z])/g, x => concat('_', x.toLowerCase()))

const parseValues = curry((fn, obj) => {
  if(isEmpty(keys(obj))) {
    return obj
  } else {
    return mapKeys(fn, obj)
  }
})
const mapKeys = curry((fn, obj) => zipObj(map(fn, keys(obj)), map(parseValues(fn), values(obj))));

const fold = curry((fn, value) => is(Array, value) ? map(fn, value) : fn(value))

const toCamelCase = fold(mapKeys(camelCase), __)

const toSnakeCase = fold(mapKeys(snakeCase), __)

toSnakeCase(camelCaseObj)
toCamelCase(snakeCaseObj)

Wont work with arrays in values s_d: ['2018-02-20'],