From: joakim@verona.se
To: Chong Yidong <cyd@stupidchicken.com>
Cc: 8222@debbugs.gnu.org
Subject: bug#8222: 24.0.50; problem with themeing var with repeat string
Date: Sat, 12 Mar 2011 21:12:59 +0100 [thread overview]
Message-ID: <m339msdrn8.fsf@verona.se> (raw)
In-Reply-To: <8762rpr2u2.fsf@stupidchicken.com> (Chong Yidong's message of "Fri, 11 Mar 2011 12:20:37 -0500")
Chong Yidong <cyd@stupidchicken.com> writes:
> joakim@verona.se writes:
>
>> custom-theme-visit-theme doesnt provide a repeater while the usual
>> customize interface does.
>>
>> what I want to do is enable one base theme like wheatgrass or whatever.
>> On top of that I would like to add one zen theme, out of a set of three
>> zen themes.
>>
>> When I try the code I get all sorts of confusing behaviour. I iont get
>> the base theme I expect. The tool-bar doesnt come back when I disable a
>> zen theme. etc.
>>
>> I will update the repo for zen and then you can maybe try it?
>
> Could you try to come up a simple, minimal test case instead? I am
> still not clear on what the problem is.
The other test case.
(defun zen-set-fullscreen (name state)
(message "zen-set-fullscreen :>>%s<<" state)
(setq zen-fullscreen-mode state)
(cond
;;fullscreen seems to be quirky in some emacsen, this is a feeble workaround
(state (set-frame-parameter nil 'fullscreen 'fullboth))
(t (set-frame-parameter nil 'fullscreen 'fullboth-bug)
(set-frame-parameter nil 'fullscreen 'nil))))
(defcustom zen-fullscreen-mode
nil "make frame fullscreen."
:group 'zen-mode
:set 'zen-set-fullscreen)
now have a theme that sets theme zen-fullscreen-mode to t.
toggle it on and of a bit with enable-theme and disable-theme.
the second time enable is called zen-set-fullscreen will be called
twice. t first and nil second. so the end result will be nil rather than t.
--
Joakim Verona
next prev parent reply other threads:[~2011-03-12 20:12 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-03-10 21:38 bug#8222: 24.0.50; problem with themeing var with repeat string joakim
2011-03-11 0:02 ` Chong Yidong
2011-03-11 8:47 ` joakim
2011-03-11 17:20 ` Chong Yidong
2011-03-12 19:52 ` joakim
2011-03-12 20:12 ` joakim [this message]
2011-03-15 9:10 ` joakim
2011-03-21 4:32 ` Chong Yidong
2011-03-22 0:33 ` Chong Yidong
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m339msdrn8.fsf@verona.se \
--to=joakim@verona.se \
--cc=8222@debbugs.gnu.org \
--cc=cyd@stupidchicken.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 external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.