2 changed files with 36 additions and 146 deletions
--- a/.gitignore
+++ b/.gitignore
@ -1,5 +1,2 @@
 /etc/
 /var/
-/eln-cache/
-/elpa/
-/tree-sitter/    
--- a/init.el
+++ b/init.el
@ -7,7 +7,7 @@

 ;; Use melpa
 (require 'package)
-(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
+(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
 (package-initialize)

 ;; Ensure use-package is installed
@ -33,21 +33,14 @@

 ;; basic stuff
 (use-package emacs
-  :hook ((emacs-lisp-mode . my/-emacs-lisp-mode-setup-evil-lookup)
-         (prog-mode . my/enable-electric-pair-mode))
+  :hook (emacs-lisp-mode . (lambda ()
+      (setq-local evil-lookup-func
+            #'my/describe-symbol-at-point)))
  :init
-  (defun my/-emacs-lisp-mode-setup-evil-lookup ()
-    (setq-local evil-lookup-func
-                #'my/describe-symbol-at-point))
-  (defun my/enable-electric-pair-mode ()
-    (electric-pair-local-mode 1))
  (defun my/describe-symbol-at-point ()
    "Calls `describe-symbol' on the return value of `form-at-point'."
    (interactive)
-    (let ((form (form-at-point)))
-      (if (consp form)
-          (describe-symbol (cadr form))
-        (describe-symbol form))))
+    (describe-symbol (form-at-point)))

  ;; Make show paren instant
  (setq show-paren-delay 0)
@ -65,8 +58,9 @@
  ;; Disable startup screen
  (setq inhibit-startup-screen t)

-  ;; show column numbers
-  (column-number-mode 1)
+  ;; rainbow-delimiters
+  (use-package rainbow-delimiters
+    :hook (prog-mode . rainbow-delimiters-mode))

  ;; Disable the menu and tool bars
  (menu-bar-mode -1)
@ -78,24 +72,10 @@
  ;; Set fonts
  (add-to-list 'default-frame-alist '(font . "FiraCode Nerd Font Mono-12"))

-  ;; Some settings for programming
-  (setq-default indent-tabs-mode nil
-		        tab-width 4
-                c-basic-offset 4
-                indent-line-function 'insert-tab)
-
  ;; Tree sitter download locations
  (setq treesit-language-source-alist
-        '((c "https://github.com/tree-sitter/tree-sitter-c")
-          (cpp "https://github.com/tree-sitter/tree-sitter-cpp")
-          (java "https://github.com/tree-sitter/tree-sitter-java")
-          (python "https://github.com/tree-sitter/tree-sitter-python")
-          (rust "https://github.com/tree-sitter/tree-sitter-rust")))
-  ;; Tree sitter major mode conversions
-  (setq major-mode-remap-alist
-        '((c-mode . c-ts-mode)
-          (java-mode . java-ts-mode)
-          (rust-mode . rust-ts-mode))))
+  '((c "https://github.com/tree-sitter/tree-sitter-c")
+    (cpp "https://github.com/tree-sitter/tree-sitter-cpp"))))

 (use-package recentf
  :config
@ -130,21 +110,16 @@

 ;; avy
 (use-package avy
-  :bind (("C-c C-j" . avy-resume)
-         ("M-s s" . evil-avy-goto-char-2)
-         ("M-s S" . evil-avy-goto-line))
+  :bind ("C-c C-j" . avy-resume)
  :init
  (define-minor-mode my/evil-avy-mode
-    "A minor mode for binding avy commands to s and S in evil's normal and
-visual states."
+    "Minor mode to define avy motions for evil"
+    :global t
    :keymap (make-sparse-keymap))
  (evil-define-key '(normal visual operator motion) my/evil-avy-mode-map
                   "s" #'evil-avy-goto-char-2
                   "S" #'evil-avy-goto-line)
-  (define-globalized-minor-mode my/evil-avy-global-mode my/evil-avy-mode
-    (lambda () (my/evil-avy-mode 1))
-    :predicate '((not magit-mode dired-mode proced-mode) t))
-  (my/evil-avy-global-mode 1)
+  (my/evil-avy-mode 1)
  :config
  (avy-setup-default))

@ -164,12 +139,9 @@ visual states."
 ;; vertico
 (use-package vertico
  :bind (:map vertico-map
-              ("C-S-k" . kill-line)
-              ("C-k" . vertico-previous)
-              ("C-j" . vertico-next)
-              ("RET" . vertico-directory-enter)
-              ("DEL" . vertico-directory-delete-char)
-              ("M-DEL" . vertico-directory-delete-word))
+         ("C-S-k" . kill-line)
+         ("C-k" . vertico-previous)
+         ("C-j" . vertico-next))
  :init
  (setq vertico-cycle t
        enable-recursive-minibuffers t
@ -183,10 +155,7 @@ visual states."
 ;; orderless
 (use-package orderless
  :autoload orderless-define-completion-style
-  :hook (text-mode . my/-setup-text-mode-completion-styles)
  :init
-  (defun my/-setup-text-mode-completion-styles ()
-    (setq-local completion-styles '(basic)))
  (orderless-define-completion-style my/orderless-with-initialism
    (orderless-matching-styles '(orderless-initialism
                                 orderless-literal
@ -194,11 +163,9 @@ visual states."
  (setq completion-styles '(orderless basic)
        completion-category-defaults nil
        completion-category-overrides '((file
-                                         (styles basic partial-completion))
+                                          (styles basic partial-completion))
                                        (command
-                                         (my/orderless-with-initialism basic))
-                                        (eglot
-                                         (orderless basic)))))
+                                          (my/orderless-with-initialism basic)))))

 ;; marginalia
 (use-package marginalia
@ -209,14 +176,9 @@ visual states."

 ;; embark
 (use-package embark
-  :bind (("C-." . embark-act)
-	 ("C-;" . embark-dwim))
-  :init
-  (setq embark-quit-after-action nil)
-  (add-to-list 'display-buffer-alist
-             '("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
-               nil
-               (window-parameters (mode-line-format . none)))))
+  :bind (("M-e" . embark-act)
+         :map minibuffer-local-map
+         ("M-E" . embark-collect)))

 ;; consult
 (use-package consult
@ -231,9 +193,8 @@ visual states."
         ("C-x c f" . consult-focus-lines)
         ("C-x c r" . consult-recent-file)
         ("C-x c b" . consult-bookmark)
-         ("M-g i" . consult-imenu)
-         ("M-g I" . consult-imenu-multi)
-         ("M-g r" . consult-imenu-multi))
+         :map flymake-mode-map
+         ("C-c e" . consult-flymake))
  :init
  (defun my/consult-emacs-info ()
    "`consult-info' for emacs specific pages."
@ -247,39 +208,13 @@ visual states."

 ;; corfu (autocomplete)
 (use-package corfu
-  :bind (("M-<tab>" . completion-at-point)
-         :map corfu-map
-         ("M-SPC" . corfu-insert-separator)
-         ("M-m" . my/corfu-move-to-minibuffer))
+  :bind ("M-<tab>" . corfu-complete)
  :init
-  (defun my/corfu-move-to-minibuffer ()
-    (interactive)
-    (when completion-in-region--data
-      (let ((completion-extra-properties corfu--extra)
-            completion-cycle-threshold completion-cycling)
-        (apply #'consult-completion-in-region completion-in-region--data))))
  (setq corfu-cycle t
-        corfu-auto t
-        corfu-on-exact-match nil
-        completion-cycle-threshold 3)
-  (global-corfu-mode 1)
-  (corfu-popupinfo-mode 1)
-  :config
-  (add-to-list 'corfu-continue-commands #'corfu-move-to-minibuffer))
-(use-package corfu-terminal
-  :init
-  (corfu-terminal-mode 1))
-
-;; cape (a bunch of capfs!)
-(use-package cape
-  :bind (("M-p" . cape-dabbrev)
-         ("M-P" . cape-line))
-  :hook (text-mode . my/-cape-setup-text-mode)
-  :init
-  (defun my/-cape-setup-text-mode ()
-    (setq-local completion-at-point-functions
-                '(cape-dict cape-dabbrev)))
-  (add-to-list 'completion-at-point-functions #'cape-file))
+  corfu-auto t
+  corfu-on-exact-match nil
+  completion-cycle-threshold 3)
+  (global-corfu-mode 1))

 ;; xref
 (use-package xref
@ -291,24 +226,8 @@ visual states."

 ;; flymake
 (use-package flymake
-  :bind (:map flymake-mode-map
-              ("C-c e" . my/flymake-show-diagnostic-at-point)
-              ("C-c E" . consult-flymake))
-  :hook (emacs-lisp-mode . my/enable-flymake-mode)
  :init
-  (defun my/flymake-show-diagnostic-at-point ()
-    (interactive)
-    (if-let ((pos (point))
-             (diag (and flymake-mode
-                        (get-char-property pos 'flymake-diagnostic)))
-             (message (flymake--diag-text diag)))
-        (progn
-          ;; show the frame
-          )))
-  (defun my/-flymake-show-diagnostic-hide-frame ()
-    (make-frame-invisible my/-flymake-show-diagnostic-frame))
-  (defun my/enable-flymake-mode ()
-    (flymake-mode 1)))
+  (flymake-mode 1))

 ;; eldoc
 (use-package eldoc
@ -316,36 +235,19 @@ visual states."
  :init
  (set eldoc-echo-area-use-multiline-p nil))

-;; eglot
-(use-package eglot
-  :hook (((c-ts-mode c++-ts-mode java-ts-mode rust-ts-mode
-           python-ts-mode) . eglot-ensure)
-         (eglot-managed-mode . my/-eglot-setup-eldoc))
-  :init
-  (defun my/-eglot-setup-eldoc ()
-    "Setup eldoc variables for `eglot-managed-mode-hook'."
-    (setq-local eldoc-echo-area-use-multiline-p
-                nil))
-  (advice-add 'eglot-completion-at-point :around #'cape-wrap-buster)
-  (setq eglot-autoshutdown t
-        eglot-ignored-server-capabilities '(:inlayHintProvider)))
-
-;; rust
-(use-package rust-mode)
-
-;; json
-(use-package json-mode)
-
 ;; vterm
 (use-package vterm
-  :bind ("C-x C-a" . vterm))
+  :bind ("M-RET" . vterm))

 ;; proced
 (use-package proced
  :bind ("C-x o" . proced)
  :init
+  (evil-define-key '(normal visual motion) proced-mode-map
+                   "zf" #'proced-filter-interactive
+                   "zF" #'proced-format-interactive)
  (setq proced-auto-update-flag t
-        proced-auto-update-interval 1))
+	proced-auto-update-interval 1))

 ;; dired
 (use-package dired
@ -359,16 +261,7 @@ visual states."
                   "U" #'dired-unmark-all-marks))

 ;; magit
-(use-package magit
-  :bind ("C-x C-m" . magit)
-  :init
-  (evil-define-key '(normal visual motion) magit-mode-map
-                   "s" #'magit-stage-file
-                   "S" #'magit-stage-modified))
-
-;; rainbow-delimiters
-(use-package rainbow-delimiters
-  :hook (prog-mode . rainbow-delimiters-mode))
+(use-package magit)

 ;; Theme (doom-themes)
 (use-package doom-themes