From a8965c722417e1efb0e586357a9c3a95a54954b9 Mon Sep 17 00:00:00 2001 From: "wjak56@gmail.com" Date: Fri, 21 Aug 2015 22:36:02 -0400 Subject: [PATCH] make environment variable checker also get the name of the post --- api.rkt | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) diff --git a/api.rkt b/api.rkt index bc65b72..5d57828 100644 --- a/api.rkt +++ b/api.rkt @@ -358,6 +358,14 @@ (substring st 1)) (string-split tag-string)))]))) +(define (parse-tags tag) + (let + ([splitted (string-split tag ":")]) + (map + (lambda (st) + (substring st 1)) + splitted))) + ; Check the environment variables for any new tags (define (check-for-tags) (let* ([environ (current-environment-variables)] @@ -372,9 +380,13 @@ bytes->string/utf-8) names)]) (map - (compose1 - bytes->string/utf-8 - (curry environment-variables-ref environ)) + (lambda (name) + (cons + (bytes->string/utf-8 name) + (list + (parse-tags + (bytes->string/utf-8 + (environment-variables-ref environ name)))))) names*)))