GNU bug report logs - #40759
26.3; Update Leuven-theme in Emacs dev trunk

Previous Next

Full log

Message #28 received at 40759 <at> debbugs.gnu.org (full text, mbox):

From: Eli Zaretskii <eliz <at> gnu.org>
To: Fab Rice <posh18 <at> pirilampo.be>
Cc: 40759 <at> debbugs.gnu.org, stefan <at> marxist.se,
 Stefan Monnier <monnier <at> iro.umontreal.ca>, egrep <at> protonmail.ch,
 dgutov <at> yandex.ru
Subject: Re: bug#40759: 26.3; Update Leuven-theme in Emacs dev trunk
Date: Sat, 25 Apr 2020 11:49:50 +0300

> Date: Fri, 24 Apr 2020 14:09:56 +0200
> From: Fab Rice <posh18 <at> pirilampo.be>
> Cc: Serghei <egrep <at> protonmail.ch>, stefan <at> marxist.se, 40759 <at> debbugs.gnu.org,
>  dgutov <at> yandex.ru
> 
> +(defgroup leuven nil
> +  "Leuven theme options.
> +The theme has to be reloaded after changing anything in this group."
> +  :group 'faces)
> +
> +(defcustom leuven-scale-outline-headlines t
> +  "Scale `outline' (and `org') level-1 headlines.
> +This can be nil for unscaled, t for using the theme default, or a scaling
> +number."
> +  :type '(choice
> +          (const :tag "Unscaled" nil)
> +          (const :tag "Default provided by theme" t)
> +          (number :tag "Set scaling"))
> +  :group 'leuven)
> +
> +(defcustom leuven-scale-org-agenda-structure t
> +  "Scale Org agenda structure lines, like dates.
> +This can be nil for unscaled, t for using the theme default, or a scaling
> +number."
> +  :type '(choice
> +          (const :tag "Unscaled" nil)
> +          (const :tag "Default provided by theme" t)
> +          (number :tag "Set scaling")))

We don't have defcustom's in any other theme I see in etc/themes/.
Does 'disable-theme' know how to undo the defcustom's, i.e. makunbound
them so that they are no longer in the name-space? should it?  If so,
I think we should add such a feature, and only after that we will be
able to accept themes that define new user options.

> +(defun leuven-scale-font (control default-height)
> +  "Function for splicing optional font heights into face descriptions.
> +CONTROL can be a number, nil, or t.  When t, use DEFAULT-HEIGHT."
> +  (cond
> +   ((numberp control) (list :height control))
> +   ((eq t control) (list :height default-height))
> +   (t nil)))

Likewise with functions: should 'disable-theme' fmakunbound them?

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.