ElKowar/dots-of-war
1
0
Fork 0
mirror of https://github.com/elkowar/dots-of-war.git synced 2024-11-06 03:12:24 +00:00
Code Issues 1 Projects 1 Releases Packages Wiki Activity

clenaup

Browse source
This commit is contained in:
elkowar 2021-04-30 16:41:57 +02:00
parent c7566e0f7d
commit af044d5adf
2 changed files with 26 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
files/.config/nvim/fnl/plugins/lsp.fnl
View file

@ -112,20 +112,28 @@
:scroll_down "<C-d>"}})
(utils.highlight "LspFloatWinNormal" {:bg colors.dark0_hard})
(utils.highlight "LspFloatWinBorder" {:bg colors.dark0_hard :fg colors.dark0_hard})
(utils.highlight "LspSagaHoverBorder" {:bg colors.dark0_hard :fg colors.dark0_hard})
(utils.highlight "LspSagaRenameBorder" {:bg colors.dark0_hard :fg colors.dark0_hard})
(utils.highlight "LspSagaSignatureHelpBorder" {:bg colors.dark0_hard :fg colors.dark0_hard})
(utils.highlight "LspSagaCodeActionBorder" {:bg colors.dark0_hard :fg colors.dark0_hard})
(utils.highlight "LspSagaDefPreviewBorder" {:bg colors.dark0_hard :fg colors.dark0_hard})
(utils.highlight [ "LspFloatWinNormal" ] {:bg colors.dark0_hard})
(utils.highlight [ "LspFloatWinBorder"
"LspSagaHoverBorder"
"LspSagaRenameBorder"
"LspSagaSignatureHelpBorder"
"LspSagaCodeActionBorder"
"LspSagaDefPreviewBorder"
"LspSagaDiagnosticBorder"]
{ :bg colors.dark0_hard :fg colors.dark0_hard})
(utils.highlight "LspSagaCodeActionTitle" {:fg colors.bright_aqua})
(utils.highlight "LspSagaBorderTitle" {:fg colors.bright_aqua})
(utils.highlight "LspSagaCodeActionContent" {:fg colors.bright_aqua})
(utils.highlight "LspSagaFinderSelection" {:fg colors.bright_aqua})
(utils.highlight "LspSagaDiagnosticHeader" {:fg colors.bright_aqua})
(utils.highlight "TargetWord" {:fg colors.bright_aqua})
(utils.highlight [ "LspSagaDiagnosticTruncateLine"
"LspSagaDocTruncateLine"
"LspSagaShTruncateLine"]
{ :bg "NONE" :fg colors.dark0})
(utils.highlight [ "TargetWord"
"LspSagaCodeActionTitle"
"LspSagaBorderTitle"
"LspSagaCodeActionContent"
"LspSagaFinderSelection"
"LspSagaDiagnosticHeader"]
{ :fg colors.bright_aqua})
; >>>>>

8
files/.config/nvim/fnl/utils.fnl
View file

@ -74,10 +74,12 @@
:gray "#928374"})
(defn highlight [group colset]
(defn highlight [group-arg colset]
(let [default { :fg "NONE" :bg "NONE" :gui "NONE"}
opts (a.merge default colset)]
(nvim.command (.. "hi! "group" guifg='"opts.fg"' guibg='"opts.bg"' gui='"opts.gui"'"))))
opts (a.merge default colset)
hl-groups (if (a.string? group-arg) [group-arg] group-arg)]
(each [_ group (ipairs hl-groups)]
(nvim.command (.. "hi! "group" guifg='"opts.fg"' guibg='"opts.bg"' gui='"opts.gui"'")))))
(defn comp [f g]