|
Added
Link Here
|
| 1 |
--- config.ml.orig 2015-10-13 20:12:27 UTC |
| 2 |
+++ config.ml |
| 3 |
@@ -1420,17 +1420,7 @@ let do_load f contents = |
| 4 |
;; |
| 5 |
|
| 6 |
let defconfpath = |
| 7 |
- let dir = |
| 8 |
- let xdgconfdir = Utils.getenvwithdef "XDG_CONFIG_HOME" E.s in |
| 9 |
- if emptystr xdgconfdir |
| 10 |
- then |
| 11 |
- try |
| 12 |
- let dir = Filename.concat home ".config" in |
| 13 |
- if Sys.is_directory dir then dir else home |
| 14 |
- with _ -> home |
| 15 |
- else xdgconfdir |
| 16 |
- in |
| 17 |
- Filename.concat dir "llpp.conf" |
| 18 |
+ Filename.concat home ".llpp.conf" |
| 19 |
;; |
| 20 |
|
| 21 |
let confpath = ref defconfpath;; |