From 5ec3901c0ce21f4ff8860a31a7f40a4681443e85 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Mon, 6 Jan 2025 09:26:20 +1100 Subject: [emacs] browse-url calls gitlab infobox --- emacs/.emacs.d/lisp/my/my-gitlab.el | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'emacs/.emacs.d/lisp/my') 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 -- cgit v1.2.3