branch: elpa/vc-fossil
commit 560d708804fd83a19d92659ac90e4f84a8bcb33e
Author: fifr <fifr>
Commit: fifr <fifr>
Implement annotate commanad.
---
vc/el/vc-fossil.el | 21 +++++++++++++++++++++
1 file changed, 21 insertions(+)
diff --git a/vc/el/vc-fossil.el b/vc/el/vc-fossil.el
index ba2f7bc..8bb939f 100644
--- a/vc/el/vc-fossil.el
+++ b/vc/el/vc-fossil.el
@@ -281,6 +281,27 @@ If `files` is nil return the status for all files."
(and rev2 (list "--to" rev2))
(vc-switches 'Fossil 'diff)))))
+(defun vc-fossil-annotate-command (file buffer &optional rev)
+ "Execute \"fossil annotate\" on FILE, inserting the contents in BUFFER.
+If REV is specified, annotate that revision."
+ ;;(assert (not rev) nil "Annotating a revision not supported")
+ (vc-fossil-command buffer 0 file "annotate"))
+
+(defconst vc-fossil-annotate-re
+ "\\([[:word:]]+\\)\\s-+\\([-0-9]+\\)\\s-+[0-9]+: ")
+
+(defun vc-fossil-annotate-time ()
+ (when (looking-at vc-fossil-annotate-re)
+ (goto-char (match-end 0))
+ (vc-annotate-convert-time
+ (date-to-time (format "%s 00:00:00" (match-string-no-properties 2))))))
+
+;; TODO: currently only the date is used, not the time
+(defun vc-fossil-annotate-extract-revision-at-line ()
+ (when (looking-at vc-fossil-annotate-re)
+ (goto-char (match-end 0))
+ (match-string-no-properties 1)))
+
;;; TAG SYSTEM
;; FIXME: we need a convenience function to check that there's nothing checked
