aria2.el 无法使用

(defun my/aria2--is-aria-process-p (f &rest ARG)
  "Returns t if PID belongs to aria."
  (let ((pid (car ARG)))
    (eq pid (string-to-number
             (shell-command-to-string
              (format "pgrep -u %s aria2c" (user-real-login-name)))))))

(advice-add 'aria2--is-aria-process-p :around #'my/aria2--is-aria-process-p)

这样就可以启动了,但是并不好用,还有其它问题。