diff options
| -rw-r--r-- | guix-qa-frontpage/patchwork.scm | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/guix-qa-frontpage/patchwork.scm b/guix-qa-frontpage/patchwork.scm index b4e0f66..049012f 100644 --- a/guix-qa-frontpage/patchwork.scm +++ b/guix-qa-frontpage/patchwork.scm @@ -176,6 +176,12 @@ (string-match "\\[?bug#([0-9]*)(,|:|\\])" str) 1))) + (define (strip-title-prefix str) + (if (string-prefix? "[" str) + (let ((start (string-index str #\]))) + (string-drop str (+ 1 start))) + str)) + (define issue-number-to-series-hash-table (make-hash-table)) @@ -299,11 +305,15 @@ #t)) (assq-ref mumi 'merged-with))) (cons - `(,@data - (branch . ,(or (parse-issue-title - (assq-ref mumi 'title)) - (patchwork-series->branch data))) - (mumi . ,mumi)) + `(,issue-number + . + (("name" . ,(strip-title-prefix + (assq-ref mumi 'title))) + ,@(alist-delete "name" (cdr data) string=?) + (branch . ,(or (parse-issue-title + (assq-ref mumi 'title)) + (patchwork-series->branch data))) + (mumi . ,mumi))) result) result))) result |