howto suffix based fill-column?

howto suffix based fill-column?

[Eike Kroemer]

Hi there,

can someone kind provide me with some code for my .emacs that will do
the following:

if (suffix-of-file == eml)
  enter text mode
  (setq fill-column 68)
else
  (setq fill-column 79)
end

Thanks in advance,
   Eike

Re: howto suffix based fill-column?

[Joakim Hove]

Eike Kroemer <kroemer@atlas.de> writes:

> Hi there,
>
> can someone kind provide me with some code for my .emacs that will do
> the following:

Try this:

(defun set-fill-column ()
   (if (string-equal (file-name-extension (buffer-file-name)) "eml")
      (setq fill­column 68)
    (setq fill-column 79)))

(add-hook 'find-file-hooks 'set-fill-column)


Joakim


-- 
  /--------------------------------------------------------------------\
 / Joakim Hove  / hove@bccs.no  /  (55 5) 84076       |                 \
 | Unifob AS, Avdeling for Beregningsvitenskap (BCCS) | Stabburveien 18 |
 | CMU                                                | 5231 Paradis    |
 \ Thormøhlensgt.55, 5020 Bergen.                     | 55 91 28 18     /
  \--------------------------------------------------------------------/

Re: howto suffix based fill-column?

[Eike Kroemer]

Hi Joakim,

thanks for your answer, it' working great!

 Eike

Re: howto suffix based fill-column?

[Reiner Steib]

On Thu, Aug 07 2003, Joakim Hove wrote:

> (defun set-fill-column ()
>    (if (string-equal (file-name-extension (buffer-file-name)) "eml")
>       (setq fill­column 68)
                  ^ This is not a minus but `soft hyphen' from Latin-1

In case anyone will use C&P, it won't work as it should.  (I noticed
this because I was wondering why Gnus gives me a button for the second
but not for the first line.)

>     (setq fill-column 79)))

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/

Re: howto suffix based fill-column?

[Kevin Rodgers]

Joakim Hove wrote:

> (defun set-fill-column ()
>    (if (string-equal (file-name-extension (buffer-file-name)) "eml")
>       (setq fill­column 68)
>     (setq fill-column 79)))
> 
> (add-hook 'find-file-hooks 'set-fill-column)

What about the OP's request for text mode?


I think this is a little cleaner:


(setq auto-mode-alist
       (cons '("\\.eml\\'" . text-mode) auto-mode-alist))

(setq-default fill-column 79)

(add-hook 'text-mode-hook
	  (lambda ()
	    (if (string-equal (file-name-extension (buffer-file-name)) "eml")
		(setq fill-column 68))))

-- 
Kevin Rodgers

Re: howto suffix based fill-column?

[Stefan Monnier]

>>>>> "Eike" == Eike Kroemer <kroemer@atlas.de> writes:
> can someone kind provide me with some code for my .emacs that will do
> the following:

> if (suffix-of-file == eml)
>   enter text mode
>   (setq fill-column 68)
> else
>   (setq fill-column 79)
> end

   (define-derived-mode eml-mode text-mode "EML"
     "Mode for EML files."
     ;; Add more EML-specific settings here.
     (set (make-local-variable 'fill-column) 68))
   
   ;; Make .eml files use eml-mode.
   (add-to-list 'auto-mode-alist '("\\.eml\\'" . eml-mode))

To set the rest to 79 column, try something like

   (setq-default fill-column 79)


        Stefan