remove redundant junk

1 files changed, 134 insertions, 0 deletions

diff --git a/.config/emacs/archive/ide.el b/.config/emacs/archive/ide.el
new file mode 100644
index 0000000..24a4d7e
--- /dev/null
+++ b/.config/emacs/archive/ide.el
@@ -0,0 +1,134 @@
+;; == 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
+  :ensure nil)
+(use-package sideline
+  :ensure nil
+  :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
+  :ensure nil
+  :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
+  :ensure nil
+  :demand t
+  :bind
+  (:map corfu-map
+		("C-g" . corfu-quit))
+  :config
+  (add-hook 'corfu-mode-hook
+			(lambda ()
+			  ;; disable orderless
+			  (setq-local completion-styles '(basic)
+						  completion-category-overrides nil
+						  completion-category-defaults nil)))
+  (global-corfu-mode))
+
+(use-package corfu-history
+  :ensure nil
+  :demand t
+  :config
+  (corfu-history-mode))
+
+(use-package cape
+  :ensure nil
+  :demand t
+  :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
+  :demand t
+  :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
+  :ensure nil
+  :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
+  :ensure nil
+  :after yasnippet)