From 086f4c4949f4879c06afd7d2efa49474805e0c2d Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Wed, 25 Mar 2020 00:19:28 +0100 Subject: [PATCH] utils: Add unorg. --- utils.rkt | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/utils.rkt b/utils.rkt index 83a3111..3a72096 100644 --- a/utils.rkt +++ b/utils.rkt @@ -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)