convert path for wsl

Author: kimim

chatu-common.el

@@ -63,7 +63,16 @@ Fill PATH with EMPTY string, if nonexist."
      ((string-equal system-type "darwin")
       (start-process "" nil "open" "-a" executable path))
      ((string-equal system-type "gnu/linux")
-      (start-process "" nil executable path))
+      ;; special handling for WSL emacs invoke Windows draw.io.exe
+      (start-process
+       ""
+       nil executable
+       (if (string= "exe"
+                    (file-name-extension executable))
+           (string-trim
+            (shell-command-to-string
+             (format "wslpath -aw '%s'" (file-truename path))))
+         path)))
      ((string-equal system-type "cygwin")
       (start-process "" nil "xdg-open"
                      executable path)))))

chatu-drawio.el

@@ -102,15 +102,7 @@ KEYWORD-PLIST contains parameters from the chatu line."
   (interactive)
   (let* ((input-path (plist-get keyword-plist :input-path))
          (input-path (file-truename (chatu-common-with-extension input-path "drawio")))
-         (drawio-path (shell-quote-argument (funcall chatu-drawio-executable-func)))
-         ;; special handling for WSL emacs invoke Windows draw.io.exe
-         (input-path
-          (if (string= "exe"
-                       (file-name-extension drawio-path))
-              (string-trim
-               (shell-command-to-string
-                (format "wslpath -aw '%s'" (file-truename input-path))))
-            input-path)))
+         (drawio-path (shell-quote-argument (funcall chatu-drawio-executable-func))))
     (chatu-common-open-external drawio-path input-path chatu-drawio-empty)))
 
 (provide 'chatu-drawio)