Subject: bug#78794: [PATCH] Pretiffy package-menu

From: Eli Zaretskii <[email-masked]>
Date: Sun, 15 Jun 2025 08:36:20 +0300

> From: Elijah Gabe Pérez <[email-masked]>
> Date: Sat, 14 Jun 2025 20:12:34 -0600
> 
> +---
> +*** New user option 'package-menu-mode-line'.
> +If non-nil, package-menu will display additional information about Total
> +packages installed, Total packages from all the package archives, Total
> +packages to upgrade and Total new packages available.

Any reason not to have this by default, and drop the option?

> +(defface package-mark-install-line
> +  '((((class color) (min-colors 88) (background light))
> +     :background "darkolivegreen1" :extend t)
> +    (((class color) (min-colors 88) (background dark))
> +     :background "seagreen" :extend t)
> +    (((class color) (min-colors 8))
> +     :background "green" :foreground "white" :extend t)

If tty-color translation produces "green" from the two green shades
you define for 88+ color displays, then the last part is not needed.

> +    (t :inverse-video t :extend t))

Isn't the mode line shown in inverse video by default in monochrome
case?  If so, this is not needed, either.

> +(defface package-mark-delete-line
> +  '((((class color) (min-colors 88) (background light))
> +     :background "rosybrown1" :extend t)
> +    (((class color) (min-colors 88) (background dark))
> +     :background "indianred4" :extend t)
> +    (((class color) (min-colors 8))
> +     :background "red" :foreground "white" :extend t)
> +    (t :inverse-video t :extend t))
> +  "Face used for highlight the line where a package is marked to delete."
> +  :version "31.1")

Same here.

> +(define-fringe-bitmap
> +  'package-menu-install
> +  (vector
> +   #b000000
> +   #b001100
> +   #b001100
> +   #b111111
> +   #b111111
> +   #b001100
> +   #b001100
> +   #b000000)
> +  nil nil 'center)
> +
> +(define-fringe-bitmap
> +  'package-menu-delete
> +  (vector
> +   #b000000
> +   #b000000
> +   #b000000
> +   #b111111
> +   #b111111
> +   #b000000
> +   #b000000
> +   #b000000)
> +  nil nil 'center)

Both colors _and_ fringe markers?  Isn't than too much?

> +;; Mode-line
> +(defcustom package-menu-mode-line t
> +  "If non-nil, package-menu will display additional information in mode-line.
> +package-menu mode-line information includes: Total packages installed,
> +Total packages from all the packages archive, Total packages to upgrade
> +and Total new packages available."

Capitalization is wrong here: the last sentence should start with a
capital letter, whereas the "Total something" parts should not be
capitalized.

> +              ;; XXX: Add a efficient way for set these variables (?)

What about this part?

Thanks.