Add rebuild, mapKeys, ,and renameKeys (ramda#3493)

Author: CrossEye

source/chain.js

@@ -1,8 +1,5 @@
 import _curry2 from './internal/_curry2.js';
-import _dispatchable from './internal/_dispatchable.js';
-import _makeFlat from './internal/_makeFlat.js';
-import _xchain from './internal/_xchain.js';
-import map from './map.js';
+import _chain from './internal/_chain.js';
 
 
 /**
@@ -31,10 +28,5 @@ import map from './map.js';
  *
  *      R.chain(R.append, R.head)([1, 2, 3]); //=> [1, 2, 3, 1]
  */
-var chain = _curry2(_dispatchable(['fantasy-land/chain', 'chain'], _xchain, function chain(fn, monad) {
-  if (typeof monad === 'function') {
-    return function(x) { return fn(monad(x))(x); };
-  }
-  return _makeFlat(false)(map(fn, monad));
-}));
+var chain = _curry2(_chain);
 export default chain;

source/fromPairs.js

@@ -1,5 +1,5 @@
 import _curry1 from './internal/_curry1.js';
-
+import _fromPairs from './internal/_fromPairs.js';
 
 /**
  * Creates a new object from a list key-value pairs. If a key appears in
@@ -17,13 +17,5 @@ import _curry1 from './internal/_curry1.js';
  *
  *      R.fromPairs([['a', 1], ['b', 2], ['c', 3]]); //=> {a: 1, b: 2, c: 3}
  */
-var fromPairs = _curry1(function fromPairs(pairs) {
-  var result = {};
-  var idx = 0;
-  while (idx < pairs.length) {
-    result[pairs[idx][0]] = pairs[idx][1];
-    idx += 1;
-  }
-  return result;
-});
+var fromPairs = _curry1(_fromPairs);
 export default fromPairs;

source/index.js

@@ -124,6 +124,7 @@ export { default as lte } from './lte.js';
 export { default as map } from './map.js';
 export { default as mapAccum } from './mapAccum.js';
 export { default as mapAccumRight } from './mapAccumRight.js';
+export { default as mapKeys } from './mapKeys.js';
 export { default as mapObjIndexed } from './mapObjIndexed.js';
 export { default as match } from './match.js';
 export { default as mathMod } from './mathMod.js';
@@ -190,13 +191,15 @@ export { default as propOr } from './propOr.js';
 export { default as propSatisfies } from './propSatisfies.js';
 export { default as props } from './props.js';
 export { default as range } from './range.js';
+export { default as rebuild } from './rebuild.js';
 export { default as reduce } from './reduce.js';
 export { default as reduceBy } from './reduceBy.js';
 export { default as reduceRight } from './reduceRight.js';
 export { default as reduceWhile } from './reduceWhile.js';
 export { default as reduced } from './reduced.js';
 export { default as reject } from './reject.js';
 export { default as remove } from './remove.js';
+export { default as renameKeys } from './renameKeys.js';
 export { default as repeat } from './repeat.js';
 export { default as replace } from './replace.js';
 export { default as reverse } from './reverse.js';

source/internal/_chain.js

@@ -0,0 +1,12 @@
+import _dispatchable from './_dispatchable.js';
+import _makeFlat from './_makeFlat.js';
+import _xchain from './_xchain.js';
+import map from '../map.js';
+
+
+export default _dispatchable(['fantasy-land/chain', 'chain'], _xchain, function chain(fn, monad) {
+  if (typeof monad === 'function') {
+    return function(x) { return fn(monad(x))(x); };
+  }
+  return _makeFlat(false)(map(fn, monad));
+});

source/internal/_fromPairs.js

@@ -0,0 +1,10 @@
+
+export default function fromPairs(pairs) {
+  var result = {};
+  var idx = 0;
+  while (idx < pairs.length) {
+    result[pairs[idx][0]] = pairs[idx][1];
+    idx += 1;
+  }
+  return result;
+}

source/internal/_mapKeys.js

@@ -0,0 +1,7 @@
+import _rebuild from './_rebuild.js';
+
+var mapKeys = function mapKeys(fn, obj) {
+  return _rebuild(function(k, v) {return [[fn(k), v]];}, obj);
+};
+
+export default mapKeys;

source/internal/_rebuild.js

@@ -0,0 +1,11 @@
+import _fromPairs from './_fromPairs.js';
+import _toPairs from './_toPairs.js';
+import _chain from './_chain.js';
+
+var rebuild = function(convert, obj) {
+  return _fromPairs(_chain(
+    function(pair) {return convert(pair[0], pair[1]);},
+    _toPairs(obj)
+  ));
+};
+export default rebuild;

source/internal/_toPairs.js

@@ -0,0 +1,12 @@
+import _has from './_has.js';
+
+
+export default function _toPairs(obj) {
+  var pairs = [];
+  for (var prop in obj) {
+    if (_has(prop, obj)) {
+      pairs[pairs.length] = [prop, obj[prop]];
+    }
+  }
+  return pairs;
+}

source/mapKeys.js

@@ -0,0 +1,23 @@
+import _curry2 from './internal/_curry2.js';
+import _mapKeys from './internal/_mapKeys.js';
+
+/**
+ * Transforms an object by converting the keys to new values.
+ *
+ * **Note** that if multiple keys map to the same new key, the last one processed will dominate.
+ *
+ * @func
+ * @memberOf R
+ * @category Object
+ * @sig (String -> String) -> Object -> Object
+ * @param {Function} fn
+ * @param {Object} obj
+ * @return {Object}
+ * @see R.map, R.rebuild, R.renameKeys
+ * @example
+ *
+ *      R.mapKeys(toUpper, {foo: 1, bar: 2, baz: 3}) //=> {FOO: 1, BAR: 2, BAZ: 3}
+ */
+var mapKeys = _curry2(_mapKeys);
+
+export default mapKeys;

source/rebuild.js

@@ -0,0 +1,23 @@
+import _curry2 from './internal/_curry2.js';
+import _rebuild from './internal/_rebuild.js';
+
+/**
+ * Transforms an object into a new one, applying to every key-value pair a
+ * function creating zero, one, or many new key-value pairs, and combining
+ * the resulst into a single object.
+ *
+ * @func
+ * @memberOf R
+ * @category List
+ * @sig ([String, a] -> [[String, b]]) -> {k: a} -> {k: b}
+ * @param {Function} convert A function that converts a key and a value to an array of key-value arrays.
+ * @param {Object} obj The structure to convert
+ * @return {Array} A new object whose key-value pairs are the result of applying the `convert` function
+ *         to every key-value pair in `obj`.
+ * @see R.map, R.mapKeys, R.renameKeys
+ * @example
+ *
+ *      R.rebuild((k, v) => [[k.toUpperCase(), v * v]], {a: 1, b: 2, c: 3}) //=> {A: 1, B: 4, C: 9}
+ */
+var rebuild = _curry2(_rebuild);
+export default rebuild;