help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Suggestions? Better filetype sniffing -- XHTML vs. HTML


From: Kin Cho
Subject: Re: Suggestions? Better filetype sniffing -- XHTML vs. HTML
Date: 24 Feb 2004 08:47:18 -0800
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3

(add-hook 'find-file-hooks 'my-find-file-hooks t)

(defun my-find-file-hooks ()
  (when (save-excursion (search-forward-regexp "\?xml\\|XHTML" 80 t))
    ;; do whatever you need to do
    ))

-kin

"D. D. Brierton" <address@hidden> writes:

> I'd like to be able to have emacs autodetect whether a file is an HTML
> file or an XHTML file. Standardly, file extension is not enough for this
> as HTML and XHTML files tend to have the same file extensions. I have to
> edit a lot of files created by other people, and they are often hopelessly
> invalid, so I have no hope of perfectly differentiating XHTML from HTML.
> However, there are some good clues to go on:
> 
> If a file ends in one of the following:
> 
> \.inc$
> \.php[34]?$
> \.[sjp]?html?$
> 
> Then  (in my case) it is *either* HTML *or* XHTML.
> 
> If a file with one of the above extensions has very near the beginning one
> or both of:
> 
> <?xml
> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML
> 
> then it is XHTML. Otherwise it is probably just HTML.
> 
> I know how to (add-to-list 'auto-mode-alist ... the file extensions, but I
> don't know how to also check the first few lines of the file. Can anyone
> offer any suggestions?
> 
> Further details:
> 
> I use psgml, and I define two derived modes:
> 
> (define-derived-mode xml-html-mode xml-mode "XHTML"
>   "This version of html mode is just a wrapper around xml mode."
>   (make-local-variable 'sgml-declaration)
>   (make-local-variable 'sgml-default-doctype-name)
>   (setq
>    sgml-default-doctype-name    "html"
>    sgml-declaration             "/usr/share/sgml/xml.dcl"
>    sgml-always-quote-attributes t
>    sgml-indent-step             2
>    sgml-indent-data             t
>    sgml-minimize-attributes     nil
>    sgml-omittag                 nil
>    sgml-shorttag                nil
>    )
>   )
> 
> (define-derived-mode sgml-html-mode sgml-mode "HTML"
>   "This version of html mode is just a wrapper around sgml mode."
>   (make-local-variable 'sgml-declaration)
>   (make-local-variable 'sgml-default-doctype-name)
>   (setq
>    sgml-default-doctype-name    "html"
>    sgml-declaration             "~/lib/DTD/html401/HTML4.decl"
>    sgml-always-quote-attributes t
>    sgml-indent-step             2
>    sgml-indent-data             t
>    sgml-minimize-attributes     nil
>    sgml-omittag                 nil
>    sgml-shorttag                nil
>    )
>   )
> 
> I also have the following:
> 
> ; What files to invoke the new html-mode for?
> (add-to-list 'auto-mode-alist '("\\.inc\\'" . sgml-html-mode))
> (add-to-list 'auto-mode-alist '("\\.php[34]?\\'" . sgml-html-mode))
> (add-to-list 'auto-mode-alist '("\\.[sj]?html?\\'" . sgml-html-mode))
> 
> So that basically I end up in sgml-html-mode when I open an (X)HTML file,
> and then if it is an XHTML file I have to manually M-x xml-html-mode.
> 
> TIA, Darren
> 
> -- 
> ======================================================================
> D. D. Brierton            address@hidden           www.dzr-web.com
>        Trying is the first step towards failure (Homer Simpson)
> ======================================================================


reply via email to

[Prev in Thread] Current Thread [Next in Thread]