(declare-function iso8601-parse "iso8601" (string &optional form))
(defun vc-pijul--decode-time (timestamp)
"Convert TIMESTAMP to list of floating-point number of days and `decode-time'."
(let ((decoded (iso8601-parse timestamp)))
(cons (vc-annotate-convert-time (encode-time decoded)) decoded)))
(defvar vc-pijul-headers-cache (make-hash-table :test 'equal)
"Cache of change headers.")
(defun vc-pijul-change-headers (rev)
"Returns headers alist for the change with the REV hash."
(if-let ((headers (gethash rev vc-pijul-headers-cache)))
headers
(with-temp-buffer
(vc-pijul-command t 0 nil "change" rev)
(goto-char (point-min))
(while (not (eobp))
(when (looking-at
(rx (group (zero-or-more not-newline)) " = '"
(group (zero-or-more not-newline)) "'"))
(when-let ((key (match-string 1)))
(push (cons (intern key) (match-string 2)) headers)))
(forward-line))
(push (cons 'author "MeNotMe") headers)
(puthash rev headers vc-pijul-headers-cache)
headers)))
(defun vc-pijul--parse-credit (file)
"Parse annotation for FILE and return alist ((rev . line) ...)."
(with-temp-buffer
(vc-pijul-command t 0 file "credit")
(let (current-hash alist)
(goto-char (point-min))
(while (not (eobp))
(cond ((looking-at (rx line-start
(group (one-or-more (any "0-9A-Z")))
(zero-or-more ", " (one-or-more (any "0-9A-Z")))
line-end))
(setq current-hash (match-string 1)))
((looking-at (rx line-start "> "
(group (zero-or-more not-newline))
line-end))
(push (cons current-hash (match-string 1)) alist)))
(forward-line 1))
(nreverse alist))))
(defun vc-pijul--insert-annotation (rev author timestamp line)
"Insert annotation into current buffer.
Annotation: REV AUTHOR TIMESTAMP LINE."
(pcase-let ((now (vc-annotate-convert-time))
(`(,f-days ,sec ,min ,hour ,day ,month ,year)
(vc-pijul--decode-time timestamp))
(start (point)))
(insert (format "%-12s " rev))
(insert (format "%-7s "
(if (> (length author) 7)
(substring author 0 7)
author)))
(insert
(if (> (- now f-days) 0.9)
(format "%s-%s-%s " year month day)
(format "%s:%s:%s " hour min sec)))
(insert line)
(insert "\n")
(add-text-properties
start (point)
(list 'vc-pijul-annotate (cons rev f-days)))))
(declare-function vc-annotate-convert-time "vc-annotate" (&optional time))
(defun vc-pijul-annotate-command (file buffer &optional _rev)
"Produce an annotated display of FILE in BUFFER.
For Pijul, hashes and times are stored in text properties."
(vc-setup-buffer buffer)
(let* ((credit-alist (vc-pijul--parse-credit file)))
(with-current-buffer buffer
(dolist (annotation credit-alist)
(pcase-let* ((`(,rev . ,line) annotation)
((map ('author author) ('timestamp timestamp))
(vc-pijul-change-headers rev)))
(vc-pijul--insert-annotation rev author timestamp line)))
(clrhash vc-pijul-headers-cache))))