From: John Benediktsson Date: Sat, 20 Oct 2018 05:28:15 +0000 (-0700) Subject: xdg: remove memoize. X-Git-Tag: 0.99~4021 X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=f3d1d785cd2c369615989757d3301f7b4548696a xdg: remove memoize. --- diff --git a/basis/xdg/xdg.factor b/basis/xdg/xdg.factor index 7f12a28de1..fd3093d0df 100644 --- a/basis/xdg/xdg.factor +++ b/basis/xdg/xdg.factor @@ -1,29 +1,29 @@ ! Copyright (C) 2015 John Benediktsson ! See http://factorcode.org/license.txt for BSD license -USING: environment memoize sequences splitting ; +USING: environment sequences splitting ; IN: xdg ! http://standards.freedesktop.org/basedir-spec/basedir-spec-latest.html -MEMO: xdg-data-home ( -- path ) +: xdg-data-home ( -- path ) "XDG_DATA_HOME" os-env [ "~/.local/share" ] when-empty ; -MEMO: xdg-config-home ( -- path ) +: xdg-config-home ( -- path ) "XDG_CONFIG_HOME" os-env [ "~/.config" ] when-empty ; -MEMO: xdg-cache-home ( -- path ) +: xdg-cache-home ( -- path ) "XDG_CACHE_HOME" os-env [ "~/.cache" ] when-empty ; -MEMO: xdg-data-dirs ( -- paths ) +: xdg-data-dirs ( -- paths ) "XDG_DATA_DIRS" os-env ":" split harvest [ { "/usr/local/share" "/usr/share" } ] when-empty ; -MEMO: xdg-config-dirs ( -- paths ) +: xdg-config-dirs ( -- paths ) "XDG_CONFIG_DIRS" os-env ":" split harvest [ { "/etc/xdg" } ] when-empty ; -MEMO: xdg-runtime-dir ( -- path/f ) +: xdg-runtime-dir ( -- path/f ) "XDG_RUNTIME_DIR" os-env ; ! TODO: check runtime secure permissions