emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* 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).