From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Charles Sebold" 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 Message-ID: <259D558642F7634CA339261BDD76B70906731126@ctms100.stldomain.ct.local> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: quoted-printable Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NIlzm-0003hp-Pp for emacs-orgmode@gnu.org; Thu, 10 Dec 2009 11:36:02 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1NIlzi-0003fI-T8 for emacs-orgmode@gnu.org; Thu, 10 Dec 2009 11:36:02 -0500 Received: from [199.232.76.173] (port=43974 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NIlzi-0003fB-PY for emacs-orgmode@gnu.org; Thu, 10 Dec 2009 11:35:58 -0500 Received: from ctms100.concordiatech.org ([216.88.180.170]:29303) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1NIlzi-0001Is-QF for emacs-orgmode@gnu.org; Thu, 10 Dec 2009 11:35:59 -0500 Content-class: urn:content-classes:message List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org 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 =20 "-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=3D0058af 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'. |=20 | 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: =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D (setq org-mobile-before-process-capture-hook '(#[nil =20 "\212eb\210\300\301\302\303#\205=15 \304\305\302\211#\210\202=04 )\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=3D2/-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" )=20