* Bug: column faces based on default frame font, not current one [6.33trans (release_6.33f.92.g7dc0)]
@ 2009-12-10 16:35 Charles Sebold
0 siblings, 0 replies; only message in thread
From: Charles Sebold @ 2009-12-10 16:35 UTC (permalink / raw)
To: emacs-orgmode
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\x15 \304\305\302\211#\210\202\x04 )\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
csebold@zancanda.staticcling.org:public_html/org/" "ssh
csebold@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
csebold@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/*
csebold@zancanda.staticcling.org:public_html/org/" "ssh
csebold@zancanda.staticcling.org chmod -R ugo+rwx public_html/org"]
2]
)
org-agenda-use-time-grid nil
org-mobile-checksum-binary "sha1sum"
)
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2009-12-10 16:36 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2009-12-10 16:35 Bug: column faces based on default frame font, not current one [6.33trans (release_6.33f.92.g7dc0)] Charles Sebold
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).