branch: elpa/annotate
commit 2084f831bcf175525130113d19fc62d029267897
Author: Bastian <ba...@bastibe.de>
Commit: Bastian <ba...@bastibe.de>
added export functionality as sort-of-diffscuss
---
annotate.el | 83 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 83 insertions(+)
diff --git a/annotate.el b/annotate.el
index 2f3eafac17..d7704819b6 100644
--- a/annotate.el
+++ b/annotate.el
@@ -86,6 +86,12 @@
:type 'number
:group 'annotate)
+;;;###autoload
+(defcustom annotate-diff-export-context 2
+ "How many lines of context to include in diff export."
+ :type 'number
+ :group 'annotate)
+
(defun annotate-initialize ()
"Load annotations and set up save hook."
(annotate-load-annotations)
@@ -122,6 +128,83 @@
(annotate-dump-annotation-data all-annotations)
(message "Annotations saved.")))
+;;;###autoload
+(defun annotate-export-annotations ()
+ "Export all annotations as a diff-like file."
+ (interactive)
+ (let ((export-buffer (generate-new-buffer "*annotations*"))
+ (annotations (annotate-describe-annotations))
+ (filename (buffer-file-name)))
+ (with-current-buffer export-buffer
+ (insert "--- " filename "\n")
+ (insert "+++ " filename "\n"))
+ (save-excursion
+ (dolist (ann annotations)
+ (let ((start (nth 0 ann))
+ (end (nth 1 ann))
+ (text (nth 2 ann))
+ (bol nil)
+ (eol nil)
+ (line nil)
+ (previous-lines nil)
+ (following-lines nil))
+ (goto-char start)
+ (beginning-of-line)
+ (setq bol (point))
+ (beginning-of-line (- (1- annotate-diff-export-context)))
+ (setq previous-lines (buffer-substring-no-properties (point) (1-
bol)))
+ (goto-char end)
+ (end-of-line)
+ (setq eol (point))
+ (end-of-line (1+ annotate-diff-export-context))
+ (setq following-lines (buffer-substring-no-properties (1+ eol)
(point)))
+ (setq line (buffer-substring bol eol))
+ (with-current-buffer export-buffer
+ (insert (annotate-diff-line-range start end) "\n")
+ (insert (annotate-prefix-lines previous-lines " "))
+ (insert (annotate-prefix-lines line "-"))
+ (let ((selection (butlast (split-string (annotate-prefix-lines
line "+") "\n"))))
+ (cond ((= (length selection) 1)
+ (insert (first selection) "\n")
+ (unless (string= (first selection) "+")
+ (insert "#"
+ (make-string (- start bol) ? )
+ (make-string (- end start) ?~)
+ "\n"))
+ (insert "#" (make-string (- start bol) ? ) text "\n"))
+ (t
+ (insert (first selection) "\n")
+ (insert "#"
+ (make-string (- start bol) ? )
+ (make-string (- (length (first selection)) (-
start bol)) ?~)
+ "\n")
+ (dolist (line (cdr (butlast selection)))
+ (insert line "\n"
+ "#" (make-string (length line) ?~) "\n"))
+ (insert (car (last selection)) "\n")
+ (insert "#"
+ (make-string (- (length (car (last selection)))
(- eol end) 1) ?~)
+ "\n")
+ (insert "#" text "\n"))))
+ (insert (annotate-prefix-lines following-lines " "))))))
+ (switch-to-buffer export-buffer)
+ (diff-mode)
+ (view-mode)))
+
+(defun annotate-prefix-lines (text prefix)
+ "Prepend PREFIX to each line in TEXT."
+ ;; don't split a single new line into two lines
+ (let ((lines (if (string= text "\n")
+ '("")
+ (split-string text "\n"))))
+ (apply 'concat (map 'list (lambda (l) (concat prefix l "\n")) lines))))
+
+(defun annotate-diff-line-range (start end)
+ "Calculate diff-like line range for annotation."
+ (format "@@ -%i,%i +%i,%i @@"
+ (line-number-at-pos start) (line-number-at-pos start)
+ (line-number-at-pos end) (line-number-at-pos end)))
+
;;;###autoload
(defun annotate-load-annotations ()
"Load all annotations from disk."
