;; -*- emacs-lisp -*-

(gnuserv-start)

(message "Configuration de la barre d'outils")
;; la barre d'outils
(if (featurep 'toolbar) 
    (progn (set-default-toolbar-position 'left)
					; jolis icônes
	   (setq toolbar-icon-directory (expand-file-name "~/.elisp/icons/"))
	   (setq gnus-xmas-glyph-directory (expand-file-name "~/.elisp/icons/"))
					; Je veux *ma* barre
	   (init-x-toolbar)
	   (add-spec-list-to-specifier default-toolbar-visible-p 'nil) 
	   (add-spec-list-to-specifier toolbar-buttons-captioned-p 'nil)
	   (setq toolbar-news-reader 'gnus
		 toolbar-mail-reader 'gnus)
	   (defun seb-toggle-toolbar ()
	     (interactive)
	     (set-specifier default-toolbar-visible-p
			    (not 
			     (specifier-instance default-toolbar-visible-p))))
	   (global-set-key "\C-xT" 'seb-toggle-toolbar)))


(require 'func-menu)
(define-key global-map 'f8 'function-menu)
(add-hook 'find-file-hooks 'fume-add-menubar-entry)
(define-key global-map "\C-cl" 'fume-list-functions)
(define-key global-map "\C-cg" 'fume-prompt-function-goto)

;; The Hyperbole information manager package uses (shift button2) and
;; (shift button3) to provide context-sensitive mouse keys.  If you
;; use this next binding, it will conflict with Hyperbole's setup.
;; Choose another mouse key if you use Hyperbole.
(define-key global-map '(shift button3) 'mouse-function-menu)
       
;; For descriptions of the following user-customizable variables,
;; type C-h v <variable>
(setq fume-max-items 25
      fume-fn-window-position 3
      fume-auto-position-popup t
      fume-display-in-modeline-p t
      fume-menubar-menu-location "File"
      fume-buffer-name "*Function List*"
      fume-no-prompt-on-valid-default nil)



(if (eq window-system 'x)
    (progn (message "Nous sommes sous X")
	   (require 'pc-select)
	   (pc-select-mode)
	   (message "Configuration des couleurs")
	   (setq-default browse-url-browser-function 'browse-url-netscape))
  (message "Mode terminal")
  (setq-default browse-url-browser-function 'browse-url-lynx-emacs)
  (display-time)
  (puthash ?\^? 'backspace keyboard-translate-table)
  )

(message "Configuration XEmacs terminée")