add a bunch of emacs packages HELP

1 files changed, 634 insertions, 0 deletions

diff --git a/.config/emacs/archive/oldinit.el b/.config/emacs/archive/oldinit.el
new file mode 100644
index 0000000..4c7fe6b
--- /dev/null
+++ b/.config/emacs/archive/oldinit.el
@@ -0,0 +1,634 @@
+;; initialize package.el
+(require 'package)
+(setq package-archives
+      '(("org" . "https://orgmode.org/elpa/")
+    	("gnu" . "https://elpa.gnu.org/packages/")
+    	("melpa" . "https://melpa.org/packages/")
+		("nongnu" . "https://elpa.nongnu.org/nongnu/")))
+(setq package-archive-priorities
+	  '(("gnu" . 10)))
+(package-initialize)
+
+(unless package-archive-contents
+  (package-refresh-contents))
+
+;; ensure by default, use ensure nil when built in
+(setq use-package-always-ensure t)
+
+;; == custom lisp
+(add-to-list 'load-path (concat (getenv "HOME") "/.config/emacs/lisp"))
+
+;; == greener emacs
+(use-package no-littering
+  :ensure nil ;; it's in lisp folder
+  :demand t)
+
+;; garbage collection improvement
+(defun my-minibuffer-setup-hook ()
+  (setq gc-cons-threshold most-positive-fixnum))
+(defun my-minibuffer-exit-hook ()
+  (setq gc-cons-threshold 800000000))
+(add-hook 'minibuffer-setup-hook #'my-minibuffer-setup-hook)
+(add-hook 'minibuffer-exit-hook #'my-minibuffer-exit-hook)
+(defun gc-idle-timer ()
+  "Trigger garbage collection when Emacs is idle for 0.5 seconds."
+  (run-with-idle-timer 1.2 t 'garbage-collect))
+(gc-idle-timer)
+
+;; diminish
+(use-package diminish
+  :diminish auto-revert-mode
+  :demand t)
+
+;; disable custom file, allow themes to be loaded without marking them safe
+(setq custom-file null-device)
+(setq custom-safe-themes t)
+
+;; no lockfiles
+(setq create-lockfiles nil)
+
+;; backups in one folder
+(setq backup-directory-alist
+      `((".*" . ,temporary-file-directory)))
+(setq auto-save-file-name-transforms
+      `((".*" ,temporary-file-directory t)))
+
+;; == better meta behaviour
+(setq inhibit-startup-message t
+	  vc-follow-symlinks t
+	  use-short-answers t)
+(use-package saveplace
+  :ensure nil
+  :config
+  (save-place-mode))
+
+;; improved C-g dwim
+(defun my-keyboard-quit ()
+  "Smart C-g: exits evil mode, closes minibuffer, or behaves normally."
+  (interactive)
+  (if (and (bound-and-true-p evil-local-mode) (not (evil-normal-state-p)))
+	  (evil-force-normal-state)
+	(if (active-minibuffer-window)
+		(if (minibufferp)
+			(minibuffer-keyboard-quit)
+		  (abort-recursive-edit))
+	  (keyboard-quit))))
+(global-set-key (kbd "C-g") #'my-keyboard-quit)
+
+;; == ui
+
+;; disable bs
+(scroll-bar-mode -1)
+(tool-bar-mode -1)
+(tooltip-mode -1)
+(menu-bar-mode -1)
+
+;; columns and truncation
+(column-number-mode +1)
+(setq-default fill-column 80)
+(setq-default truncate-lines t)
+
+;; line numbers in prog mode
+(defun my/prog-mode-hook ()
+  (display-line-numbers-mode t)
+  (setq display-line-numbers-width-start t
+		display-line-numbers-type t))
+(add-hook 'prog-mode-hook 'my/prog-mode-hook)
+
+;; rainbow delimiters
+(use-package rainbow-delimiters
+  :diminish
+  :hook (prog-mode . rainbow-delimiters-mode))
+
+;; ansi color in compilation
+(use-package ansi-color
+  :hook (compilation-filter . ansi-color-compilation-filter))
+
+;; == text editing and navigation
+
+;; tabs
+(setq-default tab-width 4)
+(setq backward-delete-char-untabify-method "hungry")
+
+;; scrolling
+(setq scroll-up-aggressively nil
+      scroll-down-aggressively nil
+      scroll-conservatively 101)
+(setq scroll-step 1)
+(setq scroll-margin 8)
+
+;; electric pairs
+;; (electric-pair-mode +1)
+
+;; some binds
+(global-set-key (kbd "C-c f") 'ff-find-other-file)
+(global-set-key (kbd "C-c c") 'recompile)
+(global-set-key (kbd "C-<return>") 'browse-url-xdg-open)
+
+;; better commenting
+(use-package evil-nerd-commenter
+  :bind ("M-;" . evilnc-comment-or-uncomment-lines))
+
+;; == dired
+(use-package dired
+  :ensure nil
+  :commands (dired)
+  :hook
+  ((dired-mode . dired-hide-details-mode)
+   (dired-mode . hl-line-mode))
+  :config
+  (setq dired-recursive-copies 'always)
+  (setq dired-recursive-deletes 'always)
+  (setq dired-dwim-target t)
+  (setq dired-kill-when-opening-new-dired-buffer t)
+  (setq dired-listing-switches "-alh --group-directories-first"))
+
+(use-package dired-subtree
+  :after dired
+  :bind
+  ( :map dired-mode-map
+    ("<tab>" . dired-subtree-toggle)
+    ("TAB" . dired-subtree-toggle)
+    ("<backtab>" . dired-subtree-remove)
+    ("S-TAB" . dired-subtree-remove))
+  :config
+  (setq dired-subtree-use-backgrounds nil))
+
+;; == evil
+(use-package evil
+  :demand t
+  :init
+  (setq evil-want-keybinding nil)
+  :config
+  (evil-mode)
+  :custom
+  (evil-want-C-u-scroll t)
+  (evil-undo-system 'undo-redo)
+  (evil-move-beyond-eol nil)
+  :bind
+  ( :map evil-insert-state-map
+	("C-d" . evil-delete-char))
+  ( :map evil-motion-state-map
+	("C-e" . nil)))
+
+(use-package evil-collection
+  :after evil
+  :diminish evil-collection-unimpaired-mode
+  :config
+  (evil-collection-init))
+
+(use-package evil-paste-indent
+  :diminish
+  :vc (:url "https://github.com/Schievel1/evil-paste-indent"
+			:rev :newest)
+  :config (global-evil-paste-indent-mode t))
+
+;; == style
+;; theme
+(use-package doom-themes
+  :demand t
+  :config
+  (load-theme 'doom-one))
+
+;; font
+(add-to-list 'default-frame-alist '(font . "Fantasque Sans Mono-12"))
+
+;; (use-package dracula-theme
+;;   :demand t
+;;   :config
+;;   (load-theme 'dracula)
+;;   (set-face-attribute 'show-paren-match nil :background "dark violet" :foreground "black"))
+;; (use-package ef-themes
+;;   :demand t
+;;   :config
+;;   (load-theme 'ef-bio))
+;; (use-package catppuccin-theme
+;;   :demand t
+;;   :config
+;;   (setq catppuccin-flavor 'mocha)
+;;   (load-theme 'catppuccin t))
+
+;; (load-theme `modus-vivendi)
+
+;; (use-package spacious-padding
+;;   :config
+;;   (setq spacious-padding-widths (plist-put spacious-padding-widths :internal-border-width 10))
+;;   (setq spacious-padding-widths (plist-put spacious-padding-widths :right-divider-width 10))
+;;   (spacious-padding-mode))
+
+;; (set-face-attribute 'mode-line nil
+;;                     :box nil
+;;                     :foreground "#9fefff"
+;;                     :background "black")
+;; (set-face-attribute 'mode-line-inactive nil
+;;                     :box nil
+;;                     :foreground "#5e8891"
+;;                     :background "black")
+
+;; (use-package doom-modeline
+;;   :config
+;;   (setq doom-modeline-modal nil
+;; 		doom-modeline-height 0)
+;;   (doom-modeline-mode))
+
+;; rainbow mode
+(use-package rainbow-mode
+  :diminish rainbow-mode
+  :hook (after-change-major-mode . rainbow-mode))
+
+;; == minibuffer completion
+(use-package vertico
+  :custom
+  (vertico-count 15)
+  :bind (:map vertico-map
+		("C-n" . vertico-next)
+		("C-p" . vertico-previous))
+  :init
+  (vertico-mode t))
+
+(use-package vertico-directory
+  :ensure nil
+  :after vertico
+  ;; More convenient directory navigation commands
+  :bind (:map vertico-map
+		("RET" . vertico-directory-enter)
+		("DEL" . vertico-directory-delete-char)
+		("M-DEL" . vertico-directory-delete-word)))
+
+(use-package marginalia
+  :bind (:map minibuffer-local-map
+			  ("M-A" . marginalia-cycle))
+
+  :init
+  (marginalia-mode))
+
+(use-package orderless
+  :init
+  (setq completion-styles '(orderless partial-completion basic)
+	  completion-category-defaults nil
+	  completion-category-overrides '((file (styles . (partial-completion))))))
+
+(use-package savehist
+  :ensure nil
+  :hook (after-init . savehist-mode))
+
+(use-package stillness-mode
+  :init
+  (stillness-mode))
+
+;; == effecient navigation
+
+;; consult
+(use-package consult
+  :custom
+  (consult-preview-key nil)
+  :bind (("M-l"   . 'consult-git-grep)  ;; Search inside a project
+		 ("M-y"   . 'consult-yank-pop)  ;; Paste by selecting the kill-ring
+		 ("M-s"   . 'consult-line)      ;; Search current buffer, like swiper
+		 ("C-c i" . 'consult-imenu)     ;; Search the imenu
+		 ))
+
+;; projectile
+(use-package rg)
+(use-package projectile
+  :after rg
+  :bind
+  (("C-c g" . projectile-ripgrep)
+   ("C-c v" . projectile-find-file)))
+
+;; == magit
+(use-package transient)
+(use-package magit
+  :after transient
+  :bind (("C-x g" . magit-status))
+  :custom
+  (magit-display-buffer-function #'magit-display-buffer-same-window-except-diff-v1))
+
+;; == helpful
+(use-package helpful
+  :bind
+  ([remap describe-command] . helpful-command)
+  ([remap describe-function] . helpful-callable)
+  ([remap describe-variable] . helpful-variable)
+  ([remap describe-key] . helpful-key))
+
+;; == flycheck
+;; (use-package flycheck)
+
+;; == editorconfig
+(editorconfig-mode 1)
+(add-hook 'prog-mode 'editorconfig-apply)
+
+;; == lsp
+;; (use-package lsp-mode
+;;   :custom
+;;   (lsp-keymap-prefix "C-c l")
+;;   (lsp-headerline-breadcrumb-enable nil)
+;;   (lsp-completion-enable-additional-text-edit nil)
+;;   (lsp-enable-on-type-formatting nil)
+;;   (lsp-enable-symbol-highlighting nil)
+;;   (lsp-completion-provider :none)
+;;   (lsp-idle-delay 0.1)
+;;   (lsp-enable-indentation nil)
+;;   :hook ((c++-mode . lsp-deferred)
+;; 		 (c-mode . lsp-deferred)
+;; 		 (typst-ts-mode . lsp-deferred)
+;; 		 (java-mode . lsp-deferred))
+;;   :commands lsp
+;;   :bind
+;;   (("C-c s" . lsp-signature-activate)))
+
+;; (use-package lsp-ui
+;;   :after lsp-mode
+;;   :commands lsp-ui-mode
+;;   :hook (lsp-mode . lsp-ui-mode)
+;;   :bind
+;;   (("C-c r" . lsp-ui-peek-find-references)
+;;    ("C-c d" . lsp-ui-peek-find-definitions)))
+
+;; lsp booster
+;; (setq read-process-output-max (* 1024 1024)) ;; 1mb
+;; (defun lsp-booster--advice-json-parse (old-fn &rest args)
+;;   "Try to parse bytecode instead of json."
+;;   (or
+;;    (when (equal (following-char) ?#)
+;;      (let ((bytecode (read (current-buffer))))
+;;        (when (byte-code-function-p bytecode)
+;;          (funcall bytecode))))
+;;    (apply old-fn args)))
+;; (advice-add (if (progn (require 'json)
+;;                        (fboundp 'json-parse-buffer))
+;;                 'json-parse-buffer
+;;               'json-read)
+;;             :around
+;;             #'lsp-booster--advice-json-parse)
+
+;; (defun lsp-booster--advice-final-command (old-fn cmd &optional test?)
+;;   "Prepend emacs-lsp-booster command to lsp CMD."
+;;   (let ((orig-result (funcall old-fn cmd test?)))
+;;     (if (and (not test?)                             ;; for check lsp-server-present?
+;;              (not (file-remote-p default-directory)) ;; see lsp-resolve-final-command, it would add extra shell wrapper
+;;              lsp-use-plists
+;;              (not (functionp 'json-rpc-connection))  ;; native json-rpc
+;;              (executable-find "emacs-lsp-booster"))
+;;         (progn
+;;           (when-let ((command-from-exec-path (executable-find (car orig-result))))  ;; resolve command from exec-path (in case not found in $PATH)
+;;             (setcar orig-result command-from-exec-path))
+;;           (message "Using emacs-lsp-booster for %s!" orig-result)
+;;           (cons "emacs-lsp-booster" orig-result))
+;;       orig-result)))
+;; (advice-add 'lsp-resolve-final-command :around #'lsp-booster--advice-final-command)
+
+;; == eglot
+(use-package eglot
+  :ensure nil
+  :bind
+  (("C-c l a" . eglot-code-actions))
+  (("C-c l r" . eglot-rename))
+  :hook
+  (eglot-managed-mode . (lambda () (setq-local eldoc-documentation-function 'eldoc-documentation-enthusiast)))
+  (eglot-mode-hook . flymake-mode)
+  :config
+  (add-to-list 'eglot-ignored-server-capabilities ':inlayHintProvider)
+  (add-to-list 'eglot-ignored-server-capabilities ':documentOnTypeFormattingProvider)
+  (add-to-list 'eglot-ignored-server-capabilities ':documentHighlightProvider)
+  (add-to-list 'eglot-server-programs
+			   '((c-ts-mode c++-ts-mode c-mode c++-mode)
+				 . ("clangd"
+					"-j=8"
+					"--log=error"
+					"--malloc-trim"
+					"--background-index"
+					"--completion-style=detailed"
+					"--pch-storage=memory"
+					"--header-insertion=never"
+					"--header-insertion-decorators=0")))
+  :custom
+  (eglot-send-changes-idle-time 0.1))
+
+(use-package eldoc
+  :ensure nil
+  :config
+  (setq-default eldoc-documentation-strategy 'eldoc-documentation-enthusiast)
+  (setq-default eldoc-minor-mode-string ""))
+
+(use-package sideline-flymake)
+(use-package sideline
+  :diminish
+  :hook
+  ((flymake-mode . sideline-mode))
+  :init
+  (setq sideline-backends-right '(sideline-flymake)
+		sideline-backends-right-skip-current-line nil
+		sideline-order-right 'up
+		sideline-priority 100))
+
+;; == dumb jump
+(use-package dumb-jump
+  :init
+  (add-hook 'xref-backend-functions #'dumb-jump-xref-activate)
+  (setq xref-show-definitions-function #'xref-show-definitions-completing-read))
+
+;; == text completion
+(use-package corfu
+  :bind
+  (:map corfu-map
+		("C-g" . corfu-quit))
+  :init
+  (add-hook 'corfu-mode-hook
+			(lambda ()
+			  ;; disable orderless
+			  (setq-local completion-styles '(basic)
+						  completion-category-overrides nil
+						  completion-category-defaults nil)))
+  (global-corfu-mode)
+  (corfu-history-mode))
+
+(use-package cape
+  :init
+  (add-hook 'completion-at-point-functions #'cape-dabbrev)
+  (add-hook 'completion-at-point-functions #'cape-file)
+  :config
+  (advice-add 'eglot-completion-at-point :around  #'cape-wrap-buster))
+  ;; (defun my/lsp-capf-busted ()
+  ;;   "Return an uncached LSP completion function."
+  ;;   (cape-capf-buster #'lsp-completion-at-point))
+  ;; (add-hook 'lsp-completion-mode-hook
+  ;;           (lambda ()
+  ;;             (setq-local completion-at-point-functions
+  ;;                         (list (my/lsp-capf-busted))))))
+
+(use-package completion-preview
+  :ensure nil
+  :diminish
+  :config
+  (global-completion-preview-mode)
+  (global-set-key (kbd "M-n") 'completion-preview-next-candidate)
+  (global-set-key (kbd "M-p") 'completion-preview-prev-candidate))
+
+;; == snippets
+(use-package yasnippet
+  :diminish yas-minor-mode yas-global-mode
+  :config
+  (yas-reload-all)
+  :hook
+  (prog-mode . yas-minor-mode)
+  :bind
+  (:map yas-keymap
+		("M-n" . yas-next-field)
+		("M-p" . yas-prev-field)
+		([(tab)] . nil)
+		("TAB" . nil)
+		("M-I" . nil))
+  (:map yas-minor-mode-map
+		("C-'". yas-expand)
+		([(tab)] . nil)
+		("TAB" . nil)
+		("M-I" . nil)))
+
+;; (use-package yasnippet
+;;   :bind
+;;   (:map yas-minor-mode-map
+;;         ("C-'". yas-expand)
+;;         ([(tab)] . nil)
+;;         ("TAB" . nil))
+;;   :config
+;;   (yas-reload-all)
+;;   (yas-global-mode t))
+
+(use-package yasnippet-snippets
+  :after yasnippet)
+
+;; == development environment
+(defun my/replace-master-vterm ()
+  (interactive)
+  (let* ((master-name "Master Terminal")
+		 (banished-base "Banished Terminal ")
+		 (master-buf (get-buffer master-name))
+		 (visible-win (and master-buf (get-buffer-window master-buf t))))
+	(when master-buf
+	  (with-current-buffer master-buf
+		(let ((n 1)
+			  new-name)
+		  (while (get-buffer (setq new-name (format "%s%d" banished-base n)))
+			(setq n (1+ n)))
+		  (rename-buffer new-name))))
+	(let ((buf (if visible-win
+                   (with-selected-window visible-win
+                     (vterm))
+                 (vterm-other-window))))
+	  (with-current-buffer buf
+		(rename-buffer master-name t)))))
+
+(defun my/switch-to-master-vterm-other-window ()
+  (interactive)
+  (let* ((master-name "Master Terminal")
+         (master-buf (get-buffer master-name))
+         (visible-win (and master-buf (get-buffer-window master-buf t))))
+    (cond
+     (visible-win
+      (select-window visible-win))
+     (master-buf
+      (switch-to-buffer-other-window master-buf))
+     (t
+      (let ((buf (vterm-other-window)))
+        (with-current-buffer buf
+          (rename-buffer master-name t)))))))
+
+(defun my/switch-to-master-vterm ()
+  (interactive)
+  (let* ((master-name "Master Terminal")
+         (master-buf (get-buffer master-name))
+         (visible-win (and master-buf (get-buffer-window master-buf t))))
+    (cond
+     (visible-win
+      (select-window visible-win))
+     (master-buf
+      (switch-to-buffer master-buf))
+     (t
+      (let ((buf (vterm)))
+        (with-current-buffer buf
+          (rename-buffer master-name t)))))))
+
+(use-package vterm
+  :bind ( ("C-c a" . my/switch-to-master-vterm-other-window)
+		  ("C-c C-a" . my/replace-master-vterm)
+		  :map vterm-mode-map
+		  ("C-c c" . vterm-copy-mode)
+		  ("C-l" . my-vterm-clear)
+		  :map vterm-copy-mode-map
+		  ("C-c c" . vterm-copy-mode))
+  :config
+  (defun my-vterm-clear ()
+	(interactive)
+	(vterm-send-key "l" nil nil t)
+	(vterm-clear-scrollback))
+  (defun my-vterm-copy-mode-evil-setup ()
+	"Enable evil only in vterm-copy-mode."
+	(if vterm-copy-mode
+		;; on enter
+		(progn
+		  (evil-local-mode 1)
+		  (evil-force-normal-state))
+	  ;; on exit
+	  (evil-local-mode -1)))
+  (defun my-vterm-setup ()
+	(when (bound-and-true-p evil-local-mode)
+	  (evil-local-mode -1))
+	(setq-local truncate-lines nil))
+  ;; disable evil
+  (with-eval-after-load 'evil
+	(evil-set-initial-state 'vterm-mode 'emacs))
+  (add-hook 'vterm-mode-hook #'my-vterm-setup)
+  (add-hook 'vterm-copy-mode-hook #'my-vterm-copy-mode-evil-setup))
+
+;; == languages
+;; (setq treesit-font-lock-level 4)
+;; (setq treesit-language-source-alist
+;; 	  '((cpp "https://github.com/tree-sitter/tree-sitter-cpp")
+;; 		(c "https://github.com/tree-sitter/tree-sitter-c")
+;;         (python "https://github.com/tree-sitter/tree-sitter-python")))
+;; (dolist (lang treesit-language-source-alist)
+;;   (unless (treesit-language-available-p (car lang))
+;; 	(treesit-install-language-grammar (car lang))))
+;; (setq treesit-load-name-override-list
+;;       '((c++ "libtree-sitter-cpp")))
+;; (setq major-mode-remap-alist '((c-mode . c-ts-mode)
+;;                                (c++-mode . c++-ts-mode)
+;;                                (python-mode . python-ts-mode)))
+
+;; === c mode
+(defun my-c-mode-common-hook ()
+  ;; my customizations for all of c-mode, c++-mode, objc-mode, java-mode
+  (setq c-default-style "k&r"
+	    c-basic-offset 4
+	    indent-tabs-mode t)
+  (c-set-offset 'arglist-intro '+)
+  (c-set-offset 'case-label '+)
+  (add-to-list 'c-offsets-alist '(arglist-close . c-lineup-close-paren)))
+(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
+
+;; === odin mode
+(use-package odin-mode
+  :vc (:url "https://github.com/mattt-b/odin-mode"
+			:rev :newest))
+
+;; === markdown
+(add-hook 'markdown-mode-hook #'auto-fill-mode)
+
+;; == proj
+(require 'proj)
+(setq
+ proj-locations '(("~/development/" . 1) ("~/opt/" . 1) ("~/classes/" . 2) ("~/dotfiles/" . 0) ("~/dotfiles/.config/emacs/lisp/" . 1))
+ proj-grep-function 'consult-ripgrep)
+
+(global-set-key (kbd "C-x b") `proj-switch-to-buffer)
+(global-set-key (kbd "C-c b") `switch-to-buffer)
+
+(global-set-key (kbd "C-x k") `proj-kill-buffer)
+(global-set-key (kbd "C-c k") `kill-buffer)
+
+
+;; == toggle-window
+(require 'toggle-window)
+(global-set-key (kbd "C-c w") 'toggle-window)