[clfswm-cvs] r262 - clfswm/src

[Philippe Brochard]

Author: pbrochard
Date: Thu Nov 12 16:57:02 2009
New Revision: 262

Log:
clfswm.lisp: fixe configuration file name

Modified:
   clfswm/src/clfswm.lisp

Modified: clfswm/src/clfswm.lisp
==============================================================================
--- clfswm/src/clfswm.lisp	(original)
+++ clfswm/src/clfswm.lisp	Thu Nov 12 16:57:02 2009
@@ -267,11 +267,7 @@
 
 
 (defun read-conf-file ()
-  (let* ((user-conf (probe-file (merge-pathnames (user-homedir-pathname) #p".clfswmrc")))
-	 (etc-conf (probe-file #p"/etc/clfswmrc"))
-	 (config-user-conf (probe-file (make-pathname :directory (append (xdg-config-home) '("clfswm"))
-						      :name "clfswmrc")))
-	 (conf (or config-user-conf user-conf etc-conf)))
+  (let* ((conf (conf-file-name)))
     (if conf
 	(handler-case (load conf)
 	  (error (c)