Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (if (>= emacs-major-version 24)
- (progn
- (add-to-list 'custom-theme-load-path "~/.emacs.d/themes")
- (setq my-color-themes (list
- 'cyberpunk
- 'zenburn
- 'solarized-dark
- 'solarized-light
- 'comidia
- 'late-night
- ;; 'MechanicalTurq
- ;; 'DeepBlueDay
- 'tango-dark
- ))
- (defun my-theme-set-default ()
- (interactive)
- (setq theme-current my-color-themes)
- (load-theme (car theme-current) t)
- ;; (set-default-font font-default) ;; restore default font
- )
- ;; TODO: add reverse funcitonnality
- (defun my-theme-cycle ()
- (interactive)
- (disable-theme (car theme-current))
- (setq theme-current (cdr theme-current))
- (if (null theme-current)
- (setq theme-current my-color-themes))
- (load-theme (car theme-current) t)
- ;; (set-default-font font-default) ;; restore default font
- )
- (my-theme-set-default)
- (global-set-key [f12] 'my-theme-cycle)
- )
- ;; else
- (progn
- (require 'color-theme)
- ;; (require 'color-theme-solarized) ;; doesn't work w/ emacsclient 23 on linux
- (setq my-color-themes (list
- ;; 'color-theme-solarized-light
- ;; 'color-theme-solarized-dark
- 'color-theme-comidia
- ;; 'color-theme-midnight
- 'color-theme-aalto-light
- 'color-theme-late-night
- ;; 'color-theme-kingsajz
- ;; 'color-theme-simple-1
- ))
- (setq fav-color-themes-d (list 'color-theme-comidia
- 'color-theme-late-night
- 'color-theme-simple-1
- 'color-theme-midnight
- 'color-theme-hober
- ))
- (setq fav-color-themes-l (list 'color-theme-aalto-light
- 'color-theme-kingsajz
- ))
- (defun my-theme-set-default ()
- (interactive)
- (setq theme-current my-color-themes)
- (funcall (car theme-current)))
- (defun my-theme-cycle ()
- (interactive)
- (setq theme-current (cdr theme-current))
- (if (null theme-current)
- (setq theme-current my-color-themes))
- (funcall (car theme-current))
- (message "%S" (car theme-current)))
- (setq theme-current my-color-themes)
- (eval-after-load "color-theme"
- '(progn
- (color-theme-initialize)
- (my-theme-set-default)))
- (setq
- color-theme-is-global t
- color-theme-is-cumulative t)
- (global-set-key [f12] 'my-theme-cycle)
- )
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement