awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

merge: pull request #5708 from iyefrat/lint-commits-fixes

Browse Source 
Fix commit linter bugs
This commit is contained in:
Henrik Lissner
2021-11-04 00:59:28 +01:00
committed by GitHub
parent 4f2104d309 aa2f806b5b
commit 05edc70827
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
core/cli/ci.el
View File

@ -48,7 +48,7 @@ Accapted value types can be one or more of ref, hash, url, username, or name.")
'((ref . "^\\(https?://[^ ]+\\|[^/]+/[^/]+\\)?#[0-9]+$")
(hash . "^\\(https?://[^ ]+\\|[^/]+/[^/]+@\\)?[a-z0-9]\\{12\\}$")
(url . "^https?://")
(name . "^[a-zA-Z0-9-_ ]+<[^@]+@[^.]+\\.[^>]+>$")
(name . "^[a-zA-Z0-9-_ \\.]+<[^@]+@[^.]+\\.[^>]+>$")
(username . "^@[^a-zA-Z0-9_-]+$"))
"An alist of valid trailer keys and their accepted value types.
@ -219,7 +219,8 @@ representing the current commit being checked against. See
(truncate-string-to-width (string-trim line) 16 nil nil "…")
(match-string 1 line))))
(pcase-dolist (`(,key . ,value) trailers)
(if (string-match-p " " value)
(if (and (not (memq 'name (cdr (assoc key doom-cli-commit-trailer-keys))))
(string-match-p " " value))
(fail! "Found %S, but only one value allowed per trailer"
(truncate-string-to-width (concat key ": " value) 20 nil nil "…"))
(when-let (allowed-types (cdr (assoc key doom-cli-commit-trailer-keys)))