x-emacs config

[Giannis Papaioannou]

On Fri, 30 Mar 2001, Alex wrote:
+>Exw ena problhmataki sto opoio to documentation me afhse ksekremasto. Otan 
+>kalw ton emacs apo grafiko periballon (ara ton X-emacs), to default einai na 
+>exei aspro background kai mayro font. Ayto 8elw na to allaksw kai na exw 
+>(opws ston aplo, console emacs) mayro background + gkri font.
+>
+>Paw loipon sto arxeio ~/.Xdefaults kai pros8etw sto telos tis ekshs grammes:
...
+>Kammia idea? :-)

de 3erw an douleuei me ton emacs alla gia ton xemacs exw to e3hs .emacs,
(gia na pareis mia mikrh idea(dwse shmasia sta set-face-*))(wrapped by pine(probably))


(custom-set-variables
 '(paren-mode (quote paren) nil (paren))
 '(font-lock-maximum-decoration t)
 '(font-lock-use-colors t)
 '(column-number-mode t)
 '(font-lock-use-fonts (quote t))
 '(c-support-package t)
 '(pop-up-windows t)
 '(line-number-mode t)
 '(mouse-yank-at-point t)
 '(user-mail-address "jhn at egnatia.ee.auth.gr" t)
 '(query-user-mail-address nil)
 '(font-lock-mode t nil (font-lock)))

     (set-face-background 'default      "HoneyDew1") ; frame background
     (set-face-foreground 'default      "black") ; normal text
     (set-face-background 'zmacs-region "LightSkyBlue4") ; When selecting w/
     					; mouse
     (set-face-foreground 'zmacs-region "yellow")
     (set-face-font       'default "-*-couriergr-medium-r-*-*-*-120-*-*-*-*-iso8859-*")
     (set-face-background 'highlight    "blue") ; Ie when selecting
     					; buffers
     (set-face-foreground 'highlight    "yellow")
     (set-face-background 'modeline     "DarkSeaGreen4") ; Line at bottom
     					; of buffer
     (set-face-foreground 'modeline     "white")
     (set-face-font       'modeline     "gretl14")
     (set-face-background 'isearch      "pink1") ; When highlighting
     					; while searching
     (set-face-foreground 'isearch      "SteelBlue4")
     (setq x-pointer-foreground-color   "black") ; Adds to bg color,
     					; so keep black
     (setq x-pointer-background-color   "blue") ; This is color
     					; you really
     					; want ptr/crsr
     (set-face-foreground 'modeline-mousable'  "yellow")
     (set-face-foreground 'modeline-mousable-minor-mode'  "gold1")
     (set-face-foreground 'modeline-buffer-id'  "LightBlue1")
(custom-set-faces
 '(font-lock-keyword-face ((((class color) (background light))
(:foreground "blue"))))
 '(font-lock-comment-face ((((class color) (background light))
(:foreground "red2"))))
 '(font-lock-function-name-face ((((class color) (background light))
(:foreground "brown4" :background "LightGoldenrodYellow")))))

;; 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/jhn/.xemacs-options")))
;; ============================
;; End of Options Menu Settings

;;;;;;;;;; PHP3 support for html-mode

(require 'mmm)
(defun mmm-detect-php3-region ()
  (let ((case-fold-search t)
        b e)
    (and (search-forward "<?" nil t)
         (setq b (match-end 0))
         (search-forward "?>" nil t)
         (setq e (match-beginning 0))
         (cons 'c++-mode (cons b e)))))

(defun mmm-php3-activator () 
  (mmm-activator 'mmm-detect-php3-region))

(require 'cc-mode)
(add-hook 'html-mode-hook 'mmm-php3-activator)
;;Refontify the current buffer
(define-key global-map '(meta r) 
  '(lambda ()
     (interactive nil)
     (font-lock-fontify-buffer)
     (if (and (equal major-mode 'html-mode) 
              (fboundp 'mmm-php3-activator))
         (progn 
           (display-message "message" "Applying PHP3 activator...")
           (mmm-php3-activator)
           (display-message "message" "Applying PHP3 activator...done"))
       nil)))