complete

Author: jcs090218

Eask

@@ -13,5 +13,6 @@
 
 (depends-on "emacs" "27.1")
 (depends-on "sideline")
+(depends-on "vc-msg")
 
 (setq network-security-level 'low)  ; see https://github.com/jcs090218/setup-emacs-windows/issues/156#issuecomment-932956432

sideline-blame.el

@@ -6,7 +6,7 @@
 ;; Maintainer: Shen, Jen-Chieh <jcs090218@gmail.com>
 ;; URL: https://github.com/emacs-sideline/sideline-blame
 ;; Version: 0.1.0
-;; Package-Requires: ((emacs "27.1") (sideline "0.1.0"))
+;; Package-Requires: ((emacs "27.1") (sideline "0.1.0") (vc-msg "1.1.1"))
 ;; Keywords: sideline blame
 
 ;; This file is not part of GNU Emacs.
@@ -32,12 +32,72 @@
 ;;; Code:
 
 (require 'sideline)
+(require 'vc-msg)
 
 (defgroup sideline-blame nil
   "Show blame messages with sideline."
   :prefix "sideline-blame-"
   :group 'tool
   :link '(url-link :tag "Repository" "https://github.com/emacs-sideline/sideline-blame"))
 
+(defcustom sideline-blame-author-format "%s, "
+  "Format string for author name."
+  :type 'string
+  :group 'sideline-blame)
+
+(defcustom sideline-blame-datetime-format "%b %d %Y %H:%M:%S "
+  "Format string for datetime."
+  :type 'string
+  :group 'sideline-blame)
+
+(defcustom sideline-blame-commit-format "◉ %s"
+  "Format string for commit message."
+  :type 'string
+  :group 'sideline-blame)
+
+(defcustom sideline-blame-uncommitted-author-name "Unknown"
+  "Message for commits where you are author."
+  :type 'string
+  :group 'sideline-blame)
+
+(defcustom sideline-blame-uncommitted-message "Uncommitted changes"
+  "Message for uncommitted lines."
+  :type 'string
+  :group 'sideline-blame)
+
+;;;###autoload
+(defun sideline-blame (command)
+  "Backend for sideline.
+
+Argument COMMAND is required in sideline backend."
+  (cl-case command
+    (`candidates (cons :async #'sideline-blame--get-message))))
+
+(defun sideline-blame--get-message (callback &rest _)
+  "Return the message.
+
+Execute CALLBACK to display with sideline."
+  (when-let*
+      ((plugin (vc-msg-find-plugin))
+       (current-file (funcall vc-msg-get-current-file-function))
+       (executer (plist-get plugin :execute))
+       (formatter (plist-get plugin :format))
+       (commit-info (and current-file
+                         (funcall executer
+                                  current-file
+                                  (funcall vc-msg-get-line-num-function)
+                                  (funcall vc-msg-get-version-function))))
+       (id (plist-get commit-info :id)))
+    (let* ((uncommitted (zerop (string-to-number id)))
+           (author (if uncommitted sideline-blame-uncommitted-author-name
+                     (plist-get commit-info :author)))
+           (time (string-to-number (plist-get commit-info :author-time)))
+           (summary (if uncommitted sideline-blame-uncommitted-message
+                      (plist-get commit-info :summary))))
+      (funcall callback
+               (list (concat (format sideline-blame-author-format author)
+                             (format-time-string sideline-blame-datetime-format time)
+                             (format sideline-blame-commit-format summary)))))))
+
 (provide 'sideline-blame)
 ;;; sideline-blame.el ends here