From: "Charles Sebold" <Charles.Sebold@concordiatech.org>
To: emacs-orgmode@gnu.org
Subject: Bug: column faces based on default frame font, not current one [6.33trans (release_6.33f.92.g7dc0)]
Date: Thu, 10 Dec 2009 10:35:55 -0600 [thread overview]
Message-ID: <259D558642F7634CA339261BDD76B70906731126@ctms100.stldomain.ct.local> (raw)
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"
)
reply other threads:[~2009-12-10 16:36 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=259D558642F7634CA339261BDD76B70906731126@ctms100.stldomain.ct.local \
--to=charles.sebold@concordiatech.org \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).