generalized path to any linux system with .xchat in home directory

10 years ago · a761fe0a0f
1 changed files with 2 additions and 1 deletions
--- a/migrate.rkt
+++ b/migrate.rkt
@ -59,7 +59,8 @@
  (parse-file
    (file->string
      (string->path
-        "/home/wes/.xchat2/servlist_.conf"))))
+        (format "~a.xchat2/servlist_.conf" (path->string
+                                            (find-system-path 'home-dir))))))) 

 (define translate-prop
  (let ([hash (make-hash