Re: emacs equivalent of vi %

[Kevin Rodgers <kevin.d.rodgers@gmail.com>]

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