From: John Kitchin <jkitchin@andrew.cmu.edu>
To: Matt Price <moptop99@gmail.com>
Cc: Org Mode <emacs-orgmode@gnu.org>
Subject: Re: dynamically set face [was: semi-visible stars?]
Date: Thu, 01 Dec 2016 14:07:36 -0500 [thread overview]
Message-ID: <m2wpfjwjrb.fsf@andrew.cmu.edu> (raw)
In-Reply-To: <CAN_Dec95nQUAN57-yKLKkpk0aKi3m61oWcwZ8_9k1dLjYM9TDw@mail.gmail.com>
Try:
`((((background light)) (:foreground ,(format (face-attribute 'default :background)) ))
(((background dark)) (:foreground ,(format (face-attribute 'default :background)))))
Note the backtick and the commas. The functions in your list are treated
like data and not evaluated. The backtick and commas will evaluate the
format sexps and might do what you want.
I am pretty sure this won't be dynamic though, it will only define the
face when it is loaded in your init files.
For that, it seems like you might need to use set-face-attribute in a
hook function.
As for the persistence, I guess something is getting saved in your
custom.el file which gets reloaded after a restart.
Matt Price writes:
> On Thu, Dec 1, 2016 at 10:22 AM, Matt Price <moptop99@gmail.com> wrote:
>
>>
>>
>> On Wed, Nov 30, 2016 at 3:41 PM, Matt Price <moptop99@gmail.com> wrote:
>>
>>> I have been fooling around a little bit with color-themes and also the
>>> new emacs 24+ custom themes, and find that (perhaps because of using
>>> desktop-mode) there are certain traces of the theming that get left behind
>>> in the display even when I've restarted Emacs after trying hard to erase
>>> them.
>>>
>>> One of these is the frequent appearance of pale stars even when
>>> org-indent-mode is turned on. See the attached screenshot for details.
>>> The initial stars in a lower-level headline are visible, as are leading
>>> stars in front of the indented text. I find this quite distracting! Does
>>> anyone know what might be causing this, how I can get rid of them, and also
>>> how I would in general go about figuring out how to identify the cause of
>>> similar appearance-related issues in Emacs?
>>>
>>
>> I just navigated to org-faces.el and executed M-C-x on this defface:
>>
>> (defface org-hide
>> '((((background light)) (:foreground "white"))
>> (((background dark)) (:foreground "black")))
>> "Face used to hide leading stars in headlines.
>> The foreground color of this face should be equal to the background
>> color of the frame."
>> :group 'org-faces)
>>
>> problem solved. Sorry for the noise.
>>
>> OK, not solved, exactly. I have (setq color-theme-is-global t) in order to
> differentiate between different frames (one for mail, one for code, one for
> org). When I switch between the mail frame (using the 'wheat' theme) and
> the org frame (which uses a default theme), the color of org-hide seems to
> get set to the light golden brown color that 'wheat' ueses as its
> background color. Here's the extremely short definition of the wheat
> color-theme:
>
> (defun color-theme-wheat ()
> "Default colors on a wheat background.
> Calls the standard color theme function `color-theme-standard' in order
> to reset all faces."
> (interactive)
> (color-theme-standard)
> (let ((color-theme-is-cumulative t))
> (color-theme-install
> '(color-theme-wheat
> ((background-color . "Wheat"))))))
>
> I'm not sure why this messes up the other frames, but clearly it does. I'm
> thinking that if I can dynamically set the :foreground color to *whatever
> the background color is in the frame*, that might fix the issue. So I
> tried this:
>
>
> (defface org-hide
> '((((background light)) (:foreground (format (face-attribute 'default
> :background)) ))
> (((background dark)) (:foreground (format (face-attribute 'default
> :background)))))
> "Face used to hide leading stars in headlines.
> The foreground color of this face should be equal to the background
> color of the frame."
> :group 'org-faces)
>
> but I get this error:
>
> set-face-attribute: Wrong type argument: stringp, (format (face-attribute
> (quote default) :background))
>
> Obviously my understanding of lisp types is a little weak, but (type-of
> (format (face-attribute 'default :background))) returns "string". So
> what's wrong here? And am I going about this the right way?
>
> Thank you!
> m
>
>
>
>>
>>> Thank you!
>>>
>>> Matt
>>>
>>>
>>
--
Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
@johnkitchin
http://kitchingroup.cheme.cmu.edu
prev parent reply other threads:[~2016-12-01 19:07 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-12-01 18:58 dynamically set face [was: semi-visible stars?] Matt Price
2016-12-01 19:07 ` John Kitchin [this message]
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=m2wpfjwjrb.fsf@andrew.cmu.edu \
--to=jkitchin@andrew.cmu.edu \
--cc=emacs-orgmode@gnu.org \
--cc=moptop99@gmail.com \
/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).