From b3b03e46ea9626ad12a74d6ea7f90ceca1bf1d4f Mon Sep 17 00:00:00 2001 From: mattkae Date: Thu, 22 Jun 2023 12:34:12 -0400 Subject: Using vertico isntead of helm now; created a way to archive all tasks in an org buffer; created better capture templates --- lisp/vc-annotate-lens-mode.el | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) (limited to 'lisp/vc-annotate-lens-mode.el') diff --git a/lisp/vc-annotate-lens-mode.el b/lisp/vc-annotate-lens-mode.el index 8580aef..b615a1b 100644 --- a/lisp/vc-annotate-lens-mode.el +++ b/lisp/vc-annotate-lens-mode.el @@ -26,19 +26,16 @@ (let ((git-info (shell-command-to-string (format "git log -u -L%d,%d:%s" vc-annotate-lens-cursor-position vc-annotate-lens-cursor-position buffer-file-name)))) (let (( git-info-split (split-string git-info "\n" ))) - (message "%s" 'git-info-split) - (let (( author-line (nth 1 git-info-split)) - ( date-line (nth 2 git-info-split))) - (overlay-put (make-overlay (point-at-eol) (+ 3 (point-at-eol))) 'display - author-line) + (let ( + ( commit-line (nth 0 git-info-split)) + ( author-line (nth 1 git-info-split)) + ( date-line (nth 2 git-info-split))) + (overlay-put (make-overlay (point-at-eol) (+ 3 (point-at-eol))) 'display (format " %s\n" author-line)) ) ) ) ) -(do-stuff-if-moved-post-command) - - (define-minor-mode vc-annotate-lens-mode "Show 'vc-annotate' information when you move to a line." -- cgit v1.2.1