This is complicated. Essentially, I always have two frames open (two monitors). The laptop built-in screen shows a fairly large font, and that's the default for starting Emacs, which I set something like this:
(add-to-list 'default-frame-alist '(font . "-outline-Consolas-normal-r-normal-normal-17-127-96-96-c-*-iso8859-1")) (add-to-list 'initial-frame-alist '(font . "-outline-Consolas-normal-r-normal-normal-17-127-96-96-c-*-iso8859-1")) (set-frame-font "-outline-Consolas-normal-r-normal-normal-17-127-96-96-c-*-iso8859-1") These lines are all at different places in my .emacs.d mess, but before org-mode is loaded, this is all set up. However... when I'm at work, I use that frame for Gnus, and another frame, fullscreen on the other monitor, for org-mode stuff. The other frame is set up like this: (select-frame (make-frame (list (cons 'font "-raster-ProggyCleanSZ-normal-r-normal-normal-10-75-96-96-c-*-iso8859-1" )))) So, now I jump into column mode in that frame with the very small font, and I see this (please follow the link): http://www.dropbox.com/gallery/3420586/1/Screenshots?h=0058af As you can see, org-column-title (the face for the thing across the top) seems to be in pretty good shape; it's a nice small font that matches, more or less, the font at the bottom of the screenshot which is my usual font for this frame. However, the columns themselves are the org-column face, which seems to be derived from my default font: ,---- | Defined in `org-faces.el'. | | Family: Consolas | Foundry: unspecified | Width: unspecified | Height: 128 | Weight: normal | Slant: normal | Foreground: unspecified | Background: grey30 | Underline: nil | Overline: unspecified | Strike-through: nil | Box: unspecified | Inverse: unspecified | Stipple: unspecified | Font: unspecified | Fontset: unspecified | Inherit: unspecified `---- I guess I'd expect to see org-column derive from the frame font, not the default font. org-column-title seems to do the right thing. I tried to work around this by customizing org-column to lock down the Family and so forth, but this only worked for that session, oddly enough, and besides, if I'm away from my desk in a single monitor situation, I want the big font on my laptop screen again. I tried to grasp what was going on with the faces, but I couldn't get my head around it. Emacs : GNU Emacs 23.1.50.1 (i386-mingw-nt5.1.2600) of 2009-12-04 on CT-SEBOLDCR-T4C Package: Org-mode version 6.33trans (release_6.33f.92.g7dc0) current state: ============== (setq org-mobile-before-process-capture-hook '(#[nil "\212eb\210\300\301\302\303#\205 \304\305\302\211#\210\202 )\207" [re-search-forward " $" nil t replace-match ""] 4] ) org-agenda-custom-commands '(("z" tags "memorize&daily|even|thursday|memday10") ("A" "Full Agenda" ((agenda ""))) ("7" "Full Weekly Agenda" ((agenda "" ((org-agenda-ndays 7))))) ("h" . "HOME + tag/TODO searches") ("ha" "Full Agenda + Next Actions" ((agenda) (todo "INBOX") (todo "NEXTACTION") (todo "TODO")) ) ("hn" "Next Actions" ((todo "INBOX") (todo "NEXTACTION") (todo "TODO"))) ("ht" "Non-LCMS Tasks" ((tags-todo "-lcms"))) ("hp" "All Projects" ((todo "PROJECT") (todo "PROJWAITING") (todo "PROJVERIFY")) ) ("R" "TeamMania tasks" ((tags-todo "+work+teammania"))) ("w" . "LCMS + tag/TODO searhces") ("wt" "LCMS tasks" ((tags-todo "+work+lcms"))) ("wn" "LCMS Next Actions" ((agenda) (todo "INBOX") (todo "NEXTACTION") (todo "TODO")) ((org-agenda-files (quote ("~/org/lcms.org"))))) ("wp" "LCMS Unfinished Projects" ((todo "PROJECT") (todo "PROJWAITING") (todo "PROJVERIFY")) ((org-agenda-files (quote ("~/org/lcms.org"))))) ("ws" "SQL tasks" ((tags-todo "+work+sql"))) ("g" agenda "non-LCMS Agenda" ((org-agenda-files (quote ("~/org/gtd.org"))))) ("wd" agenda "LCMS Daily Agenda" ((org-agenda-files (quote ("~/org/lcms.org"))))) ("ww" agenda "LCMS Weekly Agenda" ((org-agenda-files (quote ("~/org/lcms.org"))) (org-agenda-ndays 7)) ) ) org-agenda-files '("~/org" "~/org/fiction" "~/org/reference" "~/org/personal") org-mobile-post-pull-hook '(#[nil "\300\301!\210\300\302!\207" [shell-command "scp ~/stage/mobileorg.org cseb...@zancanda.staticcling.org:public_html/org/" "ssh cseb...@zancanda.staticcling.org chmod -R ugo+rwx public_html/org"] 2] ) org-after-todo-state-change-hook '(org-clock-out-if-current) org-deadline-warning-days 5 org-agenda-skip-scheduled-if-done t org-stuck-projects '("+LEVEL=2/-DONE" ("TODO" "NEXT" "NEXTACTION") ("info") "") org-export-preprocess-hook '(org-export-blocks-preprocess) org-tab-first-hook '(org-hide-block-toggle-maybe) org-src-mode-hook '(org-src-mode-configure-edit-buffer) org-confirm-shell-link-function 'yes-or-no-p org-todo-keywords '((sequence "INBOX(i)" "TICKLER(t!)" "|" "FILE(f@)" "CANCELED(k@)") (sequence "TODO" "NEXTACTION(n)" "WAITING" "VERIFY" "|" "DONE" "REASSIGNED") (sequence "DAILY(d)" "|" "DONEDLY" "UNSCHEDDLY(D)") (sequence "WEEKLY(e)" "|" "DONEWKLY" "UNSCHEDWKLY(E)") (sequence "MONTHLY(m)" "|" "DONEMNTHLY" "UNSCHEDMNTHLY(M)") (sequence "REQUEST(r!)" "REQWAITING(w@/!)" "REQVERIFY(v)" "|" "REQCLOSED(c!)" "REQREASSIGNED(a@)") (sequence "PROJECT(P!)" "PROJWAITING(W@/!)" "PROJVERIFY(V)" "|" "PROJCLOSED(C!)" "PROJREASSIGNED(A@)") ) org-agenda-before-write-hook '(org-agenda-add-entry-text) org-default-notes-file "~/org//process.org" org-directory "~/org/" org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines org-optimize-window-after-visibility-change) org-mode-hook '(#[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-show-block-all append local] 5] ) org-agenda-ndays 1 org-use-fast-todo-selection 'prefix org-mobile-pre-pull-hook '(#[nil "\300\301!\207" [shell-command "scp cseb...@zancanda.staticcling.org:public_html/org/mobileorg.org ~/stage/ "] 2] ) org-confirm-elisp-link-function 'yes-or-no-p org-log-into-drawer t org-agenda-mode-hook '(hl-line-mode) org-agenda-skip-deadline-if-done t org-occur-hook '(org-first-headline-recenter) org-from-is-user-regexp nil org-mobile-directory "~/stage/" org-mobile-post-push-hook '(#[nil "\300\301!\210\300\302!\207" [shell-command "scp -r ~/stage/* cseb...@zancanda.staticcling.org:public_html/org/" "ssh cseb...@zancanda.staticcling.org chmod -R ugo+rwx public_html/org"] 2] ) org-agenda-use-time-grid nil org-mobile-checksum-binary "sha1sum" ) _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
