tec
/
DoomThemes.jl
1
0
Fork 0
Code Issues Pull Requests Activity

Avoid underscore-prefixing theme names

This commit is contained in:
TEC 2024-05-09 17:10:45 +08:00
parent 20c82eca84
commit 5cfc49d48a
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/make-theme.el
View File

@ -168,9 +168,7 @@
(let* ((theme-name (format "%s" theme))
(jl-theme-name (replace-regexp-in-string
"[^0-9A-Za-z_]" ""
(replace-regexp-in-string
"^\\([0-9]\\)" "_\\1"
(subst-char-in-string ?- ?_ theme-name))))
(subst-char-in-string ?- ?_ theme-name)))
(jl-theme-upper (upcase jl-theme-name))
(prev-theme doom-theme))
(load-theme (intern (format "doom-%s" theme-name)) t)
@ -186,8 +184,11 @@
"Face()")
",\n"))
(insert "]\n\n"
(format "THEMES[:%s] = _%s_FACES"
jl-theme-name jl-theme-upper)
(format "THEMES[%s] = _%s_FACES"
(if (string-match-p "^[0-9]" jl-theme-name)
(format "Symbol(%S)" jl-theme-name)
(concat ":" jl-theme-name))
jl-theme-upper)
"\n"))
(unless no-restore-theme
(load-theme prev-theme t))))))

4
src/themes/1337.jl
View File

@ -1,6 +1,6 @@
# Autogenerated from the doom-1337 theme
const __1337_FACES = [
const _1337_FACES = [
:default => Face(height = 181, weight = :regular, slant = :normal, foreground = 0xd4d4d4, background = 0x191919),
:cursor => Face(background = 0xffffff),
:black => Face(foreground = 0x191919),
@ -85,4 +85,4 @@ const __1337_FACES = [
:markdown_list => Face(foreground = 0xff5e5e),
]
THEMES[:_1337] = __1337_FACES
THEMES[Symbol("1337")] = _1337_FACES