From 558919d4dd63eb0efe604caeaac4bbfe9aff5404 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 26 Mar 2021 22:39:46 +0000 Subject: company and orderless don't go well together --- consult.org | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/consult.org b/consult.org index 5d9e4d8..72e30cc 100644 --- a/consult.org +++ b/consult.org @@ -4,15 +4,15 @@ #+begin_src emacs-lisp (use-package orderless :ensure t - :custom ((completion-styles '(orderless)) + :custom ((completion-styles '(basic partial-completion emacs22)) (orderless-matching-styles - '(orderless-regexp orderless-initialism orderless-literal))) + '(orderless-literal orderless-regexp orderless-initialism))) :init :bind ((:map minibuffer-local-completion-map ("SPC" . self-insert-command)))) #+end_src * prescient - #+begin_src emacs-lisp :load no + #+begin_src emacs-lisp (use-package prescient :ensure t :custom ((prescient-sort-full-matches-first t))) @@ -280,7 +280,9 @@ (when-let ((url (or (and (derived-mode-p 'w3m-mode) (or (w3m-anchor) w3m-current-url)) (and (derived-mode-p 'eww-mode) - (jao-eww-buffer-url))))) + (or (thing-at-point 'url) + (jao-eww-buffer-url))) + (jao-url-around-point)))) (when (string-match-p "^https?.*" url) (cons 'url url))))) @@ -342,8 +344,9 @@ #+begin_src emacs-lisp ;; Use prescient, but only for sorting: ;; (setq selectrum-prescient-enable-filtering nil) - ;; (selectrum-prescient-mode 1) - ;; (prescient-persist-mode 1) + + (selectrum-prescient-mode 1) + (prescient-persist-mode 1) ;; Highlighting only the visible matches: (setq orderless-skip-highlighting (lambda () selectrum-is-active)) -- cgit v1.2.3