mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
Jim Myhrberg
fe6a4e7ce5
I've set `lexical-binding` to `nil` in all Emacs Lisp files to suppress the warnings introduced in Emacs 31 requiring all elisp files to have a `lexical-binding` comment. This retains the default behavior of dynamic binding when no `lexical-binding` comment is present. With it set to `t` across the board, various things break, and fixing those is a task for another day.
37 lines
1.4 KiB
EmacsLisp
37 lines
1.4 KiB
EmacsLisp
;;; siren-core-themes.el --- jimeh's Emacs Siren: Custom themes. -*- lexical-binding: nil; -*-
|
|
|
|
;;; Commentary:
|
|
|
|
;; Enable loading custom themes.
|
|
|
|
;;; Code:
|
|
|
|
(defvar siren-themes-dir (siren-dir "themes")
|
|
"Root directory for Emacs Siren custom themes.")
|
|
(add-to-list 'custom-theme-load-path siren-themes-dir)
|
|
|
|
;; Ensure mode-line uses fixed-width font in nightly builds after 2021-11-26
|
|
;; when new mode-line faces were introduced:
|
|
;; https://github.com/emacs-mirror/emacs/commit/57bb675cde25bc1b54d8eb8716b0024d5c1d5687
|
|
(if (get 'mode-line-active 'face-defface-spec)
|
|
(set-face-attribute 'mode-line-active nil :inherit 'mode-line))
|
|
(if (get 'mode-line-inactive 'face-defface-spec)
|
|
(set-face-attribute 'mode-line-inactive nil :inherit 'mode-line))
|
|
|
|
;; Globally disable setting face weight to bold.
|
|
(defvar siren-set-face-ignore-attributes '(:weight))
|
|
(defadvice set-face-attribute
|
|
(before ignore-attributes (face frame &rest args) activate)
|
|
(setq args
|
|
(apply 'nconc
|
|
(mapcar (lambda (i)
|
|
(let ((attribute (nth i args))
|
|
(value (nth (1+ i) args)))
|
|
(if (not (memq attribute
|
|
siren-set-face-ignore-attributes))
|
|
(list attribute value))))
|
|
(number-sequence 0 (1- (length args)) 2)))))
|
|
|
|
(provide 'siren-core-themes)
|
|
;;; siren-core-themes.el ends here
|