services: clash: Support Clash.Meta kernel.

* rosenthal/services/child-error.scm (clash-shepherd-service)[start]: Support Clash.Meta kernel.
1 year ago · 417dd04e82
parent 6673d31eee
commit 417dd04e82
1 changed files with 7 additions and 1 deletions
--- 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"