utils: Simplify read-org-variable-mapping.

This commit is contained in:
Sergiu Ivanov 2020-03-24 21:17:05 +01:00
parent ac8c999272
commit 502fcb18bb

View file

@ -224,8 +224,8 @@
;;; Reads a variable mapping from a string, such as the one which
;;; Org-mode produces from tables.
(define (read-org-variable-mapping str)
(make-immutable-hash (unstringify-pairs (read-org-sexp str))))
(define read-org-variable-mapping
(compose make-immutable-hash unstringify-pairs read-org-sexp))
;;; A synonym for read-org-variable-mapping.
(define-syntax-rule (unorg str) (read-org-variable-mapping str))