diff options
Diffstat (limited to 'ide/minilib.ml')
| -rw-r--r-- | ide/minilib.ml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ide/minilib.ml b/ide/minilib.ml index 54be52c19..65ff4378e 100644 --- a/ide/minilib.ml +++ b/ide/minilib.ml @@ -70,7 +70,13 @@ let subst_command_placeholder s t = let home = try Sys.getenv "HOME" with Not_found -> try (Sys.getenv "HOMEDRIVE")^(Sys.getenv "HOMEPATH") with Not_found -> - try Sys.getenv "USERPROFILE" with Not_found -> "." + try Sys.getenv "USERPROFILE" with Not_found -> Filename.current_dir_name + +let xdg_config_home = + try + Filename.concat (Sys.getenv "XDG_CONFIG_HOME") "coq" + with Not_found -> + Filename.concat home "/.config/coq" let coqlib = ref "" let coqtop_path = ref "" |