bug#8222: 24.0.50; problem with themeing var with repeat string

bug#8222: 24.0.50; problem with themeing var with repeat string

[joakim]

A custom variable such as this:

(defcustom zen-encumbered-urls nil
  "make it harder to reach urls so you remember not to go there."
  :group 'zen
  :type '(repeat string)
  :set 'zen-set-encumber-urls
  )

  doesnt seem to work well with themeing. I get errors like:
Error setting zen-encumbered-urls: (wrong-type-argument sequencep quote)  

this is the theme:
(deftheme zen-3
  "Created 2011-03-10.")

(custom-theme-set-variables
 'zen-3
 '(scroll-bar-mode nil)
 '(zen-fullscreen-mode t)
 '(zen-encumbered-urls (quote (quote ( "#brief timewastes" "www.penny-arcade.com" "www.dilbert.com" "www.xkcd.com" "www.userfriendly.org" "#news waste" "slashdot.org" "dn.se" "#social timewastes" "https://www.facebook.com"))))
 '(menu-bar-mode nil)
 '(tool-bar-mode nil)
 '(mode-line-format nil))

(provide-theme 'zen-3)

The project im workinh on is here for reference:
https://github.com/jave/zen-mode



In GNU Emacs 24.0.50.1 (x86_64-unknown-linux-gnu, GTK+ Version 2.22.0)
 of 2011-02-22 on chopper
Windowing system distributor `Fedora Project', version 11.0.10904000
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US.UTF-8
  value of $XMODIFIERS: @im=none
  locale-coding-system: utf-8-unix
  default enable-multibyte-characters: t

Major mode: Themes

Minor modes in effect:
  diff-auto-refine-mode: t
  gpm-mouse-mode: t
  predictive-which-dict-mode: t
  shell-dirtrack-mode: t
  erc-truncate-mode: t
  erc-track-mode: t
  erc-track-minor-mode: t
  erc-spelling-mode: t
  erc-ring-mode: t
  erc-pcomplete-mode: t
  erc-netsplit-mode: t
  erc-log-mode: t
  erc-button-mode: t
  erc-fill-mode: t
  erc-autojoin-mode: t
  erc-autoaway-mode: t
  ido-everywhere: t
  erc-stamp-mode: t
  erc-match-mode: t
  delete-selection-mode: t
  show-paren-mode: t
  erc-smiley-mode: t
  erc-irccontrols-mode: t
  recentf-mode: t
  which-function-mode: t
  grab-and-drag-mode: t
  yas/global-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t
  abbrev-mode: t

Recent input:
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> C-x C-e <down> <menu> <menu> <up> <up> <return> 
<next> <up> <up> <up> <up> <up> <up> <up> <up> <up> 
<up> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> 
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <help-echo> <down-mouse-1> 
<mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> 
<down-mouse-1> <down-mouse-1> <mouse-1> <help-echo> 
<down-mouse-1> <mouse-1> <help-echo> <down-mouse-1> 
<mouse-1> <help-echo> <down-mouse-1> <down-mouse-1> 
<mouse-1> <help-echo> <down-mouse-1> <mouse-1> <down-mouse-1> 
<mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> 
<down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> 
<mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> 
<down-mouse-1> <mouse-1> <help-echo> <down-mouse-1> 
<mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> 
<down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> 
<mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> 
<down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> 
<mouse-1> C-x b z e n 3 <return> <up> <up> <up> <up> 
<up> <up> <up> <up> C-x C-x b <return> <down-mouse-1> 
<mouse-1> C-x b <return> C-x b <return> <down-mouse-1> 
<mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> 
<down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> 
<mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> 
<down-mouse-1> <mouse-1> C-x b c u - <backspace> <right> 
<return> C-x b <return> <help-echo> <down-mouse-1> 
<mouse-1> C-x b <return> <up> C-s z e n <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> C-x 
C-x b <return> <down-mouse-1> <mouse-1> <down-mouse-1> 
<mouse-1> C-x C-x b <return> C-x C-x b <return> <down-mouse-1> 
<mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> 
<down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> 
<mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> 
<down-mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> 
<mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> 
<menu> r e p SPC o SPC r SPC SPC SPC <return>

Recent messages:
1 [8 times]
enable-theme: (THEME) [2 times]
byte-code: Beginning of buffer [2 times]
Error setting zen-encumbered-urls: (wrong-type-argument sequencep quote) [5 times]
NP: /home/joakim/Download/VA - 30 Minimal Tech House Vol.12 (2011) - House [www.torrentazos.com]/11-robin_hirte-stylex_(sascha_radojkovic_remix).mp3
Error setting zen-encumbered-urls: (wrong-type-argument sequencep quote) [9 times]
I-search: zen [2 times]
Mark saved where search started
Error setting zen-encumbered-urls: (wrong-type-argument sequencep quote) [7 times]
Making completion list... [2 times]

Load-path shadows:
/home/joakim/.elisp/cedet/semantic/wisent/wisent-javascript-jv-wy hides /home/joakim/.elisp/wisentjs/wisent-javascript-jv-wy
/home/joakim/.elisp/javascript-mode hides /home/joakim/.elisp/mdee/javascript-mode
/home/joakim/.elisp/tuareg-mode-1.45.0/camldebug hides /home/joakim/.elisp/caml/camldebug
/home/joakim/.elisp/confluence-el/xml-rpc hides /home/joakim/.emacs.d/elpa/xml-rpc-1.6.7/xml-rpc
/home/joakim/.elisp/cedet/common/ezimage hides /usr/local/share/emacs/24.0.50/lisp/ezimage
/home/joakim/.elisp/cedet/speedbar/sb-image hides /usr/local/share/emacs/24.0.50/lisp/sb-image
/home/joakim/.elisp/cedet/speedbar/speedbar hides /usr/local/share/emacs/24.0.50/lisp/speedbar
/home/joakim/.elisp/cedet/speedbar/dframe hides /usr/local/share/emacs/24.0.50/lisp/dframe
/home/joakim/.elisp/sclang/tree-widget hides /usr/local/share/emacs/24.0.50/lisp/tree-widget
/home/joakim/.emacs.d/elpa/json-1.2/json hides /usr/local/share/emacs/24.0.50/lisp/json
/home/joakim/.elisp/emacs-planner/remember/remember hides /usr/local/share/emacs/24.0.50/lisp/textmodes/remember
~/.emacs.d/predictive/avl-tree hides /usr/local/share/emacs/24.0.50/lisp/emacs-lisp/avl-tree
/home/joakim/.elisp/cedet/eieio/eieio-speedbar hides /usr/local/share/emacs/24.0.50/lisp/emacs-lisp/eieio-speedbar
/home/joakim/.elisp/cedet/eieio/eieio-custom hides /usr/local/share/emacs/24.0.50/lisp/emacs-lisp/eieio-custom
/home/joakim/.elisp/cedet/eieio/eieio-comp hides /usr/local/share/emacs/24.0.50/lisp/emacs-lisp/eieio-comp
/home/joakim/.elisp/cedet/eieio/eieio-opt hides /usr/local/share/emacs/24.0.50/lisp/emacs-lisp/eieio-opt
/home/joakim/.elisp/cedet/eieio/chart hides /usr/local/share/emacs/24.0.50/lisp/emacs-lisp/chart
/home/joakim/.elisp/cedet/eieio/eieio-base hides /usr/local/share/emacs/24.0.50/lisp/emacs-lisp/eieio-base
/home/joakim/.elisp/cedet/eieio/eieio hides /usr/local/share/emacs/24.0.50/lisp/emacs-lisp/eieio
/home/joakim/.emacs.d/elpa/emms-3.0/tq hides /usr/local/share/emacs/24.0.50/lisp/emacs-lisp/tq
/home/joakim/.emacs.d/elpa/ert-0.1/ert hides /usr/local/share/emacs/24.0.50/lisp/emacs-lisp/ert
/home/joakim/.elisp/cedet/eieio/eieio-datadebug hides /usr/local/share/emacs/24.0.50/lisp/emacs-lisp/eieio-datadebug
/home/joakim/.elisp/cedet/common/cedet-idutils hides /usr/local/share/emacs/24.0.50/lisp/cedet/cedet-idutils
/home/joakim/.elisp/cedet/common/inversion hides /usr/local/share/emacs/24.0.50/lisp/cedet/inversion
/home/joakim/.elisp/cedet/ede/ede hides /usr/local/share/emacs/24.0.50/lisp/cedet/ede
/home/joakim/.elisp/cedet/common/data-debug hides /usr/local/share/emacs/24.0.50/lisp/cedet/data-debug
/home/joakim/.elisp/cedet/semantic/semantic hides /usr/local/share/emacs/24.0.50/lisp/cedet/semantic
/home/joakim/.elisp/cedet/common/cedet hides /usr/local/share/emacs/24.0.50/lisp/cedet/cedet
/home/joakim/.elisp/cedet/srecode/srecode hides /usr/local/share/emacs/24.0.50/lisp/cedet/srecode
/home/joakim/.elisp/cedet/common/pulse hides /usr/local/share/emacs/24.0.50/lisp/cedet/pulse
/home/joakim/.elisp/cedet/common/mode-local hides /usr/local/share/emacs/24.0.50/lisp/cedet/mode-local
/home/joakim/.elisp/cedet/common/cedet-files hides /usr/local/share/emacs/24.0.50/lisp/cedet/cedet-files
/home/joakim/.elisp/cedet/common/cedet-cscope hides /usr/local/share/emacs/24.0.50/lisp/cedet/cedet-cscope
/home/joakim/.elisp/cedet/common/cedet-global hides /usr/local/share/emacs/24.0.50/lisp/cedet/cedet-global

Features:
(shadow emacsbug dictionary link connection wheatgrass-theme zen-3-theme
semantic-dep korea-util ethio-util robin japan-util repeat zen-2-theme
diff-mode tst-theme jv-blueish2-theme tsdh-dark-theme tsdh-light-theme
light-blue-theme zen-1-theme gnus-html url-cache mm-url net-utils cwarn
caml-help caml-types caml-emacs telnet tramp-uu tree tetris gamegrid
term t-mouse org-table tar-mode viper viper-ex viper-macs viper-mous
viper-cmd viper-keym viper-util viper-init w3-dired rot13 trace texinfmt
texnfo-upd follow tcl thai-util thai-word tai-viet-util image-dired
tramp-gvfs zeroconf timidity-cfg surmulot squeak squeak-interaction
squeak-tcpip type-break tildify tramp-gw talk tmm tramp-smb terminal
ehelp tex-mode reftex reftex-vars testcover tpu-edt picture face-remap
todo-mode time-stamp texinfo iimage tibet-util table tramp-ftp thumbs
ielm cl-specs edebug autorevert cedet-edebug debug whitespace electric
ebnf2ps ps-print ps-def lpr woman man info-look jka-compr generic
tramp-cmds gnus-fun hippie-exp semantic-analyze-complete
semantic-symref-filter semantic-tag-write semantic-tag-file
semanticdb-typecache semantic-complete semanticdb-file semantic-edit
filecache flow-fill ede-dired gnus-dired tramp-cache tramp-sh
multi-isearch mule-util bookmark mailalias smtpmail bbdb-hooks moy-bbdb
gnus-cite shr-color color bbdb-gui shr gnus-async gnus-bcklg qp gnus-ml
gnus-topic nndraft nnmh utf-7 nnimap utf7 nnfolder parse-time bbdb-gnus
bbdb-snarf mail-extr bbdb-com gnus-agent gnus-srvr gnus-score score-mode
nnvirtual nntp proto-stream starttls tls gnus-cache gnus-alias highline
nnmairix nnml smiley newcomment tabify vc-git predictive-html
auto-overlay-flat predictive-texinfo predictive-latex
predictive-auto-overlay-auto-dict auto-overlay-nested auto-overlay-self
auto-overlay-line auto-overlay-word predictive timerfunctions
auto-overlays auto-overlay-common dict-tree trie tNFA queue heap
avl-tree completion-ui-sources completion-ui-menu pos-tip
completion-ui-tooltip completion-ui-echo completion-ui-hotkeys
completion-ui-dynamic completion-ui-popup-frame completion-ui quail
help-mode org-datetree org-wl org-w3m org-vm org-rmail org-mhe org-mew
org-irc org-jsinfo org-infojs org-html org-exp ob-exp org-exp-blocks
org-agenda org-info org-gnus org-docview org-bibtex org-bbdb org-capture
org-mks org ob-emacs-lisp ob-tangle ob-ref ob-lob ob-table org-footnote
org-src ob-comint ob-keys ob ob-eval org-complete org-list org-faces
org-compat org-entities org-macs stef-elisp csound-x csound-lsp
csound-csd csound-doc csound-opcodes csound-mid csound-ft graphs
csound-spdb k csound-key keykit-interaction keykit-mode kk_utils i
csound-eel comm-tests query-sheet embedded-elisp-library mmm-mode
mmm-univ mmm-class mmm-region mmm-auto mmm-vars mmm-utils mmm-compat
stef-elisp-compatibility slime-repl slime apropos hideshow my-jde-init
java-mode-indent-annotations jde-eclipse-compiler-server flymake jde
etags jde-open-source jde-class jde-parse-class jde-import
jde-java-font-lock jde-which-method jde-java-grammar jde-wiz
jde-complete jde-plugins jde-gen tempo jde-run jde-jdb jde-bug jde-dbs
jde-dbo regress jde-db jde-parse sregex jde-imenu semantic-java
semantic-doc avltree stack-m elib-node jde-compile jde-help jde-widgets
beanshell jde-custom jde-project-file jde-autoload jde-util arc-mode
archive-mode efc my-msf-abbrev msf-abbrev python-21 python shell
sh-script executable cperl-mode perl-mode cc-mode cc-fonts cc-menus
cc-cmds cc-styles cc-align cc-engine cc-vars cc-defs semantic-el
semantic-bovine bovine-debug semantic-debug paredit zoom-frm frame-cmds
frame-fns avoid emvkbd view boxquote rect grep-edit winner
browse-kill-ring jv-timeclock ses unsafep timeclock-visualize
auto-edit-substitute erc-truncate erc-track erc-spelling flyspell ispell
erc-ring erc-pcomplete erc-netsplit erc-log erc-button erc-fill erc-join
erc-autoaway tango-dark-theme sha1 hex-util image-file fsdired
hide-lines memory-usage my-eshell dired-x ido pager uniquify emms-jave
emms-player-mymplayer emms-volume emms-volume-amixer emms-tag-editor
emms-i18n emms-mark emms-history emms-bookmarks emms-last-played
emms-stream-info emms-metaplaylist-mode emms-lastfm emms-url url
url-proxy url-privacy url-expand url-methods url-history url-cookie
url-util url-parse url-vars emms-browser emms-playlist-sort emms-score
emms-player-xine emms-player-mpd tq emms-playing-time emms-lyrics
emms-streams emms-mode-line emms-cache emms-info-ogginfo
emms-info-mp3info emms-info later-do emms-playlist-mode
emms-player-mplayer emms-player-simple emms-source-playlist
emms-source-file emms-dbus emms-setup emms emms-compat erc-stamp
erc-match erc-ezbounce ansi-color delsel paren pcomplete plannerinit
muse-backlink remember-planner remember noutline outline planner-cyclic
solar cal-dst cal-bahai holidays hol-loaddefs ede-linux ede-emacs
ede-cpp-root planner-appt appt diary-lib diary-loaddefs
planner-tasks-overview planner-erc erc-goodies erc erc-backend
erc-compat pp planner-gnus gnus-msg gnus-art mm-uu mml2015 epg-config
mm-view mml-smime smime dig mailcap nnir gnus-sum macroexp nnoo
gnus-group gnus-undo nnmail mail-source gnus-start gnus-spec gnus-int
gnus-range gnus-win message sendmail mml mml-sec mailabbrev gmm-utils
mailheader gnus gnus-ems nnheader mail-utils planner-multi crm
planner-publish muse-xml muse-latex muse-wiki planner cal-menu calendar
cal-loaddefs muse-html muse-xml-common muse-colors cus-edit cus-start
cus-load muse-publish muse-project muse-protocols muse-regexps muse
muse-nested-tags muse-mode windmove abook mm-decode mm-bodies mm-encode
mail-parse rfc2231 rfc2047 rfc2045 ietf-drums vcard bbdb-autoloads bbdb
timezone pastebin pk-total-recall w3m-load dired-details+ dired-details
sort winring disp-table anything-config browse-url rx grep compile
dired-aux dired ffap thingatpt anything recentf tree-widget
semanticdb-java ede-proj-maven2 cedet-files cedet cedet-contrib-load
contrib-loaddefs cogre-load cogre-loaddefs speedbar-load
speedbar-loaddefs sb-info ede-load ede-loaddefs ede-speedbar ede-files
ede ede-base data-debug ede-auto eieio-speedbar semantic-ia-sb
semantic-analyze semantic-scope semantic-analyze-fcn semantic-sort
semantic-sb speedbar sb-image dframe eieio-custom wid-edit ede-source
srecode-load srecode srecode-loaddefs semantic-load
semantic-decorate-include semanticdb-find semanticdb-ref semantic-find
semantic-decorate-mode semantic-decorate pulse semantic-mru-bookmark
semanticdb-mode semanticdb-el eieio-opt semanticdb semantic-lex-spp
eieio-base semantic-idle eldoc senator which-func semantic-imenu imenu
semantic-format ezimage semantic-ctxt semantic-util-modes semantic-util
semantic semantic-lex semantic-tag-ls semantic-tag working fame
semantic-fw semantic-loaddefs mode-local find-func warnings derived
eieio-load eieio-loaddefs cedet-load cedet-compat cedet-loaddefs
inversion generic-x jvfetchmail mailcrypt rfc822 comint ring zen-mode
tramp tramp-compat auth-source eieio byte-opt bytecomp byte-compile
netrc gnus-util time-date mm-util mail-prsvr password-cache format-spec
tramp-loaddefs regexp-opt grab-and-drag easy-mmode server timeclock
battery secrets dbus xml anything-autoloads anything-complete-autoloads
anything-config-autoloads anything-el-swank-fuzzy-autoloads
anything-extension-autoloads anything-ipython-autoloads
anything-match-plugin-autoloads c-eldoc-autoloads
clojure-test-mode-autoloads color-theme-twilight-autoloads
cssh-autoloads dired-isearch-autoloads ecb-autoloads emms-autoloads
epresent-autoloads ert-autoloads facebook-autoloads gdb-shell-autoloads
gist-autoloads gtk-look-autoloads ipython-autoloads json-autoloads
lisppaste-autoloads magit-autoloads mediawiki-autoloads muse-autoloads
mv-shell-autoloads nsis-mode-autoloads nterm-autoloads paredit-autoloads
pastie-autoloads pov-mode-autoloads rainbow-mode-autoloads
smart-tab-autoloads swank-clojure-autoloads clojure-mode-autoloads
slime-repl-autoloads slime-autoloads w3-autoloads info wtf-autoloads
xml-rpc-autoloads xtide-autoloads yaml-mode-autoloads
yasnippet-bundle-autoloads yasnippet-bundle dropdown-list advice
help-fns advice-preload yasnippet edmacro kmacro easymenu assoc cl
zenburn-autoloads package tooltip ediff-hook vc-hooks lisp-float-type
mwheel x-win x-dnd tool-bar dnd fontset image fringe lisp-mode register
page menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock
font-lock syntax facemenu font-core frame cham georgian utf-8-lang
misc-lang vietnamese tibetan thai tai-viet lao korean japanese hebrew
greek romanian slovak czech european ethiopic indian cyrillic chinese
case-table epa-hook jka-cmpr-hook help simple abbrev loaddefs button
minibuffer faces cus-face files text-properties overlay md5 base64
format env code-pages mule custom widget hashtable-print-readable
backquote make-network-process dbusbind dynamic-setting
system-font-setting font-render-setting move-toolbar gtk x-toolkit x
multi-tty emacs)

-- 
Joakim Verona

bug#8222: 24.0.50; problem with themeing var with repeat string

[Chong Yidong]

joakim@verona.se writes:

> (defcustom zen-encumbered-urls nil
>   "make it harder to reach urls so you remember not to go there."
>   :group 'zen
>   :type '(repeat string)
>   :set 'zen-set-encumber-urls
>   )
>
>   doesnt seem to work well with themeing. I get errors like:
> Error setting zen-encumbered-urls: (wrong-type-argument sequencep quote)
>
> (custom-theme-set-variables
>  'zen-3
>  ...
>  '(zen-encumbered-urls (quote (quote ( "#brief timewastes" "www.penny-arcade.com" "www.dilbert.com" "www.xkcd.com" "www.userfriendly.org" "#news waste" "slashdot.org" "dn.se" "#social timewastes" "https://www.facebook.com"))))

I think you want

 '(zen-encumbered-urls (quote ("#brief timewastes" "..." ...)))

The M-x customize-create-theme interface seems to DTRT here.  If that's
not the problem, could you provide more details?

bug#8222: 24.0.50; problem with themeing var with repeat string

[joakim]

Chong Yidong <cyd@stupidchicken.com> writes:

> joakim@verona.se writes:
>
>> (defcustom zen-encumbered-urls nil
>>   "make it harder to reach urls so you remember not to go there."
>>   :group 'zen
>>   :type '(repeat string)
>>   :set 'zen-set-encumber-urls
>>   )
>>
>>   doesnt seem to work well with themeing. I get errors like:
>> Error setting zen-encumbered-urls: (wrong-type-argument sequencep quote)
>>
>> (custom-theme-set-variables
>>  'zen-3
>>  ...
>>  '(zen-encumbered-urls (quote (quote ( "#brief timewastes" "www.penny-arcade.com" "www.dilbert.com" "www.xkcd.com" "www.userfriendly.org" "#news waste" "slashdot.org" "dn.se" "#social timewastes" "https://www.facebook.com"))))
>
> I think you want
>
>  '(zen-encumbered-urls (quote ("#brief timewastes" "..." ...)))
>
> The M-x customize-create-theme interface seems to DTRT here.  If that's
> not the problem, could you provide more details?


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?



-- 
Joakim Verona

bug#8222: 24.0.50; problem with themeing var with repeat string

[Chong Yidong]

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.

bug#8222: 24.0.50; problem with themeing var with repeat string

[joakim]

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.

Ok I hope this will be adequate:

(defcustom zen-encumbered-urls nil
  "make it harder to reach urls so you remember not to go there."
  :group 'zen-mode
  :type '(repeat string))


define this theme:

(deftheme zen-test
  "Created 2011-03-10.")

(custom-theme-set-variables
 'zen-test
 '(zen-encumbered-urls  (quote ( "#brief timewastes" "www.penny-arcade.com" "www.dilbert.com" "www.xkcd.com" "www.userfriendly.org" "#news waste" "slashdot.org" "dn.se" "#social timewastes" "https://www.facebook.com")))
)

(provide-theme 'zen-test)

then:

load-library cus-theme
custom-theme-visit-theme zen-test

I'm expecting to see the same string repeater widgets plain customize
shows. Instead I get a single string that shows nil. In my larger code I
don't get nil I just get the list but still not the repeater.


-- 
Joakim Verona

bug#8222: 24.0.50; problem with themeing var with repeat string

[joakim]

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

bug#8222: 24.0.50; problem with themeing var with repeat string

[joakim]

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.

A clarification: I seem to have conflated two "bugs" in this report.
- representation of string repeaters in theme editor
- programmatically enabling a theme when there is another custom enabled
theme already.

Ill open a new bug for the second case which is also more important.

-- 
Joakim Verona

bug#8222: 24.0.50; problem with themeing var with repeat string

[Chong Yidong]

joakim@verona.se writes:

> - representation of string repeaters in theme editor

I've checked in a fix for this to the trunk.  Could you test it?

bug#8222: 24.0.50; problem with themeing var with repeat string

[Chong Yidong]

joakim@verona.se writes:

> - programmatically enabling a theme when there is another custom enabled
> theme already.
>
> Ill open a new bug for the second case which is also more important.

I didn't see you file a new bug for this, but I've now committed a fix
for this problem too.  Could you test the code in trunk and see if it
works for you?  Thanks.