@jdeighan/coffee-utils 9.0.5 → 10.0.0

package/package.json

@@ -1,7 +1,7 @@
 {
 	"name": "@jdeighan/coffee-utils",
 	"type": "module",
-	"version": "9.0.5",
+	"version": "10.0.0",
 	"description": "A set of utility functions for CoffeeScript",
 	"main": "coffee_utils.js",
 	"exports": {

package/src/Section.coffee

@@ -2,18 +2,22 @@
 
 import {assert, error, croak} from '@jdeighan/unit-tester/utils'
 import {
-	pass, undef, defined, isArray,
+	pass, undef, defined, isArray, isEmpty,
 	} from '@jdeighan/coffee-utils'
 import {arrayToBlock} from '@jdeighan/coffee-utils/block'
 import {indented} from '@jdeighan/coffee-utils/indent'
+import {debug} from '@jdeighan/coffee-utils/debug'
 
 # ---------------------------------------------------------------------------
 
 export class Section
 
-	constructor: (@name) ->
+	constructor: (@name, content=undef) ->
+		# --- name can be undef or empty
 
 		@lParts = []
+		if defined(content)
+			@lParts.push content
 
 	# ..........................................................
 
@@ -73,7 +77,11 @@ export class Section
 
 	getBlock: () ->
 
+		debug "enter Section.getBlock()"
 		if (@lParts.length == 0)
+			debug "return undef from Section.getBlock()"
 			return undef
 		else
-			return arrayToBlock(@lParts)
+			result = arrayToBlock(@lParts)
+			debug "return from Section.getBlock()", result
+			return result

package/src/Section.js

@@ -10,7 +10,8 @@ import {
   pass,
   undef,
   defined,
-  isArray
+  isArray,
+  isEmpty
 } from '@jdeighan/coffee-utils';
 
 import {
@@ -21,11 +22,19 @@ import {
   indented
 } from '@jdeighan/coffee-utils/indent';
 
+import {
+  debug
+} from '@jdeighan/coffee-utils/debug';
+
 // ---------------------------------------------------------------------------
 export var Section = class Section {
-  constructor(name) {
+  constructor(name, content = undef) {
     this.name = name;
+    // --- name can be undef or empty
     this.lParts = [];
+    if (defined(content)) {
+      this.lParts.push(content);
+    }
   }
 
   // ..........................................................
@@ -88,10 +97,15 @@ export var Section = class Section {
 
   // ..........................................................
   getBlock() {
+    var result;
+    debug("enter Section.getBlock()");
     if (this.lParts.length === 0) {
+      debug("return undef from Section.getBlock()");
       return undef;
     } else {
-      return arrayToBlock(this.lParts);
+      result = arrayToBlock(this.lParts);
+      debug("return from Section.getBlock()", result);
+      return result;
     }
   }
 

package/src/SectionMap.coffee

@@ -2,12 +2,13 @@
 
 import {assert, error, croak} from '@jdeighan/unit-tester/utils'
 import {
-	pass, undef, defined, OL, isEmpty, nonEmpty,
+	pass, undef, defined, notdefined, OL, isEmpty, nonEmpty,
 	isString, isHash, isArray, isUniqueTree, isNonEmptyString,
 	isNonEmptyArray,
 	} from '@jdeighan/coffee-utils'
 import {arrayToBlock} from '@jdeighan/coffee-utils/block'
 import {indented} from '@jdeighan/coffee-utils/indent'
+import {LOG} from '@jdeighan/coffee-utils/log'
 import {debug} from '@jdeighan/coffee-utils/debug'
 import {Section} from '@jdeighan/coffee-utils/section'
 
@@ -15,149 +16,126 @@ import {Section} from '@jdeighan/coffee-utils/section'
 
 isSectionName = (name) ->
 
-	return isString(name) && name.match(/^[a-z][a-z0-9]*/)
+	return isString(name) && name.match(/^[a-z][a-z0-9_]*/)
 
 # ---------------------------------------------------------------------------
 
 isSetName = (name) ->
 
-	return isString(name) && name.match(/^[A-Z][a-z0-9]*/)
+	return isString(name) && name.match(/^[A-Z][a-z0-9_]*/)
 
 # ---------------------------------------------------------------------------
 
 export class SectionMap
 
-	constructor: (lSectionTree) ->
-		# --- lSectionTree is a tree of section names
+	constructor: (@lSectionTree) ->
+		# --- lSectionTree is a tree of section/set names
 
-		debug "enter SectionMap()", lSectionTree
-		@lSectionTree = lSectionTree   # a tree of section names
-		@hSets = {}
+		debug "enter SectionMap()", @lSectionTree
+		assert isArray(@lSectionTree), "not an array"
+
+		# --- keys are section names, values are Section objects
 		@hSections = {}
-		@addSections lSectionTree
+
+		# --- keys are set names, values are subtrees of lSectionTree
+		@hSets = {}
+
+		@build @lSectionTree
 		debug "return from SectionMap()", @hSections
 
 	# ..........................................................
 
-	addSections: (desc) ->
-		# --- returns a flat array of sections that were added
-
-		if isString(desc)
-			assert nonEmpty(desc), "empty section name"
-			assert isSectionName(desc), "bad section name #{OL(desc)}"
-			assert (@hSections[desc] == undef), "duplicate section #{OL(desc)}"
-			@hSections[desc] = new Section(desc)
-			return [desc]
+	build: (lTree) ->
+
+		debug "enter build()", lTree
+		assert isArray(lTree), "not an array"
+		assert nonEmpty(lTree), "empty array"
+
+		firstItem = lTree[0]
+		if isSetName(firstItem)
+			assert (lTree.length >= 2), "set without sections"
+			@hSets[firstItem] = lTree
+			for item in lTree.slice(1)
+				if isArray(item)
+					@build item
+				else if isSectionName(item)
+					@hSections[item] = new Section(item)
+				else if ! isString(item)    # string would be literal
+					croak "Bad section tree: #{OL(@lSectionTree)}"
 		else
-			assert isArray(desc), "not an array or string #{OL(desc)}"
-			name = undef
-			lParts = []
-			for item,i in desc
-				if (i==0) && isSetName(item)
-					name = item
+			for item in lTree
+				if isArray(item)
+					@build item
+				else if isSectionName(item)
+					@hSections[item] = new Section(item)
 				else
-					lAdded = @addSections item
-					for item in lAdded
-						lParts.push item
-			if defined(name)
-				@addSet name, lParts
-			return lParts
+					croak "Bad section tree: #{OL(@lSectionTree)}"
+		debug "return from build()", @hSections, @hSets
 		return
 
 	# ..........................................................
+	# --- hProc should be <name> -> <function>
+	#     <name> can be a section name or a set name
+	#     <function> should be <block> -> <block>
+	# --- desc can be:
+	#        an array, which may begin with a set name
+	#        a section name
+	#        a set name
+	#        undef (equivalent to being set to @SectionTree)
 
-	addSet: (name, lSectionTree) ->
-
-		debug "enter addSet()", name, lSectionTree
-
-		# --- check the name
-		assert isSetName(name), "not a valid set name #{OL(name)}"
-
-		# --- check lSectionTree
-		assert isArray(lSectionTree), "arg 2 not an array"
-		for secName in lSectionTree
-			assert isNonEmptyString(secName),
-					"not a non-empty string #{OL(secName)}"
-			assert defined(@hSections[secName]),
-					"not a section name #{OL(secName)}"
-
-		@hSets[name] = lSectionTree
-		debug 'hSets', @hSets
-		debug "return from addSet()"
-		return
-
-	# ..........................................................
-	# --- sections returned in depth-first order from section tree
-	#     Set names are simply skipped
-	#     yields: [<level>, <section>]
+	getBlock: (desc=undef, hProcs={}) ->
 
-	allSections: (desc=undef, level=0) ->
+		debug "enter SectionMap.getBlock()", desc, hProcs
 
-		debug "enter allSections()", desc, level
-		if (desc == undef)
+		if notdefined(desc)
 			desc = @lSectionTree
+
 		if isArray(desc)
+			lBlocks = []
+			setName = undef
 			for item in desc
-				if isSectionName(item)
-					result = [level, @section(item)]
-					debug 'yield', result
-					yield result
+				if isArray(item) || isSectionName(item)
+					# --- arrayToBlock() will skip undef items
+					#     so, no need to check for undef block
+					lBlocks.push @getBlock(item, hProcs)
 				else if isSetName(item)
-					pass
+					setName = item
+				else if isString(item)
+					lBlocks.push item   # a literal string
 				else
-					assert isArray(item), "not an array #{OL(item)}"
-					yield from @allSections(item, level+1)
+					croak "Bad item: #{OL(item)}"
+			block = arrayToBlock(lBlocks)
 		else if isSectionName(desc)
-			result = [level, @section(desc)]
-			debug 'yield', result
-			yield result
+			block = @section(desc).getBlock()
+			if defined(proc = hProcs[desc])
+				block = proc(block)
 		else if isSetName(desc)
-			lTree = @hSets[desc]
-			assert defined(lTree), "Not a Set: #{OL(desc)}"
-			yield from @allSections(lTree, level)
+			# --- pass array to getBlock()
+			block = @getBlock(@hSets[desc], hProcs)
+			if defined(proc = hProcs[desc])
+				block = proc(block)
 		else
-			croak "Bad item: #{OL(desc)}"
-		debug "return from allSections()"
-		return
+			croak "Bad 1st arg: #{OL(desc)}"
+		debug "return from SectionMap.getBlock()", block
+		return block
 
 	# ..........................................................
-	# --- hProc should be <name> -> <function>
-	#     <function> should be <block> -> <block>
-	# --- lTree allows you to get just a section
 
-	getBlock: (hProc={}, lTree=undef) ->
+	isEmpty: () ->
 
-		debug "enter getBlock()"
-		if (lTree == undef)
-			lTree = @lSectionTree
-		else
-			assert isArray(lTree), "not an array #{OL(lTree)}"
-
-		lParts = []
-		for part in lTree
-			if isString(part)
-				block = @section(part).getBlock()
-				if defined(hProc[part])
-					# --- called even if block is empty
-					block = hProc[part](block)
-			else if isNonEmptyArray(part)
-				if isSectionName(part[0])
-					block = @getBlock(hProc, part)
-				else if isSetName(part[0])
-					block = @getBlock(hProc, part.slice(1))
-					if defined(hProc[part[0]])
-						block = hProc[part[0]](block)
-				else
-					croak "Bad part: #{OL(part)}"
-			else
-				croak "Bad part: #{OL(part)}"
-			if defined(block)
-				lParts.push block
+		for name,sect of @hSections
+			if sect.nonEmpty()
+				return false
+		return true
+
+	# ..........................................................
 
-		debug 'lParts', lParts
-		result = arrayToBlock(lParts)
-		debug "return from getBlock()", result
-		return result
+	nonEmpty: () ->
+
+		for name,sect of @hSections
+			if sect.nonEmpty()
+				return true
+		return false
 
 	# ..........................................................
 
@@ -172,50 +150,15 @@ export class SectionMap
 	firstSection: (name) ->
 
 		assert isSetName(name), "bad set name #{OL(name)}"
-		lSectionTree = @hSets[name]
-		assert defined(lSectionTree), "no such set #{OL(name)}"
-		assert nonEmpty(lSectionTree), "empty section #{OL(name)}"
-		return @section(lSectionTree[0])
+		lSubTree = @hSets[name]
+		assert defined(lSubTree), "no such set #{OL(name)}"
+		return @section(lSubTree[1])
 
 	# ..........................................................
 
 	lastSection: (name) ->
 
 		assert isSetName(name), "bad set name #{OL(name)}"
-		lSectionTree = @hSets[name]
-		assert defined(lSectionTree), "no such set #{OL(name)}"
-		assert nonEmpty(lSectionTree), "empty section #{OL(name)}"
-		return @section(lSectionTree[lSectionTree.length - 1])
-
-	# ..........................................................
-
-	length: (desc=undef) ->
-
-		result = 0
-		for [_, sect] from @allSections(desc)
-			result += sect.length()
-		return result
-
-	# ..........................................................
-
-	isEmpty: (desc=undef) ->
-
-		return (@length(desc) == 0)
-
-	# ..........................................................
-
-	nonEmpty: (desc=undef) ->
-
-		return (@length(desc) > 0)
-
-	# ..........................................................
-
-	getShape: () ->
-
-		debug "enter getShape()"
-		lParts = []
-		for [level, sect] from @allSections()
-			lParts.push indented(sect.name, level)
-		result = arrayToBlock(lParts)
-		debug "return from getShape()", result
-		return result
+		lSubTree = @hSets[name]
+		assert defined(lSubTree), "no such set #{OL(name)}"
+		return @section(lSubTree[lSubTree.length - 1])

package/src/SectionMap.js

@@ -12,6 +12,7 @@ import {
   pass,
   undef,
   defined,
+  notdefined,
   OL,
   isEmpty,
   nonEmpty,
@@ -31,6 +32,10 @@ import {
   indented
 } from '@jdeighan/coffee-utils/indent';
 
+import {
+  LOG
+} from '@jdeighan/coffee-utils/log';
+
 import {
   debug
 } from '@jdeighan/coffee-utils/debug';
@@ -41,158 +46,140 @@ import {
 
 // ---------------------------------------------------------------------------
 isSectionName = function(name) {
-  return isString(name) && name.match(/^[a-z][a-z0-9]*/);
+  return isString(name) && name.match(/^[a-z][a-z0-9_]*/);
 };
 
 // ---------------------------------------------------------------------------
 isSetName = function(name) {
-  return isString(name) && name.match(/^[A-Z][a-z0-9]*/);
+  return isString(name) && name.match(/^[A-Z][a-z0-9_]*/);
 };
 
 // ---------------------------------------------------------------------------
 export var SectionMap = class SectionMap {
   constructor(lSectionTree) {
-    // --- lSectionTree is a tree of section names
-    debug("enter SectionMap()", lSectionTree);
-    this.lSectionTree = lSectionTree; // a tree of section names
-    this.hSets = {};
+    this.lSectionTree = lSectionTree;
+    // --- lSectionTree is a tree of section/set names
+    debug("enter SectionMap()", this.lSectionTree);
+    assert(isArray(this.lSectionTree), "not an array");
+    // --- keys are section names, values are Section objects
     this.hSections = {};
-    this.addSections(lSectionTree);
+    // --- keys are set names, values are subtrees of lSectionTree
+    this.hSets = {};
+    this.build(this.lSectionTree);
     debug("return from SectionMap()", this.hSections);
   }
 
   // ..........................................................
-  addSections(desc) {
-    var i, item, j, k, lAdded, lParts, len, len1, name;
-    // --- returns a flat array of sections that were added
-    if (isString(desc)) {
-      assert(nonEmpty(desc), "empty section name");
-      assert(isSectionName(desc), `bad section name ${OL(desc)}`);
-      assert(this.hSections[desc] === undef, `duplicate section ${OL(desc)}`);
-      this.hSections[desc] = new Section(desc);
-      return [desc];
+  build(lTree) {
+    var firstItem, i, item, j, len, len1, ref;
+    debug("enter build()", lTree);
+    assert(isArray(lTree), "not an array");
+    assert(nonEmpty(lTree), "empty array");
+    firstItem = lTree[0];
+    if (isSetName(firstItem)) {
+      assert(lTree.length >= 2, "set without sections");
+      this.hSets[firstItem] = lTree;
+      ref = lTree.slice(1);
+      for (i = 0, len = ref.length; i < len; i++) {
+        item = ref[i];
+        if (isArray(item)) {
+          this.build(item);
+        } else if (isSectionName(item)) {
+          this.hSections[item] = new Section(item);
+        } else if (!isString(item)) { // string would be literal
+          croak(`Bad section tree: ${OL(this.lSectionTree)}`);
+        }
+      }
     } else {
-      assert(isArray(desc), `not an array or string ${OL(desc)}`);
-      name = undef;
-      lParts = [];
-      for (i = j = 0, len = desc.length; j < len; i = ++j) {
-        item = desc[i];
-        if ((i === 0) && isSetName(item)) {
-          name = item;
+      for (j = 0, len1 = lTree.length; j < len1; j++) {
+        item = lTree[j];
+        if (isArray(item)) {
+          this.build(item);
+        } else if (isSectionName(item)) {
+          this.hSections[item] = new Section(item);
         } else {
-          lAdded = this.addSections(item);
-          for (k = 0, len1 = lAdded.length; k < len1; k++) {
-            item = lAdded[k];
-            lParts.push(item);
-          }
+          croak(`Bad section tree: ${OL(this.lSectionTree)}`);
         }
       }
-      if (defined(name)) {
-        this.addSet(name, lParts);
-      }
-      return lParts;
     }
+    debug("return from build()", this.hSections, this.hSets);
   }
 
   // ..........................................................
-  addSet(name, lSectionTree) {
-    var j, len, secName;
-    debug("enter addSet()", name, lSectionTree);
-    // --- check the name
-    assert(isSetName(name), `not a valid set name ${OL(name)}`);
-    // --- check lSectionTree
-    assert(isArray(lSectionTree), "arg 2 not an array");
-    for (j = 0, len = lSectionTree.length; j < len; j++) {
-      secName = lSectionTree[j];
-      assert(isNonEmptyString(secName), `not a non-empty string ${OL(secName)}`);
-      assert(defined(this.hSections[secName]), `not a section name ${OL(secName)}`);
-    }
-    this.hSets[name] = lSectionTree;
-    debug('hSets', this.hSets);
-    debug("return from addSet()");
-  }
-
-  // ..........................................................
-  // --- sections returned in depth-first order from section tree
-  //     Set names are simply skipped
-  //     yields: [<level>, <section>]
-  * allSections(desc = undef, level = 0) {
-    var item, j, lTree, len, result;
-    debug("enter allSections()", desc, level);
-    if (desc === undef) {
+  // --- hProc should be <name> -> <function>
+  //     <name> can be a section name or a set name
+  //     <function> should be <block> -> <block>
+  // --- desc can be:
+  //        an array, which may begin with a set name
+  //        a section name
+  //        a set name
+  //        undef (equivalent to being set to @SectionTree)
+  getBlock(desc = undef, hProcs = {}) {
+    var block, i, item, lBlocks, len, proc, setName;
+    debug("enter SectionMap.getBlock()", desc, hProcs);
+    if (notdefined(desc)) {
       desc = this.lSectionTree;
     }
     if (isArray(desc)) {
-      for (j = 0, len = desc.length; j < len; j++) {
-        item = desc[j];
-        if (isSectionName(item)) {
-          result = [level, this.section(item)];
-          debug('yield', result);
-          yield result;
+      lBlocks = [];
+      setName = undef;
+      for (i = 0, len = desc.length; i < len; i++) {
+        item = desc[i];
+        if (isArray(item) || isSectionName(item)) {
+          // --- arrayToBlock() will skip undef items
+          //     so, no need to check for undef block
+          lBlocks.push(this.getBlock(item, hProcs));
         } else if (isSetName(item)) {
-          pass;
+          setName = item;
+        } else if (isString(item)) {
+          lBlocks.push(item); // a literal string
         } else {
-          assert(isArray(item), `not an array ${OL(item)}`);
-          yield* this.allSections(item, level + 1);
+          croak(`Bad item: ${OL(item)}`);
         }
       }
+      block = arrayToBlock(lBlocks);
     } else if (isSectionName(desc)) {
-      result = [level, this.section(desc)];
-      debug('yield', result);
-      yield result;
+      block = this.section(desc).getBlock();
+      if (defined(proc = hProcs[desc])) {
+        block = proc(block);
+      }
     } else if (isSetName(desc)) {
-      lTree = this.hSets[desc];
-      assert(defined(lTree), `Not a Set: ${OL(desc)}`);
-      yield* this.allSections(lTree, level);
+      // --- pass array to getBlock()
+      block = this.getBlock(this.hSets[desc], hProcs);
+      if (defined(proc = hProcs[desc])) {
+        block = proc(block);
+      }
     } else {
-      croak(`Bad item: ${OL(desc)}`);
+      croak(`Bad 1st arg: ${OL(desc)}`);
     }
-    debug("return from allSections()");
+    debug("return from SectionMap.getBlock()", block);
+    return block;
   }
 
   // ..........................................................
-  // --- hProc should be <name> -> <function>
-  //     <function> should be <block> -> <block>
-  // --- lTree allows you to get just a section
-  getBlock(hProc = {}, lTree = undef) {
-    var block, j, lParts, len, part, result;
-    debug("enter getBlock()");
-    if (lTree === undef) {
-      lTree = this.lSectionTree;
-    } else {
-      assert(isArray(lTree), `not an array ${OL(lTree)}`);
-    }
-    lParts = [];
-    for (j = 0, len = lTree.length; j < len; j++) {
-      part = lTree[j];
-      if (isString(part)) {
-        block = this.section(part).getBlock();
-        if (defined(hProc[part])) {
-          // --- called even if block is empty
-          block = hProc[part](block);
-        }
-      } else if (isNonEmptyArray(part)) {
-        if (isSectionName(part[0])) {
-          block = this.getBlock(hProc, part);
-        } else if (isSetName(part[0])) {
-          block = this.getBlock(hProc, part.slice(1));
-          if (defined(hProc[part[0]])) {
-            block = hProc[part[0]](block);
-          }
-        } else {
-          croak(`Bad part: ${OL(part)}`);
-        }
-      } else {
-        croak(`Bad part: ${OL(part)}`);
+  isEmpty() {
+    var name, ref, sect;
+    ref = this.hSections;
+    for (name in ref) {
+      sect = ref[name];
+      if (sect.nonEmpty()) {
+        return false;
       }
-      if (defined(block)) {
-        lParts.push(block);
+    }
+    return true;
+  }
+
+  // ..........................................................
+  nonEmpty() {
+    var name, ref, sect;
+    ref = this.hSections;
+    for (name in ref) {
+      sect = ref[name];
+      if (sect.nonEmpty()) {
+        return true;
       }
     }
-    debug('lParts', lParts);
-    result = arrayToBlock(lParts);
-    debug("return from getBlock()", result);
-    return result;
+    return false;
   }
 
   // ..........................................................
@@ -205,59 +192,20 @@ export var SectionMap = class SectionMap {
 
   // ..........................................................
   firstSection(name) {
-    var lSectionTree;
+    var lSubTree;
     assert(isSetName(name), `bad set name ${OL(name)}`);
-    lSectionTree = this.hSets[name];
-    assert(defined(lSectionTree), `no such set ${OL(name)}`);
-    assert(nonEmpty(lSectionTree), `empty section ${OL(name)}`);
-    return this.section(lSectionTree[0]);
+    lSubTree = this.hSets[name];
+    assert(defined(lSubTree), `no such set ${OL(name)}`);
+    return this.section(lSubTree[1]);
   }
 
   // ..........................................................
   lastSection(name) {
-    var lSectionTree;
+    var lSubTree;
     assert(isSetName(name), `bad set name ${OL(name)}`);
-    lSectionTree = this.hSets[name];
-    assert(defined(lSectionTree), `no such set ${OL(name)}`);
-    assert(nonEmpty(lSectionTree), `empty section ${OL(name)}`);
-    return this.section(lSectionTree[lSectionTree.length - 1]);
-  }
-
-  // ..........................................................
-  length(desc = undef) {
-    var _, ref, result, sect, x;
-    result = 0;
-    ref = this.allSections(desc);
-    for (x of ref) {
-      [_, sect] = x;
-      result += sect.length();
-    }
-    return result;
-  }
-
-  // ..........................................................
-  isEmpty(desc = undef) {
-    return this.length(desc) === 0;
-  }
-
-  // ..........................................................
-  nonEmpty(desc = undef) {
-    return this.length(desc) > 0;
-  }
-
-  // ..........................................................
-  getShape() {
-    var lParts, level, ref, result, sect, x;
-    debug("enter getShape()");
-    lParts = [];
-    ref = this.allSections();
-    for (x of ref) {
-      [level, sect] = x;
-      lParts.push(indented(sect.name, level));
-    }
-    result = arrayToBlock(lParts);
-    debug("return from getShape()", result);
-    return result;
+    lSubTree = this.hSets[name];
+    assert(defined(lSubTree), `no such set ${OL(name)}`);
+    return this.section(lSubTree[lSubTree.length - 1]);
   }
 
 };

package/src/coffee_utils.coffee

@@ -51,6 +51,17 @@ export patchStr = (bigstr, pos, str) ->
 
 # ---------------------------------------------------------------------------
 
+export charCount = (str, ch) ->
+
+	count = 0
+	pos = str.indexOf(ch, 0)
+	while (pos >= 0)
+		count += 1
+		pos = str.indexOf(ch, pos+1)
+	return count
+
+# ---------------------------------------------------------------------------
+
 export isString = (x) ->
 
 	return (typeof x == 'string') || (x instanceof String)

package/src/coffee_utils.js

@@ -56,6 +56,18 @@ export var patchStr = function(bigstr, pos, str) {
   }
 };
 
+// ---------------------------------------------------------------------------
+export var charCount = function(str, ch) {
+  var count, pos;
+  count = 0;
+  pos = str.indexOf(ch, 0);
+  while (pos >= 0) {
+    count += 1;
+    pos = str.indexOf(ch, pos + 1);
+  }
+  return count;
+};
+
 // ---------------------------------------------------------------------------
 export var isString = function(x) {
   return (typeof x === 'string') || (x instanceof String);

package/src/indent_utils.coffee

@@ -157,6 +157,21 @@ export untabify = (str, numSpaces=3) ->
 # ---------------------------------------------------------------------------
 #    enclose - indent text, surround with pre and post
 
-export enclose = (text, pre, post) ->
+export enclose = (text, pre, post, oneIndent="\t") ->
 
-	return pre + "\n" + indented(text) + "\n" + post
+	return arrayToBlock([
+		pre
+		indented(text, 1, oneIndent)
+		post
+		])
+
+# ---------------------------------------------------------------------------
+#    elem - indent text, surround with HTML tags
+
+export elem = (text, tag, oneIndent="\t") ->
+
+	return arrayToBlock([
+		"<#{tag}>"
+		indented(text, 1, oneIndent)
+		"</#{tag}>"
+		])

package/src/indent_utils.js

@@ -184,6 +184,12 @@ export var untabify = function(str, numSpaces = 3) {
 
 // ---------------------------------------------------------------------------
 //    enclose - indent text, surround with pre and post
-export var enclose = function(text, pre, post) {
-  return pre + "\n" + indented(text) + "\n" + post;
+export var enclose = function(text, pre, post, oneIndent = "\t") {
+  return arrayToBlock([pre, indented(text, 1, oneIndent), post]);
+};
+
+// ---------------------------------------------------------------------------
+//    elem - indent text, surround with HTML tags
+export var elem = function(text, tag, oneIndent = "\t") {
+  return arrayToBlock([`<${tag}>`, indented(text, 1, oneIndent), `</${tag}>`]);
 };