This commit is contained in:
elkowar 2021-05-17 20:25:40 +02:00
parent 242333ceb7
commit 351ba8bf77
No known key found for this signature in database
GPG key ID: E321AD71B1D1F27F
6 changed files with 12 additions and 17 deletions

View file

@ -3,13 +3,13 @@
nvim aniseed.nvim nvim aniseed.nvim
a aniseed.core a aniseed.core
str aniseed.string str aniseed.string
fennel aniseed.fennel
colors colors colors colors
gehzu nvim-gehzu} gehzu nvim-gehzu}
require-macros [macros]}) require-macros [macros]})
(macro make-errors-epic [f] (macro make-errors-epic [f]
`(xpcall #,f #(a.println (fennel.traceback $1)))) `(xpcall #,f #(let [fennel# (require :aniseed.fennel)]
(a.println (fennel#.traceback $1)))))
(when (vim.fn.has "termguicolors") (when (vim.fn.has "termguicolors")
(se termguicolors true)) (se termguicolors true))

View file

@ -67,7 +67,8 @@
block (. args (+ i 1))] block (. args (+ i 1))]
(a.assoc block 1 name) (a.assoc block 1 name)
(when (. block :mod) (when (. block :mod)
(a.assoc block :config `#((. (require "utils") :safe-require) ,(. block :mod)))) ;(a.assoc block :config `#((. (require "utils") :safe-require) ,(. block :mod)))
(a.assoc block :config `#(require ,(. block :mod))))
(a.assoc block :mod) (a.assoc block :mod)
(table.insert use-statements block))) (table.insert use-statements block)))

View file

@ -1,6 +1,7 @@
(module plugins (module plugins
{require-macros [macros]}) {require-macros [macros]})
(packer-use (packer-use
"/home/leon/coding/projects/nvim-gehzu" {} "/home/leon/coding/projects/nvim-gehzu" {}
:elkowar/kmonad.vim {} :elkowar/kmonad.vim {}

View file

@ -1,7 +0,0 @@
(module utils
{autoload {a aniseed.core
fennel aniseed.fennel
nvim aniseed.nvim
str aniseed.string}
require-macros [macros]})

View file

@ -1,6 +1,5 @@
(module utils (module utils
{autoload {a aniseed.core {autoload {a aniseed.core
fennel aniseed.fennel
nvim aniseed.nvim nvim aniseed.nvim
str aniseed.string} str aniseed.string}
require-macros [macros]}) require-macros [macros]})
@ -76,7 +75,8 @@
;(print name) ;(print name)
;(time ;(time
(require name)) (require name))
#(a.println (.. "Error sourcing " name ":\n" (fennel.traceback $1))))) #(let [fennel (require :aniseed.fennel)]
(a.println (.. "Error sourcing " name ":\n" (fennel.traceback $1))))))
(defn buffer-content [bufnr] (defn buffer-content [bufnr]