executing a random command

[elaliquo]

I am writing a function that will implement a random colour theme in emacs. Have a look at this example:

Code: Select all

(defun random-colour-theme () ;; written 2017-04-02
  "Pick a random colour theme."
  (interactive)
  (setq randomNumber (random 2))
  (setq nameOfRandomColorTheme (nth randomNumber '(
"color-theme-xemacs"
"color-theme-xp")))
  (nameOfRandomColorTheme)
  )

The last part,

Code: Select all

(nameOfRandomColorTheme)

, of course, doesn't work, even though either

Code: Select all

(color-theme-xp)

or

Code: Select all

(color-theme-xemacs)

work. How do I randomly pick one of these two commands and then execute it?

[peterlane]

I don't know Emacs lisp so this may be off base, but:

Code: Select all

  (setq nameOfRandomColorTheme (nth randomNumber '(
"color-theme-xemacs"
"color-theme-xp")))

is setting nameOfRandomColorTheme to a string value, and then:

Code: Select all

  (nameOfRandomColorTheme)

is using that string as if it were a function.

In your example you say

Code: Select all

(color-theme-xp)

as a function does what you want: perhaps you want a structure like:

Code: Select all

(if (= 0 randomNumber) (color-theme-xemacs) (color-theme-xp))