[39_7] Planet: index in interface language or default English index

XmacsLabs · Aug 18, 2024 · d19def9 · d19def9
1 parent 03333ad
commit d19def9
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/TeXmacs/progs/doc/help-funcs.scm b/TeXmacs/progs/doc/help-funcs.scm
@@ -84,7 +84,13 @@
   (load-buffer (get-remote-welcome-url)))
 
 (define (get-remote-planet-url)
-  "http://git.tmml.wiki/XmacsLabs/planet/raw/main/index.tm")
+  (let* ((lan (string-take (language-to-locale (get-output-language)) 2))
+         (url "http://git.tmml.wiki/XmacsLabs/planet/raw/main/")
+         (doc (string-append url "index." lan ".tmu"))
+         (en_doc (string-append url "index.en.tmu")))
+    (if (url-exists? doc)
+      doc
+      en_doc)))
 
 (define (load-remote-planet)
   (load-buffer (get-remote-planet-url)))