add xdg-state-dir

Signed-off-by: Rudi Grinberg <me@rgrinberg.com>
ps-id: F8159B75-B5E7-4700-8D15-ABA1DD27EF1B

diff --git a/basis/xdg/xdg.factor b/basis/xdg/xdg.factor
index fd3093d0df6743b7bf3983de021ae53772675a2e..395bd97756d54bb578fdcdc9e63c2e14a8c3a32b 100644 (file)
--- a/basis/xdg/xdg.factor
+++ b/basis/xdg/xdg.factor
@@ -27,3 +27,6 @@ IN: xdg
 : xdg-runtime-dir ( -- path/f )
     "XDG_RUNTIME_DIR" os-env ;
     ! TODO: check runtime secure permissions
+
+: xdg-state-dir ( -- path )
+    "XDG_STATE_HOME" os-env [ "~/.local/state" ] when-empty ;