outfoxxed/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Pending changes

Browse source
This commit is contained in:
outfoxxed 2023-06-14 10:56:28 -07:00
parent 26b32fb80d
commit 7e71c3e4c7
Signed by: outfoxxed
GPG key ID: 4C88A185FB89301E
2 changed files with 29 additions and 62 deletions
Download patch file Download diff file Expand all files Collapse all files

8
my-theme-theme.el
View file

@ -7,7 +7,8 @@
(if (plist-get args :fg) (if (nth type (plist-get args :fg))
`(:foreground ,(nth type (plist-get args :fg)))))
(if (plist-get args :bg) (if (nth type (plist-get args :bg))
`(:background ,(nth type (plist-get args :bg)))))))))
`(:background ,(nth type (plist-get args :bg)))))
(if (plist-member args :italic) '(:slant italic))))))
`(,face
,`(,(funcall build-face '((min-colors 256)) 0 args)
,(funcall build-face '((min-colors 8)) 1 args))))))
@ -85,13 +86,10 @@
(funcall face 'font-lock-preprocessor-face :fg preprocessor)
(funcall face 'font-lock-function-name-face :fg function)
(funcall face 'font-lock-variable-name-face :fg variable)
(funcall face 'font-lock-property-name-face :fg variable :italic)
(funcall face 'font-lock-string-face :fg string)
(funcall face 'font-lock-type-face :fg type)
;; Treesitter
(funcall face 'tree-sitter-hl-face:function\.call :fg function)
(funcall face 'tree-sitter-hl-face:method\.call :fg function)
;; Lsp
(funcall face 'lsp-face-highlight-textual :bg lsp-hover-highlight)
(funcall face 'lsp-face-highlight-read :bg lsp-hover-highlight)