JLK5NMGGN7AMGI2LVBQLCWLWIGG2TUN4O4WU7ES4PUW275ZWGWHAC
AQ7J5S5ENPVKRCKGMP6NXPER3LAEM4XGB4I3UETX6QFTPXIZESUAC
VBTAFJFKABX7JYZ7SISYFMGZZIN7QDYQ3A6PTLFW4NNI3Y5CPL2QC
Z33EQSBWPIM6IS5DH6LTIUVUPNOBUVJU7LTJXEK7ACLAOCCGYAKAC
MAGPFPZBNCBIGVYPCCP25YIAT654YY4ZRN5TIPHLCPN2X3VIWCEQC
V4ZIPDRUDUXWUQEECACSZQA4WTJWEN4WS52TY26SCP6HR6C2WZ6QC
OXA7DUHMT6BK35COD72H3OFGMSIOBVJPWW356EPGWCDWUR2E76PQC
(defun vc-pijul--handle-prompt (command args)
(let* ((root (vc-pijul-root default-directory))
(buffer (format "*vc-pijul : %s*" (expand-file-name root))))
(setq args (split-string
(read-shell-command
(format "Pijul %s command: " command)
(format "%s %s %s" vc-pijul-program-name command (concat args)))
" " t))
(setq pijul-program (car args)
command (cadr args)
args (cddr args))
(require 'vc-dispatcher)
(apply #'vc-do-async-command buffer root pijul-program command args)))