doekman

on trim(theseCharacters, someText)
	if class of someText is text and length of someText > 0 then
		-- default values (all whitespace)
		if theseCharacters is true then ¬
			set theseCharacters to {" ", tab, ASCII character 10, return, ASCII character 0}

		repeat until first character of someText is not in theseCharacters
			set someText to text 2 thru -1 of someText
		end repeat

doekman

Get-Content *.md | Measure-Object –Word | % { $count = $_.Words }
hg add
$message = "words:" + $count 
$todo = (get-content .\todo.txt | select-string -pattern "[_]").length
$done = (get-content .\todo.txt | select-string -pattern "[x]").length
$message = $message + ", tasks: " + $done + "/" + ($todo + $done) + ""
hg commit -m $message

& .\progress.ps1

doekman

Get-Content *.md | Measure-Object –Word | % { $count = $_.Words }
hg add
$message = "words: " + $count 
$todo = (get-content .\todo.txt | select-string -pattern "[_]").length
$done = (get-content .\todo.txt | select-string -pattern "[x]").length
$message = $message + ", tasks: " + $done + "/" + ($todo + $done) + ""
hg commit -m $message

& .\progress.ps1