Machine-dependent elisp

Machine-dependent elisp

[pocmatos]

Hi all,

I have some code which I would like to make dependent on the machine I
am currently working on. I have a single .emacs shared between my work
machine and my home machine. I thought about making dependent on the ip
address (or hostname) but then I need a way to get the ip address (or
hostname) of my current machine.

Any suggestions on the best way to do this?

(I don't think it matters but the code I need to change is mostly the
loading of certain libraries and the setting of the smtp server for
gnus)

tia,

--
PMatos

Re: Machine-dependent elisp

[Suvayu Ali]

On Wednesday 21 April 2010 01:46 PM, pocmatos@gmail.com wrote:
> Hi all,
>
> I have some code which I would like to make dependent on the machine I
> am currently working on. I have a single .emacs shared between my work
> machine and my home machine. I thought about making dependent on the ip
> address (or hostname) but then I need a way to get the ip address (or
> hostname) of my current machine.
>
> Any suggestions on the best way to do this?
>

I use something very crude, but it works. If the usernames are different 
on the two hosts, then you could try enclosing the host dependent lines 
with something like this,

> (if (string= (getenv "USER") "username")
>     ;; do stuff
>         )

> --
> PMatos
>

-- 
Suvayu

Open source is the future. It sets us free.

Re: Machine-dependent elisp

[Steve Revilak]

[-- Attachment #1: Type: text/plain, Size: 1266 bytes --]

>From: pocmatos@gmail.com

>I have some code which I would like to make dependent on the machine I
>am currently working on. I have a single .emacs shared between my work
>machine and my home machine. I thought about making dependent on the ip
>address (or hostname) but then I need a way to get the ip address (or
>hostname) of my current machine.
>
>Any suggestions on the best way to do this?
>
>(I don't think it matters but the code I need to change is mostly the
>loading of certain libraries and the setting of the smtp server for
>gnus)


I can offer one possible solution.  

I use the same ~/.emacs on several machines, but there are slight
differences in the way that each machine is configured.  To give a
concrete example, I'd like to use "ant -find build.xml" as the default
compile command at work, and "make" as the default compile command at
home.

To achieve this, my ~/.emacs has

   (if (file-exists-p "~/.elisp/machine-local.el")
       (load "~/.elisp/machine-local.el"))  

machine-local.el has the machine-specific settings.

The Emacs manual has a similar example, which uses custom-file.

   http://www.gnu.org/software/emacs/manual/html_node/emacs/Saving-Customizations.html#Saving-Customizations

Steve

[-- Attachment #2: Type: application/pgp-signature, Size: 198 bytes --]

Re: Machine-dependent elisp

[Paulo J. Matos]

On Sat, Apr 24, 2010 at 2:32 AM, Steve Revilak <steve@srevilak.net> wrote:
>
> To achieve this, my ~/.emacs has
>
>  (if (file-exists-p "~/.elisp/machine-local.el")
>      (load "~/.elisp/machine-local.el"))
> machine-local.el has the machine-specific settings.
>
> The Emacs manual has a similar example, which uses custom-file.
>
>  http://www.gnu.org/software/emacs/manual/html_node/emacs/Saving-Customizations.html#Saving-Customizations
>
> Steve
>

That's a solution I hadn't thought about before

Thanks for the ref,
-- 
PMatos

Re: Machine-dependent elisp

[Alex Bennee]

On 21 April 2010 21:46,  <pocmatos@gmail.com> wrote:
> Hi all,
>
> I have some code which I would like to make dependent on the machine I
> am currently working on. I have a single .emacs shared between my work
> machine and my home machine. I thought about making dependent on the ip
> address (or hostname) but then I need a way to get the ip address (or
> hostname) of my current machine.

I do exactly this with (system-name), e.g.:

(defvar I-am-at-work (string-match "workdomain" (system-name)))
(defvar I-am-at-home (string-match "danny" (system-name)))
(defvar I-am-on-netbook (string-match "trent" (system-name)))

And then later on in my .emacs I have stanzas like:

(cond
 ((eval I-am-on-netbook)
  ;; With menu bars 86x24
  ;; Full screen 92x26
  (message "setting default frame for netbook")
  (setq default-frame-alist '((menu-bar-lines . 0)
			      (tool-bar-lines . 0)
			      (width . 90)
			      (height . 24)
			      (left . 0)
			      (top . 0)
			      (background-color . "DarkSlateGrey")
			      (foreground-color . "wheat")
			      (vertical-scroll-bars . left)))
  (setq normal-width 90)
  (setq normal-height 24)
  (setq fullscreen-width 92)
  (setq fullscreen-height 26))

 ((eval I-am-at-work)
  (setq default-frame-alist '((menu-bar-lines . 0)
			      (tool-bar-lines . 0)
			      (width . 167)
			      (height . 50)
			      (left . 1200) ; right hand monitor
			      (background-color . "DarkSlateGrey")
			      (foreground-color . "wheat")
			      (vertical-scroll-bars . right))))

					; different screens at home
 ((eval I-am-at-home)
  (setq default-frame-alist '((menu-bar-lines . 0)
			      (tool-bar-lines . 0)
			      (top . 0)
			      (left . 0)
			      (width . 120)
			      (height . 50)
			      (background-color . "DarkSlateGrey")
			      (foreground-color . "wheat")
			      (vertical-scroll-bars . right)))))

Hope that helps.
			
-- 
Alex, homepage: http://www.bennee.com/~alex/
http://www.half-llama.co.uk

Re: Machine-dependent elisp

[Kevin Rodgers]

Alex Bennee wrote:
> On 21 April 2010 21:46,  <pocmatos@gmail.com> wrote:
>> Hi all,
>>
>> I have some code which I would like to make dependent on the machine I
>> am currently working on. I have a single .emacs shared between my work
>> machine and my home machine. I thought about making dependent on the ip
>> address (or hostname) but then I need a way to get the ip address (or
>> hostname) of my current machine.
> 
> I do exactly this with (system-name), e.g.:
> 
> (defvar I-am-at-work (string-match "workdomain" (system-name)))
> (defvar I-am-at-home (string-match "danny" (system-name)))
> (defvar I-am-on-netbook (string-match "trent" (system-name)))
> 
> And then later on in my .emacs I have stanzas like:
> 
> (cond
>  ((eval I-am-on-netbook)

Nix the eval.

-- 
Kevin Rodgers
Denver, Colorado, USA