;; Options Menu Settings
;; =====================
(cond
 ((and (string-match "XEmacs" emacs-version)
       (boundp 'emacs-major-version)
       (or (and
            (= emacs-major-version 19)
            (>= emacs-minor-version 14))
           (= emacs-major-version 20))
       (fboundp 'load-options-file))
  (load-options-file "/home/byhoe/.xemacs-options")))
;; ============================
;; End of Options Menu Settings
(custom-set-variables
 '(init-face-from-resources nil)
 '(lazy-shot-verbose nil)
 '(filladapt-mode nil nil (filladapt))
 '(display-time-24hr-format t)
 '(column-number-mode t)
 '(c-tab-always-indent nil)
 '(change-log-default-name "")
 '(ada-language-version (quote ada95))
 '(lazy-shot-stealth-verbose nil)
 '(add-log-mailing-address "")
 '(add-log-time-format (quote iso8601-time-string))
 '(line-number-mode t)
 '(compilation-always-signal-completion t)
 '(add-log-full-name "")
 '(user-mail-address "byhoe@neptune.greenlime.com" t)
 '(query-user-mail-address nil))
(custom-set-faces
 '(font-lock-string-face ((t (:foreground "white"))) t)
 '(paren-match ((t (:background "green3" :family ""))) t)
 '(font-lock-keyword-face ((t (:foreground "orange"))) t)
 '(primary-selection ((t (:background "darkseagreen2" :family ""))) t)
 '(font-lock-comment-face ((t (:foreground "yellow"))) t)
 '(zmacs-region ((t (:foreground "white" :background "blue" :family ""))) t))
(setq options-save-faces t)
(setq-default font-lock-maximum-decoration t)
(setq ada-which-compiler 'generic)

;;; ***************************
;;; Syntax highlighting
;;;
(cond (running-xemacs

       (setq font-lock-use-default-fonts nil)
       (setq font-lock-use-default-colors t)

       (require 'font-lock)

       ;; string face is green
       (set-face-foreground 'font-lock-string-face "white")

       ;; comments are italic and red; doc strings are italic
       ;;
       ;; (I use copy-face instead of make-face-italic/make-face-bold
       ;; because the startup code does intelligent things to the
       ;; 'italic and 'bold faces to ensure that they are different
       ;; from the default face.  For example, if the default face
       ;; is bold, then the 'bold face will be unbold.)
;;       (copy-face 'italic 'font-lock-comment-face)
       ;; Underlining comments looks terrible on tty's
;;       (set-face-underline-p 'font-lock-comment-face nil 'global 'tty)
;;       (set-face-highlight-p 'font-lock-comment-face t 'global 'tty)
;;       (copy-face 'font-lock-comment-face 'font-lock-doc-string-face)
;;       (set-face-foreground 'font-lock-comment-face "cyan3")

       ;; function names are bold and blue
       (copy-face 'font-lock-function-name-face)
       (set-face-foreground 'font-lock-function-name-face "blue")

       ;; misc. faces
       (and (find-face 'font-lock-preprocessor-face) ; 19.13 and above
            (copy-face 'bold 'font-lock-preprocessor-face))
       (copy-face 'italic 'font-lock-type-face)
       (copy-face 'bold 'font-lock-keyword-face)
       (set-face-foreground 'font-lock-keyword-face "orange")
       ))

;;; ********************
;;; func-menu is a package that scans your source file for function
;;; definitions and makes a menubar entry that lets you jump to any
;;; particular function definition by selecting it from the menu.  The
;;; following code turns this on for all of the recognized languages.
;;; Scanning the buffer takes some time, but not much.
;;;
;;; Send bug reports, enhancements etc to:
;;; David Hughes <ukchugd@ukpmr.cs.philips.nl>
;;;
(cond (running-xemacs
       (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)
       ))