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

more stuff

Browse source
This commit is contained in:
elkowar 2021-05-15 22:06:45 +02:00
parent ef11d26a1a
commit 63d6a211bb
No known key found for this signature in database
GPG key ID: E321AD71B1D1F27F
9 changed files with 24 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
nvim/.config/nvim/fnl/help-thingy.fnl
View file

@ -2,7 +2,6 @@
{require {utils utils {require {utils utils
a aniseed.core a aniseed.core
str aniseed.string str aniseed.string
fennel aniseed.fennel
popup popup popup popup
ts nvim-treesitter} ts nvim-treesitter}
require-macros [macros]}) require-macros [macros]})

1
nvim/.config/nvim/fnl/keybinds.fnl
View file

@ -2,7 +2,6 @@
{require {a aniseed.core {require {a aniseed.core
nvim aniseed.nvim nvim aniseed.nvim
utils utils utils utils
fennel aniseed.fennel
wk which-key wk which-key
treesitter-selection nvim-treesitter.incremental_selection treesitter-selection nvim-treesitter.incremental_selection
trouble trouble} trouble trouble}

1
nvim/.config/nvim/fnl/macros.fnl
View file

@ -60,7 +60,6 @@
:packer-use :packer-use
(fn [...] (fn [...]
(let [a (require "aniseed.core") (let [a (require "aniseed.core")
fennel (require "aniseed.fennel")
args [...] args [...]
use-statements []] use-statements []]
(for [i 1 (a.count args) 2] (for [i 1 (a.count args) 2]

2
nvim/.config/nvim/fnl/plugins.fnl
View file

@ -26,8 +26,6 @@
:folke/which-key.nvim {} :folke/which-key.nvim {}
:pwntester/octo.nvim {}
; json query stuff ; json query stuff
:gennaro-tedesco/nvim-jqx {:ft ["json"]} :gennaro-tedesco/nvim-jqx {:ft ["json"]}

3
nvim/.config/nvim/fnl/plugins/bufferline.fnl
View file

@ -1,6 +1,5 @@
(module plugins.bufferline (module plugins.bufferline
{require {a aniseed.core {autoload {a aniseed.core
fennel aniseed.fennel
nvim aniseed.nvim nvim aniseed.nvim
utils utils utils utils
bufferline bufferline bufferline bufferline

22
nvim/.config/nvim/fnl/plugins/feline.fnl
View file

@ -61,6 +61,15 @@
(or-empty (utils.keep-if #(~= "master" $1) (or-empty (utils.keep-if #(~= "master" $1)
(?. vim.b :gitsigns_status_dict :head)))) (?. vim.b :gitsigns_status_dict :head))))
(defn lsp-progress-provider []
(let [msgs (vim.lsp.util.get_progress_messages)
s (icollect [_ msg (ipairs msgs)]
(when msg.message
(.. msg.title " " msg.message)))]
(or-empty (str.join " | " s))))
(def components (def components
{:left {:active {} :inactive {}} {:left {:active {} :inactive {}}
:mid {:active {} :inactive {}} :mid {:active {} :inactive {}}
@ -72,17 +81,10 @@
{:provider get-current-filepath :left_sep " "} {:provider get-current-filepath :left_sep " "}
{:provider git-status-provider :left_sep " " :hl #(vim-mode-hl true)}]) {:provider git-status-provider :left_sep " " :hl #(vim-mode-hl true)}])
(defn get-lsp-progress []
(let [msgs (vim.lsp.util.get_progress_messages)
s (icollect [_ msg (ipairs msgs)]
(when msg.message
(.. msg.title " " msg.message)))]
(or-empty (str.join " | " s))))
(set components.mid.active (set components.mid.active
[{:provider get-lsp-progress}]) [{:provider lsp-progress-provider
:enabled #(< 0 (length (vim.lsp.buf_get_clients)))}])
(set components.right.active (set components.right.active
[{:provider vim.bo.filetype [{:provider vim.bo.filetype

1
nvim/.config/nvim/fnl/plugins/galaxyline.fnl
View file

@ -1,7 +1,6 @@
(module plugins.galaxyline (module plugins.galaxyline
{require {a aniseed.core {require {a aniseed.core
str aniseed.string str aniseed.string
fennel aniseed.fennel
nvim aniseed.nvim nvim aniseed.nvim
utils utils utils utils
colors colors colors colors

6
nvim/.config/nvim/fnl/smart-compe-conjure.fnl
View file

@ -2,7 +2,7 @@
{require {utils utils {require {utils utils
a aniseed.core a aniseed.core
str aniseed.string str aniseed.string
fennel aniseed.fennel view aniseed.view
popup popup popup popup
compe compe compe compe
help help-thingy} help help-thingy}
@ -23,7 +23,7 @@
(set my_source.abort fuck.abort) (set my_source.abort fuck.abort)
(set my_source.documentation (set my_source.documentation
(fn [self args] (fn [self args]
(a.println (fennel.view args)) (a.println (view.serialise args))
(args.callback (args.callback
(let [help-tag (help.find-help-tag-for args.completed_item.word)] (let [help-tag (help.find-help-tag-for args.completed_item.word)]
(when help-tag (when help-tag
@ -59,5 +59,3 @@
;(print (fennel.view compe))

6
nvim/.config/nvim/fnl/utils.fnl
View file

@ -71,7 +71,11 @@
(defn safe-require [name] (defn safe-require [name]
(xpcall (xpcall
#(require name) #(
;do
;(print name)
;(time
(require name))
#(a.println (.. "Error sourcing " name ":\n" (fennel.traceback $1))))) #(a.println (.. "Error sourcing " name ":\n" (fennel.traceback $1)))))