HOME expansion

src/configuration.scm

@@ -47,6 +47,8 @@
 	 (chicken time posix)
 	 (chicken file)
 	 (chicken io)
+	 (chicken process-context)
+	 (chicken pathname)
 	 util-parser)
 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -55,8 +57,9 @@
  ;; Where to load initial configuration from
  (define *etc-hackerbase* (make-parameter
 			   (list "/etc/hackerbase"
-				 ;; TODO: $HOME expansion
-				 "/home/hackerbase/.hackerbaserc")))
+				 (make-pathname
+				  (get-environment-variable "HOME")
+				  ".hackerbaserc"))))
 
  ;; Needed by multiple modules actually
  (define *members-directory* (make-parameter #f))