|
From: | Philipp Stephani |
Subject: | Re: [PATCH] Add XDG utility library |
Date: | Wed, 01 Feb 2017 11:19:59 +0000 |
+(defmacro xdg--dir-home (environ default-path)
+ (declare (debug (stringp stringp)))
+ (let ((env (make-symbol "env")))
+ `(let ((,env (getenv ,environ)))
+ (if (or (null ,env) (not (file-name-absolute-p ,env)))
+ (expand-file-name ,default-path)
+ ,env))))
[Prev in Thread] | Current Thread | [Next in Thread] |