;;; init-theme.el --- configure the theme -*- lexical-binding: t -*-
;; Author: Franck Cuny <franck@fcuny.net>

;;; Commentary:

;; Configure the theme

;;; Code:

;; use various monaspace fonts
;; https://monaspace.githubnext.com
(set-face-attribute 'default nil
                    :font "Monaspace Neon"
                    :height 150)

(set-face-attribute 'fixed-pitch nil
                    :font "Monaspace Neon"
                    :height 150)

(set-face-attribute 'variable-pitch nil
                    :font "Monaspace Radon"
                    :height 150)

(custom-set-faces '
 (font-lock-comment-face ((t (:font "Monaspace Radon" :italic t :height 1.0)))))

(use-package modus-themes
  :ensure t
  :custom
  ;; Syntax Highlighting
  (modus-themes-bold-constructs t)
  (modus-operandi-palette-overrides '((comment red-faint)
                                      (string "#101010")
                                      (bg-main "#FFFCF6")))

  (modus-themes-italic-constructs t)

  ;; Use mixed fonts
  (modus-themes-mixed-fonts t)
  (modus-themes-variable-pitch-ui t)

  ;; Enhance minibuffer completions
  (modus-themes-prompts '(italic bold))
  (modus-themes-completions '((matches . (extrabold))
                              (selection . (semibold italic text-also))))

  ;; Org Mode
  ;;; Make headings in org files more distinct
  (modus-themes-headings '((t . (background bold rainbow 1))))
  ;;; Tint the background of code blocks in org files
  (modus-themes-org-blocks 'tinted-background)
  ;;; Make tags less colorful and tables look the same as
  ;;; the default foreground.
  (prose-done cyan-cooler)
  (prose-tag fg-dim)
  (prose-table fg-main)

  ;; Make the fringe more intense
  (modus-themes-common-palette-overrides '((fringe bg-active)))

  :config
  (load-theme 'modus-operandi t))

(provide 'init-theme)

;;; init-theme.el ends here