update packages

lisp/orgit.el

@@ -6,8 +6,8 @@
 ;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
 
 ;; Package-Requires: ((emacs "25.1") (magit "2.90.1") (org "9.3"))
-;; Package-Version: 20200621.2143
-;; Package-Commit: a4e689f009a19edf5475ec20f6d723b2ab375db6
+;; Package-Version: 20200714.1943
+;; Package-Commit: ac9b1a42863a864fde9d225890ef5464bffdc646
 ;; Homepage: https://github.com/magit/orgit
 
 ;; This library is free software; you can redistribute it and/or modify
@@ -128,6 +128,10 @@
      "https://gitlab.com/%n"
      "https://gitlab.com/%n/commits/%r"
      "https://gitlab.com/%n/commit/%r")
+    ("git.sr.ht[:/]\\(.+?\\)\\(?:\\.git\\)?$"
+     "https://git.sr.ht/%n"
+     "https://git.sr.ht/%n/log/%r"
+     "https://git.sr.ht/%n/commit/%r")
     ("bitbucket.org[:/]\\(.+?\\)\\(?:\\.git\\)?$"
      "https://bitbucket.org/%n"
      "https://bitbucket.org/%n/commits/branch/%r"
@@ -317,7 +321,16 @@ In that case `orgit-rev-store' stores one or more links instead."
 
 ;;;###autoload
 (defun orgit-log-export (path desc format)
-  (orgit-export path desc format "log" 2))
+  (pcase-let* ((`(,repo ,args) (split-string path "::"))
+               (first-branch (cond ((string-prefix-p "((" args)
+                                    (caar (read args)))
+                                   ((string-prefix-p "(" args)
+                                    (car (read args)))
+                                   (t args))))
+    (when (string-prefix-p "--" first-branch)
+      (setq first-branch nil))
+    (orgit-export (concat repo "::" first-branch)
+                  desc format "log" 2)))
 
 ;;;###autoload
 (defun orgit-log-complete-link (&optional arg)