From mboxrd@z Thu Jan  1 00:00:00 1970
From: Rene <jlr_0@yahoo.com>
Subject: Elpa color-theme with emacs24
Date: Thu, 26 Sep 2013 02:22:47 +0000 (UTC)
Message-ID: <loom.20130926T041614-409@post.gmane.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:35246)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1VP1Ea-0001CZ-0V
	for emacs-orgmode@gnu.org; Wed, 25 Sep 2013 22:23:22 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1VP1ES-00023y-RP
	for emacs-orgmode@gnu.org; Wed, 25 Sep 2013 22:23:15 -0400
Received: from plane.gmane.org ([80.91.229.3]:33976)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1VP1ES-00023g-KZ
	for emacs-orgmode@gnu.org; Wed, 25 Sep 2013 22:23:08 -0400
Received: from list by plane.gmane.org with local (Exim 4.69)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1VP1EP-0007Pf-BT
	for emacs-orgmode@gnu.org; Thu, 26 Sep 2013 04:23:07 +0200
Received: from vaf26-3-88-162-208-155.fbx.proxad.net ([88.162.208.155])
	by main.gmane.org with esmtp (Gmexim 0.1 (Debian))
	id 1AlnuQ-0007hv-00
	for <emacs-orgmode@gnu.org>; Thu, 26 Sep 2013 04:23:05 +0200
Received: from jlr_0 by vaf26-3-88-162-208-155.fbx.proxad.net with local
	(Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00
	for <emacs-orgmode@gnu.org>; Thu, 26 Sep 2013 04:23:05 +0200
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org

I just tried out color-theme with emacs24.

It seems the code on http://orgmode.org/worg/org-color-themes.html is not
quite compatible with elpa packages.

Here is what I used instead.

;-----------------------------------------------------------
; To easily cycle between different colour schemes using the F4 key
(require 'color-theme)
(require 'cyberpunk-theme)
(require 'leuven-theme)
(require 'tangotango-theme)
(require 'zenburn-theme)
(setq color-theme-is-global t)

(setq my-color-themes (list
		       'cyberpunk
		       'leuven
		       'zenburn
		       'tangotango
		       ))

(defun my-theme-set-default () ; Set the first row
      (interactive)
      (setq theme-current my-color-themes)
      (load-theme  (car theme-current) t))

(defun my-describe-theme () ; Show the current theme
      (interactive)
      (message "My color theme: %s" (car theme-current)))

(defun my-theme-cycle ()    ; Set the next theme        
      (interactive)
      (setq theme-current (cdr theme-current))
      (if (null theme-current)
      (setq theme-current my-color-themes))
      (load-theme  (car theme-current) t)
      (message "My color theme: %S" (car theme-current)))

(setq theme-current my-color-themes)
(setq color-theme-is-global nil) ; Initialization
(my-theme-set-default)
(global-set-key [f4] 'my-theme-cycle)
;------------------------------------------------------------

--
Rene