Disable certain commands in non window mode

Disable certain commands in non window mode

[MiH]

These are certain statements in my .emacs file.

(add-to-list 'load-path "~/.emacs.d")
(global-font-lock-mode  t)
(set-scroll-bar-mode 'right)
(require 'color-theme)
(color-theme-initialize)
(color-theme-whateveryouwant)
(mwheel-install)

;; rest of the .emacs file

The thing is I want to disable loading of the above statements while
in non-window (emacs -nw) mode, but want them while using X11. Since I
am new to elisp, I am not yet quite sure how to do this.

Thanks in advance to anyone providing a solution

Re: Disable certain commands in non window mode

[Richard Riley]

MiH <md.imad@gmail.com> writes:

> These are certain statements in my .emacs file.
>
> (add-to-list 'load-path "~/.emacs.d")
> (global-font-lock-mode  t)
> (set-scroll-bar-mode 'right)
> (require 'color-theme)
> (color-theme-initialize)
> (color-theme-whateveryouwant)
> (mwheel-install)
>
> ;; rest of the .emacs file
>
> The thing is I want to disable loading of the above statements while
> in non-window (emacs -nw) mode, but want them while using X11. Since I
> am new to elisp, I am not yet quite sure how to do this.
>
> Thanks in advance to anyone providing a solution

Possibly something like:

(cond ((eq window-system 'x)
;       (message "X loaded")
       (require 'icicles)
       (load "~/.emacs.d/icicles/icicles-install")
       (icy-mode t)
;       (color-theme-classic)
       )
      (t (color-theme-tty-dark)))

Re: Disable certain commands in non window mode

[Joost Kremers]

MiH wrote:
> These are certain statements in my .emacs file.
>
> (add-to-list 'load-path "~/.emacs.d")
> (global-font-lock-mode  t)
> (set-scroll-bar-mode 'right)
> (require 'color-theme)
> (color-theme-initialize)
> (color-theme-whateveryouwant)
> (mwheel-install)
>
> ;; rest of the .emacs file
>
> The thing is I want to disable loading of the above statements while
> in non-window (emacs -nw) mode, but want them while using X11. Since I
> am new to elisp, I am not yet quite sure how to do this.

check the value of the variable WINDOW-SYSTEM: as per the documentation, it
is nil if emacs is running in a terminal. so you can do:

(when window-system
  (add-to-list 'load-path "~/.emacs.d")
  (global-font-lock-mode  t)
  (set-scroll-bar-mode 'right)
  (require 'color-theme)
  (color-theme-initialize)
  (color-theme-whateveryouwant)
  (mwheel-install))


-- 
Joost Kremers                                      joostkremers@yahoo.com
Selbst in die Unterwelt dringt durch Spalten Licht
EN:SiS(9)

Re: Disable certain commands in non window mode

[Alex Bennee]

On Thu, 2008-09-25 at 02:27 -0700, MiH wrote:
> These are certain statements in my .emacs file.
> 
> (add-to-list 'load-path "~/.emacs.d")
> (global-font-lock-mode  t)
> (set-scroll-bar-mode 'right)
> (require 'color-theme)
> (color-theme-initialize)
> (color-theme-whateveryouwant)
> (mwheel-install)
> 
> ;; rest of the .emacs file
> 
> The thing is I want to disable loading of the above statements while
> in non-window (emacs -nw) mode, but want them while using X11. Since I
> am new to elisp, I am not yet quite sure how to do this.

You can directly wrap them as others have noted. However as my .emacs is
quite big I tend to define a number variables which I can test later.
For example:

(defvar I-am-in-X (eval 'window-system));
(defvar I-am-in-console (not (eval 'window-system)))
(defvar I-am-on-MacOSX (string-match "Carbon" (emacs-version)))
(defvar I-am-remote (getenv "SSH_TTY"))

And then later I have code like:

	  (if I-am-in-console
	      (progn
		(color-theme-initialize)
		(color-theme-euphoria)))

> 
> Thanks in advance to anyone providing a solution
-- 
Alex Bennee, Software Engineer
The best defense against logic is ignorance.

Re: Disable certain commands in non window mode

[Nikolaj Schumacher]

Alex Bennee <ajb-ml@cbnl.com> wrote:

> (defvar I-am-in-X (eval 'window-system));

Why don't you just:

(defvar I-am-in-X window-system)

> (defvar I-am-on-MacOSX (string-match "Carbon" (emacs-version)))

Since Emacs 23 is abandoning Carbon, the following should be more safe
for the future:

(defvar I-am-on-MacOSX (eq system-type 'darwin))


regards,
Nikolaj Schumacher