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

utils: Add unorg.

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