fixup

2 files changed, 38 insertions, 57 deletions

diff --git a/mut/neovim/fnl/conf/init.fnl b/mut/neovim/fnl/conf/init.fnl
index 8850bac..68cc26e 100644
--- a/mut/neovim/fnl/conf/init.fnl
+++ b/mut/neovim/fnl/conf/init.fnl
@@ -25,7 +25,10 @@
   (map :n :<leader>q<BS> ":cclose<cr>")
   (map :n :<leader>ll ":lopen<cr>")
   (map :n :<leader>l<BS> ":lclose<cr>")
+  (map :n :<M-space> ":cprev<cr>")
   (map :n :<C-space> ":cnext<cr>")
+  (map :n :<C-x> ":Compile ")
+  (map :n :<C-e> ":Recompile<CR>")
   (map :n "[q" ":cprevious<cr>")
   (map :n "]q" ":cnext<cr>")
   (map :n "[x" ":lprevious<cr>")
@@ -37,6 +40,7 @@
   (map :n "<leader>;" ":silent grep ")
   (map :n :<leader>xb #(builtin.buffers { :sort_mru true :ignore_current_buffer true})))
 
+
 ;; I like to use the qf to run a lot of stuff that prints junk
 ;; Here I just check if ansi control stuff is printed and reparse the lines with efm
 (local qf
@@ -66,30 +70,43 @@
                               (prettify l))))
            (vim.fn.setqflist [] :a {: id : title : lines}))))
 
+(var last_job nil)
 (local job
        (fn [cmd]
          (local title (table.concat cmd " "))
          (vim.fn.setqflist [] " " {: title})
          (local add2qf (qf (vim.fn.getqflist {:id 0 :title 1})))
-         (vim.fn.jobstart
-          cmd
-          {:on_stdout (fn [id data]
-                        (if data
-                            (add2qf data)))
-           :on_stderr (fn [id data]
-                        (if data
-                            (add2qf data)))
-           :on_exit (fn [id rc]
-                      (if (= rc 0)
-                          (vim.cmd ":cope")))})))
+         (set
+           last_job
+           {: cmd
+            :id (vim.fn.jobstart
+                 cmd
+                 {:on_stdout (fn [id data]
+                               (if data
+                                   (add2qf data)))
+                  :on_stderr (fn [id data]
+                               (if data
+                                   (add2qf data)))
+                  :on_exit (fn [id rc]
+                             (if (= rc 0)
+                                 (vim.cmd ":cope")))})})))
 
-(var last_job nil)
-(vim.api.nvim_create_user_command :Compile (fn [cmd]
-                                             (set last_job cmd.fargs)
-                                             (job cmd.fargs))
-                                  {:nargs :* :bang true})
-(vim.api.nvim_create_user_command :Recompile (fn []
-                                               (if (not= nil last_job)
-                                                   (job last_job)
-                                                   (vim.notify "nothing to recompile")))
-                                  {:bang true})
+(vim.api.nvim_create_user_command
+  :Compile
+  (fn [cmd]
+    (job cmd.fargs))
+  {:nargs :* :bang true :complete :shellcmd})
+(vim.api.nvim_create_user_command
+  :Recompile
+  (fn []
+    (if (not= nil last_job)
+        (job last_job)
+        (vim.notify "nothing to recompile")))
+  {:bang true})
+(vim.api.nvim_create_user_command
+  :Abort
+  (fn []
+    (if (not= nil last_job)
+        (vim.fn.jobstop last_job.id))
+    (vim.notify "killed job"))
+  {:bang true})
diff --git a/mut/neovim/fnl/conf/newtab/init.fnl b/mut/neovim/fnl/conf/newtab/init.fnl
deleted file mode 100644
index fbf8e18..0000000
--- a/mut/neovim/fnl/conf/newtab/init.fnl
+++ /dev/null
@@ -1,36 +0,0 @@
-(local pickers (require :telescope.pickers))
-(local finders (require :telescope.finders))
-(local conf (. (require :telescope.config) :values))
-(local themes (require :telescope.themes))
-(local actions (require :telescope.actions))
-(local action_state (require :telescope.actions.state))
-
-(fn colors [opts]
-  (local opts (if opts opts {}))
-  (local finder
-         (pickers.new opts
-                      {:prompt_title :colors
-                       :finder (finders.new_oneshot_job [:fd
-                                                         :-d1
-                                                         "."
-                                                         (os.getenv :HOME)
-                                                         (.. (os.getenv :HOME)
-                                                             :/projects)]
-                                                        {})
-                       :attach_mappings (fn [prompt_buf map]
-                                          (actions.select_default:replace (fn []
-                                                                            (actions.close prompt_buf)
-                                                                            (local selection
-                                                                                   (action_state.get_selected_entry))
-                                                                            (vim.cmd (.. :tabnew
-                                                                                         (. selection
-                                                                                            1)))
-                                                                            (vim.cmd (.. :tc
-                                                                                         (. selection
-                                                                                            1))))))
-                       :sorter (conf.generic_sorter opts)}))
-  (finder:find))
-
-(vim.api.nvim_create_user_command :NewTab (fn [] (colors (themes.get_ivy))) {})
-
-(vim.api.nvim_create_user_command :Colors colors {})