Re: viewing MS powerpoint files from dired

[Uday S Reddy <uDOTsDOTreddy@cs.bham.ac.uk>]

On 7/13/2010 5:50 PM, Mirko wrote:

> How can I teach dired to launch powerpoint on files with extension ppt
> (that is on MS Windows)?
>
> (Writing some elisp is OK).

Here are some functions I use for Windows support in dired.  They work using 
the "object-oriented" Windows operations, the same way as the 
right-mouse-button context menu.  Windows takes care of figuring out the 
application for opening the file.  So, powerpoint or not, it makes no difference.

The open function almost always works.  The others often don't.

Perhaps I should put these in Emacswiki too.  Enjoy!

Cheers,
Uday

(defun dired-w32-shell-open ()
   "Open file in Win32."
   (interactive)
   (let ((file (w32-convert-filename (dired-get-filename))))
     (w32-shell-execute "open" file)
     ))

(defun w32-convert-filename (filename)
   "Convert FILENAME to Win32 format."
   (while (string-match "/" filename)
     (setq filename (replace-match "\\" nil t filename)))
   filename)

(defun dired-w32-shell-print ()
   "Print file in Win32."
   (interactive)
   (let ((file (w32-convert-filename (dired-get-filename))))
     (w32-shell-execute "print" file)
     ))

(defun dired-w32-shell-properties ()
   "Show properties of the file."
   (interactive)
   (let ((file (w32-convert-filename (dired-get-filename))))
     (w32-shell-execute "properties" file)
     ))

(defun dired-w32-shell-execute (operation)
   "Execute the given operation in Win32."
   (interactive "M")
   (let ((file (w32-convert-filename (dired-get-filename))))
     (w32-shell-execute operation file)
     ))