[elpa] externals/consult-hoogle e97a2ae43e 13/21: Fix adding module to search query

[ELPA Syncer]

branch: externals/consult-hoogle
commit e97a2ae43efa34c4e19812891eb042eefe2b1265
Author: Rahguzar <aikrahguzar@gmail.com>
Commit: Rahguzar <aikrahguzar@gmail.com>

    Fix adding module to search query
---
 consult-hoogle.el | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/consult-hoogle.el b/consult-hoogle.el
index 4e576c2814..e71c4ecf6a 100644
--- a/consult-hoogle.el
+++ b/consult-hoogle.el
@@ -23,26 +23,22 @@
 (require 'shr)
 
 ;;;; Variables
-(defcustom consult-hoogle-args "hoogle search --jsonl -q --count=100" "The 
hoogle invocation used to get results." :type 'string :group 'consult)
+(defcustom consult-hoogle-args "hoogle search --jsonl -q --count=250" "The 
hoogle invocation used to get results." :type 'string :group 'consult)
 
 (defcustom consult-hoogle-show-module-and-package t "Whether to show the 
package and module in the candidate line." :type 'boolean :group 'consult)
 
 (defvar consult-hoogle--history nil "Variable to store history for hoogle 
searches.")
 
-(defvar consult-hoogle-tab-map (let ((map (make-sparse-keymap)))
-                                 (set-keymap-parent map universal-argument-map)
-                                 (define-key map (kbd "p") 
#'consult-hoogle-restrict-to-package)
-                                 (define-key map (kbd "m") 
#'consult-hoogle-restrict-to-module)
-                                 (define-key map (kbd "b") 
#'consult-hoogle-restrict-to-module-level-beg)
-                                 map))
-
 (defvar consult-hoogle-map (let ((map (make-sparse-keymap)))
                              (define-key map (kbd "M-i") 
#'consult-hoogle-browse-item)
                              (define-key map (kbd "M-j") 
#'consult-hoogle-browse-package)
                              (define-key map (kbd "M-m") 
#'consult-hoogle-browse-module)
                              (define-key map (kbd "M-<up>") 
#'consult-hoogle-scroll-docs-down)
                              (define-key map (kbd "M-<down>") 
#'consult-hoogle-scroll-docs-up)
-                             (define-key map (kbd "TAB") 
consult-hoogle-tab-map)
+                             (define-key map (kbd "TAB p") 
#'consult-hoogle-restrict-to-package)
+                             (define-key map (kbd "TAB m") 
#'consult-hoogle-restrict-to-module)
+                             (define-key map (kbd "TAB b") 
#'consult-hoogle-restrict-to-module-level-beg)
+
                              map))
 
 ;;;; Constructing the string to display
@@ -190,7 +186,7 @@ window. This can be disabled by a prefix ARG."
   "Restrict to a part of MODULE heirarchy.
 If called with numeric prefix LEVEL only use first ARG levels of module."
   (interactive (list (consult-hoogle--get 'module (consult-hoogle--candidate)) 
(prefix-numeric-value current-prefix-arg)))
-  (when module (consult-hoogle--add-to-input "+" (progn (string-match 
(rx-to-string `(: bos (= ,level (: (0+ (not ".")) (?? "."))))) module) 
(match-string 0 module)))))
+  (when module (consult-hoogle--add-to-input "+" (progn (string-match 
(rx-to-string `(: bos (= ,level (: (1+ (not ".")) (?? "."))))) module) 
(match-string 0 module)))))
 
 (provide 'consult-hoogle)