Refactor a bunch of things

disabled.el

@@ -0,0 +1,126 @@
+;; icomplete
+;; (use-package icomplete
+;;   :disable
+;;   :ensure nil
+;;   :demand t
+;;   :bind (:map icomplete-minibuffer-map
+;;          ("C-S-s" . kill-line)
+;;          ("C-j" . icomplete-forward-completions)
+;;          ("C-k" . icomplete-backward-completions)
+;;          ("DEL" . icomplete-fido-backward-updir)
+;;          ("M-DEL". delete-backward-char)
+;;          ("M-RET" . icomplete-force-complete-and-exit)
+;;          ("TAB" . icomplete-force-complete)
+;;          ("<escape>" . abort-recursive-edit)
+;;          ("C-;" . embark-dwim)
+;;          ("C-." . embark-act)
+;;          ("<left>" . backward-char)
+;;          ("<right>" . forward-char))
+;;   :hook (icomplete-minibuffer-setup . my/icomplete-setup-hook-func)
+;;   :init
+;;   (defun my/icomplete-setup-hook-func ()
+;;     (setq truncate-lines t))
+;;   (setq completion-ignore-case t
+;;         read-file-name-completion-ignore-case t
+;;         read-buffer-completion-ignore-case t
+;;         enable-recursive-minibuffers t
+;;         minibuffer-prompt-properties '(read-only t
+;;                                        cursor-intangible t
+;;                                        face minibuffer-prompt)
+;;         ;;completions-detailed t
+;;         icomplete-compute-delay 0
+;;         icomplete-scroll t)
+;;   (defun my/crm-indicator (args)
+;;     (cons (format "[CRM%s] %s"
+;;                   (replace-regexp-in-string
+;;                    "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
+;;                    crm-separator)
+;;                   (car args))
+;;           (cdr args)))
+;;   (advice-add #'completing-read-multiple :filter-args #'my/crm-indicator)
+;;   (defun my/marginalia-trim-right (list)
+;;     (cl-loop for (cand prefix suffix) in list collect
+;;              (list cand prefix (string-trim-right suffix))))
+;;   (advice-add #'marginalia--align :filter-return #'my/marginalia-trim-right)
+;;   :config
+;;   (set-face-attribute 'icomplete-selected-match nil :inherit 'region)
+;;   (fido-mode 1)
+;;   (fido-vertical-mode 1))
+
+;; flycheck
+;; (use-package flycheck
+;;   :hook (emacs-lisp-mode . flycheck-mode)
+;;   :bind (:map flycheck-mode-map
+;;          ("C-c e" . my/flycheck-show-diagnostic-at-point))
+;;   :init
+;;   (setq flycheck-display-errors-function nil)
+;;   (defun my/flycheck-show-diagnostic-at-point ()
+;;     (interactive)
+;;     (if-let ((flycheck-mode)
+;;              (errors (flycheck-overlay-errors-at (point)))
+;;              (message (apply 'concat
+;;                              (mapcar
+;;                               (lambda (error)
+;;                                 (concat "•" (flycheck-error-message error) "\n"))
+;;                               errors))))
+;;         (if (display-graphic-p)
+;;             (progn
+;;               (posframe-show " *flycheck-error-posframe*"
+;;                              :string message
+;;                              :position (point)
+;;                              :max-width 80
+;;                              :border-width 2
+;;                              :border-color "white")
+;;               (clear-this-command-keys)
+;;               (push (read-event) unread-command-events)
+;;               (posframe-hide " *flycheck-error-posframe*"))
+;;           (popup-tip message)))))
+;; (use-package consult-flycheck
+;;   :bind (:map flycheck-mode-map
+;;          ("C-c C-e" . consult-flycheck)))
+
+;; lsp-mode
+;; (use-package consult-lsp)
+;; (use-package lsp-mode
+;;   :hook (((c-ts-mode c++-ts-mode java-ts-mode rust-ts-mode python-ts-mode
+;;            latex-mode markdown-mode blueprint-ts-mode) . lsp-mode)
+;;          (lsp-mode . my/-setup-lsp-mode-buffer))
+;;   :init
+;;   (setq lsp-completion-provider :none
+;;         lsp-headerline-breadcrumb-enable nil
+;;         lsp-inlay-hint-enable nil
+;;         lsp-signature-doc-lines 1)
+;;   (defun my/-setup-lsp-mode-buffer ()
+;;     "Called by `lsp-mode-hook' to setup lsp-mode buffers."
+;;     (evil-define-key '(normal visual motion) 'local
+;;       "gR" #'lsp-rename
+;;       "gA" #'lsp-execute-code-action
+;;       "gs" #'consult-lsp-symbols)
+;;     (setq-local evil-lookup-func #'lsp-describe-thing-at-point)))
+
+;; vterm
+;; (use-package vterm
+;;   :hook (vterm-mode . with-editor-export-editor)
+;;   :init
+;;   (defvar my/project-vterm-hash-table (make-hash-table :test 'equal)
+;;     "Hash table that maps project root dirs to vterm buffers.")
+;;   (defun my/project-vterm (prompt)
+;;     "Switch to or create a vterm buffer in the current projects root."
+;;     (interactive (list t))
+;;     (if-let ((proj (project-current prompt))
+;;              (default-directory (project-root proj)))
+;;         (if-let ((vterm-buff (gethash default-directory
+;;                                       my/project-vterm-hash-table))
+;;                  ((buffer-live-p vterm-buff)))
+;;             (switch-to-buffer vterm-buff)
+;;           (puthash default-directory
+;;                    (vterm (concat "*vterm for project " default-directory "*"))
+;;                    my/project-vterm-hash-table))))
+;;   (defun my/project-vterm-or-default ()
+;;     "Open a vterm for the current project, otherwise, open a normal vterm."
+;;     (interactive)
+;;     (unless (my/project-vterm nil)
+;;       (if-let ((vterm-buff (gethash nil my/project-vterm-hash-table))
+;;                ((buffer-live-p vterm-buff)))
+;;           (switch-to-buffer vterm-buff)
+;;         (puthash nil (vterm vterm-buffer-name) my/project-vterm-hash-table)))))