emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] Bug: column faces based on default frame font, not current one


From: Charles Sebold
Subject: [Orgmode] 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

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
address@hidden:public_html/org/" "ssh
address@hidden 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
address@hidden: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/*
address@hidden:public_html/org/" "ssh
address@hidden chmod -R ugo+rwx public_html/org"]
                               2]
                             )
 org-agenda-use-time-grid nil
 org-mobile-checksum-binary "sha1sum"
 ) 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]