diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/envars.ml | 5 | ||||
| -rw-r--r-- | lib/envars.mli | 1 | ||||
| -rw-r--r-- | lib/system.ml | 2 |
3 files changed, 7 insertions, 1 deletions
diff --git a/lib/envars.ml b/lib/envars.ml index 5cffad06c8..dc71cb4330 100644 --- a/lib/envars.ml +++ b/lib/envars.ml @@ -56,6 +56,11 @@ let xdg_data_home = (System.getenv_else "XDG_DATA_HOME" (Filename.concat System.home ".local/share")) "coq" +let xdg_config_home = + Filename.concat + (System.getenv_else "XDG_CONFIG_HOME" (Filename.concat System.home ".config")) + "coq" + let xdg_data_dirs = try List.map (fun dir -> Filename.concat dir "coq") (path_to_list (Sys.getenv "XDG_DATA_DIRS")) diff --git a/lib/envars.mli b/lib/envars.mli index d2799074eb..0c80492f8d 100644 --- a/lib/envars.mli +++ b/lib/envars.mli @@ -15,6 +15,7 @@ val coqbin : string val coqroot : string (* coqpath is stored in reverse order, since that is the order it * gets added to the searc path *) +val xdg_config_home : string val xdg_dirs : string list val coqpath : string list diff --git a/lib/system.ml b/lib/system.ml index edab244606..7d54e2c3a2 100644 --- a/lib/system.ml +++ b/lib/system.ml @@ -33,7 +33,7 @@ let home = try Sys.getenv "USERPROFILE" with Not_found -> warning ("Cannot determine user home directory, using '.' ."); flush_all (); - "." + Filename.current_dir_name let safe_getenv n = safe_getenv_def n ("$"^n) |