Re: How properly utilize the minibuffer and inactive minibuffer startup hooks?

[Michael Heerdegen <michael_heerdegen@web.de>]

Hi Grant,


No, it's not your fault.

As you presumably already found out, the first time you enter a
minibuffer and minibuffer-setup-hook is run, the minibuffer is in
fundamental-mode.  The second time, however, it is in
minibuffer-inactive-mode.

`smartparens-mode` silently fails when the current major mode is in
`sp-ignore-modes-list`.  The default-value of `sp-ignore-modes-list` is
'(minibuffer-inactive-mode) -- but I don't know why the smartparens
developer decided to do so.

So, you should get it work when you remove `minibuffer-inactive-mode`
from `sp-ignore-modes-list` - at your own risk.

Adding to minibuffer-setup-hook is enough, btw, pushing your setup
function to minibuffer-inactive-mode-hook as well is not necessary.


BTW, another, maybe a bit saner, approach is to write your own
implementation of eval-expression.  This is what I use, for example:

,----------------------------------------------------------------------
| (progn
|   
|   (defvar my-read-expression-map
|     (let ((map (make-sparse-keymap)))
|       (set-keymap-parent map read-expression-map)
|       (define-key map [(control ?g)] #'minibuffer-keyboard-quit)
|       (define-key map [up]   nil)
|       (define-key map [down] nil)
|       map))
| 
|   (defun my-read--expression (prompt &optional initial-contents)
|     (let ((minibuffer-completing-symbol t))
|       (minibuffer-with-setup-hook
|           (lambda ()
|             (emacs-lisp-mode)
|             (use-local-map my-read-expression-map)
|             (setq font-lock-mode t)
|             (funcall font-lock-function 1))
|         (read-from-minibuffer prompt initial-contents
|                               my-read-expression-map nil
|                               'read-expression-history))))
| 
|   (defun my-eval-expression (expression &optional arg)
|     (interactive (list (read (my-read--expression ""))
|                        current-prefix-arg))
|     (if arg
|         (insert (pp-to-string (eval expression lexical-binding)))
|       (pp-display-expression (eval expression lexical-binding)
|                              "*Pp Eval Output*"))))
`----------------------------------------------------------------------

smartparens-mode is enabled automatically via emacs-lisp-mode.

I also want to make the R command in the debugger behave the same
way:

,----------------------------------------------------------------------
| (advice-add
|  'debugger-record-expression :around
|  (lambda (f exp) (interactive
|              (list (read (my-read--expression "Record Eval: "))))
|    (funcall f exp))
|  '((name . use-my-read--expression)))
`----------------------------------------------------------------------


HTH,

Michael.