diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-05-15 10:41:24 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-05-15 10:41:24 +0100 |
| commit | 2ba8159e5f53b0d257c94db4f2ccb76c51c37048 (patch) | |
| tree | 35e6ad8171c50d27f9acca5ff5a48dbb55f39a95 | |
| parent | 314e150f8eb26f811b49b03285efc54d0739aa4d (diff) | |
| download | qa-frontpage-2ba8159e5f53b0d257c94db4f2ccb76c51c37048.tar qa-frontpage-2ba8159e5f53b0d257c94db4f2ccb76c51c37048.tar.gz | |
Switch to Mumi/Debbugs issue titles
Rather than using the data from Patchwork, this change also strips the [...]
prefix.
| -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 |