gav451/emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Try to live without orderless ensuring to load gnus after minibuffer

Browse Source
This commit is contained in:
Gerard Vermeulen 2022-10-27 00:50:24 +02:00
parent 319cb5bd71
commit a26e8bde62
1 changed files with 6 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
README.org
View File

@ -219,7 +219,6 @@ The [[info:emacs#Init File][init file (info)]] does not load the ~custom-file~ a
(embark-consult . "gnu-devel") (embark-consult . "gnu-devel")
(engrave-faces . "gnu") (engrave-faces . "gnu")
(marginalia . "gnu-devel") (marginalia . "gnu-devel")
(orderless . "gnu-devel")
(org . "gnu-devel") (org . "gnu-devel")
(python . "gnu-devel") (python . "gnu-devel")
(queue . "gnu") (queue . "gnu")
@ -240,7 +239,6 @@ The [[info:emacs#Init File][init file (info)]] does not load the ~custom-file~ a
company ; complete anything company ; complete anything
magit ; Git Text-based User Interface magit ; Git Text-based User Interface
no-littering ; keep `user-emacs-directory' clean no-littering ; keep `user-emacs-directory' clean
orderless ; Emacs completion style
org ; thought organizer org ; thought organizer
python ; major mode to edit Python files python ; major mode to edit Python files
vertico ; VERTical Interactive Completion vertico ; VERTical Interactive Completion
@ -1209,9 +1207,10 @@ file.
| vertico-scroll-up | scroll-up-command | {{{kbd(C-v)}}} | | vertico-scroll-up | scroll-up-command | {{{kbd(C-v)}}} |
|-------------------------------+----------------------------------+---------------------| |-------------------------------+----------------------------------+---------------------|
** [[info:orderless#Top][Orderless (info)]] ** [[info:orderless#Top][Orderless (info)]] :noexport:
:PROPERTIES: :PROPERTIES:
:CUSTOM_ID: sec:orderless-configuration :CUSTOM_ID: sec:orderless-configuration
:header-args:emacs-lisp: :tangle no
:END: :END:
Listing [[lst:configure-orderless]] configures [[info:orderless#Company][orderless for company (info)]]. Listing [[lst:configure-orderless]] configures [[info:orderless#Company][orderless for company (info)]].
@ -1416,13 +1415,11 @@ previous input in the minibuffer. Listing
#+caption: Enable =minibuffer-history-completion=. #+caption: Enable =minibuffer-history-completion=.
#+name: lst:enable-minibuffer-history-completion #+name: lst:enable-minibuffer-history-completion
#+begin_src emacs-lisp #+begin_src emacs-lisp
(with-eval-after-load 'minibuffer (when (require 'minibuffer nil 'noerror)
;; https://github.com/oantolin/emacs-config/blob/master/init.el#L333 ;; https://www.masteringemacs.org/article/understanding-minibuffer-completion
(custom-set-variables (custom-set-variables
'(completion-category-defaults nil)
'(completion-category-overrides '((file (styles basic partial-completion)))) '(completion-category-overrides '((file (styles basic partial-completion))))
'(completion-ignore-case t) '(completion-ignore-case nil))
'(completion-styles '(orderless basic partial-completion)))
(defun minibuffer-setup-history-completions () (defun minibuffer-setup-history-completions ()
(unless (or minibuffer-completion-table minibuffer-completion-predicate) (unless (or minibuffer-completion-table minibuffer-completion-predicate)
@ -1431,14 +1428,6 @@ previous input in the minibuffer. Listing
(add-hook 'minibuffer-setup-hook 'minibuffer-setup-history-completions) (add-hook 'minibuffer-setup-hook 'minibuffer-setup-history-completions)
;; Stolen from Emacs-28.1 for Emacs-27.2:
(unless (fboundp 'minibuffer--completion-prompt-end)
(defun minibuffer--completion-prompt-end ()
(let ((end (minibuffer-prompt-end)))
(if (< (point) end)
(user-error "Can't complete in prompt")
end))))
;; Adapted from ‘minibuffer-complete’: ;; Adapted from ‘minibuffer-complete’:
(defun minibuffer-complete-history () (defun minibuffer-complete-history ()
"Allow minibuffer completion on previous input." "Allow minibuffer completion on previous input."
@ -5091,7 +5080,7 @@ initializes a list of =webjump-sites=.
#+caption: Configure =gnus=. #+caption: Configure =gnus=.
#+name: lst:configure-gnus #+name: lst:configure-gnus
#+begin_src emacs-lisp #+begin_src emacs-lisp
(with-eval-after-load 'emacs (with-eval-after-load 'gnus
(custom-set-variables (custom-set-variables
'(gnus-select-method '(nntp "news.gmane.io")) '(gnus-select-method '(nntp "news.gmane.io"))
(with-eval-after-load 'gnus-start (with-eval-after-load 'gnus-start