mirror of
https://github.com/lliding/ld-emacs.git
synced 2025-10-13 05:23:05 +00:00
72 lines
2.5 KiB
EmacsLisp
72 lines
2.5 KiB
EmacsLisp
;; -*- coding: utf-8; -*-
|
|
;;; Require:
|
|
|
|
;;; Code:
|
|
;; In all of the following, WEIGHT is a symbol such as `semibold',
|
|
;; `light', `bold', or anything mentioned in `modus-themes-weights'.
|
|
(setq modus-themes-italic-constructs t
|
|
modus-themes-bold-constructs nil
|
|
modus-themes-mixed-fonts t
|
|
modus-themes-variable-pitch-ui nil
|
|
modus-themes-custom-auto-reload t
|
|
modus-themes-disable-other-themes t
|
|
|
|
;; Options for `modus-themes-prompts' are either nil (the
|
|
;; default), or a list of properties that may include any of those
|
|
;; symbols: `italic', `WEIGHT'
|
|
modus-themes-prompts '(italic bold)
|
|
|
|
;; The `modus-themes-completions' is an alist that reads two
|
|
;; keys: `matches', `selection'. Each accepts a nil value (or
|
|
;; empty list) or a list of properties that can include any of
|
|
;; the following (for WEIGHT read further below):
|
|
;;
|
|
;; `matches' :: `underline', `italic', `WEIGHT'
|
|
;; `selection' :: `underline', `italic', `WEIGHT'
|
|
modus-themes-completions
|
|
'((matches . (extrabold))
|
|
(selection . (semibold italic text-also)))
|
|
|
|
modus-themes-org-blocks 'gray-background ; {nil,'gray-background,'tinted-background}
|
|
|
|
;; The `modus-themes-headings' is an alist: read the manual's
|
|
;; node about it or its doc string. Basically, it supports
|
|
;; per-level configurations for the optional use of
|
|
;; `variable-pitch' typography, a height value as a multiple of
|
|
;; the base font size (e.g. 1.5), and a `WEIGHT'.
|
|
modus-themes-headings
|
|
'((1 . (variable-pitch 1.5))
|
|
(2 . (1.3))
|
|
(agenda-date . (1.3))
|
|
(agenda-structure . (variable-pitch light 1.8))
|
|
(t . (1.1))))
|
|
|
|
(defun ld-modus-operandi ()
|
|
"Light theme."
|
|
(interactive)
|
|
;; load theme firstly and then do user customization
|
|
;; otherwise modus-themes will override the face user had assigned
|
|
(load-theme 'modus-operandi :no-confirm))
|
|
|
|
(defun ld-modus-vivendi-tinted ()
|
|
"Dark theme."
|
|
(interactive)
|
|
;; load theme firstly and then do user customization
|
|
;; otherwise modus-themes will override the face user had assigned
|
|
(load-theme 'modus-vivendi-tinted :no-confirm))
|
|
|
|
(defun ld-modus-themes-toggle ()
|
|
(interactive)
|
|
(if (eq (car custom-enabled-themes) 'modus-operandi)
|
|
(ld-modus-vivendi-tinted)
|
|
(ld-modus-operandi)))
|
|
|
|
;; active light theme
|
|
(if window-system
|
|
(ld-modus-operandi)
|
|
(ld-modus-vivendi-tinted))
|
|
|
|
(provide 'init-theme)
|
|
|
|
;;; init-theme.el ends here
|