Added new expand-home-dir.

lfex · Aug 16, 2023 · 0ae9a17 · 0ae9a17
1 parent 03e7e07
commit 0ae9a17
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/lutil-file.lfe b/src/lutil-file.lfe
@@ -15,6 +15,12 @@
          'true)
         ('true 'false)))
 
+(defun expand-home-dir (path)
+  (if (is-home-dir? path)
+    (filename:join (list (lutil:home)
+                         (string:substr path 3)))
+    path))
+
 (defun cwd ()
   (case (file:get_cwd)
     (`#(ok ,dir) dir)