diff options
author | Tom Willemsen | 2012-08-17 01:45:20 +0200 |
---|---|---|
committer | Tom Willemsen | 2012-08-17 01:45:20 +0200 |
commit | 3a132e8040e3d24ecd015900bfacc2caef918ca4 (patch) | |
tree | 0a2258b017886a221f59fd417b394a0d16f49955 /undone/main.scm | |
parent | 206294033b83d95b50f98d664b78afdc25fd9852 (diff) | |
download | undone-3a132e8040e3d24ecd015900bfacc2caef918ca4.tar.gz undone-3a132e8040e3d24ecd015900bfacc2caef918ca4.zip |
Use `,' to denote list
* undone/main.scm (add): When encountering a value that starts with
`,', assume that it should be turned into a list.
Diffstat (limited to 'undone/main.scm')
-rw-r--r-- | undone/main.scm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/undone/main.scm b/undone/main.scm index 750bf09..37aa0f7 100644 --- a/undone/main.scm +++ b/undone/main.scm @@ -127,9 +127,14 @@ (append `((content . ,(read-delimited ""))) (map (lambda (arg) - (let ((pair (string-split arg #\=))) - (cons (string->symbol (car pair)) - (cadr pair)))) + (let* ((pair (string-split arg #\=)) + (var (string->symbol (car pair))) + (val (cadr pair))) + (if (char=? (string-ref val 0) #\,) + (set! val (string-split + (substring val 1) #\,))) + + (cons var val))) args)))))) (define-view default |