lucas/ghpr.el
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix: improve and add faces

Browse source
This commit is contained in:
Lucas Sta Maria 2025-08-23 22:50:20 +08:00
parent 5b47adb978
commit cb7ec6ff4c
Signed by: lucas
GPG key ID: F07FB16A826E3B47
1 changed files with 17 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

20
ghpr-review.el
View file

@ -37,15 +37,25 @@
(require 'ghpr-utils)
(defface ghpr-review-added-line
'((t (:background "green" :foreground "black")))
'((t (:inherit diff-indicator-added)))
"Face for added lines in PR diff."
:group 'ghpr)
(defface ghpr-review-removed-line
'((t (:background "red" :foreground "black")))
'((t (:inherit diff-indicator-removed)))
"Face for removed lines in PR diff."
:group 'ghpr)
(defface ghpr-review-existing-review
'((t (:foreground "purple")))
"Face for existing review comments."
:group 'ghpr)
(defface ghpr-review-misc-line
'((t (:inherit diff-header)))
"Face for miscellaneous lines in PR diff."
:group 'ghpr)
(defvar ghpr-review-font-lock-keywords
'(("^\\(> \\+[^+]\\)\\(.*\\)$"
(0 'ghpr-review-added-line t))
@ -54,7 +64,11 @@
("^\\(> -[^-]\\)\\(.*\\)$"
(0 'ghpr-review-removed-line t))
("^\\(> -\\)$" ; Handle line with just "> -"
(0 'ghpr-review-removed-line t)))
(0 'ghpr-review-removed-line t))
("^<.*$"
(0 'ghpr-review-existing-review t))
("^>.*$"
(0 'ghpr-review-misc-line)))
"Font lock keywords for ghpr-review-mode.")
(defvar-local ghpr-review-diff-content nil