IC

2026-05-10 01:05:57 +02:00
commit f3cb5a6e26
19 changed files with 2741 additions and 0 deletions
@@ -0,0 +1,129 @@
+;;; themes/MTX16.el -*- lexical-binding: t; -*-
+
+;; my-extended-theme.el
+;; A high-contrast Emacs theme based on the extended color palette
+
+(deftheme MTX16 "A high-contrast theme with extended color palette")
+
+(let (
+      ;; Base colors - High contrast neutrals
+      (base00 "#eef0f0")  ; Background
+      (base01 "#F8F9FA")  ; Lighter background (status bars, line numbers)
+      (base02 "#F0F0F0")  ; Selection background, current line
+      (base03 "#BBBBBB")  ; Comments, invisible
+      (base04 "#8D8D84")  ; Dark foreground (disabled)
+      (base05 "#666666")  ; Default foreground (less important)
+      (base06 "#444444")  ; Default foreground
+      (base07 "#333333")  ; Strong foreground (important text)
+      (base08 "#FF6B6B")  ; Red: errors, deleted
+      (base09 "#FFB347")  ; Orange: warnings
+      (base0A "#88D26E")  ; Green: success, strings
+      (base0B "#9EBD6E")  ; Light green: strings alt
+      (base0C "#508AE0")  ; Blue: functions, info
+      (base0D "#6434A3")  ; Purple: keywords, variables
+      (base0E "#EF89DF")  ; Magenta: constants, special
+      (base0F "#A080CA")  ; Light purple: operators
+
+      ;; Additional GUI-specific enhancements
+      (highlight "#CEF")
+      (region "#7DF")
+      (accent-strong "#508AE0")
+      (accent-subtle "#BEEFFF")
+      )
+
+  (custom-theme-set-faces
+   'MTX16
+   
+   ;; Basic faces
+   `(default ((t (:background ,base00 :foreground ,base07))))
+   `(cursor ((t (:background ,base07))))
+   `(fringe ((t (:background ,base01))))
+   `(highlight ((t (:background ,highlight))))
+   `(region ((t (:background ,region :foreground ,base07))))
+   `(secondary-selection ((t (:background ,accent-subtle))))
+
+   ;; Mode line
+   `(mode-line ((t (:background ,base02 :foreground ,base07 :box nil))))
+   `(mode-line-inactive ((t (:background ,base01 :foreground ,base04 :box nil))))
+   `(mode-line-buffer-id ((t (:foreground ,base0D :weight bold))))
+
+   ;; Font lock - syntax highlighting
+   `(font-lock-comment-face ((t (:foreground ,base03 :slant italic))))
+   `(font-lock-comment-delimiter-face ((t (:foreground ,base03))))
+   `(font-lock-doc-face ((t (:foreground ,base04))))
+   `(font-lock-string-face ((t (:foreground ,base0A))))
+   `(font-lock-constant-face ((t (:foreground ,base0E))))
+   `(font-lock-builtin-face ((t (:foreground ,base0F))))
+   `(font-lock-type-face ((t (:foreground ,base0D))))
+   `(font-lock-function-name-face ((t (:foreground ,base0C))))
+   `(font-lock-variable-name-face ((t (:foreground ,base06))))
+   `(font-lock-keyword-face ((t (:foreground ,base0D :weight bold))))
+   `(font-lock-preprocessor-face ((t (:foreground ,base0F))))
+   `(font-lock-warning-face ((t (:foreground ,base09 :weight bold))))
+
+   ;; UI elements
+   `(minibuffer-prompt ((t (:foreground ,base0C :weight bold))))
+   `(link ((t (:foreground ,base0C :underline t))))
+   `(link-visited ((t (:foreground ,base0E :underline t))))
+   `(button ((t (:foreground ,base0C :underline t))))
+   `(header-line ((t (:background ,base01 :foreground ,base07))))
+   `(vertical-border ((t (:foreground ,base02))))
+
+   ;; Search and matching
+   `(isearch ((t (:background ,base0E :foreground ,base00 :weight bold))))
+   `(isearch-fail ((t (:background ,base08))))
+   `(lazy-highlight ((t (:background ,accent-subtle :foreground ,base07))))
+   `(match ((t (:background ,base0A :foreground ,base00))))
+
+   ;; Line numbers
+   `(line-number ((t (:foreground ,base03 :background ,base01))))
+   `(line-number-current-line ((t (:foreground ,base07 :background ,base02 :weight bold))))
+
+   ;; Company (autocompletion)
+   `(company-tooltip ((t (:background ,base01 :foreground ,base07))))
+   `(company-tooltip-selection ((t (:background ,base0C :foreground ,base00))))
+   `(company-tooltip-common ((t (:foreground ,base0D))))
+   `(company-scrollbar-bg ((t (:background ,base02))))
+   `(company-scrollbar-fg ((t (:background ,base04))))
+
+   ;; Org-mode
+   `(org-level-1 ((t (:foreground ,base0D :weight bold :height 1.2))))
+   `(org-level-2 ((t (:foreground ,base0C :weight bold))))
+   `(org-level-3 ((t (:foreground ,base0F :weight bold))))
+   `(org-done ((t (:foreground ,base0A :weight bold))))
+   `(org-todo ((t (:foreground ,base08 :weight bold))))
+   `(org-date ((t (:foreground ,base0E))))
+   `(org-special-keyword ((t (:foreground ,base03))))
+   `(org-block ((t (:background ,base01 :foreground ,base06))))
+   `(org-code ((t (:foreground ,base0B))))
+
+   ;; Terminal specific adjustments
+   `(term-color-black ((t (:foreground ,base00 :background ,base00))))
+   `(term-color-red ((t (:foreground ,base08 :background ,base08))))
+   `(term-color-green ((t (:foreground ,base0A :background ,base0A))))
+   `(term-color-yellow ((t (:foreground ,base09 :background ,base09))))
+   `(term-color-blue ((t (:foreground ,base0C :background ,base0C))))
+   `(term-color-magenta ((t (:foreground ,base0E :background ,base0E))))
+   `(term-color-cyan ((t (:foreground ,base0B :background ,base0B))))
+   `(term-color-white ((t (:foreground ,base07 :background ,base07))))
+
+   ;; Error and warning faces
+   `(error ((t (:foreground ,base08 :weight bold))))
+   `(warning ((t (:foreground ,base09 :weight bold))))
+   `(success ((t (:foreground ,base0A :weight bold))))
+
+   ;; Dired
+   `(dired-directory ((t (:foreground ,base0C :weight bold))))
+   `(dired-flagged ((t (:foreground ,base08))))
+   `(dired-symlink ((t (:foreground ,base0E))))
+
+   ;; Ivy/Helm (completion frameworks)
+   `(ivy-current-match ((t (:background ,base0C :foreground ,base00))))
+   `(ivy-minibuffer-match-face-1 ((t (:foreground ,base05))))
+   `(ivy-minibuffer-match-face-2 ((t (:foreground ,base0D :weight bold))))
+   `(ivy-minibuffer-match-face-3 ((t (:foreground ,base0E))))
+   `(ivy-minibuffer-match-face-4 ((t (:foreground ,base0A))))
+   ))
+
+;; Provide the theme
+(provide-theme 'MTX16)