More stuff

This commit is contained in:
Nate Anderson
2025-03-28 14:56:16 -06:00
parent 2b5cba96ec
commit 89dccfb79e
2 changed files with 558 additions and 57 deletions
+169 -57
View File
@@ -11,7 +11,15 @@
(require 'use-package)
(setq use-package-always-ensure t) ;; Auto-install packages
;; Bell Settings
;; autosave everything!!
(use-package super-save
:config
(super-save-mode +1))
;;
;; UI enhancements
;;
(setq ring-bell-function 'ignore)
(setq visible-bell t)
@@ -19,7 +27,7 @@
(set-face-attribute 'default nil
:family "Hurmit Nerd Font Mono"
:foundry "PfEd"
:height 120
:height 140
:background "#000000"
:foreground "#ffffff")
@@ -32,59 +40,72 @@
(scroll-bar-mode -1)
(global-display-line-numbers-mode 1)
(use-package super-save
:ensure t
(use-package beacon
:defer 2
:config
(super-save-mode +1))
(beacon-mode 1))
;; magit
(use-package magit
:ensure t)
;; Packages with deferred loading
(use-package helm
:defer 1
:bind (("M-x" . helm-M-x)
("C-c h" . helm-command-prefix))
(use-package dashboard
:config
(global-unset-key (kbd "C-x c"))
(define-key helm-map (kbd "<tab>") 'helm-execute-persistent-action)
(define-key helm-map (kbd "C-i") 'helm-execute-persistent-action)
(define-key helm-map (kbd "C-z") 'helm-select-action)
(when (executable-find "curl")
(setq helm-google-suggest-use-curl-p t))
(setq helm-split-window-in-side-p t
helm-move-to-line-cycle-in-source t
helm-ff-search-library-in-sexp t
helm-scroll-amount 8
helm-ff-file-name-history-use-recentf t
helm-echo-input-in-header-line t
helm-autoresize-max-height 0
helm-autoresize-min-height 20)
(helm-autoresize-mode 1)
(helm-mode 1))
(dashboard-setup-startup-hook)
(use-package catppuccin-theme
:config
(setq catppuccin-flavor 'macchiato)
(load-theme 'catppuccin t)
(add-hook 'after-init-hook (lambda () (run-with-timer 0.5 nil #'catppuccin-reload))))
(use-package which-key
:defer 1
:config
(setq which-key-idle-delay 0.01
which-key-idle-secondary-delay 0.01)
(which-key-setup-side-window-right-bottom)
(which-key-mode))
(setq dashboard-projects-backend 'projectile)
(setq dashboard-items '((recents . 5)
(bookmarks . 5)
(projects . 5)
(agenda . 5)
(registers . 5)))
;; (use-package nerd-icons)
;; (setq dashboard-display-icons-p t) ; display icons on both GUI and terminal
;; (setq dashboard-icon-type 'nerd-icons) ; use `nerd-icons' package
;; (setq dashboard-set-heading-icons t)
;; (setq dashboard-set-file-icons t)
(use-package page-break-lines))
(use-package git-gutter
:defer 2
:config
(global-git-gutter-mode +1))
(use-package catppuccin-theme
:config
(setq catppuccin-flavor 'macchiato)
(load-theme 'catppuccin t)
(add-hook 'after-init-hook (lambda () (run-with-timer 0.5 nil #'catppuccin-reload)))
)
(use-package which-key
:defer 1
:config
(setq which-key-idle-delay 0
which-key-idle-secondary-delay 0)
(which-key-setup-side-window-right-bottom)
(which-key-mode))
;; cleaner modeline
(use-package mood-line
:config
(mood-line-mode)
;:custom ()
)
;;
;; MEOW!!
;;
(use-package meow
:config
;; Add selection back after using meow-save
(defun my/after-meow-save (&rest _args)
"Reactivate the selection after saving."
(let ((selection (meow--make-selection
'select
(region-beginning)
(region-end))))
(meow--select selection)))
(advice-add 'meow-save :after #'my/after-meow-save)
(advice-add 'meow-clipboard-save :after #'my/after-meow-save)
(defvar meow-lsp-keymap
(let ((keymap (make-sparse-keymap)))
(define-key keymap (kbd "d") #'xref-find-definitions)
@@ -119,10 +140,11 @@
'("8" . meow-digit-argument)
'("9" . meow-digit-argument)
'("0" . meow-digit-argument)
'("/" . helm-do-grep-ag)
'("/" . projectile-ripgrep)
'("a" . eglot-code-actions)
'("b" . helm-mini)
'("f" . helm-find-files))
'("f" . projectile-find-file)
'("d" . helm-find-files))
(meow-normal-define-key
'("0" . meow-expand-0)
'("1" . meow-expand-1)
@@ -142,6 +164,9 @@
'("[" . meow-beginning-of-thing)
'("]" . meow-end-of-thing)
'("/" . meow-visit)
'(">" . meow-indent)
'("<" . meow-indent)
'("%" . mark-whole-buffer)
'("a" . meow-append)
'("A" . meow-open-below)
'("b" . meow-back-word)
@@ -185,29 +210,112 @@
'("." . repeat)
'("~" . upcase-region)
'("`" . downcase-region)
'("<up>" . windmove-up)
'("<down>" . windmove-down)
'("<left>" . windmove-left)
'("<right>" . windmove-right)
'("<escape>" . ignore)))
(meow-setup)
(meow-global-mode 1))
;; Lazy load other packages that are only needed for specific file types
(use-package markdown-mode :defer t)
(use-package go-mode :defer t)
;; (use-package cider :defer t)
(use-package eglot :defer t)
(add-hook 'go-mode-hook 'eglot-ensure)
;;
;; Other goodies
;;
(use-package magit
:defer t)
(use-package projectile
:defer t
:config
(use-package helm
:defer t
:bind (("M-x" . helm-M-x)
("C-c h" . helm-command-prefix))
:config
(global-unset-key (kbd "C-x c"))
(define-key helm-map (kbd "<tab>") 'helm-execute-persistent-action)
(define-key helm-map (kbd "C-i") 'helm-execute-persistent-action)
(define-key helm-map (kbd "C-z") 'helm-select-action)
(when (executable-find "curl")
(setq helm-google-suggest-use-curl-p t))
(setq helm-split-window-in-side-p t
helm-move-to-line-cycle-in-source t
helm-ff-search-library-in-sexp t
helm-scroll-amount 8
helm-ff-file-name-history-use-recentf t
helm-echo-input-in-header-line t
helm-autoresize-max-height 0
helm-autoresize-min-height 20)
(helm-autoresize-mode 1)
(helm-mode 1))
(use-package helm-projectile
:defer t)
(use-package helm-rg
:defer t)
(use-package ripgrep
:defer t)
)
;;
;; LSP
;;
(use-package eglot
:defer t
:hook (prog-mode . eglot-ensure) ; hook eglot for any programming-mode-derived mode
)
;; If using Company (recommended)
(use-package company
:ensure t
:defer t
:hook (eglot-managed-mode . company-mode)
:config
(setq company-idle-delay 0.1
company-minimum-prefix-length 1))
;; Coding Specific
(use-package yaml-mode
:defer t)
(use-package markdown-mode
:defer t)
(use-package go-mode
:defer t)
(use-package dockerfile-mode
:defer t)
(use-package docker-compose-mode
:defer t)
(use-package cider
:defer t)
(use-package rainbow-delimiters
:hook (prog-mode . rainbow-delimiters-mode)
:defer t)
(use-package hl-todo
:hook (prog-mode . hl-todo-mode)
:config
(setq hl-todo-keyword-faces
'(("TODO" . "#FF0000")
("FIXME" . "#FF0000")
("DEBUG" . "#A020F0")
("GOTCHA" . "#FF4500")
("STUB" . "#1E90FF"))))
;; Optionally, measure startup time
;; LLM
(use-package gptel
:defer t
:config
(setq
gptel-model 'claude-3-5-haiku-20241022
gptel-backend (gptel-make-anthropic "Claude"
:stream t :key gptel-api-key)))
;; vterm
(use-package vterm
:defer t)
;;
;; Startup
;;
(add-hook 'emacs-startup-hook
(lambda ()
(message "Emacs loaded in %s seconds"
@@ -218,11 +326,15 @@
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(package-selected-packages
'(magit super-save company which-key use-package-hydra meow markdown-mode helm go-mode git-gutter eglot-inactive-regions cider catppuccin-theme)))
'(beacon catppuccin-theme cider company dashboard docker-compose-mode
dockerfile-mode eglot-inactive-regions git-gutter go-mode
gptel helm-projectile helm-rg hl-todo magit markdown-mode
meow mood-line nerd-icons page-break-lines
rainbow-delimiters ripgrep super-save use-package-hydra
vterm which-key yaml-mode)))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
)
(put 'downcase-region 'disabled nil)