(declare (pure t) (side-effect-free t))

;; WARNING: Currently not usable.  DO NOT USE IT!
;;
;; Currently pijul requires the user to enter a password in order to
;; commit.  I do not know yet the proper way to interact with such a
;; password demanding program in Emacs, so this is not usable yet.
;;
;; I am discussing how to avoid the password in pijul zulipchat right
;; now, so let us see if there will be something to use later.

  (let ((args
         (cond
          ((stringp vc-checkin-switches)
           (cons vc-checkin-switches files))
          ((listp vc-checkin-switches)
           (append vc-checkin-switches files))
          (files))))

  (let* ((args
          (cond
           ((stringp vc-checkin-switches)
            (cons vc-checkin-switches files))
           ((listp vc-checkin-switches)
            (append vc-checkin-switches files))
           (files)))
         (args
          (append
           (list "--all" "-m" comment)
           args)))