Re: how do i find out the platform emacs runs on?

[Sébastien Kirche]

Le mercredi, 26 nov 2003, à 18:36 Europe/Paris, Phillip Lord a écrit :

> One important question to ask though, is why are you doing this? In
> general its better to ask Emacs for its capabilities rather than its
> platform.
>
> Checking between console and windowing environment seems a good way to
> do things.
>
> This way if Emacs on different systems gains new functionality, it
> should all just work.
>
> Of course there are times when you might just not be bothered to do
> this, or when its too much effort (checking whether external programs
> like diff are available for instance).
Well, i actually do that for platform specific (headaches cause) 
settings.
Mostly keyboard remapping, and some defuns.
With the keep in mind to have only one .emacs that i have just to copy 
from one platform to another if i made new settings.
If you see a smarter way to do that, i am open to any suggestion, as i 
am still a learning user for emacs, especially for elisp.
I pasted the actual portion of .emacs (rewritten thanks to Kevin 
Rogers) relative to that.
I left the french comments, but i guess still understandable for 
english people :)
Thanks
Sébastien Kirche

;======= SPECIFIQUE PLATEFORME 
==========================================================
(cond ((eq system-type 'darwin)   ; réglages pour le mac
           (progn
                 ;(message "on est sous mac")
                 ;(setq mac-command-key-is-meta nil)
                 (set-keyboard-coding-system 'mac-roman)
                 ;(set-frame-font "fontset-mac")
                 (if window-system
                         (setq default-frame-alist '((width . 100)
                                                                                
 (height . 44)
                                                                                
 (top . 50);pixels
                                                                                
 (left . 50);pixels
                                                                                 (font . 
"fontset-mac")))
                   )
                 (global-set-key (kbd "<kp-delete>") 'delete-char)    ;touche 
suppr
		 (global-set-key (kbd "<kp-divide>") "/")             ;touche 
division sur pavé num (inactif sur mon poste ?)
                 (global-set-key (kbd "<C-kp-home>") (kbd "<C-home>"));idem /
                 (global-set-key (kbd "<C-kp-end>") (kbd "<C-end>"))  ;idem /
                 ;(global-set-key "€" (sk-insere-euro t));j'arrive pas avec 
l'euro ;(

                 (defvar sw-last-applescript nil
                   "Stores the last Applescript command executed from Emacs.")
                
                 (defvar sw-applescript-buffer-name "*AppleScript output*"
                   "Name for the buffer to display AppleScript output.")
                
                 (defun sw-applescript-run-buffer ()
                   "Execute the whole buffer as an Applescript"
                   (interactive)
                   (setq sw-last-applescript (buffer-string))
                   (sw-run-and-display-applescript (buffer-string)))
        
                 (defun sw-applescript-run-region ()
                   "Execute the region as an Applescript"
                   (interactive)
                   (let ((region (buffer-substring (region-beginning) 
(region-end))))
                         (setq sw-last-applescript region)
                         (sw-run-and-display-applescript region)))
        
                 (defun sw-run-last-applescript ()
                   "Run the last Applescript command again"
                   (interactive)
                   (sw-run-and-display-applescript sw-last-applescript))
                
                 (defun sw-run-and-display-applescript (code)
		   "Switch to the AppleScript buffer, erase it, run the code and 
display the results."
                   (switch-to-buffer (get-buffer-create 
sw-applescript-buffer-name))
                   (erase-buffer)
                   (insert (do-applescript code)))
        
                 ))

;=================================================================

          ((eq system-type 'windows-nt); réglages pour windows
           (progn
                ;(message "on est sous ouin-ouin")
		 (global-set-key [128] 'sk-insere-euro); C-h l donne \200 pour l'euro 
soit 128 en décimal
                 ();rien d'autre
                 )
           )

;=================================================================

          ((eq system-type 'linux); réglages pour Linux
           (progn
             ;(message "on est avec le pingouin")
                 ();nada
                 )
           ))

;=================================================================


; fonction pour insérer l'euro (fonction à 10€ ? ;o)
(defun sk-insere-euro (&optional arg) "Insère le symbole Euro ISO 
8859-15.
Avec un préfixe, insère la version Unicode."
  (interactive "*P")
  (if arg
          (insert (make-char 'mule-unicode-0100-24ff 116 76))
        (insert (make-char 'latin-iso8859-15 164))))



--
E pluribus UNIX