1;;; tonski-modus-theme-ts-focus.el --- Semantic-focused theme without bolding -*- lexical-binding: t; no-byte-compile: t; -*-
 2
 3(deftheme tonski-modus-ts-focus "A highly accessible, semantic highlighting theme based on Modus/Tonski principles, optimized for Tree-sitter and without bolding.")
 4
 5(let* ((bg-main "#ffffff")
 6       (fg-main "#000000")
 7       (bg-subtle "#f8f8f8")
 8       (bg-param "#eeeeee")    ; Subtle background for arguments/parameters
 9       (fg-dim "#555555")      ; Comments/Fringe
10       
11       ;; Modus-inspired high-contrast colors (no bolding)
12       (color-keyword "#880088")   ; Magenta/Purple for Keywords/Control Flow (where desired)
13       (color-type "#000088")      ; Dark Blue for Types/Classes
14       (color-function "#006800")  ; Dark Green for Function Names
15       (color-constant "#804000")  ; Dark Ochre/Brown for Constants/Macros
16       (color-string "#004080")    ; Deep Blue for Strings
17       (color-warning "#a60000")   ; Dark Red for Errors/Warnings
18       (color-builtin "#008888")   ; Cyan/Teal for Builtins
19       )
20
21  (custom-theme-set-faces
22   'tonski-modus-ts-focus
23   
24   ;; --- Basic/Core Faces ---
25   `(default ((t (:background ,bg-main :foreground ,fg-main :weight normal))))
26   `(cursor ((t (:background ,fg-main))))
27   
28   ;; --- Base Font-Lock Faces (Used primarily as fallbacks/inheritance) ---
29   
30   ;; Use standard colors, but remove bolding
31   `(font-lock-keyword-face ((t (:foreground ,color-keyword :weight normal))))
32   `(font-lock-type-face ((t (:foreground ,color-type :weight normal))))
33   `(font-lock-function-name-face ((t (:foreground ,color-function :weight normal))))
34   `(font-lock-constant-face ((t (:foreground ,color-constant :weight normal))))
35   `(font-lock-string-face ((t (:foreground ,color-string :weight normal))))
36   `(font-lock-comment-face ((t (:foreground ,fg-dim :italic t :weight normal))))
37   
38   ;; Variables/Identifiers: Set to default FG
39   `(font-lock-variable-name-face ((t (:foreground ,fg-main :weight normal))))
40   
41   ;; --- Tree-sitter Faces (Granular Semantic Highlighting Focus) ---
42   ;; We define specific TS faces to adhere to Tonski's principles precisely
43   
44   ;; 1. Function and Method Names (Action/Behavior)
45   `(tree-sitter-hl-face:function ((t (:foreground ,color-function :weight normal))))
46   `(tree-sitter-hl-face:method ((t (:foreground ,color-function :weight normal))))
47   
48   ;; 2. Types and Classes (Structure/Data)
49   `(tree-sitter-hl-face:type ((t (:foreground ,color-type :weight normal))))
50   `(tree-sitter-hl-face:type.definition ((t (:foreground ,color-type :weight normal))))
51   
52   ;; 3. Constants and Macros (Stable/Immutable Data)
53   `(tree-sitter-hl-face:constant ((t (:foreground ,color-constant :weight normal))))
54   `(tree-sitter-hl-face:macro ((t (:foreground ,color-constant :weight normal))))
55   
56   ;; 4. Keywords (Control Flow)
57   ;; Keeping keywords colored for now, but you can change this to `fg-main`
58   ;; if you want to de-emphasize all keywords like the previous refinement.
59   `(tree-sitter-hl-face:keyword ((t (:foreground ,color-keyword :weight normal))))
60   
61   ;; 5. Variables/Identifiers (De-emphasized)
62   `(tree-sitter-hl-face:variable ((t (:foreground ,fg-main :weight normal))))
63   
64   ;; 6. Parameters/Arguments (The key background distinction)
65   `(tree-sitter-hl-face:parameter ((t (:background ,bg-param :foreground ,fg-main :weight normal))))
66   
67   ;; 7. Fields/Properties (Subtle visual cue)
68   `(tree-sitter-hl-face:field ((t (:foreground ,fg-main :italic t :weight normal))))
69   
70   ;; 8. Strings
71   `(tree-sitter-hl-face:string ((t (:foreground ,color-string :weight normal))))
72   
73   ;; 9. Errors/Warnings
74   `(tree-sitter-hl-face:error ((t (:foreground ,color-warning :weight normal))))
75   
76   ;; --- Other common faces ---
77   `(warning ((t (:foreground ,color-warning :weight normal))))
78   `(error ((t (:foreground ,color-warning :weight normal))))
79   ))
80
81(provide 'tonski-modus-theme-ts-focus)