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

some theme stuff

Browse source
This commit is contained in:
elkowar 2021-05-02 13:54:58 +02:00
parent 53d2532b4b
commit c188b55475
3 changed files with 28 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
files/.config/nvim/fnl/init.fnl
View file

@ -18,7 +18,18 @@
(set vim.g.conjure#client#fennel#aniseed#aniseed_module_prefix "aniseed.") (set vim.g.conjure#client#fennel#aniseed#aniseed_module_prefix "aniseed.")
(set vim.g.sexp_filetypes "clojure,scheme,lisp,timl,fennel")
; Colors ------------------------------------------------------- foldstart
(utils.highlight-add
[ "GruvboxBlueSign" "GruvboxAquaSign" "GruvboxRedSign" "GruvboxYellowSign" "GruvboxGreenSign" "GruvboxOrangeSign" "GruvboxPurpleSign"]
{:bg "NONE"})
; foldend
; Treesitter ------------------------------------------------------- foldstart ; Treesitter ------------------------------------------------------- foldstart

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

@ -78,14 +78,28 @@
:faded_orange "#af3a03" :faded_orange "#af3a03"
:gray "#928374"}) :gray "#928374"})
(defn surround-if-present [a mid b]
(if mid
(.. a mid b)
""))
(defn highlight [group-arg colset] (defn highlight [group-arg colset]
(let [default { :fg "NONE" :bg "NONE" :gui "NONE"} (let [default { :fg "NONE" :bg "NONE" :gui "NONE"}
opts (a.merge default colset) opts (a.merge default colset)
hl-groups (if (a.string? group-arg) [group-arg] group-arg)] hl-groups (if (a.string? group-arg) [group-arg] group-arg)]
(each [_ group (ipairs hl-groups)] (each [_ group (ipairs hl-groups)]
(nvim.command (.. "hi! "group" guifg='"opts.fg"' guibg='"opts.bg"' gui='"opts.gui"'"))))) (nvim.command (.. "hi! "group" guifg='"opts.fg"' guibg='"opts.bg"' gui='"opts.gui"'")))))
(defn highlight-add [group-arg colset]
(let [hl-groups (if (a.string? group-arg) [group-arg] group-arg)]
(each [_ group (ipairs hl-groups)]
(nvim.command
(.. "hi! "
group
(surround-if-present " guibg='"colset.bg"'")
(surround-if-present " guifg='"colset.fg"'")
(surround-if-present " gui='"colset.gui"'"))))))
(defn comp [f g] (defn comp [f g]
(fn [...] (fn [...]

5
files/.config/nvim/plugins.lua
View file

@ -17,9 +17,6 @@ require("packer").startup(function(use)
use "tami5/compe-conjure" use "tami5/compe-conjure"
use "guns/vim-sexp"
use "tpope/vim-sexp-mappings-for-regular-people"
use "pwntester/octo.nvim" use "pwntester/octo.nvim"
use "Olical/conjure" use "Olical/conjure"
@ -101,7 +98,7 @@ require("packer").startup(function(use)
use "honza/vim-snippets" use "honza/vim-snippets"
use "tommcdo/vim-exchange" use "tommcdo/vim-exchange"
use "kien/rainbow_parentheses.vim" use "kien/rainbow_parentheses.vim"
--use "bhurlow/vim-parinfer" use "bhurlow/vim-parinfer"
use "ray-x/lsp_signature.nvim" use "ray-x/lsp_signature.nvim"