ryuslash/undone
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Use `,' to denote list

Browse source 
* undone/main.scm (add): When encountering a value that starts with
  `,', assume that it should be turned into a list.
This commit is contained in:
Tom Willemsen 2012-08-17 01:45:20 +02:00
parent 206294033b
commit 3a132e8040
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
undone/main.scm
View file

@ -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