emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/orgit f8ca2fb77b 40/76: orgit-abbreviate-hashes: New optio


From: ELPA Syncer
Subject: [nongnu] elpa/orgit f8ca2fb77b 40/76: orgit-abbreviate-hashes: New option
Date: Thu, 13 Jan 2022 13:58:45 -0500 (EST)

branch: elpa/orgit
commit f8ca2fb77bf5eb7754d4486f99992809e19ff991
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    orgit-abbreviate-hashes: New option
    
    Closes #25.
---
 orgit.el | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/orgit.el b/orgit.el
index b4a16bdcec..aadaea1a21 100644
--- a/orgit.el
+++ b/orgit.el
@@ -174,6 +174,12 @@ If all of the above fails then `orgit-export' raises an 
error."
   :group 'orgit
   :type 'boolean)
 
+(defcustom orgit-abbreviate-hashes t
+  "Whether to abbreviate revision hashes."
+  :package-version '(orgit . "1.6.0")
+  :group 'orgit
+  :type 'boolean)
+
 ;;; Command
 
 ;;;###autoload
@@ -315,9 +321,9 @@ store links to the Magit-Revision mode buffers for these 
commits."
 (defun orgit-rev-store-1 (rev)
   (let ((repo (abbreviate-file-name default-directory)))
     (unless (magit-ref-p rev)
-      (setq rev (if current-prefix-arg
-                    (magit-get-shortname rev)
-                  (magit-rev-abbrev rev))))
+      (setq rev (cond (current-prefix-arg      (magit-get-shortname rev))
+                      (orgit-abbreviate-hashes (magit-rev-abbrev rev))
+                      (t rev))))
     (org-store-link-props
      :type        "orgit-rev"
      :link        (format "orgit-rev:%s::%s" repo rev)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]