Re: finding the elisp underpinning a menu choice
>>>> Lynn David Newton <lynn.newton(a)gmail.com>
writes:
Therefore, I guess my only choice to make things look
razzle-dazzlingly snazzy (to my eyes) when I come up is to simply go
to that menu choice and to let it do *whatever* it is that it does,
which for whatever reason fixes it.
You are on the right track by ignoring the menus for fonts when using
Xft. It doesn't work. However for me a combination of .Xresources and
elisp works pretty well.
(These files are not be perfect but will give you a starting point.)
.Xresources
----------------------------------------------------------------------
!! For xft enabled XEmacs
!! "!/usr/bin/xrdb -load .Xresources"
XEmacs*Tabs.fcFontName: Sans-8
XEmacs*menubar*fcFontName: Sans-8
XEmacs.modeline.attributeFont: DejaVu Sans Mono-8
XEmacs.default.attributeFont: DejaVu Sans Mono-10
XEmacs.scrollBarWidth: 12
*popup*fcFontName: Sans-8
*menubar*FontSet: -*-*-bold-r-*-*-*-80-*-*-*-*-iso8859-*
XEmacs*Dialog*Font: -*-*-bold-r-*-*-*-80-*-*-*-*-iso8859-*
----------------------------------------------------------------------
snippet from init.el originally from the samples coming with XEmacs.
----------------------------------------------------------------------
(cond (running-xemacs
;; If you want the default colors, you could do this:
;; (setq font-lock-use-default-fonts nil)
;; (setq font-lock-use-default-colors t)
;; but I want to specify my own colors, so I turn off all
;; default values.
(setq font-lock-use-default-fonts nil)
(setq font-lock-use-default-colors nil)
;;;;;; (set-face-font 'italic "monospace-10:italic")
(require 'font-lock)
;; Mess around with the faces a bit. Note that you have
;; to change the font-lock-use-default-* variables *before*
;; loading font-lock, and wait till *after* loading font-lock
;; to customize the faces.
;; string face is green
(set-face-foreground 'font-lock-string-face "gray40")
(set-face-underline-p 'font-lock-string-face nil 'global)
; (set-face-italic-p 'font-lock-string-face t 'global)
;; Background
;; (set-face-background 'default "cornsilk1")
;; (set-face-background 'default "gray97")
;; 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 "gray30")
;; function names are bold and blue
(set-face-font 'bold "monospace-10:bold")
(copy-face 'bold 'font-lock-function-name-face)
(set-face-foreground 'font-lock-function-name-face "black")
;; 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 'italic 'font-lock-preprocessor-face)
(copy-face 'bold 'font-lock-keyword-face)
(copy-face 'bold 'font-lock-variable-name-face)
(copy-face 'italic 'font-lock-reference-face)
))
----------------------------------------------------------------------
Yours
--
%% Mats
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta