Store relative symlinks, not absolute ones.

Shirakumo · Jul 30, 2024 · 882dc91 · 882dc91
1 parent 632b1de
commit 882dc91
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/plaintext.lisp b/plaintext.lisp
@@ -200,7 +200,8 @@
                    :sources (mapcar #'serialize (sources object)))
   (let ((link (plaintext-file 'project (name object))))
     (when (probe-file link) (delete-file link))
-    (filesystem-utils:create-symbolic-link link (plaintext-file 'project (id object))))
+    (filesystem-utils:create-symbolic-link
+     link (pathname-utils:relative-pathname link (plaintext-file 'project (id object)))))
   (store *storage* object 'excluded-systems)
   (store *storage* object 'excluded-paths)
   (store *storage* object 'releases))