;; We don't need to care the arguments.  If there is a file name, it
  ;; is always a relative one.  This works also for remote
  ;; directories.  We enable `inhibit-null-byte-detection', otherwise
  ;; Tramp's eol conversion might be confused.

  (setq-local log-view-file-re (rx (seq bos "a" bos)))

  (setq-local log-view-file-re nil)

  ;; FIXME: Most likely, this is incorrect.

(defun vc-pijul-dir-status-files (dir files update-function)
  "Return a list of (FILE STATE EXTRA) entries for FILES in DIR.
For UPDATE-FUNCTION see vc.el comment section."
  (let ((root (vc-pijul-root (expand-file-name dir))))
    (vc-pijul-command t 'async files "diff" "--short" "--untracked")
    (vc-exec-after
     `(vc-pijul-after-dir-status ',root ',update-function ',files))))
(defun vc-pijul--file-state (root file status)
  "Return (list FILE STATUS nil) if FILE is not directory in ROOT."
  (declare (indent 1))
  (let ((path (file-relative-name (expand-file-name file root))))
    (unless (file-directory-p path)
      (list path status nil))))

;; TODO: vc-pijul-annotate and vc-pijul-dir-status-files

(defun vc-pijul-after-dir-status (root update-function files)
  "Function to run when the `vc-dir' buffer’s process is done.
For UPDATE-FUNCTION see vc.el comment section."
  (let* (result registered-and-not-up-to-date-files)
    (goto-char (point-min))
    (while (not (eobp))
      (when (looking-at (rx (group (one-or-more (any "A-Z")))
                            (one-or-more " ")
                            (group (one-or-more (not (any "\n "))))))
        (when-let ((file-state (vc-pijul--file-state root
                                 (match-string 2)
                                 (vc-pijul--state-code (match-string 1)))))
          (push file-state result)
          (push (seq-first file-state) registered-and-not-up-to-date-files)))
      (forward-line))
    (funcall update-function (nreverse result)
             (not (null (seq-difference
                         files registered-and-not-up-to-date-files))))
    (let* ((rest-files (seq-difference
                        files registered-and-not-up-to-date-files))
           (last (seq-first (last rest-files))))
      (seq-each (lambda (file)
                  (funcall
                   update-function
                   `((,file ,(if (vc-pijul-registered file)
                                 'up-to-date
                               'unregistered)
                            nil))
                   (unless (equal last file) t)))
                rest-files))))

;; TODO: vc-pijul-annotate