major refractor (pt 1/2-4)

1 files changed, 87 insertions, 0 deletions

diff --git a/bard-emacs-modules/bard-emacs-completion.el b/bard-emacs-modules/bard-emacs-completion.el
new file mode 100644
index 0000000..62fc712
--- /dev/null
+++ b/bard-emacs-modules/bard-emacs-completion.el
@@ -0,0 +1,87 @@
+;;; bard-emacs-completion.el --- My configurations for emacs completion frameworks -*- lexical-binding: t -*-
+
+;; Author: bard
+;; Maintainer: bard
+;; Version: 0.1.0
+;; Package-Requires: ((emacs 29.2))
+;; Homepage: github
+;; Keywords: completion
+
+
+;; This file is not part of GNU Emacs
+
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+
+;;; Commentary:
+
+
+;;; Code:
+
+;; minibuffer completion
+(use-package vertico
+  :init
+  (vertico-mode 1))
+
+(use-package marginalia
+  :init
+  (marginalia-mode 1))
+
+(use-package orderless
+  :config
+  (setq completion-styles '(orderless basic)))
+
+(use-package company
+  :init
+  (global-company-mode 1))
+
+(use-package consult
+  :defer 2
+  :bind
+  ("C-x b" . consult-buffer)
+  ("C-s" . consult-line)
+  ("C-S-s" . consult-line-multi)
+  ("C-z s" . consult-ripgrep))
+
+;; (use-package embark
+;;   :ensure t
+;;   :config
+;;   (setq embark-confirm-act-all nil)
+;;     ;; The prot-embark.el has an advice to further simplify the
+;;     ;; minimal indicator.  It shows cycling, which I never want to see
+;;     ;; or do.
+;;     (setq embark-mixed-indicator-both nil)
+;;     (setq embark-mixed-indicator-delay 1.0)
+;;     (setq embark-indicators '(embark-mixed-indicator embark-highlight-indicator))
+;;     (setq embark-verbose-indicator-nested nil) ; I think I don't have them, but I do not want them either
+;;     (setq embark-verbose-indicator-buffer-sections '(bindings))
+;;     (setq embark-verbose-indicator-excluded-actions
+;;           '(embark-cycle embark-act-all embark-collect embark-export embark-insert))
+
+;;     )
+
+(use-package imenu-list
+  :bind
+  (("C-`" . imenu-list-smart-toggle)))
+
+;; Savehist
+(setq savehist-file (locate-user-emacs-file "savehist"))
+(setq history-length 100)
+(setq history-delete-duplicates t)
+(setq savehist-save-minibuffer-history t)
+(setq savehist-additional-variables '(register-alist kill-ring))
+(savehist-mode 1)
+
+(provide 'bard-emacs-completion)
+;;; bard-emacs-completion.el ends here