Some stuff

This commit is contained in:
Alexander Rosenberg 2023-12-27 12:19:44 -08:00
parent 5bcab83bb5
commit b930f3072d
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730

68
init.el
View File

@ -60,6 +60,9 @@
;; Terminal mouse support ;; Terminal mouse support
(xterm-mouse-mode 1) (xterm-mouse-mode 1)
;; Make cursor more visible
(global-hl-line-mode 1)
;; Spell stuff ;; Spell stuff
(setq ispell-program-name "hunspell" (setq ispell-program-name "hunspell"
flyspell-issue-message-flag nil flyspell-issue-message-flag nil
@ -259,31 +262,48 @@ visual states."
(savehist-mode 1)) (savehist-mode 1))
;; vertico ;; vertico
(use-package vertico ;; (use-package vertico
:bind (:map vertico-map ;; :bind (:map vertico-map
("C-S-k" . kill-line) ;; ("C-S-k" . kill-line)
("C-k" . vertico-previous) ;; ("C-k" . vertico-previous)
("C-j" . vertico-next) ;; ("C-j" . vertico-next)
("RET" . vertico-directory-enter) ;; ("RET" . vertico-directory-enter)
("DEL" . vertico-directory-delete-char) ;; ("DEL" . vertico-directory-delete-char)
("M-DEL" . vertico-directory-delete-word)) ;; ("M-DEL" . vertico-directory-delete-word))
:hook (minibuffer-setup . cursor-intangible-mode) ;; :hook (minibuffer-setup . cursor-intangible-mode)
;; :init
;; (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)
;; (setq vertico-cycle t
;; enable-recursive-minibuffers t
;; read-extended-command-predicate #'command-completion-default-include-p
;; minibuffer-prompt-properties '(read-only t
;; cursor-intangible t
;; face minibuffer-prompt))
;; (vertico-mode 1))
(use-package icomplete
:ensure nil
: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))
:init :init
(defun my/crm-indicator (args) (setq completion-ignore-case t
(cons (format "[CRM%s] %s" read-file-name-completion-ignore-case t
(replace-regexp-in-string read-buffer-completion-ignore-case t
"\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" "" icomplete-scroll t)
crm-separator) :config
(car args)) (fido-mode 1)
(cdr args))) (fido-vertical-mode 1))
(advice-add #'completing-read-multiple :filter-args #'my/crm-indicator)
(setq vertico-cycle t
enable-recursive-minibuffers t
read-extended-command-predicate #'command-completion-default-include-p
minibuffer-prompt-properties '(read-only t
cursor-intangible t
face minibuffer-prompt))
(vertico-mode 1))
;; orderless ;; orderless
(use-package orderless (use-package orderless