Re: emacs equivalent of vi %

[Kevin Rodgers]

Lennart Borgman (gmail) wrote:
> Nikolaj Schumacher wrote:
> > Nikolaj Schumacher <n_schumacher@web.de> wrote:
> >
> > > "Rustom Mody" <rustompmody@gmail.com> wrote:
> > >
> > > > Bind the character '%' to
> > > > (file-name-nondirectory (buffer-file-name))
> > > Also, note that you'll need to make an interactive function out of the
> > > form to bind it to a key.
> >
> > Oups, that's not all...
> > It won't work, because `buffer-file-name' will of course return the
> > minibuffer's file name (i.e. none).  I'm currently not aware of an easy
> > way to get the originating buffer from the minibuffer.  Sorry.
>
>
> Maybe minibuffer-selected-window + window-buffer?

Brilliant!

(defvar minibuffer-insert-buffer-directory nil)

(defun minibuffer-insert-buffer-file-name ()
  (interactive)
  (unless (minibuffer-window-active-p (selected-window))
    (error "Minibuffer window is not active"))
  (let ((minibuffer-selected-buffer-file-name
         (buffer-file-name (window-buffer (minibuffer-selected-window)))))
    (insert (if minibuffer-insert-buffer-directory
                minibuffer-selected-buffer-file-name
              (file-name-nondirectory minibuffer-selected-buffer-file-name)))))

(define-key minibuffer-local-map "%" 'minibuffer-insert-buffer-file-name)
(define-key minibuffer-local-completion-map "%" nil)

--
Kevin Rodgers
Denver, Colorado, USA