Re: Nice Emacs Lisp

[tyler]

Sébastien Vauban <zthjwsqqafhv@spammotel.com>
writes:

> I'd like to mix Linux and Windows settings in my .emacs file, so that
> I can use GNU Emacs on both platforms with the same init file.
>
> Currently, I've defined:
>
> (defmacro GNULinux (&rest body)
>   (list 'if (string-match "linux" (prin1-to-string system-type)) (cons 'progn 
> body)))
>
> (defmacro Windows (&rest body)
>   (list 'if (string-match "windows" (prin1-to-string system-type)) (cons 
> 'progn body)))
>
> and I write (for example):
>
>     (setq bcc-cache-directory
>           (concat
>            (Windows "~/.emacs.d/byte-cache-ms-windows")
>            (GNULinux "~/.emacs.d/byte-cache-linux")))
>
> But do you know some better way to write the above (the concat function is not
> that clear there...)


I'm not very familiar with macros, but maybe using a single macro
instead of two makes things clearer:

(defmacro gnu-win (gnu win)
  `(if (string-match "gnu/linux" (prin1-to-string system-type))
      (,@gnu)
    (,@win)))

(setq bcc-cache-directory
           (gnu-win 
            "~/.emacs.d/byte-cache-linux"
            "~/.emacs.d/byte-cache-ms-windows"))


Cheers,

Tyler

-- 
Philosophy of science is about as useful to scientists as ornithology is
to birds.                              --Richard Feynman