emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] Elpa color-theme with emacs24


From: Rene
Subject: [O] Elpa color-theme with emacs24
Date: Thu, 26 Sep 2013 02:22:47 +0000 (UTC)
User-agent: Loom/3.14 (http://gmane.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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]