From 709fc65c5f9a60c23b37fce06612342fced4ef8d Mon Sep 17 00:00:00 2001 From: supermomonga Date: Mon, 14 Mar 2016 04:22:01 +0900 Subject: [PATCH] allow some special characters --- src/release.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))))))))