Re: MS Word mode?

Re: MS Word mode?

[Alex Schroeder]

Roger Mason <rmason@sparky2.esd.mun.ca> writes:

> There was a question about this recently on this forum.  Look for
> undoc.el, I got it from the wiki (I think).  It has worked very well for
> me to date, although I have not attempted ro read complex documents.

Well, it makes things readable, but it is far from perfect -- it seems
to just delete any non-ascii characters, such that sometimes you will
see words such as "Alex8" where "8" is some garbage that just looked
like being part of a real word...  In other words, interfacing to
something like catdoc, antiword, or wvText (included with AbiWord)
might be cool.  Actually all you need is this:

(add-to-list 'auto-mode-alist '("\\.doc\\'" . no-word))

(defun no-word ()
  "Run antiword on the entire buffer."
  (shell-command-on-region (point-min) (point-max) "antiword - " t t))

Alex.

Re: MS Word mode?

[Christian Lemburg]

Alex Schroeder <alex@emacswiki.org> writes:

> Roger Mason <rmason@sparky2.esd.mun.ca> writes:
> 
> > There was a question about this recently on this forum.  Look for
> > undoc.el, I got it from the wiki (I think).  It has worked very well for
> > me to date, although I have not attempted ro read complex documents.
> 
> Well, it makes things readable, but it is far from perfect -- it seems
> to just delete any non-ascii characters, such that sometimes you will
> see words such as "Alex8" where "8" is some garbage that just looked
> like being part of a real word...  In other words, interfacing to
> something like catdoc, antiword, or wvText (included with AbiWord)
> might be cool.  Actually all you need is this:
> 
> (add-to-list 'auto-mode-alist '("\\.doc\\'" . no-word))
> 
> (defun no-word ()
>   "Run antiword on the entire buffer."
>   (shell-command-on-region (point-min) (point-max) "antiword - " t t))
> 
> Alex.

Yup, works for me:

- installed wvWare
- found some emacs code for using wvText within Gnus at
http://216.239.37.100/search?q=cache:RW5fo8yVQSgC:www.rhodesmill.org/brandon/notes/emacs.txt+using+wvText+emacs&hl=en&ie=UTF-8
- used code above to modify auto-mode-alist

Working smooth in dired-mode and gnus ...

For your convenience, here are the assorted code snippets (Disclaimer:
all just stolen together, none of this is mine ...):

Of course, one could play the same trick with wvHtml and use an emacs
browser to view the resulting HTML ... hm ... I think I have to get
this wmf2png business working ...


----------------
bin/tempfile
----------------

perl -MPOSIX -e 'print tmpnam()'


----------------
bin/wvTextStdin:
----------------

#!/bin/bash
# Allow wvText to read from the standard input. 
# thanks to brandon from rhodesmill.org
t=$(basename $(tempfile))
cat "$@" > /tmp/$f.doc
cd /tmp
wvText $f.doc $f.txt
cat $f.txt
rm -f $f.doc $f.txt


----------------
emacs/my-mime-types.el
----------------

;; thanks to brandon from rhodesmill.org

(defun mm-inline-msword (handle)
  "Return foo bar"
  (let (text)
    (with-temp-buffer
      (mm-insert-part handle)
      (call-process-region (point-min) (point-max) "wvTextStdin" t t nil)
      (setq text (buffer-string)))
    (mm-insert-inline handle text))) 

(setq mm-automatic-display
      (append mm-automatic-display
              '("application/msword"))) 

(setq mm-inlined-types
      (append mm-inlined-types
              '("application/msword" "application/octet-stream"))) 

(setq mm-inline-media-tests
      (append mm-inline-media-tests
              '(("application/msword" mm-inline-msword identity))
              '(("application/octet-stream" mm-inline-msword
                 (lambda (handle)
                   (let* ((type (mm-handle-type handle))
                          (name-pair (assq 'name type))
                          (name (cdr name-pair)))
                     (if name (equal ".doc" (substring name -4 nil)))
                     ))))))


----------------
emacs/my-automodes.el
----------------

;;; automodes

(setq auto-mode-alist
      (append 
       '(
	 ("\\.\\([pP][Llm]\\|al\\)$" . cperl-mode) 
	 ("\\.\\([xX][sS][dD]\\)$" . xml-mode) 
	 ("\\.\\([xX][mM][lL]\\)$" . xml-mode) 
	 ("\\.[jJ][sS]$" . javascript-mode)
	 ("\\.[pP][hH][pP]$" . php-mode)
         ("\\.doc\\'" . my-word-converter)
	 )
       auto-mode-alist))

;; thanks to Alex Schroeder

(defun my-word-converter ()
  "Run wvTextStdin on the entire buffer."
  (shell-command-on-region (point-min) (point-max) "wvTextStdin" t t))


-- 
Christian Lemburg, <lemburg@aixonix.de>, http://www.clemburg.com/
 43rd Law of Computing:
 	Anything that can go wr
 fortune: Segmentation violation -- Core dumped

Re: MS Word mode?

[Tiarnan]

>>>>> "AS" == Alex Schroeder <alex@emacswiki.org> writes:

    AS> (add-to-list 'auto-mode-alist '("\\.doc\\'" . no-word))

    AS> (defun no-word () "Run antiword on the entire buffer."
    AS> (shell-command-on-region (point-min) (point-max) "antiword - "
    AS> t t))

Perfect. Just what I was looking for, since antiword makes a
reasonable stab at doing tables.

Many thanks...

Tiarnan

-- 
Tiarnán Ó Corráin		CMG-WDSC
Sysadmin 			Cork.
tiarnan.o'corrain@cmg.com	+353-21-4933200

"Iraq: incredible weapons - incredible weapons." How do you know that? 
"Uh, well... We looked at the receipt." -- Bill Hicks, 1992

Re: MS Word mode?

[Arnaldo Mandel]

Alex Schroeder wrote (on Nov 8, 2002):

 >                 Actually all you need is this:
 > 
 > (add-to-list 'auto-mode-alist '("\\.doc\\'" . no-word))
 > 
 > (defun no-word ()
 >   "Run antiword on the entire buffer."
 >   (shell-command-on-region (point-min) (point-max) "antiword - " t t))

On my system there are lots of filenames ending in .doc whose files
are not Word files.  So I modified your function thusly

(defun no-word ()
  "Run antiword on the entire buffer."
  (if (string-match "Microsoft "
		    (shell-command-to-string (concat "file " buffer-file-name)))
      (shell-command-on-region (point-min) (point-max) "antiword - " t t)))

Works in Solaris and Linux, and should work on other unixes as well.

am

Re: MS Word mode?

[Alex Schroeder]

Arnaldo Mandel <am@ime.usp.br> writes:

> (defun no-word ()
>   "Run antiword on the entire buffer."
>   (if (string-match "Microsoft "
> 		    (shell-command-to-string (concat "file " buffer-file-name)))
>       (shell-command-on-region (point-min) (point-max) "antiword - " t t)))

Cool.  I did not know about "file"...  :)

My stuff is on the wiki, btw:

* http://www.emacswiki.org/cgi-bin/wiki.pl?AntiWord

Alex.

Re: MS Word mode?

[Bruce Mobarry]

Tiarnan <tiarnan.ocorrain@cmg.com> writes:

> does anyone know is there is an emacs mode to read MS word documents
> (sent by colleagues), as ASCII. I'm thinking of something along the
> lines of antiword, which produces text from MS Word (and even keeps
> tables and so on).

There's catdoc.el, (emacs interface to catdoc) which I've used in the
past. It doesn't support later versions of MS word (97/2000) well,
though. Now I use wv to translate MS word and excel. There is a helper
script (wvMime) that you can call through emacs (and gnus, vm, etc.)
included with the program to present the formatted documents as
postscript, or you can use wvText to strip the formatting to get
ASCII. If I knew how to write lisp, I'd like to write an elisp
interface for wv.

-- 
Bruce Mobarry

Re: MS Word mode?

[Julien Avarre]

Tiarnan <tiarnan.ocorrain@cmg.com> on 11/07/02 has said :

[...]

> does anyone know is there is an emacs mode to read MS word documents
> (sent by colleagues), as ASCII. I'm thinking of something along the
> lines of antiword, which produces text from MS Word (and even keeps
> tables and so on).

A friend of mine does :

                       C-u M-! strings toto.doc

That's a bit ugly ;-), but that's work when the word document is cheap...

-- 
Julien ``Eole'' Avarre
julien@avarre.com

Re: MS Word mode?

[Thomas Link]

> does anyone know is there is an emacs mode to read MS word documents
> (sent by colleagues), as ASCII. I'm thinking of something along the
> lines of antiword, which produces text from MS Word (and even keeps
> tables and so on).

Just a small note and self-advertisement: filesets.el uses antiword for 
displaying (nothing more) "*.doc" files in an emacs buffer. Having it 
properly configured and having antiword or a similar program installed, 
the command "filesets-find-or-display-file" would do the job.

Cheers,
Thomas.

Re: MS Word mode?

[Kin Cho]

I recommend using "!antiword -p letter *" at the doc file in
dired, antiword's ps output is a bit better than the text output.

-kin

MS Word mode?

[Tiarnan]

Hi--

does anyone know is there is an emacs mode to read MS word documents
(sent by colleagues), as ASCII. I'm thinking of something along the
lines of antiword, which produces text from MS Word (and even keeps
tables and so on).

Cheers

Tiarnan


-- 
Tiarnán Ó Corráin		CMG-WDSC
Sysadmin 			Cork.
tiarnan.o'corrain@cmg.com	+353-21-4933200

Re: MS Word mode?

[Roger Mason]

Hello,

There was a question about this recently on this forum.  Look for
undoc.el, I got it from the wiki (I think).  It has worked very well for
me to date, although I have not attempted ro read complex documents.

Roger Mason

On 7 Nov 2002, Tiarnan wrote:

> Hi--
> 
> does anyone know is there is an emacs mode to read MS word documents
> (sent by colleagues), as ASCII. I'm thinking of something along the
> lines of antiword, which produces text from MS Word (and even keeps
> tables and so on).
> 
> Cheers
> 
> Tiarnan
> 
> 
> -- 
> Tiarnán Ó Corráin		CMG-WDSC
> Sysadmin 			Cork.
> tiarnan.o'corrain@cmg.com	+353-21-4933200
> 
> 
> _______________________________________________
> Help-gnu-emacs mailing list
> Help-gnu-emacs@gnu.org
> http://mail.gnu.org/mailman/listinfo/help-gnu-emacs
>