diff --git a/configuration.org b/configuration.org index c7e539a..1fe621a 100644 --- a/configuration.org +++ b/configuration.org @@ -2464,6 +2464,51 @@ A big help during refactoring. (use-package hl-todo) #+END_SRC +** Bug and patch links + +#+BEGIN_SRC emacs-lisp +(defvar gpolonkai/bug-reference-url-bug-string "issues" + "String to insert in a `bug-reference-url-format' for bug references.") + +(put 'gpolonkai/bug-reference-url-bug-string 'safe-local-variable 'stringp) + +(defvar gpolonkai/bug-reference-url-patch-string "merge_requests" + "String to insert in a `bug-reference-url-format' for patch references.") + +(defvar-local bug-reference-host "gitlab.com" + "The hostname to use in `bug-reference-url-format'.") + +(defvar-local bug-reference-group "gamesystems" + "The group name or username to use in `bug-reference-url-format'.") + +(defvar-local bug-reference-repository "game-app" + "The repository name to use in `bug-reference-url-format'.") + +(put 'gpolonkai/bug-reference-url-patch-string 'safe-local-variable 'stringp) + +(defun gpolonkai/bug-reference-url () + "Return a GitLab issue or Merge Request URL. +Intended as a value for `bug-referecne-url-format'." + (format "https://%s/%s/%s/%s/%s" + bug-reference-host + bug-reference-group + bug-reference-repository + (if (string-suffix-p "!" (match-string-no-properties 1)) + gpolonkai/bug-reference-url-patch-string + gpolonkai/bug-reference-url-bug-string) + (match-string-no-properties 2)) + ) + +(use-package bug-reference + :custom + (bug-reference-bug-regexp (rx (group (in ?! ?#)) + (group (+ digit)))) + (bug-reference-url-format #'my-gitlab-url) + :hook + (text-mode . bug-reference-mode) + (prog-mode . bug-reference-prog-mode)) +#+END_SRC + * Python related setup and ~use-package~ calls Because, well, that’s my job now. Of course it gets a dedicated section.