diff --git a/src/release.lisp b/src/release.lisp index 9f7d56d..2d07630 100644 --- a/src/release.lisp +++ b/src/release.lisp @@ -133,14 +133,14 @@ (domain (quri:uri-domain uri))) (cond ((string= domain "github.com") - (let ((repos-id (ppcre:scan-to-strings "/[^/]+/[^/\\.]+" (quri:uri-path uri)))) + (let ((repos-id (ppcre:scan-to-strings "/[^/]+/[a-zA-Z0-9-_.]+" (quri:uri-path uri)))) (concatenate 'string "https://github.com" repos-id))) ((string= domain "bitbucket.org") source-url) ((string= domain "gitlab.common-lisp.net") - (let ((repos-id (ppcre:scan-to-strings "/[^/]+/[^/\\.]+" (quri:uri-path uri)))) + (let ((repos-id (ppcre:scan-to-strings "/[^/]+/[a-zA-Z0-9-_.]+" (quri:uri-path uri)))) (concatenate 'string "http://gitlab.common-lisp.net" repos-id))))))))