Updating Doom Emacs.

.emacs.d/modules/completion/helm/autoload/helm.el

@@ -38,7 +38,7 @@ workspace."
 ;;; Project search
 
 ;;;###autoload
-(cl-defun +helm-file-search (&key query in all-files (recursive t))
+(cl-defun +helm-file-search (&key query in all-files (recursive t) _prompt args)
   "Conduct a file search using ripgrep.
 
 :query STRING
@@ -52,10 +52,13 @@ workspace."
   (unless (executable-find "rg")
     (user-error "Couldn't find ripgrep in your PATH"))
   (require 'helm-rg)
-  (let ((helm-rg-default-directory (or in (doom-project-root) default-directory))
+  (let ((this-command 'helm-rg)
+        (helm-rg-default-directory (or in (doom-project-root) default-directory))
         (helm-rg-default-extra-args
-         (delq nil (list (when all-files "-z -uu")
-                         (unless recursive "--maxdepth 1")))))
+         (delq nil (append (list (when all-files "-z -uu")
+                                 (unless recursive "--maxdepth 1"))
+                           args))))
+    (setq deactivate-mark t)
     (helm-rg (or query
                  (when (use-region-p)
                    (let ((beg (or (bound-and-true-p evil-visual-beginning) (region-beginning)))

.emacs.d/modules/completion/helm/autoload/posframe.el

@@ -23,6 +23,7 @@ bottom, which is easier on the eyes on big displays."
        (setq +helm--posframe-buffer buffer)
        :position (point)
        :poshandler +helm-posframe-handler
+       :respect-header-line helm-echo-input-in-header-line
        :width
        (max (cl-typecase .width
               (integer .width)

.emacs.d/modules/completion/helm/config.el

@@ -23,8 +23,7 @@ be negative.")
 ;;; Packages
 
 (use-package! helm-mode
-  :defer t
-  :after-call pre-command-hook
+  :hook (doom-first-input . helm-mode)
   :init
   (map! [remap apropos]                   #'helm-apropos
         [remap find-library]              #'helm-locate-library
@@ -43,7 +42,6 @@ be negative.")
         [remap recentf-open-files]        #'helm-recentf
         [remap yank-pop]                  #'helm-show-kill-ring)
   :config
-  (helm-mode +1)
   ;; helm is too heavy for `find-file-at-point'
   (add-to-list 'helm-completing-read-handlers-alist (cons #'find-file-at-point nil)))
 
@@ -57,8 +55,6 @@ be negative.")
         helm-mode-line-string nil
         helm-ff-auto-update-initial-value nil
         helm-find-files-doc-header nil
-        ;; Don't override evil-ex's completion
-        helm-mode-handle-completion-in-region nil
         ;; Default helm window sizes
         helm-display-buffer-default-width nil
         helm-display-buffer-default-height 0.25
@@ -73,38 +69,37 @@ be negative.")
 
   :init
   (when (featurep! +childframe)
+    ;; If this is set to 'iconify-top-level then Emacs will be minimized upon
+    ;; helm completion.
+    (setq iconify-child-frame 'make-invisible)
     (setq helm-display-function #'+helm-posframe-display-fn))
 
   (let ((fuzzy (featurep! +fuzzy)))
-    (setq helm-M-x-fuzzy-match fuzzy
-          helm-apropos-fuzzy-match fuzzy
-          helm-apropos-fuzzy-match fuzzy
+    (setq helm-apropos-fuzzy-match fuzzy
           helm-bookmark-show-location fuzzy
           helm-buffers-fuzzy-matching fuzzy
-          helm-completion-in-region-fuzzy-match fuzzy
-          helm-completion-in-region-fuzzy-match fuzzy
           helm-ff-fuzzy-matching fuzzy
           helm-file-cache-fuzzy-match fuzzy
           helm-flx-for-helm-locate fuzzy
           helm-imenu-fuzzy-match fuzzy
           helm-lisp-fuzzy-completion fuzzy
           helm-locate-fuzzy-match fuzzy
-          helm-mode-fuzzy-match fuzzy
           helm-projectile-fuzzy-match fuzzy
           helm-recentf-fuzzy-match fuzzy
-          helm-semantic-fuzzy-match fuzzy))
+          helm-semantic-fuzzy-match fuzzy)
+    ;; Make sure that we have helm-multi-matching or fuzzy matching,
+    ;; (as prescribed by the fuzzy flag) also in the following cases:
+    ;; - helmized commands that use `completion-at-point' and similar functions
+    ;; - native commands that fall back to `completion-styles' like `helm-M-x'
+    (push (if EMACS27+
+              (if fuzzy 'flex 'helm)
+            (if fuzzy 'helm-flex 'helm))
+          completion-styles))
 
   :config
   (set-popup-rule! "^\\*helm" :vslot -100 :size 0.22 :ttl nil)
 
-  ;; HACK Doom doesn't support these commands, which invite the user to install
-  ;; the package via ELPA. Force them to use +helm/* instead, because they work
-  ;; out of the box.
-  (advice-add #'helm-projectile-rg :override #'+helm/project-search)
-  (advice-add #'helm-projectile-ag :override #'+helm/project-search)
-  (advice-add #'helm-projectile-grep :override #'+helm/project-search)
-
-  ;; Hide the modeline
+  ;; Hide the modeline in helm windows as it serves little purpose.
   (defun +helm--hide-mode-line (&rest _)
     (with-current-buffer (helm-buffer-get)
       (unless helm-mode-line-string
@@ -113,11 +108,13 @@ be negative.")
   (advice-add #'helm-display-mode-line :override #'+helm--hide-mode-line)
   (advice-add #'helm-ag-show-status-default-mode-line :override #'ignore)
 
+  ;; Hide minibuffer if `helm-echo-input-in-header-line'
+  (add-hook 'helm-minibuffer-set-up-hook #'helm-hide-minibuffer-maybe)
+
   ;; Use helpful instead of describe-* to display documentation
   (dolist (fn '(helm-describe-variable helm-describe-function))
     (advice-add fn :around #'doom-use-helpful-a)))
 
-
 (use-package! helm-flx
   :when (featurep! +fuzzy)
   :hook (helm-mode . helm-flx-mode)
@@ -131,7 +128,7 @@ be negative.")
         "C-c C-e" #'helm-rg--bounce)
   (map! :map helm-rg--bounce-mode-map
         "q" #'kill-current-buffer
-        "C-c C-c" (λ! (helm-rg--bounce-dump) (kill-current-buffer))
+        "C-c C-c" (cmd! (helm-rg--bounce-dump) (kill-current-buffer))
         "C-x C-c" #'helm-rg--bounce-dump-current-file
         "C-c C-k" #'kill-current-buffer))
 
@@ -183,3 +180,7 @@ be negative.")
         (lambda (buf &optional _resume) (pop-to-buffer buf)))
   (global-set-key [remap swiper] #'swiper-helm)
   (add-to-list 'swiper-font-lock-exclude #'+doom-dashboard-mode nil #'eq))
+
+
+(use-package! helm-descbinds
+  :hook (helm-mode . helm-descbinds-mode))

.emacs.d/modules/completion/helm/packages.el

@@ -1,16 +1,19 @@
 ;; -*- no-byte-compile: t; -*-
 ;;; completion/helm/packages.el
 
-(package! helm)
-(package! helm-rg)
-(package! helm-c-yasnippet)
-(package! helm-company)
-(package! helm-describe-modes :recipe (:host github :repo "emacs-helm/helm-describe-modes"))
-(package! helm-projectile)
-(package! swiper-helm)
+(package! helm :pin "b6db9fb47a8900704394e63b795f4a54cb4701a8")
+(package! helm-rg :pin "785a80fe5cc87e27c5ea3d00a70049028d9e2847")
+(package! helm-c-yasnippet :pin "65ca732b510bfc31636708aebcfe4d2d845b59b0")
+(package! helm-company :pin "6eb5c2d730a60e394e005b47c1db018697094dde")
+(package! helm-describe-modes
+  :recipe (:host github :repo "emacs-helm/helm-describe-modes")
+  :pin "11fb36af119b784539d31c6160002de1957408aa")
+(package! helm-projectile :pin "5328b74dddcee8d1913803ca8167868831a07463")
+(package! swiper-helm :pin "93fb6db87bc6a5967898b5fd3286954cc72a0008")
 (when (featurep! +fuzzy)
-  (package! helm-flx))
+  (package! helm-flx :pin "6640fac5cb16bee73c95b8ed1248a4e5e113690e"))
 (when (featurep! +childframe)
-  (package! posframe))
+  (package! posframe :pin "093b29a53cbeda6d637ccc9ef4dfc47123e79b9e"))
 (when (featurep! :lang org)
-  (package! helm-org))
+  (package! helm-org :pin "b7a18dfc17e8b933956d61d68c435eee03a96c24"))
+(package! helm-descbinds :pin "b72515982396b6e336ad7beb6767e95a80fca192")