[emacs] browse-url calls gitlab infobox

1 files changed, 5 insertions, 0 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-gitlab.el b/emacs/.emacs.d/lisp/my/my-gitlab.el
index 04d2ba0..ad7f0ed 100644
--- a/emacs/.emacs.d/lisp/my/my-gitlab.el
+++ b/emacs/.emacs.d/lisp/my/my-gitlab.el
@@ -67,6 +67,11 @@
 (defun my-gitlab-format-time-string (t)
   (format-time-string "%Y-%m-%d %M:%M:%S" (encode-time (parse-time-string t))))
 
+(defun my-gitlab-project-url-p (url)
+  (let ((urlobj (url-generic-parse-url url)))
+    (and (equal (url-host urlobj) "gitlab.com")
+         (string-match-p "^/[^/]+/[^/]+$" (url-filename urlobj)))))
+
 (require 'my-buffer)
 
 (defvar my-gitlab-project-info-specs