hellerve/dotfiles
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

updated zeptosay

Browse Source
This commit is contained in:
hellerve
2016-05-02 21:03:00 +02:00
parent 5da044d016
commit d0098bbe29
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
.scripts/zeptosay.zp
View File

@@ -1,12 +1,15 @@
(load "ascii.zp") (load "ascii.zp")
(define cowsay (import "ascii:cowsay"))
(let ((trimmed (|> (delay (string:join zepto:args)) (let ((trimmed (|> (delay (string:join zepto:args))
(lambda (x) (string:substitute x "\t" " ")) (lambda (x) (string:substitute x "\t" " "))
string->list string->list
list->vector list->vector
(curry vector:reduce (curry vector:reduce
(lambda (acc x) (if (eq? (vector:last acc) x) acc (++ acc x))) (lambda (acc x) (if (and (eq? x " ") (eq? (vector:last acc) x))
acc
(++ acc x)))
{}) {})
vector->list vector->list
list->string))) list->string)))
(ascii:cowsay trimmed)) (cowsay trimmed))
"" ""