selectrum: improve ivy parity

- add `completion-at-point` as analogue to `cousnel-company`
- fix emacs-bindings `counsel-company` binding to respect helm and selectrum
- add org jump commands `consult-org-heading` and `consult-org-agenda` bindings
- add `consult-history` as `counsel-minibuffer-history` analogue
- add support for `doom/help-search`
- update TODO.org

core/autoload/help.el

@@ -226,6 +226,8 @@ will be automatically appended to the result."
                   #'+ivy-file-search)
                  ((fboundp '+helm-file-search)
                   #'+helm-file-search)
+                 ((fboundp '+selectrum-file-search)
+                  #'+selectrum-file-search)
                  ((rgrep
                    (read-regexp
                     "Search for" (or initial-input 'grep-tag-default)

modules/completion/selectrum/TODO.org

@@ -30,7 +30,6 @@ https://github.com/oantolin/orderless/issues/41
 * PROJ Missing Features
 ** TODO Icons
 https://github.com/minad/marginalia/issues/59
-** TODO =SPC s B=
 ** TODO =C-C C-e= wgrep fun
 check if we can add this to ~consult-line~ too
 ** TODO bibtex-actions improvements?
@@ -42,8 +41,5 @@ are nontrivial loading order shenanigans happening that make that not straightfo
 *** TODO lookup module
 *** TODO taskrunner module (doesn't seem to be an interface yet)
 *** TODO pass module (creating embark-pass can't be that hard)
-*** TODO irc module
+*** TODO ~+irc/ivy-jump-to-channel~ analogue
-*** TODO org module (check, might be fine)
+*** TODO =SPC s B= (~swiper-all~ analogue)
-*** TODO counsel-minibuffer-history analogue
-*** TODO counsel-company analogue
-

modules/config/default/+emacs-bindings.el

@@ -486,8 +486,12 @@
         [C-tab]      #'company-complete-common-or-cycle
         [tab]        #'company-complete-common-or-cycle
         [backtab]    #'company-select-previous
-        "C-RET"      #'counsel-company
+        "C-RET"      (cond ((featurep! :completion helm)       #'helm-company)
-        "C-<return>" #'counsel-company
+                           ((featurep! :completion ivy)        #'counsel-company)
+                           ((featurep! :completion selectrum)  #'completion-at-point))
+        "C-<return>" (cond ((featurep! :completion helm)       #'helm-company)
+                           ((featurep! :completion ivy)        #'counsel-company)
+                           ((featurep! :completion selectrum)  #'completion-at-point))
         :map company-search-map
         "C-n"        #'company-search-repeat-forward
         "C-p"        #'company-search-repeat-backward

modules/config/default/+evil-bindings.el

@@ -138,8 +138,9 @@
          "C-u"     #'company-previous-page
          "C-d"     #'company-next-page
          "C-s"     #'company-filter-candidates
-         "C-S-s"   (cond ((featurep! :completion helm) #'helm-company)
+         "C-S-s"   (cond ((featurep! :completion helm)       #'helm-company)
-                         ((featurep! :completion ivy)  #'counsel-company))
+                         ((featurep! :completion ivy)        #'counsel-company)
+                         ((featurep! :completion selectrum)  #'completion-at-point))
          "C-SPC"   #'company-complete-common
          "TAB"     #'company-complete-common-or-cycle
          [tab]     #'company-complete-common-or-cycle

modules/config/default/config.el

@@ -404,11 +404,13 @@ Continues comments if executed from a commented line. Consults
     "A-x" #'execute-extended-command)
 
   ;; A Doom convention where C-s on popups and interactive searches will invoke
-  ;; ivy/helm for their superior filtering.
+  ;; ivy/helm/selectrum for their superior filtering.
   (when-let (command (cond ((featurep! :completion ivy)
                             #'counsel-minibuffer-history)
                            ((featurep! :completion helm)
-                            #'helm-minibuffer-history)))
+                            #'helm-minibuffer-history)
+                           ((featurep! :completion selectrum)
+                            #'consult-history)))
     (define-key!
       :keymaps (append +default-minibuffer-maps
                        (when (featurep! :editor evil +everywhere)

modules/lang/org/config.el

@@ -724,6 +724,9 @@ between the two."
         (:when (featurep! :completion helm)
          "." #'helm-org-in-buffer-headings
          "/" #'helm-org-agenda-files-headings)
+        (:when (featurep! :completion selectrum)
+         "." #'consult-org-heading
+         "/" #'consult-org-agenda)
         "A" #'org-archive-subtree
         "e" #'org-export-dispatch
         "f" #'org-footnote-new
@@ -807,6 +810,9 @@ between the two."
          (:when (featurep! :completion helm)
           "g" #'helm-org-in-buffer-headings
           "G" #'helm-org-agenda-files-headings)
+         (:when (featurep! :completion selectrum)
+          "g" #'consult-org-heading
+          "G" #'consult-org-agenda)
          "c" #'org-clock-goto
          "C" (cmd! (org-clock-goto 'select))
          "i" #'org-id-goto