scolobb
/
dds
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

utils: Add unorg.

This commit is contained in:
Sergiu Ivanov 2020-03-25 00:19:28 +01:00
parent a8a981098f
commit 086f4c4949
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils.rkt
View File

@ -16,6 +16,7 @@
[stringify-variable-mapping (-> variable-mapping? string-variable-mapping?)]
[string->any (-> string? any/c)]
[read-org-sexp (-> string? (listof any/c))]
[unorg (-> string? (listof any/c))]
[unstringify-pairs (-> (listof (general-pair/c string? any/c))
(listof (general-pair/c symbol? any/c)))]
[read-org-variable-mapping (-> string? variable-mapping?)]
@ -200,6 +201,9 @@
;;; See example.org for examples.
(define (read-org-sexp str) (string->any str))
;;; A shortcut for read-org-sexp.
(define unorg read-org-sexp)
;;; A contract allowing pairs constructed via cons or via list.
(define (general-pair/c key-contract val-contract)
(or/c (list/c key-contract val-contract)