From 417dd04e821084a7137872d3bf16f10379017a18 Mon Sep 17 00:00:00 2001
From: Hilton Chain <hako@ultrarare.space>
Date: Fri, 3 Nov 2023 12:56:14 +0800
Subject: [PATCH] services: clash: Support Clash.Meta kernel.

* rosenthal/services/child-error.scm (clash-shepherd-service)[start]: Support
Clash.Meta kernel.
---
 rosenthal/services/child-error.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/rosenthal/services/child-error.scm b/rosenthal/services/child-error.scm
index e4d2edf..e140e62 100644
--- a/rosenthal/services/child-error.scm
+++ b/rosenthal/services/child-error.scm
@@ -91,7 +91,13 @@
            (provision '(clash))
            (requirement '(loopback networking))
            (start #~(make-forkexec-constructor
-                     (list #$(file-append clash "/bin/clash")
+                     (list (let ((clash-meta-cmd
+                                  #$(file-append clash "/bin/clash.meta"))
+                                 (clash-cmd
+                                  #$(file-append clash "/bin/clash")))
+                             (if (file-exists? clash-meta-cmd)
+                                 clash-meta-cmd
+                                 clash-cmd))
                            "-d" #$data-directory)
                      #:user "clash"
                      #:group "clash"