Update woman settings

init.el

@@ -1100,7 +1100,7 @@ visual states."
          ("M-g r" . consult-imenu-multi)
          :map help-map
          ("TAB". consult-info)
-         ("RET" . consult-man))
+         ("C-S-m" . consult-man))
   :hook (minibuffer-setup . my/consult-setup-minibuffer-completion)
   :init
   (defun my/consult-setup-minibuffer-completion ()
@@ -1735,6 +1735,19 @@ COMMAND and COMINT are like `compile'."
 (use-package devdocs
   :bind (("C-h D" . devdocs-lookup)))
 
+;; woman
+(use-package woman
+  :ensure nil
+  :bind (:map help-map
+         ("C-m" . woman))
+  :config
+  (cl-callf2 cl-delete-if-not
+      #'(lambda (elt)
+          (file-directory-p (if (consp elt)
+                                (cdr elt)
+                              elt)))
+      woman-manpath))
+
 ;; Bibtex (built in)
 (require 'bibtex)
 ;; Better URL highlighting and matching