gemini: use ../ url-append-path for "up".

diff --git a/extra/gemini/cli/cli.factor b/extra/gemini/cli/cli.factor
index ee8005f90bf4c8a9f0e3302c158600637fe61f02..5da25a3049345d1ebf03353aed8982eb0afc3605 100644 (file)
--- a/extra/gemini/cli/cli.factor
+++ b/extra/gemini/cli/cli.factor
@@ -118,8 +118,7 @@ CONSTANT: URL V{ }
 
 : gemini-up ( -- )
     URL ?first [
-        >url f >>query f >>anchor
-        [ "/" ?tail drop "/" split1-last drop "/" append ] change-path
+        >url f >>query f >>anchor [ "../" url-append-path ] change-path
         gemini-go
     ] when* ;
 

diff --git a/extra/gemini/ui/ui.factor b/extra/gemini/ui/ui.factor
index a3f8cdb1f7afa5df0856ed590b184f9f6d3da3ec..5ae705ecaa09f5f1b3cb65a9f19ff4abb48413a2 100644 (file)
--- a/extra/gemini/ui/ui.factor
+++ b/extra/gemini/ui/ui.factor
@@ -81,9 +81,7 @@ M: gemini-gadget model-changed
 : com-up ( gemini -- )
     [
         control-value dup [
-            f >>query
-            f >>anchor
-            [ "/" ?tail drop "/" split1-last drop "/" append ] change-path
+            f >>query f >>anchor [ "../" url-append-path ] change-path
         ] when
     ]
     [ show-gemini ] bi ;