Declare package-archive-priorities using setq and other minor changes

This commit is contained in:
James Cherti
2025-06-08 18:46:22 -04:00
parent 9c6fd76524
commit eaf87000ac
3 changed files with 16 additions and 16 deletions

View File

@@ -1381,10 +1381,10 @@ If you prefer MELPA Stable over MELPA, you can add MELPA Stable and prioritize i
;; This change increases MELPA Stable priority to 70, above MELPA, ;; This change increases MELPA Stable priority to 70, above MELPA,
;; ensuring that MELPA is preferred for package installations ;; ensuring that MELPA is preferred for package installations
;; over MELPA Stable. ;; over MELPA Stable.
(customize-set-variable 'package-archive-priorities '(("gnu" . 99) (setq package-archive-priorities '(("gnu" . 99)
("nongnu" . 80) ("nongnu" . 80)
("melpa-stable" . 70) ("melpa-stable" . 70)
("melpa" . 0))) ("melpa" . 0)))
``` ```
### How to load a local lisp file for machine-specific configurations? ### How to load a local lisp file for machine-specific configurations?

View File

@@ -26,7 +26,7 @@
(defvar minimal-emacs-ui-features '() (defvar minimal-emacs-ui-features '()
"List of user interface features to enable in minimal Emacs setup. "List of user interface features to enable in minimal Emacs setup.
This variable holds a list Emacs UI features that can be enabled: This variable holds a list of Emacs UI features that can be enabled:
- context-menu (Enables the context menu in graphical environments.) - context-menu (Enables the context menu in graphical environments.)
- tool-bar (Enables the tool bar in graphical environments.) - tool-bar (Enables the tool bar in graphical environments.)
- menu-bar (Enables the menu bar in graphical environments.) - menu-bar (Enables the menu bar in graphical environments.)
@@ -39,15 +39,15 @@ This variable holds a list Emacs UI features that can be enabled:
(defvar minimal-emacs-debug (bound-and-true-p init-file-debug) (defvar minimal-emacs-debug (bound-and-true-p init-file-debug)
"Non-nil to enable debug.") "Non-nil to enable debug.")
(defvar minimal-emacs-gc-cons-threshold (* 32 1024 1024)
"Value to set `gc-cons-threshold' to after Emacs startup.
Ignored if `minimal-emacs-optimize-startup-gc' is nil.")
(defvar minimal-emacs-optimize-startup-gc t (defvar minimal-emacs-optimize-startup-gc t
"If non-nil, increase `gc-cons-threshold' during startup to reduce pauses. "If non-nil, increase `gc-cons-threshold' during startup to reduce pauses.
After Emacs finishes loading, `gc-cons-threshold' is restored to the value After Emacs finishes loading, `gc-cons-threshold' is restored to the value
stored in `minimal-emacs--restore-gc-cons-threshold'.") stored in `minimal-emacs--restore-gc-cons-threshold'.")
(defvar minimal-emacs-gc-cons-threshold (* 32 1024 1024)
"Value to which `gc-cons-threshold' is set after Emacs startup.
Ignored if `minimal-emacs-optimize-startup-gc' is nil.")
(defvar minimal-emacs-inhibit-redisplay-during-startup nil (defvar minimal-emacs-inhibit-redisplay-during-startup nil
"Suppress redisplay during startup to improve performance. "Suppress redisplay during startup to improve performance.
This prevents visual updates while Emacs initializes. The tradeoff is that you This prevents visual updates while Emacs initializes. The tradeoff is that you
@@ -432,9 +432,9 @@ this stage of initialization."
(setq package-archives '(("melpa" . "https://melpa.org/packages/") (setq package-archives '(("melpa" . "https://melpa.org/packages/")
("gnu" . "https://elpa.gnu.org/packages/") ("gnu" . "https://elpa.gnu.org/packages/")
("nongnu" . "https://elpa.nongnu.org/nongnu/"))) ("nongnu" . "https://elpa.nongnu.org/nongnu/")))
(customize-set-variable 'package-archive-priorities '(("gnu" . 99) (setq package-archive-priorities '(("gnu" . 99)
("nongnu" . 80) ("nongnu" . 80)
("melpa" . 70))) ("melpa" . 70)))
;;; Load post-early-init.el ;;; Load post-early-init.el
(minimal-emacs-load-user-init "post-early-init.el") (minimal-emacs-load-user-init "post-early-init.el")

View File

@@ -104,7 +104,7 @@
;;; Misc ;;; Misc
(setq whitespace-line-column nil) ; whitespace-mode (setq whitespace-line-column nil) ; Use the value of `fill-column'.
;; Can be activated with `display-line-numbers-mode' ;; Can be activated with `display-line-numbers-mode'
(setq-default display-line-numbers-width 3) (setq-default display-line-numbers-width 3)
@@ -479,9 +479,9 @@
(setq ibuffer-formats (setq ibuffer-formats
'((mark modified read-only locked '((mark modified read-only locked
" " (name 40 40 :left :elide) " " (name 40 40 :left :elide)
" " (size 8 -1 :right) " " (size 8 -1 :right)
" " (mode 18 18 :left :elide) " " filename-and-process) " " (mode 18 18 :left :elide) " " filename-and-process)
(mark " " (name 16 -1) " " filename))) (mark " " (name 16 -1) " " filename)))
;;; xref ;;; xref