From 9b2d229b6e8538bb3617b4022f858dd1eafedd26 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 7 Apr 2021 07:23:52 -0700
Subject: doc: support doc function on android.

* share/txr/stdlib/doc-lookup.tl (open-url): Define for
android, which has xdg-open in the termux environment.
---
 share/txr/stdlib/doc-lookup.tl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/share/txr/stdlib/doc-lookup.tl b/share/txr/stdlib/doc-lookup.tl
index 7d97b473..5e206c32 100644
--- a/share/txr/stdlib/doc-lookup.tl
+++ b/share/txr/stdlib/doc-lookup.tl
@@ -18,10 +18,10 @@
        u.sysname])))
 
 (caseql os-symbol
-  ((:linux :macos :solaris :solaris10)
+  ((:linux :macos :solaris :solaris10 :android)
    (defun open-url (url)
      (if (zerop (run (caseql os-symbol
-                       ((:linux :solaris) "xdg-open")
+                       ((:linux :solaris :android) "xdg-open")
                        (:solaris10 "/usr/dt/bin/sdtwebclient")
                        (:macos "open"))
                      (list url)))
-- 
cgit v1.2.3