From aa64f4d23605e15efe8dde7ffe79bf160ff233da Mon Sep 17 00:00:00 2001
From: mattkae <mattkae@protonmail.com>
Date: Wed, 15 Feb 2023 08:45:55 -0500
Subject: Org-alert and font size default to 11

---
 lisp/vc-annotate-lens-mode.el | 59 +++++++++++++++++++++++++++----------------
 1 file changed, 37 insertions(+), 22 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 830f568..8580aef 100644
--- a/lisp/vc-annotate-lens-mode.el
+++ b/lisp/vc-annotate-lens-mode.el
@@ -1,6 +1,17 @@
-
 ;;; Code:
 
+;;; Commit
+;; commit 6257322d751dc36eaaf509682da164f6aef3ff90
+;; Author: Matthew Kosarek <mattkae@protonmail.com>
+;; Date:   Sat Sep 3 12:01:26 2022 -0400
+
+;;     Big upgrade to javascript/typescript to use a lanugage server
+
+;; diff --git a/init.el b/init.el
+;; --- a/init.el
+;; +++ b/init.el
+
+
 (make-variable-buffer-local
  (defvar vc-annotate-lens-cursor-position 0
    "Holds the cursor position from the last run of post-command-hooks."))
@@ -8,31 +19,35 @@
 (defun do-stuff-if-moved-post-command ()
   "Show version control history of the current line in a flash."
   (unless (equal (line-number-at-pos) vc-annotate-lens-cursor-position)
-    (remove-overlays)
-    (overlay-put (make-overlay (point-at-eol) (+ 3 (point-at-eol))) 'display "Hello world\n")
-    (let* ((lfrom (line-number-at-pos (point) t))
-           (lto   (line-number-at-pos (1- (point)) t))
-           (file buffer-file-name)
-           (backend (vc-backend file))
-           (buf (get-buffer-create "*VC_LENS*")))
-      
-      (vc-call region-history (buffer-file-name) buf lfrom lto)
-      (with-current-buffer buf
-        (save-restriction
-          (widen)
-          (buffer-substring-no-properties (point-min) (point-max))))
+    (setq vc-annotate-lens-cursor-position (line-number-at-pos)))
+  
+  (remove-overlays) ; TODO: Only remove the overlay that we last displayed
+  
+  (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)
+        )
       )
     )
-  (setq vc-annotate-lens-cursor-position (line-number-at-pos)))
-
-(define-minor-mode vc-annotate-lens-mode
-  "Show 'vc-annotate' information when you move to a line."
-  :lighter " vc-annotate-lens"
   )
 
-(add-hook 'vc-annotate-lens-mode-on-hook (lambda () (add-hook 'post-command-hook #'do-stuff-if-moved-post-command)))
-(add-hook 'vc-annotate-lens-mode-off-hook (lambda () (remove-hook 'post-command-hook #'do-stuff-if-moved-post-command)))
+(do-stuff-if-moved-post-command)
+
+
+
+ (define-minor-mode vc-annotate-lens-mode
+   "Show 'vc-annotate' information when you move to a line."
+   :lighter " vc-annotate-lens"
+   )
+
+ (add-hook 'vc-annotate-lens-mode-on-hook (lambda () (add-hook 'post-command-hook #'do-stuff-if-moved-post-command)))
+ (add-hook 'vc-annotate-lens-mode-off-hook (lambda () (remove-hook 'post-command-hook #'do-stuff-if-moved-post-command)))
 
-(provide 'vc-annotate-lens-mode)
+ (provide 'vc-annotate-lens-mode)
 ;;; vc-annotate-lens-mode.el ends here.
 
-- 
cgit v1.2.1