From 0139318a673c55e8d9649feb9a5027b82ef34b72 Mon Sep 17 00:00:00 2001 From: Jesse Storimer Date: Wed, 9 Jun 2010 06:27:48 -0400 Subject: [PATCH] Red smear --- LICENSE | 20 - README.rdoc | 7 - bash/aliases | 16 +- bash/completion_scripts/capistrano_completion | 69 - bash/completion_scripts/project_completion | 24 - bash/completions | 4 +- bash/config | 10 - bash_profile | 24 - bashrc | 7 + bin/bat_charge | 38 - bin/todo.sh | 1046 ++ config/fish/.gitignore | 2 - config/fish/README.textile | 31 - config/fish/bin/edit_gem | 10 - config/fish/bin/fish_method_missing | 38 - config/fish/bin/gem_doc | 12 - .../completions/brew_fish_completion.fish | 73 - config/fish/completions/cap.fish | 13 - config/fish/completions/edit_gem.fish | 3 - config/fish/completions/gem_doc.fish | 3 - config/fish/completions/git-svn.fish | 16 - config/fish/completions/git.fish | 232 - config/fish/completions/rake.fish | 13 - config/fish/completions/rcd.fish | 1 - config/fish/completions/rmate.fish | 1 - config/fish/config.fish | 35 - config/fish/functions/a.fish | 3 - config/fish/functions/cd.fish | 30 - config/fish/functions/clean_rake_cache.fish | 5 - config/fish/functions/confirm.fish | 7 - config/fish/functions/deplol.fish | 14 - config/fish/functions/df.fish | 3 - config/fish/functions/du.fish | 3 - config/fish/functions/e.fish | 3 - config/fish/functions/fish_prompt.fish | 21 - config/fish/functions/ga.fish | 3 - config/fish/functions/gap.fish | 3 - config/fish/functions/gau.fish | 3 - config/fish/functions/gbr.fish | 5 - config/fish/functions/gbrt.fish | 7 - config/fish/functions/gc.fish | 5 - config/fish/functions/gca.fish | 5 - config/fish/functions/gcam.fish | 5 - config/fish/functions/gcf.fish | 4 - config/fish/functions/gcm.fish | 5 - config/fish/functions/gco.fish | 3 - config/fish/functions/gcop.fish | 3 - config/fish/functions/gd..fish | 3 - config/fish/functions/gd.fish | 3 - config/fish/functions/gdc..fish | 3 - config/fish/functions/gdc.fish | 3 - config/fish/functions/gdcw.fish | 4 - config/fish/functions/gds.fish | 3 - config/fish/functions/gdw.fish | 5 - .../fish/functions/get_corkboard_backup.fish | 5 - config/fish/functions/git.fish | 3 - .../fish/functions/git_dirty_files_count.fish | 7 - config/fish/functions/git_head_commit_id.fish | 5 - config/fish/functions/gl.fish | 3 - config/fish/functions/grb.fish | 3 - config/fish/functions/grbc.fish | 3 - config/fish/functions/grbi.fish | 3 - config/fish/functions/gs.fish | 3 - config/fish/functions/hc.fish | 3 - config/fish/functions/hl.fish | 3 - config/fish/functions/ho.fish | 3 - config/fish/functions/hp.fish | 3 - config/fish/functions/hr.fish | 3 - config/fish/functions/in_git_repo.fish | 8 - config/fish/functions/jeep.fish | 3 - config/fish/functions/jes.fish | 3 - config/fish/functions/l.fish | 3 - config/fish/functions/la.fish | 5 - config/fish/functions/lal.fish | 5 - .../fish/functions/latest_gem_version_of.fish | 5 - config/fish/functions/m.fish | 3 - config/fish/functions/method_missing.fish | 0 config/fish/functions/mysqlbackup.fish | 3 - config/fish/functions/parse_git_branch.fish | 4 - config/fish/functions/rvm.fish | 23 - config/fish/functions/rvm_init.fish | 5 - config/fish/functions/sc.fish | 3 - config/fish/functions/ss.fish | 4 - config/fish/functions/tailf.fish | 3 - config/fish/functions/tw.fish | 3 - config/fish/functions/twit.fish | 3 - emacs.d/.gitignore | 6 - emacs.d/.gitmodules | 30 - emacs.d/README.markdown | 8 - emacs.d/defunkt.el | 18 - emacs.d/defunkt/bindings.el | 20 - emacs.d/defunkt/custom/airistotle.el | 37 - emacs.d/defunkt/defunkt.el | 18 - emacs.d/defunkt/defuns.el | 101 - emacs.d/defunkt/dired.el | 16 - emacs.d/defunkt/global.el | 11 - emacs.d/defunkt/modes.el | 29 - emacs.d/defunkt/ruby.el | 66 - emacs.d/defunkt/shell.el | 9 - emacs.d/defunkt/theme.el | 5 - emacs.d/emacs.el | 8 - emacs.d/emacsd-tile.el | 30 - emacs.d/install.rb | 29 - emacs.d/local.el | 8 - emacs.d/restore.rb | 9 - emacs.d/vendor/ack.el | 88 - emacs.d/vendor/cheat.el | 270 - emacs.d/vendor/color-theme.el | 15170 ---------------- emacs.d/vendor/js2.el | 11659 ------------ emacs.d/vendor/paredit.el | 2149 --- emacs.d/vendor/peepopen.el | 79 - emacs.d/vendor/rinari/.gitignore | 3 - emacs.d/vendor/rinari/.gitmodules | 6 - emacs.d/vendor/rinari/README | 17 - emacs.d/vendor/rinari/Rakefile | 187 - emacs.d/vendor/rinari/TODO | 538 - emacs.d/vendor/rinari/doc/.gitignore | 2 - emacs.d/vendor/rinari/doc/rinari.texi | 493 - emacs.d/vendor/rinari/rinari-merb.el | 554 - emacs.d/vendor/rinari/rinari.el | 642 - emacs.d/vendor/rinari/test/.gitignore | 1 - emacs.d/vendor/rinari/test/elunit.el | 338 - emacs.d/vendor/rinari/test/init.el | 100 - emacs.d/vendor/rinari/test/rails-app/README | 256 - emacs.d/vendor/rinari/test/rails-app/Rakefile | 10 - .../rails-app/app/controllers/application.rb | 10 - .../app/controllers/example_controller.rb | 10 - .../app/controllers/newone_controller.rb | 2 - .../app/controllers/units_controller.rb | 7 - .../app/helpers/application_helper.rb | 3 - .../rails-app/app/helpers/example_helper.rb | 2 - .../rails-app/app/helpers/newone_helper.rb | 2 - .../rails-app/app/helpers/units_helper.rb | 2 - .../test/rails-app/app/models/example.rb | 7 - .../rails-app/app/views/example/show.rhtml | 1 - .../rails-app/app/views/example/write.rhtml | 1 - .../rails-app/app/views/units/fall.html.erb | 1 - .../rinari/test/rails-app/config/boot.rb | 109 - .../rinari/test/rails-app/config/database.yml | 19 - .../test/rails-app/config/environment.rb | 67 - .../config/environments/development.rb | 17 - .../config/environments/production.rb | 22 - .../rails-app/config/environments/test.rb | 22 - .../config/initializers/inflections.rb | 10 - .../config/initializers/mime_types.rb | 5 - .../config/initializers/new_rails_defaults.rb | 15 - .../rinari/test/rails-app/config/routes.rb | 41 - .../rinari/test/rails-app/db/test.sqlite3 | 0 .../rinari/test/rails-app/doc/README_FOR_APP | 2 - .../rinari/test/rails-app/log/development.log | 0 .../rinari/test/rails-app/log/production.log | 0 .../rinari/test/rails-app/log/server.log | 0 .../vendor/rinari/test/rails-app/log/test.log | 0 .../rinari/test/rails-app/public/404.html | 30 - .../rinari/test/rails-app/public/422.html | 30 - .../rinari/test/rails-app/public/500.html | 30 - .../rinari/test/rails-app/public/dispatch.cgi | 10 - .../test/rails-app/public/dispatch.fcgi | 24 - .../rinari/test/rails-app/public/dispatch.rb | 10 - .../rinari/test/rails-app/public/favicon.ico | 0 .../test/rails-app/public/images/rails.png | Bin 6646 -> 0 bytes .../rinari/test/rails-app/public/index.html | 274 - .../public/javascripts/application.js | 2 - .../rails-app/public/javascripts/controls.js | 963 - .../rails-app/public/javascripts/dragdrop.js | 972 - .../rails-app/public/javascripts/effects.js | 1120 -- .../rails-app/public/javascripts/prototype.js | 4225 ----- .../rinari/test/rails-app/public/robots.txt | 5 - .../vendor/rinari/test/rails-app/script/about | 3 - .../rinari/test/rails-app/script/console | 3 - .../rinari/test/rails-app/script/dbconsole | 3 - .../rinari/test/rails-app/script/destroy | 3 - .../rinari/test/rails-app/script/generate | 3 - .../rails-app/script/performance/benchmarker | 3 - .../rails-app/script/performance/profiler | 3 - .../test/rails-app/script/performance/request | 3 - .../rinari/test/rails-app/script/plugin | 3 - .../test/rails-app/script/process/inspector | 3 - .../test/rails-app/script/process/reaper | 3 - .../test/rails-app/script/process/spawner | 3 - .../rinari/test/rails-app/script/runner | 3 - .../rinari/test/rails-app/script/server | 3 - .../test/rails-app/test/fixtures/examples.yml | 7 - .../test/rails-app/test/fixtures/newones.yml | 7 - .../functional/example_controller_test.rb | 8 - .../test/functional/newone_controller_test.rb | 8 - .../test/functional/units_controller_test.rb | 10 - .../rinari/test/rails-app/test/test_helper.rb | 38 - .../test/rails-app/test/unit/example_test.rb | 10 - .../test/rails-app/test/unit/newone_test.rb | 8 - .../rinari/util/cucumber-mode-compilation.el | 210 - emacs.d/vendor/rinari/util/inf-ruby.el | 350 - emacs.d/vendor/rinari/util/jump/.gitignore | 1 - emacs.d/vendor/rinari/util/jump/README | 12 - emacs.d/vendor/rinari/util/jump/Rakefile | 24 - emacs.d/vendor/rinari/util/jump/findr.el | 258 - .../vendor/rinari/util/jump/inflections.el | 150 - emacs.d/vendor/rinari/util/jump/jump.el | 300 - .../vendor/rinari/util/jump/test/elunit.el | 338 - emacs.d/vendor/rinari/util/jump/test/init.el | 107 - .../test/jump-fake-app/animals/chicken.rb | 7 - .../jump/test/jump-fake-app/animals/pig.rb | 19 - .../jump/test/jump-fake-app/foods/pork.rb | 19 - .../rinari/util/ruby-compilation-rspec.el | 30 - .../vendor/rinari/util/ruby-compilation.el | 294 - emacs.d/vendor/rinari/util/ruby-mode.el | 1428 -- .../vendor/rinari/util/test/ert/.gitignore | 1 - emacs.d/vendor/rinari/util/test/ert/TODO | 22 - .../rinari/util/test/ert/ert-functional.el | 99 - emacs.d/vendor/rinari/util/test/ert/ert.el | 1578 -- .../vendor/rinari/util/test/ert/ert.texinfo | 309 - .../util/test/ert/test/badly-indented.el | 3 - .../util/test/ert/test/ert-selftests.el | 594 - .../util/test/ert/test/well-indented.el | 2 - .../vendor/rinari/util/test/ruby-mode-test.el | 39 - emacs.d/vendor/ruby-hacks.el | 160 - emacs.d/vendor/textile-mode.el | 402 - emacs.d/vendor/textmate.el/.gitignore | 1 - emacs.d/vendor/textmate.el/README.markdown | 58 - emacs.d/vendor/textmate.el/textmate.el | 393 - .../twilight-emacs/color-theme-twilight.el | 64 - emacs.d/vendor/yaml-mode.el | 392 - gemrc | 12 +- hgrc | 16 - inputrc | 34 - irbrc | 10 +- profile | 2 - screenrc | 51 - vim/after/ftplugin/cucumber.vim | 16 - vim/colors/vividchalk.vim | 172 - vim/doc/greplace.txt | 161 - vim/doc/matchit.txt | 406 - vim/doc/rails.txt | 1202 -- vim/doc/snippets_emu.txt | 354 - vim/doc/surround.txt | 218 - vim/doc/tComment.txt | 208 - vim/doc/tags | 269 - vim/doc/textile.txt | 52 - vim/ftdetect/cucumber.vim | 2 - vim/ftdetect/scala.vim | 3 - vim/ftplugin/cucumber.vim | 125 - vim/indent/cucumber.vim | 40 - vim/indent/scala.vim | 85 - vim/plugin/31-create-scala.vim | 57 - vim/plugin/ctags.vim | 10 - vim/plugin/cwdconfig.vim | 9 - vim/plugin/endwise.vim | 132 - vim/plugin/matchit.vim | 812 - vim/plugin/pastie.vim | 537 - vim/plugin/peepopen.vim | 44 - vim/plugin/snippetsEmu.vim | 973 - vim/plugin/surround.vim | 628 - vim/plugin/tComment.vim | 849 - vim/plugin/textile.vim | 5 - vim/syntax/cucumber.vim | 100 - vim/syntax/less.vim | 306 - vim/syntax/mkd.vim | 104 - vim/syntax/scala.vim | 153 - vim/syntax/textile.vim | 87 - vimrc | 70 +- zlogin | 5 - zsh/aliases | 170 +- zsh/completion | 32 +- zsh/config | 49 +- zsh/functions/_brew | 65 - zsh/functions/_c | 2 - zsh/functions/_cap | 8 - zsh/functions/_gh | 2 - zsh/functions/_git-rm | 7 - zsh/functions/_github | 72 - zsh/functions/_h | 2 - zsh/functions/_rake | 8 - zsh/functions/c | 1 - zsh/functions/gam | 1 - zsh/functions/gfp | 1 - zsh/functions/git_info_for_prompt | 48 - zsh/functions/h | 1 - zsh/functions/last_modified | 1 - zsh/functions/newtab | 26 - zsh/functions/railsapp | 1 - zsh/functions/savepath | 1 - zsh/functions/verbose_completion | 5 - 282 files changed, 1083 insertions(+), 58681 deletions(-) delete mode 100644 LICENSE delete mode 100644 README.rdoc delete mode 100755 bash/completion_scripts/capistrano_completion delete mode 100755 bash/completion_scripts/project_completion delete mode 100644 bash_profile create mode 100644 bashrc delete mode 100755 bin/bat_charge create mode 100755 bin/todo.sh delete mode 100755 config/fish/.gitignore delete mode 100755 config/fish/README.textile delete mode 100755 config/fish/bin/edit_gem delete mode 100755 config/fish/bin/fish_method_missing delete mode 100755 config/fish/bin/gem_doc delete mode 100644 config/fish/completions/brew_fish_completion.fish delete mode 100755 config/fish/completions/cap.fish delete mode 100755 config/fish/completions/edit_gem.fish delete mode 100755 config/fish/completions/gem_doc.fish delete mode 100755 config/fish/completions/git-svn.fish delete mode 100755 config/fish/completions/git.fish delete mode 100755 config/fish/completions/rake.fish delete mode 100755 config/fish/completions/rcd.fish delete mode 100755 config/fish/completions/rmate.fish delete mode 100755 config/fish/config.fish delete mode 100644 config/fish/functions/a.fish delete mode 100755 config/fish/functions/cd.fish delete mode 100755 config/fish/functions/clean_rake_cache.fish delete mode 100755 config/fish/functions/confirm.fish delete mode 100755 config/fish/functions/deplol.fish delete mode 100755 config/fish/functions/df.fish delete mode 100755 config/fish/functions/du.fish delete mode 100755 config/fish/functions/e.fish delete mode 100755 config/fish/functions/fish_prompt.fish delete mode 100755 config/fish/functions/ga.fish delete mode 100755 config/fish/functions/gap.fish delete mode 100755 config/fish/functions/gau.fish delete mode 100755 config/fish/functions/gbr.fish delete mode 100755 config/fish/functions/gbrt.fish delete mode 100755 config/fish/functions/gc.fish delete mode 100755 config/fish/functions/gca.fish delete mode 100755 config/fish/functions/gcam.fish delete mode 100755 config/fish/functions/gcf.fish delete mode 100755 config/fish/functions/gcm.fish delete mode 100755 config/fish/functions/gco.fish delete mode 100755 config/fish/functions/gcop.fish delete mode 100755 config/fish/functions/gd..fish delete mode 100755 config/fish/functions/gd.fish delete mode 100755 config/fish/functions/gdc..fish delete mode 100755 config/fish/functions/gdc.fish delete mode 100755 config/fish/functions/gdcw.fish delete mode 100755 config/fish/functions/gds.fish delete mode 100755 config/fish/functions/gdw.fish delete mode 100755 config/fish/functions/get_corkboard_backup.fish delete mode 100644 config/fish/functions/git.fish delete mode 100755 config/fish/functions/git_dirty_files_count.fish delete mode 100755 config/fish/functions/git_head_commit_id.fish delete mode 100755 config/fish/functions/gl.fish delete mode 100755 config/fish/functions/grb.fish delete mode 100755 config/fish/functions/grbc.fish delete mode 100755 config/fish/functions/grbi.fish delete mode 100755 config/fish/functions/gs.fish delete mode 100644 config/fish/functions/hc.fish delete mode 100644 config/fish/functions/hl.fish delete mode 100644 config/fish/functions/ho.fish delete mode 100644 config/fish/functions/hp.fish delete mode 100644 config/fish/functions/hr.fish delete mode 100755 config/fish/functions/in_git_repo.fish delete mode 100644 config/fish/functions/jeep.fish delete mode 100644 config/fish/functions/jes.fish delete mode 100755 config/fish/functions/l.fish delete mode 100755 config/fish/functions/la.fish delete mode 100755 config/fish/functions/lal.fish delete mode 100755 config/fish/functions/latest_gem_version_of.fish delete mode 100755 config/fish/functions/m.fish delete mode 100644 config/fish/functions/method_missing.fish delete mode 100755 config/fish/functions/mysqlbackup.fish delete mode 100755 config/fish/functions/parse_git_branch.fish delete mode 100644 config/fish/functions/rvm.fish delete mode 100644 config/fish/functions/rvm_init.fish delete mode 100644 config/fish/functions/sc.fish delete mode 100644 config/fish/functions/ss.fish delete mode 100644 config/fish/functions/tailf.fish delete mode 100644 config/fish/functions/tw.fish delete mode 100644 config/fish/functions/twit.fish delete mode 100644 emacs.d/.gitignore delete mode 100644 emacs.d/.gitmodules delete mode 100644 emacs.d/README.markdown delete mode 100644 emacs.d/defunkt.el delete mode 100644 emacs.d/defunkt/bindings.el delete mode 100644 emacs.d/defunkt/custom/airistotle.el delete mode 100644 emacs.d/defunkt/defunkt.el delete mode 100644 emacs.d/defunkt/defuns.el delete mode 100644 emacs.d/defunkt/dired.el delete mode 100644 emacs.d/defunkt/global.el delete mode 100644 emacs.d/defunkt/modes.el delete mode 100644 emacs.d/defunkt/ruby.el delete mode 100644 emacs.d/defunkt/shell.el delete mode 100644 emacs.d/defunkt/theme.el delete mode 100644 emacs.d/emacs.el delete mode 100644 emacs.d/emacsd-tile.el delete mode 100644 emacs.d/install.rb delete mode 100644 emacs.d/local.el delete mode 100644 emacs.d/restore.rb delete mode 100644 emacs.d/vendor/ack.el delete mode 100644 emacs.d/vendor/cheat.el delete mode 100644 emacs.d/vendor/color-theme.el delete mode 100644 emacs.d/vendor/js2.el delete mode 100644 emacs.d/vendor/paredit.el delete mode 100644 emacs.d/vendor/peepopen.el delete mode 100644 emacs.d/vendor/rinari/.gitignore delete mode 100644 emacs.d/vendor/rinari/.gitmodules delete mode 100644 emacs.d/vendor/rinari/README delete mode 100644 emacs.d/vendor/rinari/Rakefile delete mode 100644 emacs.d/vendor/rinari/TODO delete mode 100644 emacs.d/vendor/rinari/doc/.gitignore delete mode 100644 emacs.d/vendor/rinari/doc/rinari.texi delete mode 100644 emacs.d/vendor/rinari/rinari-merb.el delete mode 100644 emacs.d/vendor/rinari/rinari.el delete mode 100644 emacs.d/vendor/rinari/test/.gitignore delete mode 100644 emacs.d/vendor/rinari/test/elunit.el delete mode 100644 emacs.d/vendor/rinari/test/init.el delete mode 100644 emacs.d/vendor/rinari/test/rails-app/README delete mode 100644 emacs.d/vendor/rinari/test/rails-app/Rakefile delete mode 100644 emacs.d/vendor/rinari/test/rails-app/app/controllers/application.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/app/controllers/example_controller.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/app/controllers/newone_controller.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/app/controllers/units_controller.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/app/helpers/application_helper.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/app/helpers/example_helper.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/app/helpers/newone_helper.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/app/helpers/units_helper.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/app/models/example.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/app/views/example/show.rhtml delete mode 100644 emacs.d/vendor/rinari/test/rails-app/app/views/example/write.rhtml delete mode 100644 emacs.d/vendor/rinari/test/rails-app/app/views/units/fall.html.erb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/config/boot.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/config/database.yml delete mode 100644 emacs.d/vendor/rinari/test/rails-app/config/environment.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/config/environments/development.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/config/environments/production.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/config/environments/test.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/config/initializers/inflections.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/config/initializers/mime_types.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/config/initializers/new_rails_defaults.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/config/routes.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/db/test.sqlite3 delete mode 100644 emacs.d/vendor/rinari/test/rails-app/doc/README_FOR_APP delete mode 100644 emacs.d/vendor/rinari/test/rails-app/log/development.log delete mode 100644 emacs.d/vendor/rinari/test/rails-app/log/production.log delete mode 100644 emacs.d/vendor/rinari/test/rails-app/log/server.log delete mode 100644 emacs.d/vendor/rinari/test/rails-app/log/test.log delete mode 100644 emacs.d/vendor/rinari/test/rails-app/public/404.html delete mode 100644 emacs.d/vendor/rinari/test/rails-app/public/422.html delete mode 100644 emacs.d/vendor/rinari/test/rails-app/public/500.html delete mode 100755 emacs.d/vendor/rinari/test/rails-app/public/dispatch.cgi delete mode 100755 emacs.d/vendor/rinari/test/rails-app/public/dispatch.fcgi delete mode 100755 emacs.d/vendor/rinari/test/rails-app/public/dispatch.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/public/favicon.ico delete mode 100644 emacs.d/vendor/rinari/test/rails-app/public/images/rails.png delete mode 100644 emacs.d/vendor/rinari/test/rails-app/public/index.html delete mode 100644 emacs.d/vendor/rinari/test/rails-app/public/javascripts/application.js delete mode 100644 emacs.d/vendor/rinari/test/rails-app/public/javascripts/controls.js delete mode 100644 emacs.d/vendor/rinari/test/rails-app/public/javascripts/dragdrop.js delete mode 100644 emacs.d/vendor/rinari/test/rails-app/public/javascripts/effects.js delete mode 100644 emacs.d/vendor/rinari/test/rails-app/public/javascripts/prototype.js delete mode 100644 emacs.d/vendor/rinari/test/rails-app/public/robots.txt delete mode 100755 emacs.d/vendor/rinari/test/rails-app/script/about delete mode 100755 emacs.d/vendor/rinari/test/rails-app/script/console delete mode 100755 emacs.d/vendor/rinari/test/rails-app/script/dbconsole delete mode 100755 emacs.d/vendor/rinari/test/rails-app/script/destroy delete mode 100755 emacs.d/vendor/rinari/test/rails-app/script/generate delete mode 100755 emacs.d/vendor/rinari/test/rails-app/script/performance/benchmarker delete mode 100755 emacs.d/vendor/rinari/test/rails-app/script/performance/profiler delete mode 100755 emacs.d/vendor/rinari/test/rails-app/script/performance/request delete mode 100755 emacs.d/vendor/rinari/test/rails-app/script/plugin delete mode 100755 emacs.d/vendor/rinari/test/rails-app/script/process/inspector delete mode 100755 emacs.d/vendor/rinari/test/rails-app/script/process/reaper delete mode 100755 emacs.d/vendor/rinari/test/rails-app/script/process/spawner delete mode 100755 emacs.d/vendor/rinari/test/rails-app/script/runner delete mode 100755 emacs.d/vendor/rinari/test/rails-app/script/server delete mode 100644 emacs.d/vendor/rinari/test/rails-app/test/fixtures/examples.yml delete mode 100644 emacs.d/vendor/rinari/test/rails-app/test/fixtures/newones.yml delete mode 100644 emacs.d/vendor/rinari/test/rails-app/test/functional/example_controller_test.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/test/functional/newone_controller_test.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/test/functional/units_controller_test.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/test/test_helper.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/test/unit/example_test.rb delete mode 100644 emacs.d/vendor/rinari/test/rails-app/test/unit/newone_test.rb delete mode 100644 emacs.d/vendor/rinari/util/cucumber-mode-compilation.el delete mode 100644 emacs.d/vendor/rinari/util/inf-ruby.el delete mode 100644 emacs.d/vendor/rinari/util/jump/.gitignore delete mode 100644 emacs.d/vendor/rinari/util/jump/README delete mode 100644 emacs.d/vendor/rinari/util/jump/Rakefile delete mode 100644 emacs.d/vendor/rinari/util/jump/findr.el delete mode 100644 emacs.d/vendor/rinari/util/jump/inflections.el delete mode 100644 emacs.d/vendor/rinari/util/jump/jump.el delete mode 100644 emacs.d/vendor/rinari/util/jump/test/elunit.el delete mode 100644 emacs.d/vendor/rinari/util/jump/test/init.el delete mode 100644 emacs.d/vendor/rinari/util/jump/test/jump-fake-app/animals/chicken.rb delete mode 100644 emacs.d/vendor/rinari/util/jump/test/jump-fake-app/animals/pig.rb delete mode 100644 emacs.d/vendor/rinari/util/jump/test/jump-fake-app/foods/pork.rb delete mode 100644 emacs.d/vendor/rinari/util/ruby-compilation-rspec.el delete mode 100644 emacs.d/vendor/rinari/util/ruby-compilation.el delete mode 100644 emacs.d/vendor/rinari/util/ruby-mode.el delete mode 100644 emacs.d/vendor/rinari/util/test/ert/.gitignore delete mode 100644 emacs.d/vendor/rinari/util/test/ert/TODO delete mode 100644 emacs.d/vendor/rinari/util/test/ert/ert-functional.el delete mode 100644 emacs.d/vendor/rinari/util/test/ert/ert.el delete mode 100644 emacs.d/vendor/rinari/util/test/ert/ert.texinfo delete mode 100644 emacs.d/vendor/rinari/util/test/ert/test/badly-indented.el delete mode 100644 emacs.d/vendor/rinari/util/test/ert/test/ert-selftests.el delete mode 100644 emacs.d/vendor/rinari/util/test/ert/test/well-indented.el delete mode 100644 emacs.d/vendor/rinari/util/test/ruby-mode-test.el delete mode 100644 emacs.d/vendor/ruby-hacks.el delete mode 100644 emacs.d/vendor/textile-mode.el delete mode 100644 emacs.d/vendor/textmate.el/.gitignore delete mode 100644 emacs.d/vendor/textmate.el/README.markdown delete mode 100644 emacs.d/vendor/textmate.el/textmate.el delete mode 100644 emacs.d/vendor/twilight-emacs/color-theme-twilight.el delete mode 100644 emacs.d/vendor/yaml-mode.el delete mode 100644 hgrc delete mode 100644 inputrc delete mode 100755 profile delete mode 100755 screenrc delete mode 100644 vim/after/ftplugin/cucumber.vim delete mode 100644 vim/colors/vividchalk.vim delete mode 100644 vim/doc/greplace.txt delete mode 100644 vim/doc/matchit.txt delete mode 100644 vim/doc/rails.txt delete mode 100644 vim/doc/snippets_emu.txt delete mode 100644 vim/doc/surround.txt delete mode 100644 vim/doc/tComment.txt delete mode 100644 vim/doc/tags delete mode 100644 vim/doc/textile.txt delete mode 100644 vim/ftdetect/cucumber.vim delete mode 100644 vim/ftdetect/scala.vim delete mode 100644 vim/ftplugin/cucumber.vim delete mode 100644 vim/indent/cucumber.vim delete mode 100644 vim/indent/scala.vim delete mode 100644 vim/plugin/31-create-scala.vim delete mode 100644 vim/plugin/ctags.vim delete mode 100644 vim/plugin/cwdconfig.vim delete mode 100644 vim/plugin/endwise.vim delete mode 100755 vim/plugin/matchit.vim delete mode 100644 vim/plugin/pastie.vim delete mode 100644 vim/plugin/peepopen.vim delete mode 100644 vim/plugin/snippetsEmu.vim delete mode 100644 vim/plugin/surround.vim delete mode 100644 vim/plugin/tComment.vim delete mode 100644 vim/plugin/textile.vim delete mode 100644 vim/syntax/cucumber.vim delete mode 100644 vim/syntax/less.vim delete mode 100644 vim/syntax/mkd.vim delete mode 100644 vim/syntax/scala.vim delete mode 100644 vim/syntax/textile.vim delete mode 100644 zlogin delete mode 100644 zsh/functions/_brew delete mode 100644 zsh/functions/_c delete mode 100644 zsh/functions/_cap delete mode 100644 zsh/functions/_gh delete mode 100644 zsh/functions/_git-rm delete mode 100644 zsh/functions/_github delete mode 100644 zsh/functions/_h delete mode 100644 zsh/functions/_rake delete mode 100644 zsh/functions/c delete mode 100644 zsh/functions/gam delete mode 100644 zsh/functions/gfp delete mode 100644 zsh/functions/git_info_for_prompt delete mode 100644 zsh/functions/h delete mode 100644 zsh/functions/last_modified delete mode 100644 zsh/functions/newtab delete mode 100644 zsh/functions/railsapp delete mode 100644 zsh/functions/savepath delete mode 100644 zsh/functions/verbose_completion diff --git a/LICENSE b/LICENSE deleted file mode 100644 index b6c091399c..0000000000 --- a/LICENSE +++ /dev/null @@ -1,20 +0,0 @@ -Copyright (c) 2009 Ryan Bates - -Permission is hereby granted, free of charge, to any person obtaining -a copy of this software and associated documentation files (the -"Software"), to deal in the Software without restriction, including -without limitation the rights to use, copy, modify, merge, publish, -distribute, sublicense, and/or sell copies of the Software, and to -permit persons to whom the Software is furnished to do so, subject to -the following conditions: - -The above copyright notice and this permission notice shall be -included in all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, -EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND -NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE -LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION -OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION -WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. \ No newline at end of file diff --git a/README.rdoc b/README.rdoc deleted file mode 100644 index 5a927c1a22..0000000000 --- a/README.rdoc +++ /dev/null @@ -1,7 +0,0 @@ -= Jesse Storimer's Dot Files - -These are config files to set up a system the way I like it. - -== Installation - - rake install \ No newline at end of file diff --git a/bash/aliases b/bash/aliases index 7634ae9206..75bdfe416f 100644 --- a/bash/aliases +++ b/bash/aliases @@ -1,18 +1,4 @@ . ~/.zsh/aliases # misc -alias reload='. ~/.bash_profile' - -pathed_cd () { - if [ "$1" == "" ]; then - cd - else - cd "$1" - fi - pwd > ~/.cdpath -} -alias cd="pathed_cd" - -if [ -f ~/.cdpath ]; then - cd $(cat ~/.cdpath) -fi +alias reload='. ~/.bashrc' \ No newline at end of file diff --git a/bash/completion_scripts/capistrano_completion b/bash/completion_scripts/capistrano_completion deleted file mode 100755 index d1d0967572..0000000000 --- a/bash/completion_scripts/capistrano_completion +++ /dev/null @@ -1,69 +0,0 @@ -#!/usr/bin/env ruby - -# to install, add the following line to your .bash_profile or .bashrc -# complete -C path/to/capistrano_completion -o default capistrano - -# Capistrano completion will return matching capistrano tasks given typed text. This -# way you can auto-complete tasks as you are typing them by hitting [tab] or [tab][tab] -# This also caches the capistrano tasks for optimium speed -class CapistranoCompletion - CACHE_FILE_NAME = '.cap_tasks~' - - def initialize(command) - @command = command - end - - def matches - exit 0 if capfile.nil? - matching_tasks.map do |task| - task.sub(typed_before_colon, '') - end - end - - private - - def typed - @command[/\s(.+?)$/, 1] || '' - end - - def typed_before_colon - typed[/.+\:/] || '' - end - - def matching_tasks - all_tasks.select do |task| - task[0, typed.length] == typed - end - end - - def all_tasks - cache_current? ? tasks_from_cache : generate_tasks - end - - def cache_current? - File.exist?(cache_file) && File.mtime(cache_file) >= File.mtime(capfile) - end - - def capfile - ['capfile', 'Capfile', 'capfile.rb', 'Capfile.rb'].detect do |file| - File.file? File.join(Dir.pwd, file) - end - end - - def cache_file - File.join(Dir.pwd, CACHE_FILE_NAME) - end - - def tasks_from_cache - IO.read(cache_file).split - end - - def generate_tasks - tasks = `cap --tasks`.split("\n")[1..-8].collect {|line| line.split[1]} - File.open(cache_file, 'w') { |f| f.write tasks.join("\n") } - tasks - end -end - -puts CapistranoCompletion.new(ENV["COMP_LINE"]).matches -exit 0 diff --git a/bash/completion_scripts/project_completion b/bash/completion_scripts/project_completion deleted file mode 100755 index a1f1c1eeb4..0000000000 --- a/bash/completion_scripts/project_completion +++ /dev/null @@ -1,24 +0,0 @@ -#!/usr/bin/env ruby - -class ProjectCompletion - def initialize(command) - @command = command - end - - def matches - projects.select do |task| - task[0, typed.length] == typed - end - end - - def typed - @command[/\s(.+?)$/, 1] || '' - end - - def projects - `ls ~/code/`.split - end -end - -puts ProjectCompletion.new(ENV["COMP_LINE"]).matches -exit 0 diff --git a/bash/completions b/bash/completions index ad63d01905..19c668bcde 100644 --- a/bash/completions +++ b/bash/completions @@ -1,4 +1,2 @@ source ~/.bash/completion_scripts/git_completion -complete -C ~/.bash/completion_scripts/rake_completion -o default rake -complete -C ~/.bash/completion_scripts/project_completion -o default c -complete -C ~/.bash/completion_scripts/capistrano_completion -o default cap +complete -C ~/.bash/completion_scripts/rake_completion -o default rake \ No newline at end of file diff --git a/bash/config b/bash/config index b3d9911085..199158c69c 100644 --- a/bash/config +++ b/bash/config @@ -1,12 +1,2 @@ -NOCOLOR='\e[0m' # disable all colors -EBLACK='\e[1;30m' # Black - Bold -ERED='\e[1;31m' # Red -EGREEN='\e[1;32m' # Green -bldylw='\e[1;33m' # Yellow -bldblu='\e[1;34m' # Blue -EPURP='\e[1;35m' # Purple -ECYAN='\e[1;36m' # Cyan -bldwht='\e[1;37m' # White - export PS1="\n\[$EGREEN\]\u:\[$ECYAN\]\w\[$EBLACK\] \$(vcprompt)\[$NOCOLOR\] \n→ " export EDITOR="mate -w" diff --git a/bash_profile b/bash_profile deleted file mode 100644 index 9e6051f396..0000000000 --- a/bash_profile +++ /dev/null @@ -1,24 +0,0 @@ -source ~/.bash/aliases -source ~/.bash/completions -source ~/.bash/paths -source ~/.bash/config - -if [ -f ~/.bashrc ]; then - . ~/.bashrc -fi - -if [ -f ~/.localrc ]; then - . ~/.localrc -fi - -# rvm-install added line: -if [[ -s /Users/jesse/.rvm/scripts/rvm ]] ; then source /Users/jesse/.rvm/scripts/rvm ; fi - - -export NARWHAL_ENGINE=jsc - -export NARWHAL_ENGINE=jsc - -export PATH="/Users/jesse/workspace/lib/cappuccino/yes/bin:$PATH" - -export NARWHAL_ENGINE=jsc diff --git a/bashrc b/bashrc new file mode 100644 index 0000000000..9f6258bedf --- /dev/null +++ b/bashrc @@ -0,0 +1,7 @@ +source ~/.bash/aliases +source ~/.bash/completions +source ~/.bash/paths +source ~/.bash/config + +# rvm-install added line: +if [[ -s /Users/jesse/.rvm/scripts/rvm ]] ; then source /Users/jesse/.rvm/scripts/rvm ; fi diff --git a/bin/bat_charge b/bin/bat_charge deleted file mode 100755 index 15104ced25..0000000000 --- a/bin/bat_charge +++ /dev/null @@ -1,38 +0,0 @@ -#!/usr/bin/env python -# coding=UTF-8 - -import math, subprocess - -p = subprocess.Popen(["ioreg", "-rc", "AppleSmartBattery"], stdout=subprocess.PIPE) -output = p.communicate()[0] - -o_max = [l for l in output.splitlines() if 'MaxCapacity' in l][0] -o_cur = [l for l in output.splitlines() if 'CurrentCapacity' in l][0] - -b_max = float(o_max.rpartition('=')[-1].strip()) -b_cur = float(o_cur.rpartition('=')[-1].strip()) - -charge = b_cur / b_max -charge_threshold = int(math.ceil(10 * charge)) - -# Output - -total_slots, slots = 10, [] -filled = int(math.ceil(charge_threshold * (total_slots / 10.0))) * u'▸' -empty = (total_slots - len(filled)) * u'▹' - -out = (filled + empty).encode('utf-8') -import sys - -color_green = '%{%}' -color_yellow = '%{%}' -color_red = '%{%}' -color_reset = '%{%}' -color_out = ( - color_green if len(filled) > 6 - else color_yellow if len(filled) > 4 - else color_red -) - -out = color_out + out + color_reset -sys.stdout.write(out) \ No newline at end of file diff --git a/bin/todo.sh b/bin/todo.sh new file mode 100755 index 0000000000..e98743cec3 --- /dev/null +++ b/bin/todo.sh @@ -0,0 +1,1046 @@ +#! /bin/bash + +# NOTE: Todo.sh requires the .todo/config configuration file to run. +# Place the .todo/config file in your home directory or use the -d option for a custom location. + +[ -f VERSION-FILE ] && . VERSION-FILE || VERSION="2.6" +version() { + cat <<-EndVersion + TODO.TXT Command Line Interface v$VERSION + + First release: 5/11/2006 + Original conception by: Gina Trapani (http://ginatrapani.org) + Contributors: http://github.com/ginatrapani/todo.txt-cli/network + License: GPL, http://www.gnu.org/copyleft/gpl.html + More information and mailing list at http://todotxt.com + Code repository: http://github.com/ginatrapani/todo.txt-cli/tree/master + EndVersion + exit 1 +} + +# Set script name and full path early. +TODO_SH=$(basename "$0") +TODO_FULL_SH="$0" +export TODO_SH TODO_FULL_SH + +oneline_usage="$TODO_SH [-fhpantvV] [-d todo_config] action [task_number] [task_description]" + +usage() +{ + cat <<-EndUsage + Usage: $oneline_usage + Try '$TODO_SH -h' for more information. + EndUsage + exit 1 +} + +shorthelp() +{ + cat <<-EndHelp + Usage: $oneline_usage + + Actions: + add|a "THING I NEED TO DO +project @context" + addto DEST "TEXT TO ADD" + addm "THINGS I NEED TO DO + MORE THINGS I NEED TO DO" + append|app NUMBER "TEXT TO APPEND" + archive + command [ACTIONS] + del|rm NUMBER [TERM] + dp|depri NUMBER + do NUMBER + help + list|ls [TERM...] + listall|lsa [TERM...] + listcon|lsc + listfile|lf SRC [TERM...] + listpri|lsp [PRIORITY] + listproj|lsprj + move|mv NUMBER DEST [SRC] + prepend|prep NUMBER "TEXT TO PREPEND" + pri|p NUMBER PRIORITY + replace NUMBER "UPDATED TODO" + report + + See "help" for more details. + EndHelp + exit 0 +} + +help() +{ + cat <<-EndHelp + Usage: $oneline_usage + + Actions: + add "THING I NEED TO DO +project @context" + a "THING I NEED TO DO +project @context" + Adds THING I NEED TO DO to your todo.txt file on its own line. + Project and context notation optional. + Quotes optional. + + addm "FIRST THING I NEED TO DO +project1 @context + SECOND THING I NEED TO DO +project2 @context" + Adds FIRST THING I NEED TO DO to your todo.txt on its own line and + Adds SECOND THING I NEED TO DO to you todo.txt on its own line. + Project and context notation optional. + Quotes optional. + + addto DEST "TEXT TO ADD" + Adds a line of text to any file located in the todo.txt directory. + For example, addto inbox.txt "decide about vacation" + + append NUMBER "TEXT TO APPEND" + app NUMBER "TEXT TO APPEND" + Adds TEXT TO APPEND to the end of the todo on line NUMBER. + Quotes optional. + + archive + Moves done items from todo.txt to done.txt and removes blank lines. + + command [ACTIONS] + Runs the remaining arguments using only todo.sh builtins. + Will not call any .todo.actions.d scripts. + + del NUMBER [TERM] + rm NUMBER [TERM] + Deletes the item on line NUMBER in todo.txt. + If term specified, deletes only the term from the line. + + depri NUMBER + dp NUMBER + Deprioritizes (removes the priority) from the item + on line NUMBER in todo.txt. + + do NUMBER[, NUMBER, NUMBER, ...] + Marks item(s) on line NUMBER as done in todo.txt. + + help + Display this help message. + + list [TERM...] + ls [TERM...] + Displays all todo's that contain TERM(s) sorted by priority with line + numbers. If no TERM specified, lists entire todo.txt. + + listall [TERM...] + lsa [TERM...] + Displays all the lines in todo.txt AND done.txt that contain TERM(s) + sorted by priority with line numbers. If no TERM specified, lists + entire todo.txt AND done.txt concatenated and sorted. + + listcon + lsc + Lists all the task contexts that start with the @ sign in todo.txt. + + listfile SRC [TERM...] + lf SRC [TERM...] + Displays all the lines in SRC file located in the todo.txt directory, + sorted by priority with line numbers. If TERM specified, lists + all lines that contain TERM in SRC file. + + listpri [PRIORITY] + lsp [PRIORITY] + Displays all items prioritized PRIORITY. + If no PRIORITY specified, lists all prioritized items. + + listproj + lsprj + Lists all the projects that start with the + sign in todo.txt. + + move NUMBER DEST [SRC] + mv NUMBER DEST [SRC] + Moves a line from source text file (SRC) to destination text file (DEST). + Both source and destination file must be located in the directory defined + in the configuration directory. When SRC is not defined + it's by default todo.txt. + + prepend NUMBER "TEXT TO PREPEND" + prep NUMBER "TEXT TO PREPEND" + Adds TEXT TO PREPEND to the beginning of the todo on line NUMBER. + Quotes optional. + + pri NUMBER PRIORITY + p NUMBER PRIORITY + Adds PRIORITY to todo on line NUMBER. If the item is already + prioritized, replaces current priority with new PRIORITY. + PRIORITY must be an uppercase letter between A and Z. + + replace NUMBER "UPDATED TODO" + Replaces todo on line NUMBER with UPDATED TODO. + + report + Adds the number of open todo's and closed done's to report.txt. + + + + Options: + -@ + Hide context names in list output. Use twice to show context + names (default). + -+ + Hide project names in list output. Use twice to show project + names (default). + -d CONFIG_FILE + Use a configuration file other than the default ~/.todo/config + -f + Forces actions without confirmation or interactive input + -h + Display a short help message + -p + Plain mode turns off colors + -P + Hide priority labels in list output. Use twice to show + priority labels (default). + -a + Don't auto-archive tasks automatically on completion + -n + Don't preserve line numbers; automatically remove blank lines + on task deletion + -t + Prepend the current date to a task automatically + when it's added. + -v + Verbose mode turns on confirmation messages + -vv + Extra verbose mode prints some debugging information + -V + Displays version, license and credits + -x + Disables TODOTXT_FINAL_FILTER + + + Environment variables: + TODOTXT_AUTO_ARCHIVE=0 is same as option -a + TODOTXT_CFG_FILE=CONFIG_FILE is same as option -d CONFIG_FILE + TODOTXT_FORCE=1 is same as option -f + TODOTXT_PRESERVE_LINE_NUMBERS=0 is same as option -n + TODOTXT_PLAIN=1 is same as option -p + TODOTXT_DATE_ON_ADD=1 is same as option -t + TODOTXT_VERBOSE=1 is same as option -v + TODOTXT_DEFAULT_ACTION="" run this when called with no arguments + TODOTXT_SORT_COMMAND="sort ..." customize list output + TODOTXT_FINAL_FILTER="sed ..." customize list after color, P@+ hiding + EndHelp + + if [ -d "$TODO_ACTIONS_DIR" ] + then + echo "" + for action in "$TODO_ACTIONS_DIR"/* + do + if [ -x "$action" ] + then + "$action" usage + fi + done + echo "" + fi + + + exit 1 +} + +die() +{ + echo "$*" + exit 1 +} + +cleanup() +{ + [ -f "$TMP_FILE" ] && rm "$TMP_FILE" + exit 0 +} + +cleaninput() +{ + # Cleanup the input + # Replace newlines with spaces Always + input=`echo $input | tr -d '\r|\n'` + + action_regexp="^\(append\|app\|prepend\|prep\|replace\)$" + + # Check which action we are being used in as this affects what cleaning we do + if [ `echo $action | grep -c $action_regexp` -eq 1 ]; then + # These actions use sed and & as the matched string so escape it + input=`echo $input | sed 's/\&/\\\&/g'` + fi +} + +archive() +{ + #defragment blank lines + sed -i.bak -e '/./!d' "$TODO_FILE" + [ $TODOTXT_VERBOSE -gt 0 ] && grep "^x " "$TODO_FILE" + grep "^x " "$TODO_FILE" >> "$DONE_FILE" + sed -i.bak '/^x /d' "$TODO_FILE" + cp "$TODO_FILE" "$TMP_FILE" + sed -n 'G; s/\n/&&/; /^\([ ~-]*\n\).*\n\1/d; s/\n//; h; P' "$TMP_FILE" > "$TODO_FILE" + #[[ $TODOTXT_VERBOSE -gt 0 ]] && echo "TODO: Duplicate tasks have been removed." + [ $TODOTXT_VERBOSE -gt 0 ] && echo "TODO: $TODO_FILE archived." + cleanup +} + + +# == PROCESS OPTIONS == +while getopts ":fhpnatvVx+@Pd:" Option +do + case $Option in + '@' ) + ## HIDE_CONTEXT_NAMES starts at zero (false); increment it to one + ## (true) the first time this flag is seen. Each time the flag + ## is seen after that, increment it again so that an even + ## number shows context names and an odd number hides context + ## names. + : $(( HIDE_CONTEXT_NAMES++ )) + if [ $(( $HIDE_CONTEXT_NAMES % 2 )) -eq 0 ] + then + ## Zero or even value -- show context names + unset HIDE_CONTEXTS_SUBSTITUTION + else + ## One or odd value -- hide context names + export HIDE_CONTEXTS_SUBSTITUTION='[[:space:]]@[^[:space:]]\{1,\}' + fi + ;; + '+' ) + ## HIDE_PROJECT_NAMES starts at zero (false); increment it to one + ## (true) the first time this flag is seen. Each time the flag + ## is seen after that, increment it again so that an even + ## number shows project names and an odd number hides project + ## names. + : $(( HIDE_PROJECT_NAMES++ )) + if [ $(( $HIDE_PROJECT_NAMES % 2 )) -eq 0 ] + then + ## Zero or even value -- show project names + unset HIDE_PROJECTS_SUBSTITUTION + else + ## One or odd value -- hide project names + export HIDE_PROJECTS_SUBSTITUTION='[[:space:]][+][^[:space:]]\{1,\}' + fi + ;; + a ) + TODOTXT_AUTO_ARCHIVE=0 + ;; + d ) + TODOTXT_CFG_FILE=$OPTARG + ;; + f ) + TODOTXT_FORCE=1 + ;; + h ) + shorthelp + ;; + n ) + TODOTXT_PRESERVE_LINE_NUMBERS=0 + ;; + p ) + TODOTXT_PLAIN=1 + ;; + P ) + ## HIDE_PRIORITY_LABELS starts at zero (false); increment it to one + ## (true) the first time this flag is seen. Each time the flag + ## is seen after that, increment it again so that an even + ## number shows priority labels and an odd number hides priority + ## labels. + : $(( HIDE_PRIORITY_LABELS++ )) + if [ $(( $HIDE_PRIORITY_LABELS % 2 )) -eq 0 ] + then + ## Zero or even value -- show priority labels + unset HIDE_PRIORITY_SUBSTITUTION + else + ## One or odd value -- hide priority labels + export HIDE_PRIORITY_SUBSTITUTION="([A-Z])[[:space:]]" + fi + ;; + t ) + TODOTXT_DATE_ON_ADD=1 + ;; + v ) + : $(( TODOTXT_VERBOSE++ )) + ;; + V ) + version + ;; + x ) + TODOTXT_DISABLE_FILTER=1 + ;; + esac +done +shift $(($OPTIND - 1)) + +# defaults if not yet defined +TODOTXT_VERBOSE=${TODOTXT_VERBOSE:-1} +TODOTXT_PLAIN=${TODOTXT_PLAIN:-0} +TODOTXT_CFG_FILE=${TODOTXT_CFG_FILE:-$HOME/.todo/config} +TODOTXT_FORCE=${TODOTXT_FORCE:-0} +TODOTXT_PRESERVE_LINE_NUMBERS=${TODOTXT_PRESERVE_LINE_NUMBERS:-1} +TODOTXT_AUTO_ARCHIVE=${TODOTXT_AUTO_ARCHIVE:-1} +TODOTXT_DATE_ON_ADD=${TODOTXT_DATE_ON_ADD:-0} +TODOTXT_DEFAULT_ACTION=${TODOTXT_DEFAULT_ACTION:-} +TODOTXT_SORT_COMMAND=${TODOTXT_SORT_COMMAND:-env LC_COLLATE=C sort -f -k2} +TODOTXT_FINAL_FILTER=${TODOTXT_FINAL_FILTER:-cat} + +# Export all TODOTXT_* variables +export ${!TODOTXT_@} + +# Default color map +export NONE='' +export BLACK='\\033[0;30m' +export RED='\\033[0;31m' +export GREEN='\\033[0;32m' +export BROWN='\\033[0;33m' +export BLUE='\\033[0;34m' +export PURPLE='\\033[0;35m' +export CYAN='\\033[0;36m' +export LIGHT_GREY='\\033[0;37m' +export DARK_GREY='\\033[1;30m' +export LIGHT_RED='\\033[1;31m' +export LIGHT_GREEN='\\033[1;32m' +export YELLOW='\\033[1;33m' +export LIGHT_BLUE='\\033[1;34m' +export LIGHT_PURPLE='\\033[1;35m' +export LIGHT_CYAN='\\033[1;36m' +export WHITE='\\033[1;37m' +export DEFAULT='\\033[0m' + +# Default priority->color map. +export PRI_A=$YELLOW # color for A priority +export PRI_B=$GREEN # color for B priority +export PRI_C=$LIGHT_BLUE # color for C priority +export PRI_X=$WHITE # color for rest of them + +[ -e "$TODOTXT_CFG_FILE" ] || { + CFG_FILE_ALT="$HOME/todo.cfg" + + if [ -e "$CFG_FILE_ALT" ] + then + TODOTXT_CFG_FILE="$CFG_FILE_ALT" + fi +} + +[ -e "$TODOTXT_CFG_FILE" ] || { + CFG_FILE_ALT="$HOME/.todo.cfg" + + if [ -e "$CFG_FILE_ALT" ] + then + TODOTXT_CFG_FILE="$CFG_FILE_ALT" + fi +} + +if [ -z "$TODO_ACTIONS_DIR" -o ! -d "$TODO_ACTIONS_DIR" ] +then + TODO_ACTIONS_DIR="$HOME/.todo/actions" + export TODO_ACTIONS_DIR +fi + +[ -d "$TODO_ACTIONS_DIR" ] || { + TODO_ACTIONS_DIR_ALT="$HOME/.todo.actions.d" + + if [ -d "$TODO_ACTIONS_DIR_ALT" ] + then + TODO_ACTIONS_DIR="$TODO_ACTIONS_DIR_ALT" + fi +} + +# === SANITY CHECKS (thanks Karl!) === +[ -r "$TODOTXT_CFG_FILE" ] || die "Fatal error: Cannot read configuration file $TODOTXT_CFG_FILE" + +. "$TODOTXT_CFG_FILE" + +ACTION=${1:-$TODOTXT_DEFAULT_ACTION} + +[ -z "$ACTION" ] && usage +[ -d "$TODO_DIR" ] || die "Fatal Error: $TODO_DIR is not a directory" +( cd "$TODO_DIR" ) || die "Fatal Error: Unable to cd to $TODO_DIR" + +[ -w "$TMP_FILE" ] || echo -n > "$TMP_FILE" || die "Fatal Error: Unable to write to $TMP_FILE" +[ -f "$TODO_FILE" ] || cp /dev/null "$TODO_FILE" +[ -f "$DONE_FILE" ] || cp /dev/null "$DONE_FILE" +[ -f "$REPORT_FILE" ] || cp /dev/null "$REPORT_FILE" + +if [ $TODOTXT_PLAIN = 1 ]; then + PRI_A=$NONE + PRI_B=$NONE + PRI_C=$NONE + PRI_X=$NONE + DEFAULT=$NONE +fi + +# === HEAVY LIFTING === +shopt -s extglob + +_addto() { + file="$1" + input="$2" + cleaninput $input + + if [[ $TODOTXT_DATE_ON_ADD = 1 ]]; then + now=`date '+%Y-%m-%d'` + input="$now $input" + fi + echo "$input" >> "$file" + [ $TODOTXT_VERBOSE -gt 0 ] && { + TASKNUM=$(sed -n '$ =' "$file") + BASE=$(basename "$file") + PREFIX=$(echo ${BASE%%.[^.]*} | tr [a-z] [A-Z]) + echo "${PREFIX}: '$input' added on line $TASKNUM." + } +} + +_list() { + local FILE="$1" + ## If the file starts with a "/" use absolute path. Otherwise, + ## try to find it in either $TODO_DIR or using a relative path + if [ "${1:0:1}" == / ] + then + ## Absolute path + src="$FILE" + elif [ -f "$TODO_DIR/$FILE" ] + then + ## Path relative to todo.sh directory + src="$TODO_DIR/$1" + elif [ -f "$FILE" ] + then + ## Path relative to current working directory + src="$FILE" + else + echo "TODO: File $FILE does not exist." + exit 1 + fi + + ## Get our search arguments, if any + shift ## was file name, new $1 is first search term + + ## Prefix the filter_command with the pre_filter_command + filter_command="${pre_filter_command:-}" + + for search_term in "$@" + do + ## See if the first character of $search_term is a dash + if [ ${search_term:0:1} != '-' ] + then + ## First character isn't a dash: hide lines that don't match + ## this $search_term + filter_command="${filter_command:-} ${filter_command:+|} \ + grep -i \"$search_term\" " + else + ## First character is a dash: hide lines that match this + ## $search_term + # + ## Remove the first character (-) before adding to our filter command + filter_command="${filter_command:-} ${filter_command:+|} \ + grep -v -i \"${search_term:1}\" " + fi + done + + ## If post_filter_command is set, append it to the filter_command + [ -n "$post_filter_command" ] && { + filter_command="${filter_command:-}${filter_command:+ | }${post_filter_command:-}" + } + + ## Figure out how much padding we need to use + ## We need one level of padding for each power of 10 $LINES uses + LINES=$( sed -n '$ =' "$src" ) + PADDING=${#LINES} + + ## Number the file, then run the filter command, + ## then sort and mangle output some more + if [[ $TODOTXT_DISABLE_FILTER = 1 ]]; then + TODOTXT_FINAL_FILTER="cat" + fi + items=$( + sed = "$src" \ + | sed "N; s/^/ /; s/ *\(.\{$PADDING,\}\)\n/\1 /" \ + | grep -v "^[ 0-9]\+ *$" + ) + if [ "${filter_command}" ]; then + filtered_items=$(echo -ne "$items" | eval ${filter_command}) + else + filtered_items=$items + fi + filtered_items=$( + echo -ne "$filtered_items" \ + | sed ''' + s/^ /00000/; + s/^ /0000/; + s/^ /000/; + s/^ /00/; + s/^ /0/; + ''' \ + | eval ${TODOTXT_SORT_COMMAND} \ + | sed ''' + /^[0-9]\{'$PADDING'\} x /! { + s/\(.*(A).*\)/'$PRI_A'\1'$DEFAULT'/g; + s/\(.*(B).*\)/'$PRI_B'\1'$DEFAULT'/g; + s/\(.*(C).*\)/'$PRI_C'\1'$DEFAULT'/g; + s/\(.*([D-Z]).*\)/'$PRI_X'\1'$DEFAULT'/g; + } + ''' \ + | sed ''' + s/'${HIDE_PRIORITY_SUBSTITUTION:-^}'//g + s/'${HIDE_PROJECTS_SUBSTITUTION:-^}'//g + s/'${HIDE_CONTEXTS_SUBSTITUTION:-^}'//g + ''' \ + | eval ${TODOTXT_FINAL_FILTER} \ + ) + echo -ne "$filtered_items${filtered_items:+\n}" + + if [ $TODOTXT_VERBOSE -gt 0 ]; then + BASE=$(basename "$FILE") + PREFIX=$(echo ${BASE%%.[^.]*} | tr [a-z] [A-Z]) + NUMTASKS=$( echo -ne "$filtered_items" | sed -n '$ =' ) + TOTALTASKS=$( echo -ne "$items" | sed -n '$ =' ) + + echo "--" + echo "${PREFIX}: ${NUMTASKS:-0} of ${TOTALTASKS:-0} tasks shown" + fi + if [ $TODOTXT_VERBOSE -gt 1 ] + then + echo "TODO DEBUG: Filter Command was: ${filter_command:-cat}" + fi +} + +export -f _list + +# == HANDLE ACTION == +action=$( printf "%s\n" "$ACTION" | tr 'A-Z' 'a-z' ) + +## If the first argument is "command", run the rest of the arguments +## using todo.sh builtins. +## Else, run a actions script with the name of the command if it exists +## or fallback to using a builtin +if [ "$action" == command ] +then + ## Get rid of "command" from arguments list + shift + ## Reset action to new first argument + action=$( printf "%s\n" "$1" | tr 'A-Z' 'a-z' ) +elif [ -d "$TODO_ACTIONS_DIR" -a -x "$TODO_ACTIONS_DIR/$action" ] +then + "$TODO_ACTIONS_DIR/$action" "$@" + cleanup +fi + +## Only run if $action isn't found in .todo.actions.d +case $action in +"add" | "a") + if [[ -z "$2" && $TODOTXT_FORCE = 0 ]]; then + echo -n "Add: " + read input + else + [ -z "$2" ] && die "usage: $TODO_SH add \"TODO ITEM\"" + shift + input=$* + fi + _addto "$TODO_FILE" "$input" + cleanup;; + +"addm") + if [[ -z "$2" && $TODOTXT_FORCE = 0 ]]; then + echo -n "Add: " + read input + else + [ -z "$2" ] && die "usage: $TODO_SH addm \"TODO ITEM\"" + shift + input=$* + fi + + # Set Internal Field Seperator as newline so we can + # loop across multiple lines + SAVEIFS=$IFS + IFS=$'\n' + + # Treat each line seperately + for line in $input ; do + _addto "$TODO_FILE" "$line" + done + IFS=$SAVEIFS + cleanup;; + +"addto" ) + [ -z "$2" ] && die "usage: $TODO_SH addto DEST \"TODO ITEM\"" + dest="$TODO_DIR/$2" + [ -z "$3" ] && die "usage: $TODO_SH addto DEST \"TODO ITEM\"" + shift + shift + input=$* + + if [ -f "$dest" ]; then + _addto "$dest" "$input" + else + echo "TODO: Destination file $dest does not exist." + fi + cleanup;; + +"append" | "app" ) + errmsg="usage: $TODO_SH append ITEM# \"TEXT TO APPEND\"" + shift; item=$1; shift + + [ -z "$item" ] && die "$errmsg" + [[ "$item" = +([0-9]) ]] || die "$errmsg" + todo=$(sed "$item!d" "$TODO_FILE") + [ -z "$todo" ] && die "$item: No such todo." + if [[ -z "$1" && $TODOTXT_FORCE = 0 ]]; then + echo -n "Append: " + read input + else + input=$* + fi + cleaninput $input + + if sed -i.bak $item" s|^.*|& $input|" "$TODO_FILE"; then + [ $TODOTXT_VERBOSE -gt 0 ] && { + newtodo=$(sed "$item!d" "$TODO_FILE") + echo "$item: $newtodo" + } + else + echo "TODO: Error appending task $item." + fi + cleanup;; + +"archive" ) + archive;; + +"del" | "rm" ) + # replace deleted line with a blank line when TODOTXT_PRESERVE_LINE_NUMBERS is 1 + errmsg="usage: $TODO_SH del ITEM#" + item=$2 + [ -z "$item" ] && die "$errmsg" + + if [ -z "$3" ]; then + + [[ "$item" = +([0-9]) ]] || die "$errmsg" + if sed -ne "$item p" "$TODO_FILE" | grep "^."; then + DELETEME=$(sed "$item!d" "$TODO_FILE") + + if [ $TODOTXT_FORCE = 0 ]; then + echo "Delete '$DELETEME'? (y/n)" + read ANSWER + else + ANSWER="y" + fi + if [ "$ANSWER" = "y" ]; then + if [ $TODOTXT_PRESERVE_LINE_NUMBERS = 0 ]; then + # delete line (changes line numbers) + sed -i.bak -e $item"s/^.*//" -e '/./!d' "$TODO_FILE" + else + # leave blank line behind (preserves line numbers) + sed -i.bak -e $item"s/^.*//" "$TODO_FILE" + fi + [ $TODOTXT_VERBOSE -gt 0 ] && echo "TODO: '$DELETEME' deleted." + cleanup + else + echo "TODO: No tasks were deleted." + fi + else + echo "$item: No such todo." + fi + else + sed -i.bak -e $item"s/$3/ /g" "$TODO_FILE" + [ $TODOTXT_VERBOSE -gt 0 ] && echo "TODO: $3 removed from $item." + fi ;; + +"depri" | "dp" ) + item=$2 + errmsg="usage: $TODO_SH depri ITEM#" + + todo=$(sed "$item!d" "$TODO_FILE") + [ -z "$todo" ] && die "$item: No such todo." + [[ "$item" = +([0-9]) ]] || die "$errmsg" + + sed -e $item"s/^(.) //" "$TODO_FILE" > /dev/null 2>&1 + + if [ "$?" -eq 0 ]; then + #it's all good, continue + sed -i.bak -e $item"s/^(.) //" "$TODO_FILE" + [ $TODOTXT_VERBOSE -gt 0 ] && { + NEWTODO=$(sed "$item!d" "$TODO_FILE") + echo "`echo "$item: $NEWTODO"`" + echo "TODO: $item deprioritized." + } + cleanup + else + die "$errmsg" + fi;; + +"do" ) + errmsg="usage: $TODO_SH do ITEM#" + # shift so we get arguments to the do request + shift; + + # Split multiple do's, if comma seperated change to whitespace sepereated + # Loop the 'do' function for each item + for item in `echo $* | tr ',' ' '`; do + [ -z "$item" ] && die "$errmsg" + [[ "$item" = +([0-9]) ]] || die "$errmsg" + + todo=$(sed "$item!d" "$TODO_FILE") + [ -z "$todo" ] && die "$item: No such todo." + + # Check if this item has already been done + if [ `echo $todo | grep -c "^x "` -eq 0 ] ; then + now=`date '+%Y-%m-%d'` + # remove priority once item is done + sed -i.bak $item"s/^(.) //" "$TODO_FILE" + sed -i.bak $item"s|^|&x $now |" "$TODO_FILE" + [ $TODOTXT_VERBOSE -gt 0 ] && { + newtodo=$(sed "$item!d" "$TODO_FILE") + echo "$item: $newtodo" + echo "TODO: $item marked as done." + } + else + echo "$item is already marked done" + fi + done + + if [ $TODOTXT_AUTO_ARCHIVE = 1 ]; then + archive + fi + cleanup ;; + +"help" ) + if [ -t 1 ] ; then # STDOUT is a TTY + if (exec which ${PAGER:-less} 2>/dev/null >/dev/null); then + # we have a working PAGER (or less as a default) + help | exec ${PAGER:-less} + fi + fi + help # just in case something failed above, we go ahead and just spew to STDOUT + ;; + +"list" | "ls" ) + shift ## Was ls; new $1 is first search term + _list "$TODO_FILE" "$@" + + cleanup + ;; + +"listall" | "lsa" ) + shift ## Was lsa; new $1 is first search term + + cat "$TODO_FILE" "$DONE_FILE" > "$TMP_FILE" + _list "$TMP_FILE" "$@" + + cleanup + ;; + +"listfile" | "lf" ) + shift ## Was listfile, next $1 is file name + FILE="$1" + shift ## Was filename; next $1 is first search term + + _list "$FILE" "$@" + + cleanup + ;; + +"listcon" | "lsc" ) + grep -o '[^ ]*@[^ ]\+' "$TODO_FILE" | grep '^@' | sort -u + cleanup ;; + +"listproj" | "lsprj" ) + grep -o '[^ ]*+[^ ]\+' "$TODO_FILE" | grep '^+' | sort -u + cleanup ;; + + +"listpri" | "lsp" ) + shift ## was "listpri", new $1 is priority to list + + if [ "${1:-}" ] + then + ## A priority was specified + pri=$( printf "%s\n" "$1" | tr 'a-z' 'A-Z' | grep '^[A-Z]$' ) || { + die "usage: $TODO_SH listpri PRIORITY + note: PRIORITY must a single letter from A to Z." + } + else + ## No priority specified; show all priority tasks + pri="[[:upper:]]" + fi + pri="($pri)" + + _list "$TODO_FILE" "$pri" + ;; + +"move" | "mv" ) + # replace moved line with a blank line when TODOTXT_PRESERVE_LINE_NUMBERS is 1 + errmsg="usage: $TODO_SH mv ITEM# DEST [SRC]" + item=$2 + dest="$TODO_DIR/$3" + src="$TODO_DIR/$4" + + [ -z "$item" ] && die "$errmsg" + [ -z "$4" ] && src="$TODO_FILE" + [ -z "$dest" ] && die "$errmsg" + + [[ "$item" = +([0-9]) ]] || die "$errmsg" + + if [ -f "$src" ]; then + if [ -f "$dest" ]; then + if sed -ne "$item p" "$src" | grep "^."; then + MOVEME=$(sed "$item!d" "$src") + if [ $TODOTXT_FORCE = 0 ]; then + echo "Move '$MOVEME' from $src to $dest? (y/n)" + read ANSWER + else + ANSWER="y" + fi + if [ "$ANSWER" = "y" ]; then + if [ $TODOTXT_PRESERVE_LINE_NUMBERS = 0 ]; then + # delete line (changes line numbers) + sed -i.bak -e $item"s/^.*//" -e '/./!d' "$src" + else + # leave blank line behind (preserves line numbers) + sed -i.bak -e $item"s/^.*//" "$src" + fi + echo "$MOVEME" >> "$dest" + + [ $TODOTXT_VERBOSE -gt 0 ] && echo "TODO: '$MOVEME' moved from '$src' to '$dest'." + cleanup + else + echo "TODO: No tasks moved." + fi + else + echo "$item: No such item in $src." + fi + else + echo "TODO: Destination file $dest does not exist." + fi + else + echo "TODO: Source file $src does not exist." + fi + cleanup;; + +"prepend" | "prep" ) + errmsg="usage: $TODO_SH prepend ITEM# \"TEXT TO PREPEND\"" + shift; item=$1; shift + + [ -z "$item" ] && die "$errmsg" + [[ "$item" = +([0-9]) ]] || die "$errmsg" + + todo=$(sed "$item!d" "$TODO_FILE") + [ -z "$todo" ] && die "$item: No such todo." + + if [[ -z "$1" && $TODOTXT_FORCE = 0 ]]; then + echo -n "Prepend: " + read input + else + input=$* + fi + cleaninput $input + + # Test for then set priority + if [ `sed "$item!d" "$TODO_FILE"|grep -c "^(\\w)"` -eq 1 ]; then + priority=$(sed "$item!d" "$TODO_FILE" | awk -F '\\(|\\)' '{print $2}') + fi + + # If priority isn't set prepend + if [ -z $priority ]; then + if sed -i.bak $item" s|^.*|$input &|" "$TODO_FILE"; then + [ $TODOTXT_VERBOSE -gt 0 ] && { + newtodo=$(sed "$item!d" "$TODO_FILE") + echo "$item: $newtodo" + } + else + echo "TODO: Error prepending task $item." + fi + # If priority is set, remove priority, prepend and add back priority + else + if sed -i.bak -e "$item s/^(.) //" -e "$item s|^.*|\($priority\) $1 &|" "$TODO_FILE"; then + [ $TODOTXT_VERBOSE -gt 0 ] && { + newtodo=$(sed "$item!d" "$TODO_FILE") + echo "$item: $newtodo" + } + else + echo "TODO: Error prepending task $item." + fi + fi + cleanup;; + +"pri" | "p" ) + item=$2 + newpri=$( printf "%s\n" "$3" | tr 'a-z' 'A-Z' ) + + errmsg="usage: $TODO_SH pri ITEM# PRIORITY +note: PRIORITY must be anywhere from A to Z." + + [ "$#" -ne 3 ] && die "$errmsg" + [[ "$item" = +([0-9]) ]] || die "$errmsg" + [[ "$newpri" = @([A-Z]) ]] || die "$errmsg" + + sed -e $item"s/^(.) //" -e $item"s/^/($newpri) /" "$TODO_FILE" > /dev/null 2>&1 + + if [ "$?" -eq 0 ]; then + #it's all good, continue + sed -i.bak -e $item"s/^(.) //" -e $item"s/^/($newpri) /" "$TODO_FILE" + [ $TODOTXT_VERBOSE -gt 0 ] && { + NEWTODO=$(sed "$item!d" "$TODO_FILE") + echo "`echo "$item: $NEWTODO"`" + echo "TODO: $item prioritized ($newpri)." + } + cleanup + else + die "$errmsg" + fi;; + +"replace" ) + errmsg="usage: $TODO_SH replace ITEM# \"UPDATED ITEM\"" + shift; item=$1; shift + + [ -z "$item" ] && die "$errmsg" + [[ "$item" = +([0-9]) ]] || die "$errmsg" + + todo=$(sed "$item!d" "$TODO_FILE") + [ -z "$todo" ] && die "$item: No such todo." + + # Test for then set priority + if [ `sed "$item!d" "$TODO_FILE"|grep -c "^(\\w)"` -eq 1 ]; then + priority=$(sed "$item!d" "$TODO_FILE" | awk -F '\\(|\\)' '{print $2}') + fi + + if [[ -z "$1" && $TODOTXT_FORCE = 0 ]]; then + echo -n "Replacement: " + read input + else + input=$* + fi + cleaninput $input + + # If priority isn't set replace, if it is remove priority, replace then add priority again + if [ -z $priority ]; then + sed -i.bak $item" s|^.*|$input|" "$TODO_FILE" + else + sed -i.bak -e "$item s/^(.) //" -e "$item s|^.*|\($priority\) $input|" "$TODO_FILE" + fi + [ $TODOTXT_VERBOSE -gt 0 ] && { + NEWTODO=$(head -$item "$TODO_FILE" | tail -1) + echo "$item: $todo" + echo "replaced with" + echo "$item: $NEWTODO" + } + cleanup;; + +"report" ) + #archive first + sed '/^x /!d' "$TODO_FILE" >> "$DONE_FILE" + sed -i.bak '/^x /d' "$TODO_FILE" + + NUMLINES=$( sed -n '$ =' "$TODO_FILE" ) + if [ ${NUMLINES:-0} = "0" ]; then + echo "datetime todos dones" >> "$REPORT_FILE" + fi + #now report + TOTAL=$( sed -n '$ =' "$TODO_FILE" ) + TDONE=$( sed -n '$ =' "$DONE_FILE" ) + TECHO=$(echo $(date +%Y-%m-%d-%T); echo ' '; echo ${TOTAL:-0}; echo ' '; + echo ${TDONE:-0}) + echo $TECHO >> "$REPORT_FILE" + [ $TODOTXT_VERBOSE -gt 0 ] && echo "TODO: Report file updated." + cat "$REPORT_FILE" + cleanup;; + +* ) + usage + ;; +esac diff --git a/config/fish/.gitignore b/config/fish/.gitignore deleted file mode 100755 index 1ab56f6bb7..0000000000 --- a/config/fish/.gitignore +++ /dev/null @@ -1,2 +0,0 @@ -fish_history -fishd.* \ No newline at end of file diff --git a/config/fish/README.textile b/config/fish/README.textile deleted file mode 100755 index 3d420cc05d..0000000000 --- a/config/fish/README.textile +++ /dev/null @@ -1,31 +0,0 @@ -h1. Fish nuggets - -The fish nuggets project contains various completions and functions for the amazing "Fish shell":http://www.fish-shell.org. - -h2. Git features - -* Provides completion for git commands (eg. git ch completes for you) -* Provides completion of branch names for git branch - -h2. Rake features - -Completion of rake tasks with task description. The first time you type rake we will create a file containing the rake tasks in /tmp giving you tab completion of rake tasks. This supports several Rakefile locations, so you can use it for different projects. - -h2. Capistrano features - -Like Rake, lets you use tab completion for Capistrano tasks. - -h2. Rubygems features - -* edit_gem with tab completion for gem name lets you view the source for installed gems -* gem_doc with tab completion for gem name lets you view Rdoc for installed gems - -h2. Installation - - cd ~/.config/fish - git init - git add . - git remote add github git://github.com/zmalltalker/fish-nuggets.git - git pull github master - -Go into ~/.config/fish and add this repository, then pull. This will add the scripts in this projects for you to use. diff --git a/config/fish/bin/edit_gem b/config/fish/bin/edit_gem deleted file mode 100755 index 15d6c0a67f..0000000000 --- a/config/fish/bin/edit_gem +++ /dev/null @@ -1,10 +0,0 @@ -#!/usr/bin/env ruby -require 'rubygems' - -if ARGV.first == '-l' || ARGV.first == '--list' - puts Gem.cache.map{ |s| s[1].name }.uniq.sort.join( "\n" ) -else - gem_name = ARGV.first - gem_info = Gem.cache.search( gem_name ).first - system "mate #{gem_info.full_gem_path}" -end diff --git a/config/fish/bin/fish_method_missing b/config/fish/bin/fish_method_missing deleted file mode 100755 index bda7206b1b..0000000000 --- a/config/fish/bin/fish_method_missing +++ /dev/null @@ -1,38 +0,0 @@ -#!/usr/bin/env ruby - -command = ARGV.shift - -def run(cmd) - puts "Running #{cmd.inspect} instead" - system(cmd) -end - -case command -when '!!' - fish_history = File.read("/Users/jesse/.config/fish/fish_history").split("\n") - previous_command = fish_history.last - run(previous_command) -when '!$' - fish_history = File.read("/Users/jesse/.config/fish/fish_history").split("\n") - previous_argument = fish_history.last.split("\s").last - run(previous_command) - -when /^git(@|:\/\/).*\.git$/ - run("git clone #{command.inspect}") - -when /^(?:ftp|https?):\/\/.+\.t(?:ar\.)?gz$/ - run("curl #{command.inspect} | tar xzv") - -when /^[a-z0-9_\-\/]+\.feature$/ - run("cucumber #{command}") - -when /^[A-Za-z0-9_\-\/]+\.gem$/ - # Install a gem - # @example - # haml.gem - gem_to_install = command.first.gsub(/\.gem$/, '') - run "sudo gem install #{gem_to_install}" -else - $stderr.puts "No default action defined in #{__FILE__.inspect}" - abort -end \ No newline at end of file diff --git a/config/fish/bin/gem_doc b/config/fish/bin/gem_doc deleted file mode 100755 index 14dccfbf7b..0000000000 --- a/config/fish/bin/gem_doc +++ /dev/null @@ -1,12 +0,0 @@ -#!/usr/bin/env ruby -require 'rubygems' - - -if ARGV.first == '-l' || ARGV.first == '--list' - puts Gem.cache.map{ |s| s[1].name }.uniq.sort.join( "\n" ) -else - gem_name = ARGV.first - gem_info = Gem.cache.search( gem_name ).first - doc_file = File.join( gem_info.full_gem_path.gsub(/1\.8\/gems/, "1.8/doc"), 'rdoc/index.html' ) - system "open #{doc_file}" -end diff --git a/config/fish/completions/brew_fish_completion.fish b/config/fish/completions/brew_fish_completion.fish deleted file mode 100644 index 12a89120cd..0000000000 --- a/config/fish/completions/brew_fish_completion.fish +++ /dev/null @@ -1,73 +0,0 @@ -# This script contains basic completion of brew commands for -# fish (http://fishshell.org). To install it either put it -# in /share/fish/completions -# or ~/.config/fish/completions - and name it 'brew.fish' -# e.g.: -# mkdir -p ~/.config/fish/completions -# cp brew_fish_completion.fish ~/.config/fish/completions/brew.fish - -function __fish_complete_homebrew_formula - set arguments (commandline -opc) - for cmd in $arguments - - if contains -- $cmd edit install homepage home - ls (brew --prefix)/Library/Formula | sed s/\.rb// - return 0 - end - - if contains -- $cmd abv info list link ls ln rm remove uninstall - ls (brew --prefix)/Cellar - return 0 - end - - end -end - -function __fish_complete_brew_has_command - set arguments (commandline -opc) - - if [ (count $arguments) = 1 ] - return 1 - end - - for cmd in $arguments - if contains -- $cmd abv info list link ls ln rm remove uninstall edit install homepage home prune gen - return 0 - end - end - return 1 - -end - -function __fish_complete_brew_command - set arguments (commandline -opc) - set cmd $argv[1] - - if contains -- $cmd abv info list link ls ln rm remove uninstall edit install homepage home prune gen - return 0 - end - return 1 -end - -function __fish_complete_brew_no_command - for cmd in (commandline -opc) - if contains -- $cmd abv info list link ls ln rm remove uninstall edit install homepage home prune gen - return 1 - end - end - return 0 -end - -complete -c brew -x -a "abv info list link ls ln rm remove uninstall edit install homepage home prune gen" -n '__fish_complete_brew_no_command' -complete -c brew -x -a '(__fish_complete_homebrew_formula)' -n '__fish_complete_brew_has_command' - -complete -c brew -s d -l debug -n '__fish_complete_brew_command install' -complete -c brew -s i -l interactive -n '__fish_complete_brew_command install' - -complete -c brew -l github -n '__fish_complete_brew_command info' - -complete -c brew -l prefix -n '__fish_complete_brew_no_command' -complete -c brew -l version -n '__fish_complete_brew_no_command' -complete -c brew -l cache -n '__fish_complete_brew_no_command' - -complete -c brew -s v -l verbose diff --git a/config/fish/completions/cap.fish b/config/fish/completions/cap.fish deleted file mode 100755 index 3a2b94f751..0000000000 --- a/config/fish/completions/cap.fish +++ /dev/null @@ -1,13 +0,0 @@ -function __cache_or_get_cap_completion -d "Create cap completions" - mkdir -p "/tmp/cap_completion_cache" - set -l hashed_pwd (md5 -q -s (pwd)) - set -l cap_cache_file "/tmp/cap_completion_cache/$hashed_pwd" - - if not test -f "$cap_cache_file" - cap -T 2>&1 | grep "^cap" |cut -d " " -f 2 > "$cap_cache_file" - end - - cat "$cap_cache_file" -end - -complete -x -c cap -a "(__cache_or_get_cap_completion)" --description 'Capistrano task' \ No newline at end of file diff --git a/config/fish/completions/edit_gem.fish b/config/fish/completions/edit_gem.fish deleted file mode 100755 index b9bbbceff0..0000000000 --- a/config/fish/completions/edit_gem.fish +++ /dev/null @@ -1,3 +0,0 @@ -complete -x -c edit_gem -a '(edit_gem --list)' --description 'Ruby Gem' -complete -c edit_gem -s l -l list --description "List installed gems" - diff --git a/config/fish/completions/gem_doc.fish b/config/fish/completions/gem_doc.fish deleted file mode 100755 index 2fd4c05c9b..0000000000 --- a/config/fish/completions/gem_doc.fish +++ /dev/null @@ -1,3 +0,0 @@ -complete -x -c gem_doc -a '(gem_doc --list)' --description 'Ruby Gem' -complete -c gem_doc -s l -l list --description "List installed gems" - diff --git a/config/fish/completions/git-svn.fish b/config/fish/completions/git-svn.fish deleted file mode 100755 index 91dd9ea604..0000000000 --- a/config/fish/completions/git-svn.fish +++ /dev/null @@ -1,16 +0,0 @@ -complete -c git-svn -a clone -d "Initialize and fetch revisions" -complete -c git-svn -a commit-diff -d "Commit a diff between two trees" -complete -c git-svn -a create-ignore -d "Create a .gitignore per svn:ignore" -complete -c git-svn -a dcommit -d "Commit several diffs to merge with upstream" -complete -c git-svn -a fetch -d "Download new revisions from Subversion" -complete -c git-svn -a find-rev -d "Translate between Subversion revision numbers and tree-ish" -complete -c git-svn -a info -d "Show info about the latest Subversion revision" -complete -c git-svn -a init -d "Initialize a repo for tracking (requires URL argument)" -complete -c git-svn -a log -d "Show commit logs" -complete -c git-svn -a migrate -d "Migrate configuration/metadata/layout from previous versions of git-svn" -complete -c git-svn -a propget -d "Print the value of a property on a file or directory" -complete -c git-svn -a proplist -d "List all properties of a file or directory" -complete -c git-svn -a rebase -d "Fetch and rebase your working directory" -complete -c git-svn -a set-tree -d "Set a Subversion repository to a git tree-ish" -complete -c git-svn -a show-externals -d "Show svn:externals listings" -complete -c git-svn -a show-ignore -d "Show svn:ignore listings" diff --git a/config/fish/completions/git.fish b/config/fish/completions/git.fish deleted file mode 100755 index fd50cc1ded..0000000000 --- a/config/fish/completions/git.fish +++ /dev/null @@ -1,232 +0,0 @@ -# fish completion for git - -function __fish_git_branches - git branch --no-color -a 2>/dev/null | sed 's/^..//' -end - -function __fish_git_tags - git tag -end - -function __fish_git_heads - __fish_git_branches - __fish_git_tags -end - -function __fish_git_remotes - git remote -end - -function __fish_git_ranges - set from (commandline -ot | perl -ne 'my @parts = split(/\.\./); print $parts[0]') - set to (commandline -ot | perl -ne 'my @parts = split(/\.\./); print $parts[1]') - if [ "$from" = "" ] - __fish_git_branches - return 0 - end - - for from_ref in (__fish_git_heads | grep -e "$from") - for to_ref in (__fish_git_heads | grep -e "$to") - printf "%s..%s\n" $from_ref $to_ref - end - end -end - -function __fish_git_needs_command - set cmd (commandline -opc) - if [ (count $cmd) -eq 1 -a $cmd[1] = 'git' ] - return 0 - end - return 1 -end - -function __fish_git_using_command - set cmd (commandline -opc) - if [ (count $cmd) -gt 1 ] - if [ $argv[1] = $cmd[2] ] - return 0 - end - end - return 1 -end - -# general options -complete -f -c git -n 'not __fish_git_needs_command' -l help -d 'Display the manual of a git command' - -#### fetch -complete -f -c git -n '__fish_git_needs_command' -a fetch -d 'Download objects and refs from another repository' -complete -f -c git -n '__fish_git_using_command fetch' -a '(__fish_git_remotes)' -d 'Remote' -complete -f -c git -n '__fish_git_using_command fetch' -s q -l quiet -d 'Be quiet' -complete -f -c git -n '__fish_git_using_command fetch' -s v -l verbose -d 'Be verbose' -complete -f -c git -n '__fish_git_using_command fetch' -s a -l append -d 'Append ref names and object names' -# TODO --upload-pack -complete -f -c git -n '__fish_git_using_command fetch' -s f -l force -d 'Force update of local branches' -# TODO other options - -### remote -complete -f -c git -n '__fish_git_needs_command' -a remote -d 'Manage set of tracked repositories' -complete -f -c git -n '__fish_git_using_command remote' -a '(__fish_git_remotes)' -complete -f -c git -n '__fish_git_using_command remote' -s v -l verbose -d 'Be verbose' -complete -f -c git -n '__fish_git_using_command remote' -a add -d 'Adds a new remote' -complete -f -c git -n '__fish_git_using_command remote' -a rm -d 'Removes a remote' -complete -f -c git -n '__fish_git_using_command remote' -a show -d 'Shows a remote' -complete -f -c git -n '__fish_git_using_command remote' -a prune -d 'Deletes all stale tracking branches' -complete -f -c git -n '__fish_git_using_command remote' -a update -d 'Fetches updates' -# TODO options - -### show -complete -f -c git -n '__fish_git_needs_command' -a show -d 'Shows the last commit of a branch' -complete -f -c git -n '__fish_git_using_command show' -a '(__fish_git_branches)' -d 'Branch' -# TODO options - -### show-branch -complete -f -c git -n '__fish_git_needs_command' -a show-branch -d 'Shows the commits on branches' -complete -f -c git -n '__fish_git_using_command show-branch' -a '(__fish_git_heads)' --description 'Branch' -# TODO options - -### add -complete -c git -n '__fish_git_needs_command' -a add -d 'Add file contents to the index' -# TODO options - -### checkout -complete -f -c git -n '__fish_git_needs_command' -a checkout -d 'Checkout and switch to a branch' -complete -c git -n '__fish_git_using_command checkout' -a '(__fish_git_branches)' --description 'Branch' -complete -c git -n '__fish_git_using_command checkout' -a '(__fish_git_tags)' --description 'Tag' -complete -c git -n '__fish_git_using_command checkout' -s b -d 'Create a new branch' -# TODO options - -### co -complete -f -c git -n '__fish_git_needs_command' -a co -d 'Checkout and switch to a branch' -complete -c git -n '__fish_git_using_command co' -a '(__fish_git_branches)' --description 'Branch' -complete -c git -n '__fish_git_using_command co' -a '(__fish_git_tags)' --description 'Tag' -complete -c git -n '__fish_git_using_command co' -s b -d 'Create a new branch' - -### apply -complete -f -c git -n '__fish_git_needs_command' -a apply -d 'Apply a patch on a git index file and a working tree' -# TODO options - -### archive -complete -f -c git -n '__fish_git_needs_command' -a archive -d 'Create an archive of files from a named tree' -# TODO options - -### bisect -complete -f -c git -n '__fish_git_needs_command' -a bisect -d 'Find the change that introduced a bug by binary search' -# TODO options - -### branch -complete -f -c git -n '__fish_git_needs_command' -a branch -d 'List, create, or delete branches' -complete -f -c git -n '__fish_git_using_command branch' -a '(__fish_git_branches)' -d 'Branch' -complete -f -c git -n '__fish_git_using_command branch' -s d -d 'Delete Branch' -complete -f -c git -n '__fish_git_using_command branch' -s D -d 'Force deletion of branch' -complete -f -c git -n '__fish_git_using_command branch' -s m -d 'Rename branch' -complete -f -c git -n '__fish_git_using_command branch' -s M -d 'Force renaming branch' -complete -f -c git -n '__fish_git_using_command branch' -s a -d 'Lists both local and remote branches' - -### cherry-pick -complete -f -c git -n '__fish_git_needs_command' -a cherry-pick -d 'Apply the change introduced by an existing commit' -complete -f -c git -n '__fish_git_using_command cherry-pick' -a '(__fish_git_branches)' -d 'Branch' -# TODO options - -### clone -complete -f -c git -n '__fish_git_needs_command' -a clone -d 'Clone a repository into a new directory' -# TODO options - -### commit -complete -c git -n '__fish_git_needs_command' -a commit -d 'Record changes to the repository' -complete -c git -n '__fish_git_using_command commit' -l amend -d 'Amend the log message of the last commit' -# TODO options - -### diff -complete -c git -n '__fish_git_needs_command' -a diff -d 'Show changes between commits, commit and working tree, etc' -complete -c git -n '__fish_git_using_command diff' -a '(__fish_git_ranges)' -d 'Branch' -complete -c git -n '__fish_git_using_command diff' -l cached -d 'Show diff of changes in the index' -# TODO options - -### grep -complete -c git -n '__fish_git_needs_command' -a grep -d 'Print lines matching a pattern' -# TODO options - -### init -complete -f -c git -n '__fish_git_needs_command' -a init -d 'Create an empty git repository or reinitialize an existing one' -# TODO options - -### log -complete -c git -n '__fish_git_needs_command' -a log -d 'Show commit logs' -complete -c git -n '__fish_git_using_command log' -a '(__fish_git_heads) (__fish_git_ranges)' -d 'Branch' -complete -f -c git -n '__fish_git_using_command log' -l pretty -a 'oneline short medium full fuller email raw format:' -# TODO options - -### merge -complete -f -c git -n '__fish_git_needs_command' -a merge -d 'Join two or more development histories together' -complete -f -c git -n '__fish_git_using_command merge' -a '(__fish_git_branches)' -d 'Branch' -complete -f -c git -n '__fish_git_using_command merge' -l commit -d "Autocommit the merge" -complete -f -c git -n '__fish_git_using_command merge' -l no-commit -d "Don't autocommit the merge" -complete -f -c git -n '__fish_git_using_command merge' -l stat -d "Show diffstat of the merge" -complete -f -c git -n '__fish_git_using_command merge' -s n -l no-stat -d "Don't show diffstat of the merge" -complete -f -c git -n '__fish_git_using_command merge' -l squash -d "Squash changes from other branch as a single commit" -complete -f -c git -n '__fish_git_using_command merge' -l no-squash -d "Don't squash changes" -complete -f -c git -n '__fish_git_using_command merge' -l ff -d "Don't generate a merge commit if merge is fast forward" -complete -f -c git -n '__fish_git_using_command merge' -l no-ff -d "Generate a merge commit even if merge is fast forward" - -# TODO options - -### mv -complete -c git -n '__fish_git_needs_command' -a mv -d 'Move or rename a file, a directory, or a symlink' -# TODO options - -### prune -complete -f -c git -n '__fish_git_needs_command' -a prune -d 'Prune all unreachable objects from the object database' -# TODO options - -### pull -complete -f -c git -n '__fish_git_needs_command' -a pull -d 'Fetch from and merge with another repository or a local branch' -# TODO options - -### push -complete -f -c git -n '__fish_git_needs_command' -a push -d 'Update remote refs along with associated objects' -# TODO options - -### rebase -complete -f -c git -n '__fish_git_needs_command' -a rebase -d 'Forward-port local commits to the updated upstream head' -complete -f -c git -n '__fish_git_using_command rebase' -a '(__fish_git_branches)' -d 'Branch' -# TODO options - -### reset -complete -c git -n '__fish_git_needs_command' -a reset -d 'Reset current HEAD to the specified state' -complete -f -c git -n '__fish_git_using_command reset' -l hard -d 'Reset files in working directory' -complete -c git -n '__fish_git_using_command reset' -a '(__fish_git_branches)' -# TODO options - -### revert -complete -f -c git -n '__fish_git_needs_command' -a revert -d 'Revert an existing commit' -# TODO options - -### rm -complete -c git -n '__fish_git_needs_command' -a rm -d 'Remove files from the working tree and from the index' -# TODO options - -### status -complete -f -c git -n '__fish_git_needs_command' -a status -d 'Show the working tree status' -# TODO options - -### tag -complete -f -c git -n '__fish_git_needs_command' -a tag -d 'Create, list, delete or verify a tag object signed with GPG' -complete -f -c git -n '__fish_git_using_command tag; and __fish_not_contain_opt -s d; and __fish_not_contain_opt -s v; and test (count (commandline -opc | grep -v -e \'^-\')) -eq 3' -a '(__fish_git_branches)' -d 'Branch' -complete -f -c git -n '__fish_git_using_command tag' -s d -d 'Remove a tag' -complete -f -c git -n '__fish_git_using_command tag' -s v -d 'Verify signature of a tag' -complete -f -c git -n '__fish_git_using_command tag' -s f -d 'Force overwriting exising tag' -complete -f -c git -n '__fish_git_using_command tag' -s s -d 'Make a GPG-signed tag' -complete -f -c git -n '__fish_contains_opt -s d' -a '(__fish_git_tags)' -d 'Tag' -complete -f -c git -n '__fish_contains_opt -s v' -a '(__fish_git_tags)' -d 'Tag' -# TODO options - -### config -complete -f -c git -n '__fish_git_needs_command' -a config -d 'Set and read git configuration variables' -# TODO options - -### format-patch -complete -f -c git -n '__fish_git_needs_command' -a format-patch -d 'Generate patch series to send upstream' -complete -f -c git -n '__fish_git_using_command format-patch' -a '(__fish_git_branches)' -d 'Branch' - -### aliases (custom user-definer commands) -complete -c git -n '__fish_git_needs_command' -a '(git config --get-regexp alias | sed -e "s/^alias\.\(\S\+\).*/\1/")' -d 'Alias (user-defined command)' diff --git a/config/fish/completions/rake.fish b/config/fish/completions/rake.fish deleted file mode 100755 index faea3e122f..0000000000 --- a/config/fish/completions/rake.fish +++ /dev/null @@ -1,13 +0,0 @@ -function __cache_or_get_rake_completion -d "Create rake completions" - mkdir -p "/tmp/rake_completion_cache_for_$USER" - set -l hashed_pwd (md5 -q -s (pwd)) - set -l rake_cache_file "/tmp/rake_completion_cache_for_$USER/$hashed_pwd" - - if not test -f "$rake_cache_file" - rake -T 2>&1 | sed -e "/^(/d" -e "s/^rake \([a-z:_0-9!\-]*\).*/\1/" > "$rake_cache_file" - end - - cat "$rake_cache_file" -end - -complete -x -c rake -a "(__cache_or_get_rake_completion)" --description 'Rake Task' \ No newline at end of file diff --git a/config/fish/completions/rcd.fish b/config/fish/completions/rcd.fish deleted file mode 100755 index 46f6034af5..0000000000 --- a/config/fish/completions/rcd.fish +++ /dev/null @@ -1 +0,0 @@ -complete -x -c rcd -a '(rdir | sed -e "s/\/.*\///g")' --description 'Rails Project' \ No newline at end of file diff --git a/config/fish/completions/rmate.fish b/config/fish/completions/rmate.fish deleted file mode 100755 index 8184fa8b92..0000000000 --- a/config/fish/completions/rmate.fish +++ /dev/null @@ -1 +0,0 @@ -complete -x -c rmate -a '(rdir | sed -e "s/\/.*\///g")' --description 'Rails Project' diff --git a/config/fish/config.fish b/config/fish/config.fish deleted file mode 100755 index e1850d93e9..0000000000 --- a/config/fish/config.fish +++ /dev/null @@ -1,35 +0,0 @@ -if status --is-login - for p in /usr/bin /usr/local/bin /opt/local/bin /usr/local/mysql/bin /opt/local/lib/postgresql83/bin ~/bin ~/.config/fish/bin - if test -d $p - set PATH $p $PATH - end - end -end - -# Textmate defaults to /usr/bin/mate, but let's check for /usr/local/bin/mate -if test -f "/usr/local/bin/mate" - set -x EDITOR "/usr/local/bin/mate -w" -else - set -x EDITOR "/usr/bin/mate -w" -end - -set fish_greeting "" -set -x CLICOLOR 1 - -function parse_git_branch - sh -c 'git branch --no-color 2> /dev/null' | sed -e '/^[^*]/d' -e 's/* \(.*\)/\1/' -end - -function parse_svn_revision - sh -c 'svn info 2> /dev/null' | sed -n '/^Revision/p' | sed -e 's/^Revision: \(.*\)/\1/' -end - -set BROWSER open - -bind \cr "rake" - -set -x JAVA_HOME "/usr/" - -function --on-event fish_command_not_found method_missing - fish_method_missing $argv; -end \ No newline at end of file diff --git a/config/fish/functions/a.fish b/config/fish/functions/a.fish deleted file mode 100644 index 33e100cfe7..0000000000 --- a/config/fish/functions/a.fish +++ /dev/null @@ -1,3 +0,0 @@ -function a - autotest $argv; -end diff --git a/config/fish/functions/cd.fish b/config/fish/functions/cd.fish deleted file mode 100755 index 4cbe908c93..0000000000 --- a/config/fish/functions/cd.fish +++ /dev/null @@ -1,30 +0,0 @@ -function cd --description 'Change directory' - if status --is-command-substitution - builtin cd $argv[1] - return $status - else - if test -z $argv[1] - cd $HOME - else - if test $argv[1] = '-' - if test -z $OLDPWD - echo "No previous working directory." - return 1 - else - cd $OLDPWD - end - else - if test $argv[1] = $PWD - return 0 - else - set -g OLDPWD $PWD - builtin cd $argv[1] - if test $status = 0 - ls - end - return $status - end - end - end - end -end diff --git a/config/fish/functions/clean_rake_cache.fish b/config/fish/functions/clean_rake_cache.fish deleted file mode 100755 index 2d3ee4df90..0000000000 --- a/config/fish/functions/clean_rake_cache.fish +++ /dev/null @@ -1,5 +0,0 @@ -function clean_rake_cache -d "Clean the rake autocomplete cache" - for a in /tmp/rake_completion_cache_for_$USER/* - rm "$a" - end -end \ No newline at end of file diff --git a/config/fish/functions/confirm.fish b/config/fish/functions/confirm.fish deleted file mode 100755 index 71dce8a407..0000000000 --- a/config/fish/functions/confirm.fish +++ /dev/null @@ -1,7 +0,0 @@ -function confirm - echo "OK [y/N]?" - read confirm_result - test 'y' = $confirm_result - - -end diff --git a/config/fish/functions/deplol.fish b/config/fish/functions/deplol.fish deleted file mode 100755 index 13e0157ea5..0000000000 --- a/config/fish/functions/deplol.fish +++ /dev/null @@ -1,14 +0,0 @@ -function deplol - gitco deploy - and git merge work - and gitlcg -25 - and gitco work - and gitlc origin/deploy..deploy - and echo "Hit enter if that looks OK." - and read - and echo "Pushing..." - and git push - and cap deploy:all $argv - - -end diff --git a/config/fish/functions/df.fish b/config/fish/functions/df.fish deleted file mode 100755 index a1dda1b6c8..0000000000 --- a/config/fish/functions/df.fish +++ /dev/null @@ -1,3 +0,0 @@ -function df - df -kh $argv; -end diff --git a/config/fish/functions/du.fish b/config/fish/functions/du.fish deleted file mode 100755 index 7f61edf5c4..0000000000 --- a/config/fish/functions/du.fish +++ /dev/null @@ -1,3 +0,0 @@ -function du - du -k -d 1 $argv; -end diff --git a/config/fish/functions/e.fish b/config/fish/functions/e.fish deleted file mode 100755 index 09c270334e..0000000000 --- a/config/fish/functions/e.fish +++ /dev/null @@ -1,3 +0,0 @@ -function e - cd ~/envato/marketplace $argv; -end diff --git a/config/fish/functions/fish_prompt.fish b/config/fish/functions/fish_prompt.fish deleted file mode 100755 index 29b321aeb8..0000000000 --- a/config/fish/functions/fish_prompt.fish +++ /dev/null @@ -1,21 +0,0 @@ -function fish_prompt -d "Write out the prompt" - printf '\n%s%s%s%s:' (set_color brown) (whoami) (set_color normal) - - # Color writeable dirs green, read-only dirs red - if test -w "." - printf '%s%s' (set_color green) (prompt_pwd) - else - printf '%s%s' (set_color red) (prompt_pwd) - end - - # Print subversion revision - if test -d ".svn" - printf ' %s%s@%s' (set_color normal) (set_color blue) (parse_svn_revision) - end - - # Print git branch - if test -d ".git" - printf ' %s%s[%s]' (set_color normal) (set_color cyan) (parse_git_branch) - end - printf '%s \n☮ → ' (set_color normal) -end \ No newline at end of file diff --git a/config/fish/functions/ga.fish b/config/fish/functions/ga.fish deleted file mode 100755 index c42db5c6d2..0000000000 --- a/config/fish/functions/ga.fish +++ /dev/null @@ -1,3 +0,0 @@ -function ga - git add $argv; -end diff --git a/config/fish/functions/gap.fish b/config/fish/functions/gap.fish deleted file mode 100755 index 7b94341bec..0000000000 --- a/config/fish/functions/gap.fish +++ /dev/null @@ -1,3 +0,0 @@ -function gap - ga -p $argv; -end diff --git a/config/fish/functions/gau.fish b/config/fish/functions/gau.fish deleted file mode 100755 index 5b9f8ba98d..0000000000 --- a/config/fish/functions/gau.fish +++ /dev/null @@ -1,3 +0,0 @@ -function gau - git add -u $argv; -end diff --git a/config/fish/functions/gbr.fish b/config/fish/functions/gbr.fish deleted file mode 100755 index 4cfc82b545..0000000000 --- a/config/fish/functions/gbr.fish +++ /dev/null @@ -1,5 +0,0 @@ -function gbr - git branch -v $argv - - -end diff --git a/config/fish/functions/gbrt.fish b/config/fish/functions/gbrt.fish deleted file mode 100755 index 9be3fb5c9f..0000000000 --- a/config/fish/functions/gbrt.fish +++ /dev/null @@ -1,7 +0,0 @@ -function gbrt - for k in (git branch $argv|perl -pe 's/^..//') - echo -e (git show --pretty=format:"%ci (%cr) %Cblue%h%Creset %Cgreen%an%Creset" $k -- | head -n 1)\\t$k - end | sort -r - - -end diff --git a/config/fish/functions/gc.fish b/config/fish/functions/gc.fish deleted file mode 100755 index 9800350f6c..0000000000 --- a/config/fish/functions/gc.fish +++ /dev/null @@ -1,5 +0,0 @@ -function gc - echo 'Commit Message:'; - read message; - git commit -m $message; -end diff --git a/config/fish/functions/gca.fish b/config/fish/functions/gca.fish deleted file mode 100755 index 6a7785f507..0000000000 --- a/config/fish/functions/gca.fish +++ /dev/null @@ -1,5 +0,0 @@ -function gca - gc -a $argv - - -end diff --git a/config/fish/functions/gcam.fish b/config/fish/functions/gcam.fish deleted file mode 100755 index f349e4ef2c..0000000000 --- a/config/fish/functions/gcam.fish +++ /dev/null @@ -1,5 +0,0 @@ -function gcam - gca --amend $argv - - -end diff --git a/config/fish/functions/gcf.fish b/config/fish/functions/gcf.fish deleted file mode 100755 index 36087c1784..0000000000 --- a/config/fish/functions/gcf.fish +++ /dev/null @@ -1,4 +0,0 @@ -function gcf - git config -l - -end diff --git a/config/fish/functions/gcm.fish b/config/fish/functions/gcm.fish deleted file mode 100755 index d9edefa187..0000000000 --- a/config/fish/functions/gcm.fish +++ /dev/null @@ -1,5 +0,0 @@ -function gcm - gc --amend $argv - - -end diff --git a/config/fish/functions/gco.fish b/config/fish/functions/gco.fish deleted file mode 100755 index 033edf7dab..0000000000 --- a/config/fish/functions/gco.fish +++ /dev/null @@ -1,3 +0,0 @@ -function gco - git checkout $argv; -end diff --git a/config/fish/functions/gcop.fish b/config/fish/functions/gcop.fish deleted file mode 100755 index b502d8c7bc..0000000000 --- a/config/fish/functions/gcop.fish +++ /dev/null @@ -1,3 +0,0 @@ -function gcop - gco -p $argv; -end diff --git a/config/fish/functions/gd..fish b/config/fish/functions/gd..fish deleted file mode 100755 index c899329227..0000000000 --- a/config/fish/functions/gd..fish +++ /dev/null @@ -1,3 +0,0 @@ -function gd. - git diff --color-words='.' $argv; -end diff --git a/config/fish/functions/gd.fish b/config/fish/functions/gd.fish deleted file mode 100755 index daf1612c92..0000000000 --- a/config/fish/functions/gd.fish +++ /dev/null @@ -1,3 +0,0 @@ -function gd - git diff $argv; -end diff --git a/config/fish/functions/gdc..fish b/config/fish/functions/gdc..fish deleted file mode 100755 index 9becfaa868..0000000000 --- a/config/fish/functions/gdc..fish +++ /dev/null @@ -1,3 +0,0 @@ -function gdc. - git diff --cached --color-words='.' $argv; -end diff --git a/config/fish/functions/gdc.fish b/config/fish/functions/gdc.fish deleted file mode 100755 index 2fe40cd729..0000000000 --- a/config/fish/functions/gdc.fish +++ /dev/null @@ -1,3 +0,0 @@ -function gdc - git diff --cached $argv; -end diff --git a/config/fish/functions/gdcw.fish b/config/fish/functions/gdcw.fish deleted file mode 100755 index bdfa1e87eb..0000000000 --- a/config/fish/functions/gdcw.fish +++ /dev/null @@ -1,4 +0,0 @@ -function gdcw - git diff --cached $color_ruby_words $argv - -end diff --git a/config/fish/functions/gds.fish b/config/fish/functions/gds.fish deleted file mode 100755 index fc8069938d..0000000000 --- a/config/fish/functions/gds.fish +++ /dev/null @@ -1,3 +0,0 @@ -function gds - gitd --stat $argv; -end diff --git a/config/fish/functions/gdw.fish b/config/fish/functions/gdw.fish deleted file mode 100755 index 6563a454e4..0000000000 --- a/config/fish/functions/gdw.fish +++ /dev/null @@ -1,5 +0,0 @@ -function gdw - git diff $color_ruby_words $argv - - -end diff --git a/config/fish/functions/get_corkboard_backup.fish b/config/fish/functions/get_corkboard_backup.fish deleted file mode 100755 index 05e25b5ff8..0000000000 --- a/config/fish/functions/get_corkboard_backup.fish +++ /dev/null @@ -1,5 +0,0 @@ -function get_corkboard_backup - scp backups@slice.corkboard.cc:(ssh backups@slice.corkboard.cc 'ls -1t ~/sqldumps/ec2.corkboard.cc/*tgz | head -n1') ~/backups/sqldumps/ - - -end diff --git a/config/fish/functions/git.fish b/config/fish/functions/git.fish deleted file mode 100644 index 2191d46efb..0000000000 --- a/config/fish/functions/git.fish +++ /dev/null @@ -1,3 +0,0 @@ -function git - hub $argv; -end diff --git a/config/fish/functions/git_dirty_files_count.fish b/config/fish/functions/git_dirty_files_count.fish deleted file mode 100755 index bee6572825..0000000000 --- a/config/fish/functions/git_dirty_files_count.fish +++ /dev/null @@ -1,7 +0,0 @@ -function git_dirty_files_count - if test -d .git - git diff --stat | tail -n1 | sed 's/^ *//' | sed -r 's/ [a-z ]+\((.)(\),)?/\1/g' | sed -r 's/[a-z ]+, / (/' | sed -r "s/([0-9]+)\+/$pr_green\1$pr_grey+/g" | sed -r "s/([0-9]+)\-/$pr_red\1$pr_grey-/g" - end - - -end diff --git a/config/fish/functions/git_head_commit_id.fish b/config/fish/functions/git_head_commit_id.fish deleted file mode 100755 index 57358a23e3..0000000000 --- a/config/fish/functions/git_head_commit_id.fish +++ /dev/null @@ -1,5 +0,0 @@ -function git_head_commit_id - git rev-parse --short HEAD - - -end diff --git a/config/fish/functions/gl.fish b/config/fish/functions/gl.fish deleted file mode 100755 index a3f936ab34..0000000000 --- a/config/fish/functions/gl.fish +++ /dev/null @@ -1,3 +0,0 @@ -function gl - git log --graph --pretty=format:'%Cred%h%Creset %an: %s - %Creset %C(yellow)%d%Creset %Cgreen(%cr)%Creset' --abbrev-commit --date=relative $argv -end diff --git a/config/fish/functions/grb.fish b/config/fish/functions/grb.fish deleted file mode 100755 index d5bf8439ba..0000000000 --- a/config/fish/functions/grb.fish +++ /dev/null @@ -1,3 +0,0 @@ -function grb - git rebase $argv; -end diff --git a/config/fish/functions/grbc.fish b/config/fish/functions/grbc.fish deleted file mode 100755 index 708fb960d1..0000000000 --- a/config/fish/functions/grbc.fish +++ /dev/null @@ -1,3 +0,0 @@ -function grbc - git rebase --continue $argv; -end diff --git a/config/fish/functions/grbi.fish b/config/fish/functions/grbi.fish deleted file mode 100755 index a7434d7dd0..0000000000 --- a/config/fish/functions/grbi.fish +++ /dev/null @@ -1,3 +0,0 @@ -function grbi - grb -i $argv; -end diff --git a/config/fish/functions/gs.fish b/config/fish/functions/gs.fish deleted file mode 100755 index 319232d246..0000000000 --- a/config/fish/functions/gs.fish +++ /dev/null @@ -1,3 +0,0 @@ -function gs - git status $argv -end \ No newline at end of file diff --git a/config/fish/functions/hc.fish b/config/fish/functions/hc.fish deleted file mode 100644 index c88ca88152..0000000000 --- a/config/fish/functions/hc.fish +++ /dev/null @@ -1,3 +0,0 @@ -function hc - heroku console $argv; -end diff --git a/config/fish/functions/hl.fish b/config/fish/functions/hl.fish deleted file mode 100644 index f0d89ed387..0000000000 --- a/config/fish/functions/hl.fish +++ /dev/null @@ -1,3 +0,0 @@ -function hl - heroku logs $argv; -end diff --git a/config/fish/functions/ho.fish b/config/fish/functions/ho.fish deleted file mode 100644 index 684770dd7a..0000000000 --- a/config/fish/functions/ho.fish +++ /dev/null @@ -1,3 +0,0 @@ -function ho - heroku open $argv; -end diff --git a/config/fish/functions/hp.fish b/config/fish/functions/hp.fish deleted file mode 100644 index 032120d5da..0000000000 --- a/config/fish/functions/hp.fish +++ /dev/null @@ -1,3 +0,0 @@ -function hp - git push heroku master $argv; -end diff --git a/config/fish/functions/hr.fish b/config/fish/functions/hr.fish deleted file mode 100644 index 4da7e45b1f..0000000000 --- a/config/fish/functions/hr.fish +++ /dev/null @@ -1,3 +0,0 @@ -function hr - heroku restart $argv; -end diff --git a/config/fish/functions/in_git_repo.fish b/config/fish/functions/in_git_repo.fish deleted file mode 100755 index 5512a05a9d..0000000000 --- a/config/fish/functions/in_git_repo.fish +++ /dev/null @@ -1,8 +0,0 @@ -function in_git_repo - set -l g (git rev-parse --git-dir 2>/dev/null) - [ -n "$g" ] - and [ (pwd) != "~" ] - and [ "$g" != "$HOME"/.git ] - - -end diff --git a/config/fish/functions/jeep.fish b/config/fish/functions/jeep.fish deleted file mode 100644 index 53a76d4ff1..0000000000 --- a/config/fish/functions/jeep.fish +++ /dev/null @@ -1,3 +0,0 @@ -function jeep - clear $argv; -end diff --git a/config/fish/functions/jes.fish b/config/fish/functions/jes.fish deleted file mode 100644 index a31a236470..0000000000 --- a/config/fish/functions/jes.fish +++ /dev/null @@ -1,3 +0,0 @@ -function jes - clear $argv; -end diff --git a/config/fish/functions/l.fish b/config/fish/functions/l.fish deleted file mode 100755 index 104f7a6ef8..0000000000 --- a/config/fish/functions/l.fish +++ /dev/null @@ -1,3 +0,0 @@ -function l - ls $argv; -end diff --git a/config/fish/functions/la.fish b/config/fish/functions/la.fish deleted file mode 100755 index 00507d70bd..0000000000 --- a/config/fish/functions/la.fish +++ /dev/null @@ -1,5 +0,0 @@ -function la --description 'List contents of directory, including hidden files' - ls -ah $argv - - -end diff --git a/config/fish/functions/lal.fish b/config/fish/functions/lal.fish deleted file mode 100755 index 7b659e7c6f..0000000000 --- a/config/fish/functions/lal.fish +++ /dev/null @@ -1,5 +0,0 @@ -function lal --description 'List contents of directory, including hidden files and using long format' - ls -lah $argv - - -end diff --git a/config/fish/functions/latest_gem_version_of.fish b/config/fish/functions/latest_gem_version_of.fish deleted file mode 100755 index 0d6745c805..0000000000 --- a/config/fish/functions/latest_gem_version_of.fish +++ /dev/null @@ -1,5 +0,0 @@ -function latest_gem_version_of - gem list --local $argv[1] | grep "^$argv[1]" | sed -E 's/^.*\(([0-9.]+),.*/\1/' - - -end diff --git a/config/fish/functions/m.fish b/config/fish/functions/m.fish deleted file mode 100755 index 9e58549601..0000000000 --- a/config/fish/functions/m.fish +++ /dev/null @@ -1,3 +0,0 @@ -function m - mate . $argv; -end diff --git a/config/fish/functions/method_missing.fish b/config/fish/functions/method_missing.fish deleted file mode 100644 index e69de29bb2..0000000000 diff --git a/config/fish/functions/mysqlbackup.fish b/config/fish/functions/mysqlbackup.fish deleted file mode 100755 index faade1192d..0000000000 --- a/config/fish/functions/mysqlbackup.fish +++ /dev/null @@ -1,3 +0,0 @@ -function mysqlbackup -d "Dump MySQL database" - mysqldump --add-drop-table --single-transaction --allow-keywords --hex-blob --quick -u $MYSQL_USER -p --set-variable=max_allowed_packet=1000000000 $argv -end \ No newline at end of file diff --git a/config/fish/functions/parse_git_branch.fish b/config/fish/functions/parse_git_branch.fish deleted file mode 100755 index 37ffaabca9..0000000000 --- a/config/fish/functions/parse_git_branch.fish +++ /dev/null @@ -1,4 +0,0 @@ -function parse_git_branch - sh -c 'git branch --no-color 2> /dev/null' | sed -e '/^[^*]/d' -e 's/* \(.*\)/\1/' - -end diff --git a/config/fish/functions/rvm.fish b/config/fish/functions/rvm.fish deleted file mode 100644 index 95c3c62783..0000000000 --- a/config/fish/functions/rvm.fish +++ /dev/null @@ -1,23 +0,0 @@ -function rvm - set -l gems '' - set -l ruby '' - - if test ! $argv[1] - set argv[1] '' - end - - switch $argv[1] - case system - set gems $HOME/.gem-system - set ruby /usr/bin/ruby - case '*' - echo 'hey, ruby needs to be one of [system]' - return - end - - echo $argv[1] > ~/.lastruby - - set -xg GEM_HOME $gems - set -xg GEM_PATH $gems - set -xg PATH $gems/bin (dirname $ruby) $PATH -end \ No newline at end of file diff --git a/config/fish/functions/rvm_init.fish b/config/fish/functions/rvm_init.fish deleted file mode 100644 index e5c7b1a8b9..0000000000 --- a/config/fish/functions/rvm_init.fish +++ /dev/null @@ -1,5 +0,0 @@ -function rvm_init - if -f ~/.rvm/current - __bash_env_to_fish (cat ~/.rvm/current) - end -end \ No newline at end of file diff --git a/config/fish/functions/sc.fish b/config/fish/functions/sc.fish deleted file mode 100644 index 5ae13cd962..0000000000 --- a/config/fish/functions/sc.fish +++ /dev/null @@ -1,3 +0,0 @@ -function sc -d "Run the Rails console" - script/console $argv -end \ No newline at end of file diff --git a/config/fish/functions/ss.fish b/config/fish/functions/ss.fish deleted file mode 100644 index f92bb797a3..0000000000 --- a/config/fish/functions/ss.fish +++ /dev/null @@ -1,4 +0,0 @@ -function ss -d "Run the script/server" - script/server --debugger $argv -end - diff --git a/config/fish/functions/tailf.fish b/config/fish/functions/tailf.fish deleted file mode 100644 index 9228a482f6..0000000000 --- a/config/fish/functions/tailf.fish +++ /dev/null @@ -1,3 +0,0 @@ -function tailf - tail -f $argv; -end diff --git a/config/fish/functions/tw.fish b/config/fish/functions/tw.fish deleted file mode 100644 index db75a95f1e..0000000000 --- a/config/fish/functions/tw.fish +++ /dev/null @@ -1,3 +0,0 @@ -function tw - termtter $argv; -end diff --git a/config/fish/functions/twit.fish b/config/fish/functions/twit.fish deleted file mode 100644 index 3bc747b0e8..0000000000 --- a/config/fish/functions/twit.fish +++ /dev/null @@ -1,3 +0,0 @@ -function twit - termtter $argv; -end diff --git a/emacs.d/.gitignore b/emacs.d/.gitignore deleted file mode 100644 index 686807cfef..0000000000 --- a/emacs.d/.gitignore +++ /dev/null @@ -1,6 +0,0 @@ -defunkt/custom.el -url/* -.DS_Store -local.el -*.elc -private.el diff --git a/emacs.d/.gitmodules b/emacs.d/.gitmodules deleted file mode 100644 index 29be85b9d4..0000000000 --- a/emacs.d/.gitmodules +++ /dev/null @@ -1,30 +0,0 @@ -[submodule "rinari"] - path = vendor/rinari - url = git://github.com/eschulte/rinari.git -[submodule "markdown-mode"] - path = vendor/markdown-mode - url = git://github.com/defunkt/markdown-mode.git -[submodule "twilight-emacs"] - path = vendor/twilight-emacs - url = git://github.com/crafterm/twilight-emacs.git -[submodule "/magit"] - path = vendor/magit - url = git://github.com/technomancy/magit.git -[submodule "cheat.el"] - path = vendor/cheat.el - url = git://github.com/defunkt/cheat.el.git -[submodule "gist.el"] - path = vendor/gist.el - url = git://github.com/defunkt/gist.el.git -[submodule "vendor/textmate.el"] - path = vendor/textmate.el - url = git://github.com/defunkt/textmate.el.git -[submodule "vendor/yaml-mode.el"] - path = vendor/yaml-mode.el - url = git://github.com/yoshiki/yaml-mode.git -[submodule "vendor/open-file-in-github"] - path = vendor/open-file-in-github - url = git://gist.github.com/170861.git -[submodule "vendor/ooc-mode"] - path = vendor/ooc-mode - url = git://github.com/tatofoo/ooc-mode.git diff --git a/emacs.d/README.markdown b/emacs.d/README.markdown deleted file mode 100644 index f651c315c0..0000000000 --- a/emacs.d/README.markdown +++ /dev/null @@ -1,8 +0,0 @@ - (defun kts (emacs config) - "chris wanstrath // chris@ozmm.org" - - (git-clone "git://github.com/defunkt/emacs.git") - (ruby "emacs/install.rb") - (find-file "emacs/local.el") - (insert '(load "defunkt")) - (save-buffer)) diff --git a/emacs.d/defunkt.el b/emacs.d/defunkt.el deleted file mode 100644 index a74eadf1c9..0000000000 --- a/emacs.d/defunkt.el +++ /dev/null @@ -1,18 +0,0 @@ -(add-to-list 'load-path "~/.emacs.d/vendor") - -(setq custom-file "~/.emacs.d/defunkt/custom.el") -(load custom-file) - -; custom place to save customizations -(load "defunkt/global") -(load "defunkt/modes") -(load "defunkt/defuns") -(load "defunkt/bindings") -(load "defunkt/theme") - -(require 'ack) -(require 'cheat) -(require 'textile-mode) -(require 'yaml-mode) - -(require 'peepopen) diff --git a/emacs.d/defunkt/bindings.el b/emacs.d/defunkt/bindings.el deleted file mode 100644 index 753d981f94..0000000000 --- a/emacs.d/defunkt/bindings.el +++ /dev/null @@ -1,20 +0,0 @@ -; general -(global-set-key "\C-x\C-b" 'buffer-menu) -(global-set-key "\M-z" 'defunkt-zap-to-char) -(global-set-key "\C-R" 'replace-string) -(global-set-key (kbd "A-F") 'ack) - -;; no printing! -;; no changing meta key!! -(when (boundp 'osx-key-mode-map) - ;; Option is my meta key. - (define-key osx-key-mode-map (kbd "A-;") - '(lambda () (interactive) (message "noop"))) - - ;; What's paper? - (define-key osx-key-mode-map (kbd "A-p") - '(lambda () (interactive) (message "noop")))) - -; no mailing! -(global-unset-key (kbd "C-x m")) -(global-unset-key "\C-z") diff --git a/emacs.d/defunkt/custom/airistotle.el b/emacs.d/defunkt/custom/airistotle.el deleted file mode 100644 index d29d14ed5a..0000000000 --- a/emacs.d/defunkt/custom/airistotle.el +++ /dev/null @@ -1,37 +0,0 @@ -;; customization -(custom-set-variables - ;; custom-set-variables was added by Custom. - ;; If you edit it by hand, you could mess it up, so be careful. - ;; Your init file should contain only one such instance. - ;; If there is more than one, they won't work right. - '(aquamacs-additional-fontsets nil t) - '(aquamacs-customization-version-id 182 t) - '(cua-mode nil nil (cua-base)) - '(default-frame-alist (quote ((tool-bar-lines . 0) (foreground-color . "white") (background-color . "black") (menu-bar-lines . 1) (font . "-apple-inconsolata-medium-r-normal--20-150-72-72-m-150-iso10646-1")))) - '(erc-modules (quote (autojoin button completion fill irccontrols match menu netsplit noncommands readonly ring scrolltobottom stamp track))) - '(javascript-shell-command "johnson") - '(js2-auto-indent-flag nil) - '(js2-basic-offset 2) - '(js2-bounce-indent-flag t) - '(js2-enter-indents-newline t) - '(js2-strict-missing-semi-warning nil) - '(python-honour-comment-indentation nil) - '(ruby-deep-arglist nil) - '(ruby-deep-indent-paren nil) - '(ruby-deep-indent-paren-style nil) - '(show-paren-mode nil) - '(standard-indent 2) - '(tabbar-mode nil nil (tabbar)) - '(transient-mark-mode t)) -(custom-set-faces - ;; custom-set-faces was added by Custom. - ;; If you edit it by hand, you could mess it up, so be careful. - ;; Your init file should contain only one such instance. - ;; If there is more than one, they won't work right. - '(default ((t (:stipple nil :background "black" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 150 :width normal :family "apple-inconsolata")))) - '(autoface-default ((t (:inherit default :background "black" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 150 :width normal :family "apple-inconsolata")))) - '(emacs-lisp-mode-default ((t (:inherit autoface-default))) t) - '(js2-mode-default ((t (:inherit autoface-default))) t) - '(minibuffer-prompt ((((background dark)) (:foreground "cyan" :height 150)))) - '(mode-line ((t (:inherit aquamacs-variable-width :background "grey75" :foreground "black" :width normal)))) - '(text-mode-default ((t (:inherit autoface-default))) t)) diff --git a/emacs.d/defunkt/defunkt.el b/emacs.d/defunkt/defunkt.el deleted file mode 100644 index a74eadf1c9..0000000000 --- a/emacs.d/defunkt/defunkt.el +++ /dev/null @@ -1,18 +0,0 @@ -(add-to-list 'load-path "~/.emacs.d/vendor") - -(setq custom-file "~/.emacs.d/defunkt/custom.el") -(load custom-file) - -; custom place to save customizations -(load "defunkt/global") -(load "defunkt/modes") -(load "defunkt/defuns") -(load "defunkt/bindings") -(load "defunkt/theme") - -(require 'ack) -(require 'cheat) -(require 'textile-mode) -(require 'yaml-mode) - -(require 'peepopen) diff --git a/emacs.d/defunkt/defuns.el b/emacs.d/defunkt/defuns.el deleted file mode 100644 index c4a81b25b6..0000000000 --- a/emacs.d/defunkt/defuns.el +++ /dev/null @@ -1,101 +0,0 @@ -(defun insert-soft-tab () - (interactive) - (insert " ")) - -(defun defunkt-indent () - (interactive) - (insert " ")) - -(defun defunkt-zap-to-char (arg char) - "Kill up to but excluding ARG'th occurrence of CHAR. -Case is ignored if `case-fold-search' is non-nil in the current buffer. -Goes backward if ARG is negative; error if CHAR not found. -This emulates Vim's `dt` behavior, which rocks." - (interactive "p\ncZap to char: ") - (if (char-table-p translation-table-for-input) - (setq char (or (aref translation-table-for-input char) char))) - (kill-region (point) - (progn - (search-forward (char-to-string char) nil nil arg) - (- (point) 1))) - (backward-char 1)) - -;; fix kill-word -(defun defunkt-kill-word (arg) - "Special version of kill-word which swallows spaces separate from words" - (interactive "p") - - (let ((whitespace-regexp "\\s-+")) - (kill-region (point) - (cond - ((looking-at whitespace-regexp) (re-search-forward whitespace-regexp) (point)) - ((looking-at "\n") (kill-line) (defunkt-kill-word arg)) - (t (forward-word arg) (point)))))) - -(defun defunkt-backward-kill-word (arg) - "Special version of backward-kill-word which swallows spaces separate from words" - (interactive "p") - (if (looking-back "\\s-+") - (kill-region (point) (progn (re-search-backward "\\S-") (forward-char 1) (point))) - (backward-kill-word arg))) - -; set the mode based on the shebang; -; TODO: this sometimes breaks -(defun defunkt-shebang-to-mode () - (interactive) - (let* - ((bang (buffer-substring (point-min) (prog2 (end-of-line) (point) (move-beginning-of-line 1)))) - (mode (progn - (string-match "^#!.+[ /]\\(\\w+\\)$" bang) - (match-string 1 bang))) - (mode-fn (intern (concat mode "-mode")))) - (when (functionp mode-fn) - (funcall mode-fn)))) -;(add-hook 'find-file-hook 'defunkt-shebang-to-mode) - -; duplicate the current line -(defun defunkt-duplicate-line () - (interactive) - (beginning-of-line) - (copy-region-as-kill (point) (progn (end-of-line) (point))) - (textmate-next-line) - (yank) - (beginning-of-line) - (indent-according-to-mode)) - -(defun defunkt-backward-kill-line () - (interactive) - (kill-line 0)) - -(defun url-fetch-into-buffer (url) - (interactive "sURL:") - (insert (concat "\n\n" ";; " url "\n")) - (insert (url-fetch-to-string url))) - -(defun url-fetch-to-string (url) - (with-current-buffer (url-retrieve-synchronously url) - (beginning-of-buffer) - (search-forward-regexp "\n\n") - (delete-region (point-min) (point)) - (buffer-string))) - -;; from http://platypope.org/blog/2007/8/5/a-compendium-of-awesomeness -;; I-search with initial contents -(defvar isearch-initial-string nil) - -(defun isearch-set-initial-string () - (remove-hook 'isearch-mode-hook 'isearch-set-initial-string) - (setq isearch-string isearch-initial-string) - (isearch-search-and-update)) - -(defun isearch-forward-at-point (&optional regexp-p no-recursive-edit) - "Interactive search forward for the symbol at point." - (interactive "P\np") - (if regexp-p (isearch-forward regexp-p no-recursive-edit) - (let* ((end (progn (skip-syntax-forward "w_") (point))) - (begin (progn (skip-syntax-backward "w_") (point)))) - (if (eq begin end) - (isearch-forward regexp-p no-recursive-edit) - (setq isearch-initial-string (buffer-substring begin end)) - (add-hook 'isearch-mode-hook 'isearch-set-initial-string) - (isearch-forward regexp-p no-recursive-edit))))) diff --git a/emacs.d/defunkt/dired.el b/emacs.d/defunkt/dired.el deleted file mode 100644 index 28f5e91d50..0000000000 --- a/emacs.d/defunkt/dired.el +++ /dev/null @@ -1,16 +0,0 @@ -; Dired -(require 'dired) - -; remap 'o' in dired mode to open a file -(defun dired-open-mac () - (interactive) - (let ((file-name (dired-get-file-for-visit))) - (if (file-exists-p file-name) - (call-process "/usr/bin/open" nil 0 nil file-name)))) -(define-key dired-mode-map "o" 'dired-open-mac) - -; - is `cd ..` (like vim) -(define-key dired-mode-map "-" 'dired-up-directory) - -; prefer dired over dumping dir list to buffer -(global-set-key "\C-x\C-d" 'dired) \ No newline at end of file diff --git a/emacs.d/defunkt/global.el b/emacs.d/defunkt/global.el deleted file mode 100644 index 55bb2355e9..0000000000 --- a/emacs.d/defunkt/global.el +++ /dev/null @@ -1,11 +0,0 @@ -(setq-default tab-width 2) -(setq-default indent-tabs-mode nil) -(prefer-coding-system 'utf-8) - -;; works in both aquamacs and carbon -(when (functionp 'tool-bar-mode) - (tool-bar-mode -1)) - -;; aquamacs specific -(when (boundp 'aquamacs-version) - (one-buffer-one-frame-mode 0)) diff --git a/emacs.d/defunkt/modes.el b/emacs.d/defunkt/modes.el deleted file mode 100644 index 4fe321d57a..0000000000 --- a/emacs.d/defunkt/modes.el +++ /dev/null @@ -1,29 +0,0 @@ -;; others -(load "defunkt/dired") -(load "defunkt/ruby") -(load "defunkt/shell") - -;; emacs -(define-key emacs-lisp-mode-map (kbd "A-r") 'eval-buffer) - -; bash -(setq auto-mode-alist (cons '("\\.bashrc" . sh-mode) auto-mode-alist)) - -; css -(setq css-mode-indent-depth 2) -(add-hook 'css-mode-hook '(lambda () - (define-key css-mode-map [tab] 'defunkt-indent))) - - -; yaml -(add-to-list 'auto-mode-alist '("\\.yml$" . yaml-mode)) -(add-hook 'yaml-mode-hook - '(lambda () - (define-key yaml-mode-map "\C-m" 'newline-and-indent))) - - -;; textmate.el -(add-to-list 'load-path "~/.emacs.d/vendor/textmate.el") -(require 'textmate) -(textmate-mode) -(require 'peepopen) diff --git a/emacs.d/defunkt/ruby.el b/emacs.d/defunkt/ruby.el deleted file mode 100644 index 0d56889c22..0000000000 --- a/emacs.d/defunkt/ruby.el +++ /dev/null @@ -1,66 +0,0 @@ -; rinari -(add-to-list 'load-path "~/.emacs.d/vendor/rinari") -(require 'rinari) -(setq rinari-tags-file-name "TAGS") -(add-hook 'rinari-minor-mode-hook - (lambda () - (define-key rinari-minor-mode-map (kbd "A-r") 'rinari-test))) - -; rhtml -(setq auto-mode-alist (cons '("\\.html\\.erb" . nxml-mode) auto-mode-alist)) -(setq auto-mode-alist (cons '("\\.erb" . nxml-mode) auto-mode-alist)) - -; ruby -(require 'ruby-hacks) -(setq auto-mode-alist (cons '("Rakefile" . ruby-mode) auto-mode-alist)) -(setq auto-mode-alist (cons '("Capfile" . ruby-mode) auto-mode-alist)) -(setq auto-mode-alist (cons '("\\.rake" . ruby-mode) auto-mode-alist)) -(setq auto-mode-alist (cons '("\\.god" . ruby-mode) auto-mode-alist)) -(setq auto-mode-alist (cons '("\\.ru" . ruby-mode) auto-mode-alist)) -(setq auto-mode-alist (cons '("\\.gemspec" . ruby-mode) auto-mode-alist)) - -;; no warnings when compiling -(setq ruby-dbg-flags "") - -(add-hook 'ruby-mode-hook - (lambda () - (add-hook 'local-write-file-hooks - '(lambda() - (save-excursion - (untabify (point-min) (point-max))))) - (set (make-local-variable 'indent-tabs-mode) 'nil) - (set (make-local-variable 'tab-width) 2) - (define-key ruby-mode-map "\C-m" 'ruby-reindent-then-newline-and-indent) - (require 'ruby-electric) - (ruby-electric-mode t))) - -(defadvice ruby-do-run-w/compilation (before kill-buffer (name cmdlist)) - (let ((comp-buffer-name (format "*%s*" name))) - (when (get-buffer comp-buffer-name) - (kill-buffer comp-buffer-name)))) -(ad-activate 'ruby-do-run-w/compilation) - -; where'd this go? -(defun ruby-reindent-then-newline-and-indent () - "Reindents the current line then creates an indented newline." - (interactive "*") - (newline) - (save-excursion - (end-of-line 0) - (indent-according-to-mode) - (delete-region (point) (progn (skip-chars-backward " \t") (point)))) - (when (ruby-previous-line-is-comment) - (insert "# ")) - (indent-according-to-mode)) - -(defun ruby-previous-line-is-comment () - "Returns `t' if the previous line is a Ruby comment." - (save-excursion - (forward-line -1) - (ruby-line-is-comment))) - -(defun ruby-line-is-comment () - "Returns `t' if the current line is a Ruby comment." - (save-excursion - (beginning-of-line) - (search-forward "#" (point-at-eol) t))) diff --git a/emacs.d/defunkt/shell.el b/emacs.d/defunkt/shell.el deleted file mode 100644 index 3780f35955..0000000000 --- a/emacs.d/defunkt/shell.el +++ /dev/null @@ -1,9 +0,0 @@ -(global-set-key "\C-x\C-z" 'shell) ; shortcut for shell -(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on) - -(eval-after-load 'shell - '(progn - (define-key shell-mode-map [up] 'comint-previous-input) - (define-key shell-mode-map [down] 'comint-next-input) - (define-key shell-mode-map "\C-p" 'comint-previous-input) - (define-key shell-mode-map "\C-n" 'comint-next-input))) \ No newline at end of file diff --git a/emacs.d/defunkt/theme.el b/emacs.d/defunkt/theme.el deleted file mode 100644 index 49193afa28..0000000000 --- a/emacs.d/defunkt/theme.el +++ /dev/null @@ -1,5 +0,0 @@ -(require 'color-theme) -(setq color-theme-is-global t) - -(load-file "~/.emacs.d/vendor/twilight-emacs/color-theme-twilight.el") -(color-theme-twilight) \ No newline at end of file diff --git a/emacs.d/emacs.el b/emacs.d/emacs.el deleted file mode 100644 index ef6da5afc5..0000000000 --- a/emacs.d/emacs.el +++ /dev/null @@ -1,8 +0,0 @@ -(add-to-list 'load-path "~/.emacs.d") - -;; You're expected to populate .emacs.d/local.el -;; with your own code. This file is under .gitignore -;; so it won't be version-controlled. The idea is to -;; make this file load other version-controlled files. -(load "local") -(load "defunkt") diff --git a/emacs.d/emacsd-tile.el b/emacs.d/emacsd-tile.el deleted file mode 100644 index f8b677d38a..0000000000 --- a/emacs.d/emacsd-tile.el +++ /dev/null @@ -1,30 +0,0 @@ -(defun swap-with (dir) - (interactive) - (let ((other-window (windmove-find-other-window dir))) - (when other-window - (let* ((this-window (selected-window)) - (this-buffer (window-buffer this-window)) - (other-buffer (window-buffer other-window)) - (this-start (window-start this-window)) - (other-start (window-start other-window))) - (set-window-buffer this-window other-buffer) - (set-window-buffer other-window this-buffer) - (set-window-start this-window other-start) - (set-window-start other-window this-start))))) - -(global-set-key (kbd "C-M-J") (lambda () (interactive) (swap-with 'down))) -(global-set-key (kbd "C-M-K") (lambda () (interactive) (swap-with 'up))) -(global-set-key (kbd "C-M-H") (lambda () (interactive) (swap-with 'left))) -(global-set-key (kbd "C-M-L") (lambda () (interactive) (swap-with 'right))) - -(global-set-key (kbd "M-J") (lambda () (interactive) (enlarge-window 1))) -(global-set-key (kbd "M-K") (lambda () (interactive) (enlarge-window -1))) -(global-set-key (kbd "M-H") (lambda () (interactive) (enlarge-window -1 t))) -(global-set-key (kbd "M-L") (lambda () (interactive) (enlarge-window 1 t))) - -(global-set-key (kbd "M-j") 'windmove-down) -(global-set-key (kbd "M-k") 'windmove-up) -(global-set-key (kbd "M-h") 'windmove-left) -(global-set-key (kbd "M-l") 'windmove-right) - -(provide 'emacsd-tile) diff --git a/emacs.d/install.rb b/emacs.d/install.rb deleted file mode 100644 index dd3ca6f7cc..0000000000 --- a/emacs.d/install.rb +++ /dev/null @@ -1,29 +0,0 @@ -# this is not the ruby you're looking for -require 'fileutils' - -alias :V :lambda - -Joiner = V do |base| - V do |*others| - File.join(base, *others) - end -end - -Home = Joiner[ File.expand_path( '~' ) ] -Cwd = Joiner[ File.expand_path(File.dirname(__FILE__)) ] - -Link = V do |target, new| - FileUtils.ln_s Cwd[ target ], Home[ new ] rescue puts("~/#{new} exists.") -end - -Link[ 'emacs.el', '.emacs' ] -Link[ '.', '.emacs.d' ] - -Git = V do |command, dir| - Dir.chdir(dir) do - `git #{command}` - end -end - -`git submodule update --init` -`cd vendor/rinari && git submodule update --init` diff --git a/emacs.d/local.el b/emacs.d/local.el deleted file mode 100644 index f18cb6369d..0000000000 --- a/emacs.d/local.el +++ /dev/null @@ -1,8 +0,0 @@ -;; scolling up and down -(global-set-key "\C-v" 'scroll-up) -(global-set-key "\M-v" 'scroll-down) - -;; auto complete -(global-set-key "\M-/" 'hippie-expand) - -(load "emacsd-tile") diff --git a/emacs.d/restore.rb b/emacs.d/restore.rb deleted file mode 100644 index 1dc14de3a8..0000000000 --- a/emacs.d/restore.rb +++ /dev/null @@ -1,9 +0,0 @@ -# -# After a fresh clone. For defunkt. -# - -File.open('local.el', 'w') do |f| - f.puts '(load "defunkt")' -end - -puts "Don't forget to M-x byte-compile-file js2" diff --git a/emacs.d/vendor/ack.el b/emacs.d/vendor/ack.el deleted file mode 100644 index f9b85f8526..0000000000 --- a/emacs.d/vendor/ack.el +++ /dev/null @@ -1,88 +0,0 @@ -;;; ack.el --- Use ack where you might usually use grep. - -;; Copyright (C) 2008 Philip Jackson - -;; Author: Philip Jackson -;; Version: 0.4 - -;; This file is not currently part of GNU Emacs. - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. - -;; This program is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program ; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Commentary: - -;; ack.el provides a simple compilation mode for the perl grep-a-like -;; ack (http://petdance.com/ack/). - -;; If `ack-guess-type' is non-nil and `ack-mode-type-map' has a -;; reasonable value then ack.el will try and guess what you would like -;; in the --type argument for ack. - -;; To install/use put ack.el in your load-path and (require 'ack) in -;; your initialisation file. You can then M-x ack and you're off. - -(require 'compile) - -(defvar ack-guess-type nil - "Setting this value to `t' will have `ack' do its best to fill -in the --type argument to the ack command") - -(defvar ack-command "ack --nocolor --nogroup " - "The command to be run by the ack function.") - -(defvar ack-mode-type-map - '(((c++-mode) . "cpp") - ((c-mode) . "cc") - ((css-mode) . "css") - ((emacs-lisp-mode) . "elisp") - ((fortran-mode) . "fortran") - ((html-mode) . "html") - ((xml-mode nxml-mode) . "xml") - ((java-mode) . "java") - ((ruby-mode) . "ruby") - ((js2-mode) . "js") - ((lisp-mode) . "lisp") - ((perl-mode cperl-mode) . "perl")) - "alist describing how to fill in the '--type=' argument to ack") - -(defun ack-find-type-for-mode () - (catch 'found - (dolist (mode-type ack-mode-type-map) - (when (member major-mode (car mode-type)) - (throw 'found (cdr mode-type)))))) - -(defun ack-build-command () - (let ((type (ack-find-type-for-mode))) - (concat ack-command - (when (and ack-guess-type type) - (concat " --type=" type)) " -- "))) - -(define-compilation-mode ack-mode "Ack" - "Ack compilation mode." - nil) - -;;;###autoload -(defun ack (command-args) - (interactive - (list (read-from-minibuffer "Run ack (like this): " - (ack-build-command) - nil - nil - 'ack-history))) - (compilation-start (concat command-args " " (textmate-project-root)) - 'ack-mode)) - -(provide 'ack) diff --git a/emacs.d/vendor/cheat.el b/emacs.d/vendor/cheat.el deleted file mode 100644 index 37ccac2b05..0000000000 --- a/emacs.d/vendor/cheat.el +++ /dev/null @@ -1,270 +0,0 @@ -;; cheat.el -;; Time-stamp: <2007-08-22 10:00:04 sjs> -;; -;; Copyright (c) 2007 Sami Samhuri -;; -;; See http://sami.samhuri.net/2007/08/10/cheat-from-emacs for updates. -;; -;; License -;; -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License -;; as published by the Free Software Foundation; either version 2 -;; of the License, or (at your option) any later version. -;; -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. -;; -;; You should have received a copy of the GNU General Public License -;; along with this program; if not, write to the Free Software -;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. -;; -;; -;; Provide a handy interface to cheat. -;; See http://cheat.errtheblog.com for details on cheat itself. -;; -;; sjs 2007.08.21 -;; * Cache the list of cheat sheets, update it once a day (configurable). -;; * Strictly complete cheat sheet names. - -(defvar *cheat-host* "cheat.errtheblog.com") -(defvar *cheat-port* "80") -(defvar *cheat-uri* (concat *cheat-host* ":" *cheat-port*)) - -(defvar *cheat-directory* "~/.cheat") -(defvar *cheat-sheets-cache-file* (concat *cheat-directory* "/sheets")) - -(defvar *cheat-last-sheet* nil - "Name of the most recently viewed cheat sheet.") - -(defvar *cheat-sheet-history* nil - "List of the most recently viewed cheat sheets.") - -(defconst +seconds-per-day+ 86400) - -(defvar *cheat-cache-ttl* +seconds-per-day+ - "The minimum age of a stale cache file, in seconds.") - - -;;; interactive functions - -(defun cheat (name &optional silent) - "Show the specified cheat sheet. - -If SILENT is non-nil then do not print any output, but return it -as a string instead." - (interactive (list (cheat-read-sheet-name))) - (if silent - (cheat-command-silent name) - (cheat-command name))) - -(defun cheat-sheets () - "List all cheat sheets." - (interactive) - (cheat-command "sheets")) - -(defun cheat-recent () - "Show recently added cheat sheets." - (interactive) - (cheat-command "recent")) - -(defun cheat-clear-cache () - "Clear the local cheat cache, located in ~/.cheat." - (interactive) - (cheat-command "--clear-cache") - (make-directory *cheat-directory*)) - -(defun cheat-versions (name) - "Version history of the specified cheat sheet." - (interactive (list (cheat-read-sheet-name))) - (cheat-command name "--versions")) - -(defun cheat-diff (name version) - "Show the diff between the given version and the current version of the named - cheat. -If VERSION is of the form m:n then show the diff between versions m and n." - (interactive (list (cheat-read-sheet-name) - (read-string "Cheat version(s): "))) - (cheat-command name "--diff" version)) - -(defun cheat-add-current-buffer (name) - "Add a new cheat with the specified name and the current buffer as the body." - (interactive "sCheat name: \n") - (post-cheat name (buffer-string) t) - (if (interactive-p) - (print (concat "Cheat added (" name ")")))) - -(defun cheat-edit (name) - "Fetch the named cheat and open a buffer containing its body. -The cheat can be saved with `cheat-save-current-buffer'." - (interactive (list (cheat-read-sheet-name))) - (cheat-clear-cache name) ; make sure we're working with the latest version - (switch-to-buffer (get-buffer-create (cheat->buffer name))) - (insert (cheat-body name)) - (if (interactive-p) - (print "Run `cheat-save-current-buffer' when you're done editing."))) - -(defun cheat-save-current-buffer () - "Save the current buffer using the buffer name for the title and the contents - as the body." - (interactive) - (let ((name (buffer->cheat (buffer-name (current-buffer))))) - (post-cheat name (buffer-string)) - ;; TODO check for errors and kill the buffer on success - (if (interactive-p) - (print (concat "Cheat saved (" name ")"))) - (cheat-clear-cache name) - (cheat name))) - - -;;; helpers - -;; this is from rails-lib.el in the emacs-rails package -(defun string-join (separator strings) - "Join all STRINGS using SEPARATOR." - (mapconcat 'identity strings separator)) - -(defun blank (thing) - "Return T if THING is nil or an empty string, otherwise nil." - (or (null thing) - (and (stringp thing) - (= 0 (length thing))))) - -(defun cheat-command (&rest rest) - "Run the cheat command with the given arguments, display the output." - (interactive "sArguments for cheat: \n") - (let* ((cmd (string-join " " rest)) - (buffer (get-buffer-create - (concat "*Cheat: " cmd "*")))) - (shell-command (concat "cheat " cmd) buffer))) - -(defun cheat-command-to-string (&rest rest) - "Run the cheat command with the given arguments and return the output as a - string. Display nothing." - (shell-command-to-string (concat "cheat " (string-join " " rest)))) - -(defalias 'cheat-command-silent 'cheat-command-to-string) - -(defun cheat-read-sheet-name (&optional prompt) - "Get the name of an existing cheat sheet, prompting with completion and - history. - -The name of the sheet read is stored in *cheat-last-sheet* unless it was blank." - (let* ((default (when (blank prompt) *cheat-last-sheet*)) - (prompt (or prompt - (if (not (blank default)) - (concat "Cheat name (default: " default "): ") - "Cheat name: "))) - (name (completing-read prompt - (cheat-sheets-list t) - nil - t - nil - '*cheat-sheet-history* - default))) - (when (not (blank name)) - (setq *cheat-last-sheet* name)) - name)) - -(defun cheat-sheets-list (&optional fetch-if-missing-or-stale) - "Get a list of all cheat sheets. - -Return the cached list in *cheat-sheets-cache-file* if it's -readable and `cheat-cache-stale-p' returns nil. - -When there is no cache or a stale cache, and -FETCH-IF-MISSING-OR-STALE is non-nil, cache the list and then -return it. - -Otherwise return nil." - (cond ((and (file-readable-p *cheat-sheets-cache-file*) - (not (cheat-cache-stale-p))) - (save-excursion - (let* ((buffer (find-file *cheat-sheets-cache-file*)) - (sheets (split-string (buffer-string)))) - (kill-buffer buffer) - sheets))) - (fetch-if-missing-or-stale - (cheat-cache-list) - (cheat-sheets-list)) - (t nil))) - -(defun cheat-fetch-list () - "Fetch a fresh list of all cheat sheets." - (nthcdr 3 (split-string (cheat-command-to-string "sheets")))) - -(defun cheat-cache-list () - "Cache the list of cheat sheets in *cheat-sheets-cache-file*. Return the - list." - (when (not (file-exists-p *cheat-directory*)) - (make-directory *cheat-directory*)) - (save-excursion - (let ((buffer (find-file *cheat-sheets-cache-file*)) - (sheets (cheat-fetch-list))) - (insert (string-join "\n" sheets)) - (basic-save-buffer) - (kill-buffer buffer) - sheets))) - -(defun cheat-cache-stale-p () - "Non-nil if the cache in *cheat-sheets-cache-file* is more than - *cheat-cache-ttl* seconds old.q - -If the cache file does not exist then it is considered stale. - -Also see `cheat-cache-sheets'." - (or (null (file-exists-p *cheat-sheets-cache-file*)) - (let* ((now (float-time (current-time))) - (last-mod (float-time (sixth (file-attributes - *cheat-sheets-cache-file*)))) - (age (- now last-mod))) - (> age *cheat-cache-ttl*)))) - -(defun cheat-body (name) - "Call out to Ruby to load the YAML and return just the body." - (shell-command-to-string - (concat "ruby -ryaml -e '" - "puts YAML.load_file(File.expand_path(\"~/.cheat/" - name ".yml\")).to_a[0][-1]'"))) - -(defun url-http-post (url args) - "Send ARGS to URL as a POST request." - (let ((url-request-method "POST") - (url-request-extra-headers - '(("Content-Type" . "application/x-www-form-urlencoded"))) - (url-request-data - (concat (mapconcat (lambda (arg) - (concat (url-hexify-string (car arg)) - "=" - (url-hexify-string (cdr arg)))) - args - "&") - "\r\n"))) - ;; `kill-url-buffer' to discard the result - ;; `switch-to-url-buffer' to view the results (debugging). - (url-retrieve url 'kill-url-buffer))) - -(defun kill-url-buffer (status) - "Kill the buffer returned by `url-retrieve'." - (kill-buffer (current-buffer))) - -(defun switch-to-url-buffer (status) - "Switch to the buffer returned by `url-retreive'. - The buffer contains the raw HTTP response sent by the server." - (switch-to-buffer (current-buffer))) - -(defun post-cheat (title body &optional new) - (let ((uri (concat "http://" *cheat-uri* "/w/" (if new "" title)))) - (url-http-post uri `(("sheet_title" . ,title) - ("sheet_body" . ,body) - ("from_gem" . "1"))))) - -(defun buffer->cheat (name) - (substring name 7 (- (length name) 1))) - -(defun cheat->buffer (name) - (concat "*cheat-" name "*")) - -(provide 'cheat) \ No newline at end of file diff --git a/emacs.d/vendor/color-theme.el b/emacs.d/vendor/color-theme.el deleted file mode 100644 index 7cb1bbd23f..0000000000 --- a/emacs.d/vendor/color-theme.el +++ /dev/null @@ -1,15170 +0,0 @@ -;;; color-theme.el --- install color themes - -;; Copyright (C) 1999, 2000 Jonadab the Unsightly One -;; Copyright (C) 2000, 2001, 2002, 2003 Alex Schroeder -;; Copyright (C) 2003, 2004 Xavier Maillard - -;; Version: 6.5.5 -;; Keywords: faces -;; Author: Jonadab the Unsightly One -;; Maintainer: Xavier Maillard -;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ColorTheme - -;; This file is not part of GNU Emacs. - -;; This is free software; you can redistribute it and/or modify it under -;; the terms of the GNU General Public License as published by the Free -;; Software Foundation; either version 2, or (at your option) any later -;; version. -;; -;; This is distributed in the hope that it will be useful, but WITHOUT -;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or -;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -;; for more details. -;; -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, -;; MA 02111-1307, USA. - -;;; Commentary: - -;; Sharing your current color setup: -;; -;; Use `color-theme-submit'. If you have already invested time in -;; customizing Emacs faces, please consider sharing your current setup. -;; Make sure that color-theme.el is in your `load-path'. Type M-x -;; load-library RET color-theme RET to load all the functions. Type M-x -;; color-theme-submit RET and mail the result to the maintainer of this -;; package (see above for mail addres). -;; -;; If you want to make sure that all your customization was exported, -;; type M-x list-faces-display RET to get a list of all faces currently -;; defined. This is the list of faces that `color-theme-print' uses. - -;; Installing a color theme: -;; -;; Make sure that color-theme.el is in your `load-path'. Type M-x -;; load-library RET color-theme RET to load all the functions. -;; -;; The main function to call is color-theme-select. Type M-x -;; color-theme-select RET. That creates a Color Theme Selection -;; buffer. Press RET or `i' on a color theme to install it for the -;; rest of your session. -;; -;; If you want to install the color theme as soon as Emacs is started -;; up, read the description of the theme you like and remember the -;; name of the color theme function. Press `d' on a color theme in -;; the Color Theme Selection buffer to read the description. Assuming -;; you like the Gnome2 theme, you'll find that the function to use is -;; called `color-theme-gnome2'. Add the following to the end of your -;; .emacs (removing the leading `;;'). -;; -;; (require 'color-theme) -;; (color-theme-gnome2) - -;; Changing menu colors: -;; -;; In Emacs 21 on X, you can set the menu colors and font using the -;; menu face. Example for your .emacs file: -;; -;; (set-face-font 'menu "7x14") -;; (set-face-foreground 'menu "white"). -;; -;; If are using X, you can set the menu foreground and background using -;; a resource file, usually .Xdefaults or .Xresources. Usually -;; .Xdefaults is used when you start your session using a display -;; manager such as xdm or gdm. .Xresources is usually used when you -;; start X directly via a shell script such as startx. If you set -;; Emacs*Background and Emacs*Foreground in such a resource file, the -;; foreground and background of Emacs including the menu will be set. -;; If your .emacs then loads a color theme, the foreground and -;; background are changed -- with the exception of the menu. There is -;; no way to manipulate the menu foreground and background color from -;; elisp. You can also set more specific menu resources for Emacs in -;; the resource file. Here is a sample entry for your resource file: -;; -;; Emacs*Background: DarkSlateGray -;; Emacs*Foreground: wheat - -;; Creating your own color theme: -;; -;; Use M-x customize-face and customize the faces. Make sure to "Set -;; for Current Session" -- you don't want to save these using custom! -;; When you are done, call M-x color-theme-print to produce the elisp -;; code required to recreate your theme. Better yet, use M-x -;; color-theme-submit to mail it to the maintainer. That way it will be -;; added to future versions of color-theme.el. -;; -;; For more information on the elisp format of a color theme, start with -;; the documentation of `color-theme-install' using C-h f -;; color-theme-install. -;; -;; When your color theme is just a variation of an existing color theme, -;; take a look at `color-theme-robin-hood' in order to see an example of -;; how to do it. Essentially you want to call all the parent color -;; themes before installing your changes. For all but the first parent -;; color theme, you need to make sure that `color-theme-is-cumulative' -;; is bound to t. If you don't do that, users that set -;; `color-theme-is-cumulative' to nil will only install your changes -;; without the parent color themes. - -;; Making a color theme work for both Emacs and XEmacs: -;; -;; Once you have printed the color-theme, you can make sure it looks -;; similar in both Emacs and XEmacs by running -;; `color-theme-analyze-defun' on the printed theme. This function -;; will check for missing faces for the other editor... - -;;; Thanks - -;; Deepak Goel -;; S. Pokrovsky for ideas and discussion. -;; Gordon Messmer for ideas and discussion. -;; Sriram Karra for the color-theme-submit stuff. -;; Olgierd `Kingsajz' Ziolko for the spec-filter idea. -;; All the users that contributed their color themes. - -;;; Bugs: - -;; Emacs 20.7: Some faces are created using copy-face; these faces are -;; not printed correctly using M-x color-theme-print. They will have -;; (nil) in their spec. M-x customize-face has the same problem. -;; Example: -;; (copy-face 'bold 'new-bold) -;; (color-theme-spec 'bold) -;; => (bold ((t (:bold t)))) -;; (color-theme-spec 'new-bold) -;; => (new-bold ((t (nil)))) -;; -;; XEmacs 21.1: Some faces are defined using a certain font instead of -;; of the correct attribute. They will have (nil) in their spec. -;; M-x customize-face has the same problem. -;; Example: -;; (color-theme-spec 'bold) -;; => (bold ((t (nil)))) -;; -;; XEmacs 21.2 and up, Emacs 21: Not compatible with the custom-theme -;; mode. It should be easy to transform the color-theme source into -;; custom-theme source, however. -;; -;; If you are running XEmacs, then only foreground and background color -;; of the default face and only the background color of the text-cursor -;; face will used. This is due to the fact that these three pieces of -;; information are stored as frame parameters in Emacs. -;; -;; If you are running XEmacs, variables cannot have a frame-local -;; binding. Therefore, if color-theme-is-global is set to nil, the -;; variable settings in a color theme are ignored. -;; -;; Using Emacs and a non-nil value for color-theme-is-global will -;; install a new color theme for all frames. Using XEmacs and a non-nil -;; value for color-theme-is-global will install a new color theme only -;; on those frames that are not using a local color theme. -;; -;; If your system does not define the color names used, you will get the -;; error "undefined color". See the output of `list-colors-display' for -;; a list of colors defined on your display. -;; -;; The :box, :height, and other new attributes will be honored in Emacs -;; 21, but when you print such a color-theme on Emacs 20 or XEmacs 21, -;; the information will get lost. So don't do that. Furthermore, -;; customizing these faces may end up showing you a lisp expression -;; instead of the real widgets on Emacs 20 or XEmacs 21 because these -;; attributes are not understood. -;; -;; :inverse-video handling differs in Emacs and XEmacs. We therefore do -;; away with it. When printing a color-theme, the inverse-video -;; attribute should be handled correctly without ever appearing in color -;; themes. For maintenance, the following might be usefull for -;; query-replace-regexp. -;; :background "\([^"]*\)"\(.*\):foreground "\([^"]*\)"\(.*\) :inverse-video t -;; :background "\3"\2:foreground "\1"\4 -;; -;; In XEmacs 21.1, some of the face tests don't work. Example: -;; (custom-face-bold 'bold) returns nil on my system. A bug report was -;; submitted. -;; -;; Emacs 20 users will loose with new color themes, because these will -;; set the colors of the default face only, leaving frame background -;; untouched. In Emacs 20, the colors of the default face and of the -;; frame could be changed independently. In Emacs 21, this is no longer -;; true. New color themes will not be made backwards compatible. -;; -;; This release was superficially tested with Emacs 21.2 and XEmacs 21.4. - - - -;;; Code: - -(require 'cl); set-difference is a function... - -;; for custom-face-attributes-get or face-custom-attributes-get -(require 'cus-face) -(require 'wid-edit); for widget-apply stuff in cus-face.el - -(defconst color-theme-maintainer-address "zedek@gnu-rox.org" - "Address used by `submit-color-theme'.") - -;; Emacs / XEmacs compatibility and workaround layer - -(cond ((and (facep 'tool-bar) - (not (facep 'toolbar))) - (put 'toolbar 'face-alias 'tool-bar)) - ((and (facep 'toolbar) - (not (facep 'tool-bar))) - (put 'tool-bar 'face-alias 'toolbar))) - -(defvar color-theme-xemacs-p (string-match "XEmacs" emacs-version) - "Non-nil if running XEmacs.") - -;; face-attr-construct has a problem in Emacs 20.7 and older when -;; dealing with inverse-video faces. Here is a short test to check -;; wether you are affected. - -;; (set-background-color "wheat") -;; (set-foreground-color "black") -;; (setq a (make-face 'a-face)) -;; (face-spec-set a '((t (:background "white" :foreground "black" :inverse-video t)))) -;; (face-attr-construct a) -;; => (:background "black" :inverse-video t) - -;; The expected response is the original specification: -;; => (:background "white" :foreground "black" :inverse-video t) - -;; That's why we depend on cus-face.el functionality. - -(cond ((fboundp 'custom-face-attributes-get) - (defalias 'color-theme-face-attr-construct - 'custom-face-attributes-get)) - ((fboundp 'face-custom-attributes-get) - (defalias 'color-theme-face-attr-construct - 'face-custom-attributes-get)) - (t - (defun color-theme-face-attr-construct (&rest ignore) - (error "Unable to construct face attributes")))) - -(defun color-theme-alist (plist) - "Transform PLIST into an alist if it is a plist and return it. -If the first element of PLIST is a cons cell, we just return PLIST, -assuming PLIST to be an alist. If the first element of plist is not a -symbol, this is an error: We cannot distinguish a plist from an ordinary -list, but a list that doesn't start with a symbol is certainly no plist -and no alist. - -This is used to make sure `default-frame-alist' really is an alist and not -a plist. In XEmacs, the alist is deprecated; a plist is used instead." - (cond ((consp (car plist)) - plist) - ((not (symbolp (car plist))) - (error "Wrong type argument: plist, %S" plist)) - (t - (plist-to-alist plist)))); XEmacs only - -;; Customization - -(defgroup color-theme nil - "Color Themes for Emacs. -A color theme consists of frame parameter settings, variable settings, -and face definitions." - :version "20.6" - :group 'faces) - -(defcustom color-theme-legal-frame-parameters "\\(color\\|mode\\)$" - "Regexp that matches frame parameter names. -Only frame parameter names that match this regexp can be changed as part -of a color theme." - :type '(choice (const :tag "Colors only" "\\(color\\|mode\\)$") - (const :tag "Colors, fonts, and size" - "\\(color\\|mode\\|font\\|height\\|width\\)$") - (regexp :tag "Custom regexp")) - :group 'color-theme - :link '(info-link "(elisp)Window Frame Parameters")) - -(defcustom color-theme-legal-variables "\\(color\\|face\\)$" - "Regexp that matches variable names. -Only variables that match this regexp can be changed as part of a color -theme. In addition to matching this name, the variables have to be user -variables (see function `user-variable-p')." - :type 'regexp - :group 'color-theme) - -(defcustom color-theme-illegal-faces "^w3-" - "Regexp that matches face names forbidden in themes. -The default setting \"^w3-\" excludes w3 faces since these -are created dynamically." - :type 'regexp - :group 'color-theme - :link '(info-link "(elisp)Faces for Font Lock") - :link '(info-link "(elisp)Standard Faces")) - -(defcustom color-theme-illegal-default-attributes '(:family :height :width) - "A list of face properties to be ignored when installing faces. -This prevents Emacs from doing terrible things to your display just because -a theme author likes weird fonts." - :type '(repeat symbol) - :group 'color-theme) - -(defcustom color-theme-is-global t - "*Determines wether a color theme is installed on all frames or not. -If non-nil, color themes will be installed for all frames. -If nil, color themes will be installed for the selected frame only. - -A possible use for this variable is dynamic binding. Here is a larger -example to put in your ~/.emacs; it will make the Blue Sea color theme -the default used for the first frame, and it will create two additional -frames with different color themes. - -setup: - \(require 'color-theme) - ;; set default color theme - \(color-theme-blue-sea) - ;; create some frames with different color themes - \(let ((color-theme-is-global nil)) - \(select-frame (make-frame)) - \(color-theme-gnome2) - \(select-frame (make-frame)) - \(color-theme-standard)) - -Please note that using XEmacs and and a nil value for -color-theme-is-global will ignore any variable settings for the color -theme, since XEmacs doesn't have frame-local variable bindings. - -Also note that using Emacs and a non-nil value for color-theme-is-global -will install a new color theme for all frames. Using XEmacs and a -non-nil value for color-theme-is-global will install a new color theme -only on those frames that are not using a local color theme." - :type 'boolean - :group 'color-theme) - -(defcustom color-theme-is-cumulative t - "*Determines wether new color themes are installed on top of each other. -If non-nil, installing a color theme will undo all settings made by -previous color themes." - :type 'boolean - :group 'color-theme) - -(defcustom color-theme-mode-hook nil - "Hook for color-theme-mode." - :type 'hook - :group 'color-theme) - -(defvar color-theme-mode-map - (let ((map (make-sparse-keymap))) - (define-key map (kbd "RET") 'color-theme-install-at-point) - (define-key map (kbd "c") 'list-colors-display) - (define-key map (kbd "d") 'color-theme-describe) - (define-key map (kbd "f") 'list-faces-display) - (define-key map (kbd "i") 'color-theme-install-at-point) - (define-key map (kbd "l") 'color-theme-install-at-point-for-current-frame) - (define-key map (kbd "p") 'color-theme-print) - (define-key map (kbd "q") 'bury-buffer) - (define-key map (kbd "?") 'color-theme-describe) - (if color-theme-xemacs-p - (define-key map (kbd "") 'color-theme-install-at-mouse) - (define-key map (kbd "") 'color-theme-install-at-mouse)) - map) - "Mode map used for the buffer created by `color-theme-select'.") - -(defvar color-theme-buffer-name "*Color Theme Selection*" - "Name of the color theme selection buffer.") - -(defvar color-theme-original-frame-alist nil - "nil until one of the color themes has been installed.") - -(defvar color-theme-history nil - "List of color-themes called, in reverse order") - -(defcustom color-theme-history-max-length nil - "Max length of history to maintain. -Two other values are acceptable: t means no limit, and -nil means that no history is maintained." - :type '(choice (const :tag "No history" nil) - (const :tag "Unlimited length" t) - integer) - :group 'color-theme) - -(defvar color-theme-counter 0 - "Counter for every addition to `color-theme-history'. -This counts how many themes were installed, regardless -of `color-theme-history-max-length'.") - -(defun color-theme-add-to-history (name) - "Add color-theme NAME to `color-theme-history'." - (setq color-theme-history - (cons (list name color-theme-is-cumulative) - color-theme-history) - color-theme-counter (+ 1 color-theme-counter)) - ;; Truncate the list if necessary. - (when (and (integerp color-theme-history-max-length) - (>= (length color-theme-history) - color-theme-history-max-length)) - (setcdr (nthcdr (1- color-theme-history-max-length) - color-theme-history) - nil))) - -;; (let ((l '(1 2 3 4 5))) -;; (setcdr (nthcdr 2 l) nil) -;; l) - - - -;; List of color themes used to create the *Color Theme Selection* -;; buffer. - -(defvar color-themes - '((color-theme-aalto-dark "Aalto Dark" "Jari Aalto ") - (color-theme-aalto-light "Aalto Light" "Jari Aalto ") - (color-theme-aliceblue "Alice Blue" "Girish Bharadwaj ") - (color-theme-andreas "Andreas" "Andreas Busch ") - (color-theme-arjen "Arjen" "Arjen Wiersma ") - (color-theme-beige-diff "Beige Diff" "Alex Schroeder " t) - (color-theme-bharadwaj "Bharadwaj" "Girish Bharadwaj ") - (color-theme-bharadwaj-slate "Bharadwaj Slate" "Girish Bharadwaj ") - (color-theme-billw "Billw" "Bill White ") - (color-theme-black-on-gray "BlackOnGray" "Sudhir Bhojwani ") - (color-theme-blippblopp "Blipp Blopp" "Thomas Sicheritz-Ponten") - (color-theme-simple-1 "Black" "Jonadab ") - (color-theme-blue-erc "Blue ERC" "Alex Schroeder " t) - (color-theme-blue-gnus "Blue Gnus" "Alex Schroeder " t) - (color-theme-blue-mood "Blue Mood" "Nelson Loyola ") - (color-theme-blue-sea "Blue Sea" "Alex Schroeder ") - (color-theme-calm-forest "Calm Forest" "Artur Hefczyc ") - (color-theme-charcoal-black "Charcoal Black" "Lars Chr. Hausmann ") - (color-theme-goldenrod "Cheap Goldenrod" "Alex Schroeder ") - (color-theme-clarity "Clarity and Beauty" "Richard Wellum ") - (color-theme-classic "Classic" "Frederic Giroud ") - (color-theme-comidia "Comidia" "Marcelo Dias de Toledo ") - (color-theme-jsc-dark "Cooper Dark" "John S Cooper ") - (color-theme-jsc-light "Cooper Light" "John S Cooper ") - (color-theme-jsc-light2 "Cooper Light 2" "John S Cooper ") - (color-theme-dark-blue "Dark Blue" "Chris McMahan ") - (color-theme-dark-blue2 "Dark Blue 2" "Chris McMahan ") - (color-theme-dark-green "Dark Green" "eddy_woody@hotmail.com") - (color-theme-dark-laptop "Dark Laptop" "Laurent Michel ") - (color-theme-deep-blue "Deep Blue" "Tomas Cerha ") - (color-theme-digital-ofs1 "Digital OFS1" "Gareth Owen ") - (color-theme-euphoria "Euphoria" "oGLOWo@oGLOWo.cjb.net") - (color-theme-feng-shui "Feng Shui" "Walter Higgins ") - (color-theme-fischmeister "Fischmeister" - "Sebastian Fischmeister ") - (color-theme-gnome "Gnome" "Jonadab ") - (color-theme-gnome2 "Gnome 2" "Alex Schroeder ") - (color-theme-gray1 "Gray1" "Paul Pulli ") - (color-theme-gray30 "Gray30" "Girish Bharadwaj ") - (color-theme-kingsajz "Green Kingsajz" "Olgierd `Kingsajz' Ziolko ") - (color-theme-greiner "Greiner" "Kevin Greiner ") - (color-theme-gtk-ide "GTK IDE" "Gordon Messmer ") - (color-theme-high-contrast "High Contrast" "Alex Schroeder ") - (color-theme-hober "Hober" "Edward O'Connor ") - (color-theme-infodoc "Infodoc" "Frederic Giroud ") - (color-theme-jb-simple "JB Simple" "jeff@dvns.com") - (color-theme-jedit-grey "Jedit Grey" "Gordon Messmer ") - (color-theme-jonadabian "Jonadab" "Jonadab ") - (color-theme-jonadabian-slate "Jonadabian Slate" "Jonadab ") - (color-theme-katester "Katester" "Higgins_Walter@emc.com") - (color-theme-late-night "Late Night" "Alex Schroeder ") - (color-theme-lawrence "Lawrence" "lawrence mitchell ") - (color-theme-lethe "Lethe" "Ivica Loncar ") - (color-theme-ld-dark "Linh Dang Dark" "Linh Dang ") - (color-theme-marine "Marine" "Girish Bharadwaj ") - (color-theme-matrix "Matrix" "Walter Higgins ") - (color-theme-marquardt "Marquardt" "Colin Marquardt ") - (color-theme-midnight "Midnight" "Gordon Messmer ") - (color-theme-mistyday "Misty Day" "Hari Kumar ") - (color-theme-montz "Montz" "Brady Montz ") - (color-theme-oswald "Oswald" "Tom Oswald ") - (color-theme-parus "Parus" "Jon K Hellan ") - (color-theme-pierson "Pierson" "Dan L. Pierson ") - (color-theme-ramangalahy "Ramangalahy" "Solofo Ramangalahy ") - (color-theme-raspopovic "Raspopovic" "Pedja Raspopovic ") - (color-theme-resolve "Resolve" "Damien Elmes ") - (color-theme-retro-green "Retro Green" "Alex Schroeder ") - (color-theme-retro-orange "Retro Orange" "Alex Schroeder ") - (color-theme-robin-hood "Robin Hood" "Alex Schroeder ") - (color-theme-rotor "Rotor" "Jinwei Shen ") - (color-theme-ryerson "Ryerson" "Luis Fernandes ") - (color-theme-salmon-diff "Salmon Diff" "Alex Schroeder " t) - (color-theme-salmon-font-lock "Salmon Font-Lock" "Alex Schroeder " t) - (color-theme-scintilla "Scintilla" "Gordon Messmer ") - (color-theme-shaman "Shaman" "shaman@interdon.net") - (color-theme-sitaramv-nt "Sitaram NT" - "Sitaram Venkatraman ") - (color-theme-sitaramv-solaris "Sitaram Solaris" - "Sitaram Venkatraman ") - (color-theme-snow "Snow" "Nicolas Rist ") - (color-theme-snowish "Snowish" "Girish Bharadwaj ") - (color-theme-standard-ediff "Standard Ediff" "Emacs Team, added by Alex Schroeder " t) - (color-theme-standard "Standard Emacs 20" "Emacs Team, added by Alex Schroeder ") - (color-theme-emacs-21 "Standard Emacs 21" "Emacs Team, added by Alex Schroeder ") - (color-theme-emacs-nw "Standard Emacs 21 No Window" "Emacs Team, added by D. Goel ") - (color-theme-xemacs "Standard XEmacs" "XEmacs Team, added by Alex Schroeder ") - (color-theme-subtle-blue "Subtle Blue" "Chris McMahan ") - (color-theme-subtle-hacker "Subtle Hacker" "Colin Walters ") - (color-theme-taming-mr-arneson "Taming Mr Arneson" "Erik Arneson ") - (color-theme-taylor "Taylor" "Art Taylor ") - (color-theme-tty-dark "TTY Dark" "O Polite ") - (color-theme-vim-colors "Vim Colors" "Michael Soulier ") - (color-theme-whateveryouwant "Whateveryouwant" "Fabien Penso , color by Scott Jaderholm ") - (color-theme-wheat "Wheat" "Alex Schroeder ") - (color-theme-pok-wob "White On Black" "S. Pokrovsky ") - (color-theme-pok-wog "White On Grey" "S. Pokrovsky ") - (color-theme-word-perfect "WordPerfect" "Thomas Gehrlein ") - (color-theme-xp "XP" "Girish Bharadwaj ")) - "List of color themes. - -Each THEME is itself a three element list (FUNC NAME MAINTAINER &optional LIBRARY). - -FUNC is a color theme function which does the setup. The function -FUNC may call `color-theme-install'. The color theme function may be -interactive. - -NAME is the name of the theme and MAINTAINER is the name and/or email of -the maintainer of the theme. - -If LIBRARY is non-nil, the color theme will be considered a library and -may not be shown in the default menu. - -If you defined your own color theme and want to add it to this list, -use something like this: - - (add-to-list 'color-themes '(color-theme-gnome2 \"Gnome2\" \"Alex\"))") - -;;; Functions - -(defun color-theme-backup-original-values () - "Back up the original `default-frame-alist'. -The values are stored in `color-theme-original-frame-alist' on -startup." - (if (null color-theme-original-frame-alist) - (setq color-theme-original-frame-alist - (color-theme-filter (frame-parameters (selected-frame)) - color-theme-legal-frame-parameters)))) -(add-hook 'after-init-hook 'color-theme-backup-original-values) - -(defun color-theme-select (&optional arg) - "Displays a special buffer for selecting and installing a color theme. -With optional prefix ARG, this buffer will include color theme libraries -as well. A color theme library is in itself not complete, it must be -used as part of another color theme to be useful. Thus, color theme -libraries are mainly useful for color theme authors." - (interactive "P") - (switch-to-buffer (get-buffer-create color-theme-buffer-name)) - (setq buffer-read-only nil) - (erase-buffer) - ;; recreate the snapshot if necessary - (when (or (not (assq 'color-theme-snapshot color-themes)) - (not (commandp 'color-theme-snapshot))) - (fset 'color-theme-snapshot (color-theme-make-snapshot)) - (setq color-themes (delq (assq 'color-theme-snapshot color-themes) - color-themes) - color-themes (delq (assq 'bury-buffer color-themes) - color-themes) - color-themes (append '((color-theme-snapshot - "[Reset]" "Undo changes, if possible.") - (bury-buffer - "[Quit]" "Bury this buffer.")) - color-themes))) - (dolist (theme color-themes) - (let ((func (nth 0 theme)) - (name (nth 1 theme)) - (author (nth 2 theme)) - (library (nth 3 theme)) - (desc)) - (when (or (not library) arg) - (setq desc (format "%-23s %s" - (if library (concat name " [lib]") name) - author)) - (put-text-property 0 (length desc) 'color-theme func desc) - (put-text-property 0 (length name) 'face 'bold desc) - (put-text-property 0 (length name) 'mouse-face 'highlight desc) - (insert desc) - (newline)))) - (beginning-of-buffer) - (setq buffer-read-only t) - (set-buffer-modified-p nil) - (color-theme-mode)) - -(require 'easymenu) -(easy-menu-add-item nil '("Tools") "--") -(easy-menu-add-item nil '("Tools") - ["Color Themes" color-theme-select t]) - -(defun color-theme-mode () - "Major mode to select and install color themes. - -Use \\[color-theme-install-at-point] to install a color theme on all frames. -Use \\[color-theme-install-at-point-for-current-frame] to install a color theme for the current frame only. - -The changes are applied on top of your current setup. This is a -feature. - -Some of the themes should be considered extensions to the standard color -theme: they modify only a limited number of faces and variables. To -verify the final look of a color theme, install the standard color -theme, then install the other color theme. This is a feature. It allows -you to mix several color themes. - -Use \\[color-theme-describe] to read more about the color theme function at point. -If you want to install the color theme permanently, put the call to the -color theme function into your ~/.emacs: - - \(require 'color-theme) - \(color-theme-gnome2) - -If you worry about the size of color-theme.el: You are right. Use -\\[color-theme-print] to print the current color theme and save the resulting buffer -as ~/.emacs-color-theme. Now you can install only this specific color -theme in your .emacs: - - \(load-file \"~/.emacs-color-theme\") - \(my-color-theme) - -The Emacs menu is not affected by color themes within Emacs. Depending -on the toolkit you used to compile Emacs, you might have to set specific -X ressources. See the info manual for more information. Here is an -example ~/.Xdefaults fragment: - - emacs*Background: DarkSlateGray - emacs*Foreground: wheat - -\\{color-theme-mode-map} - -The color themes are listed in `color-themes', which see." - (kill-all-local-variables) - (setq major-mode 'color-theme-mode) - (setq mode-name "Color Themes") - (use-local-map color-theme-mode-map) - (when (functionp 'goto-address); Emacs - (goto-address)) - (run-hooks 'color-theme-mode-hook)) - -;;; Commands in Color Theme Selection mode - -(defun color-theme-describe () - "Describe color theme listed at point. -This shows the documentation of the value of text-property color-theme -at point. The text-property color-theme should be a color theme -function. See `color-themes'." - (interactive) - (describe-function (get-text-property (point) 'color-theme))) - -(defun color-theme-install-at-mouse (event) - "Install color theme clicked upon using the mouse. -First argument EVENT is used to set point. Then -`color-theme-install-at-point' is called." - (interactive "e") - (save-excursion - (mouse-set-point event) - (color-theme-install-at-point))) - -(defun color-theme-install-at-point () - "Install color theme at point. -This calls the value of the text-property `color-theme' at point. -The text-property `color-theme' should be a color theme function. -See `color-themes'." - (interactive) - (let ((func (get-text-property (point) 'color-theme))) - ;; install theme - (if func - (funcall func)) - ;; If goto-address is being used, remove all overlays in the current - ;; buffer and run it again. The face used for the mail addresses in - ;; the the color theme selection buffer is based on the variable - ;; goto-address-mail-face. Changes in that variable will not affect - ;; existing overlays, however, thereby confusing users. - (when (functionp 'goto-address); Emacs - (dolist (o (overlays-in (point-min) (point-max))) - (delete-overlay o)) - (goto-address)))) - -(defun color-theme-install-at-point-for-current-frame () - "Install color theme at point for current frame only. -Binds `color-theme-is-global' to nil and calls -`color-theme-install-at-point'." - (interactive) - (let ((color-theme-is-global nil)) - (color-theme-install-at-point))) - - - -;; Taking a snapshot of the current color theme and pretty printing it. - -(defun color-theme-filter (old-list regexp &optional exclude) - "Filter OLD-LIST. -The resulting list will be newly allocated and contains only elements -with names matching REGEXP. OLD-LIST may be a list or an alist. If you -want to filter a plist, use `color-theme-alist' to convert your plist to -an alist, first. - -If the optional argument EXCLUDE is non-nil, then the sense is -reversed: only non-matching elements will be retained." - (let (elem new-list) - (dolist (elem old-list) - (setq name (symbol-name (if (listp elem) (car elem) elem))) - (when (or (and (not exclude) - (string-match regexp name)) - (and exclude - (not (string-match regexp name)))) - ;; Now make sure that if elem is a cons cell, and the cdr of - ;; that cons cell is a string, then we need a *new* string in - ;; the new list. Having a new cons cell is of no use because - ;; modify-frame-parameters will modify this string, thus - ;; modifying our color theme functions! - (when (and (consp elem) - (stringp (cdr elem))) - (setq elem (cons (car elem) - (copy-sequence (cdr elem))))) - ;; Now store elem - (setq new-list (cons elem new-list)))) - new-list)) - -(defun color-theme-spec-filter (spec) - "Filter the attributes in SPEC. -This makes sure that SPEC has the form ((t (PLIST ...))). -Only properties not in `color-theme-illegal-default-attributes' -are included in the SPEC returned." - (let ((props (cadar spec)) - result prop val) - (while props - (setq prop (nth 0 props) - val (nth 1 props) - props (nthcdr 2 props)) - (unless (memq prop color-theme-illegal-default-attributes) - (setq result (cons val (cons prop result))))) - `((t ,(nreverse result))))) - -;; (color-theme-spec-filter '((t (:background "blue3")))) -;; (color-theme-spec-filter '((t (:stipple nil :background "Black" :foreground "SteelBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width semi-condensed :family "misc-fixed")))) - -(defun color-theme-plist-delete (plist prop) - "Delete property PROP from property list PLIST by side effect. -This modifies PLIST." - ;; deal with prop at the start - (while (eq (car plist) prop) - (setq plist (cddr plist))) - ;; deal with empty plist - (when plist - (let ((lastcell (cdr plist)) - (l (cddr plist))) - (while l - (if (eq (car l) prop) - (progn - (setq l (cddr l)) - (setcdr lastcell l)) - (setq lastcell (cdr l) - l (cddr l)))))) - plist) - -;; (color-theme-plist-delete '(a b c d e f g h) 'a) -;; (color-theme-plist-delete '(a b c d e f g h) 'b) -;; (color-theme-plist-delete '(a b c d e f g h) 'c) -;; (color-theme-plist-delete '(a b c d e f g h) 'g) -;; (color-theme-plist-delete '(a b c d c d e f g h) 'c) -;; (color-theme-plist-delete '(a b c d e f c d g h) 'c) - -(if (or (featurep 'xemacs) - (< emacs-major-version 21)) - (defalias 'color-theme-spec-compat 'identity) - (defun color-theme-spec-compat (spec) - "Filter the attributes in SPEC such that is is never invalid. -Example: Eventhough :bold works in Emacs, it is not recognized by -`customize-face' -- and then the face is uncustomizable. This -function replaces a :bold attribute with the corresponding :weight -attribute, if there is no :weight, or deletes it. This undoes the -doings of `color-theme-spec-canonical-font', more or less." - (let ((props (cadar spec))) - (when (plist-member props :bold) - (setq props (color-theme-plist-delete props :bold)) - (unless (plist-member props :weight) - (setq props (plist-put props :weight 'bold)))) - (when (plist-member props :italic) - (setq props (color-theme-plist-delete props :italic)) - (unless (plist-member props :slant) - (setq props (plist-put props :slant 'italic)))) - `((t ,props))))) - -;; (color-theme-spec-compat '((t (:foreground "blue" :bold t)))) -;; (color-theme-spec-compat '((t (:bold t :foreground "blue" :weight extra-bold)))) -;; (color-theme-spec-compat '((t (:italic t :foreground "blue")))) -;; (color-theme-spec-compat '((t (:slant oblique :italic t :foreground "blue")))) - -(defun color-theme-spec-canonical-font (atts) - "Add :bold and :italic attributes if necessary." - ;; add these to the front of atts -- this will keept the old value for - ;; customize-face in Emacs 21. - (when (and (memq (plist-get atts :weight) - '(ultra-bold extra-bold bold semi-bold)) - (not (plist-get atts :bold))) - (setq atts (cons :bold (cons t atts)))) - (when (and (not (memq (plist-get atts :slant) - '(normal nil))) - (not (plist-get atts :italic))) - (setq atts (cons :italic (cons t atts)))) - atts) -;; (color-theme-spec-canonical-font (color-theme-face-attr-construct 'bold (selected-frame))) -;; (defface foo '((t (:weight extra-bold))) "foo") -;; (color-theme-spec-canonical-font (color-theme-face-attr-construct 'foo (selected-frame))) -;; (face-spec-set 'foo '((t (:weight extra-bold))) nil) -;; (face-spec-set 'foo '((t (:bold t))) nil) -;; (face-spec-set 'foo '((t (:bold t :weight extra-bold))) nil) - -;; Handle :height according to NEWS file for Emacs 21 -(defun color-theme-spec-resolve-height (old new) - "Return the new height given OLD and NEW height. -OLD is the current setting, NEW is the setting inherited from." - (cond ((not old) - new) - ((integerp old) - old) - ((and (floatp old) - (integerp new)) - (round (* old new))) - ((and (floatp old) - (floatp new)) - (* old new)) - ((and (functionp old) - (integerp new)) - (round (funcall old new))) - ((and (functionp old) - (float new)) - `(lambda (f) (* (funcall ,old f) ,new))) - ((and (functionp old) - (functionp new)) - `(lambda (f) (* (funcall ,old (funcall ,new f))))) - (t - (error "Illegal :height attributes: %S or %S" old new)))) -;; (color-theme-spec-resolve-height 12 1.2) -;; (color-theme-spec-resolve-height 1.2 1.2) -;; (color-theme-spec-resolve-height 1.2 12) -;; (color-theme-spec-resolve-height 1.2 'foo) -;; (color-theme-spec-resolve-height (lambda (f) (* 2 f)) 5) -;; (color-theme-spec-resolve-height (lambda (f) (* 2 f)) 2.0) -;; the following lambda is the result from the above calculation -;; (color-theme-spec-resolve-height (lambda (f) (* (funcall (lambda (f) (* 2 f)) f) 2.0)) 5) - -(defun color-theme-spec-resolve-inheritance (atts) - "Resolve all occurences of the :inherit attribute." - (let ((face (plist-get atts :inherit))) - ;; From the Emacs 21 NEWS file: "Attributes from inherited faces are - ;; merged into the face like an underlying face would be." -- - ;; therefore properties of the inherited face only add missing - ;; attributes. - (when face - ;; remove :inherit face from atts -- this assumes only one - ;; :inherit attribute. - (setq atts (delq ':inherit (delq face atts))) - (let ((more-atts (color-theme-spec-resolve-inheritance - (color-theme-face-attr-construct - face (selected-frame)))) - att val) - (while more-atts - (setq att (car more-atts) - val (cadr more-atts) - more-atts (cddr more-atts)) - ;; Color-theme assumes that no value is ever 'unspecified. - (cond ((eq att ':height); cumulative effect! - (setq atts (plist-put atts - ':height - (color-theme-spec-resolve-height - (plist-get atts att) - val)))) - ;; Default: Only put if it has not been specified before. - ((not (plist-get atts att)) - (setq atts (cons att (cons val atts)))) - -)))) - atts)) -;; (color-theme-spec-resolve-inheritance '(:bold t)) -;; (color-theme-spec-resolve-inheritance '(:bold t :foreground "blue")) -;; (color-theme-face-attr-construct 'font-lock-comment-face (selected-frame)) -;; (color-theme-spec-resolve-inheritance '(:bold t :inherit font-lock-comment-face)) -;; (color-theme-spec-resolve-inheritance '(:bold t :foreground "red" :inherit font-lock-comment-face)) -;; (color-theme-face-attr-construct 'Info-title-2-face (selected-frame)) -;; (color-theme-face-attr-construct 'Info-title-3-face (selected-frame)) -;; (color-theme-face-attr-construct 'Info-title-4-face (selected-frame)) -;; (color-theme-spec-resolve-inheritance '(:inherit Info-title-2-face)) - -;; The :inverse-video attribute causes Emacs to swap foreground and -;; background colors, XEmacs does not. Therefore, if anybody chooses -;; the inverse-video attribute, we 1. swap the colors ourselves in Emacs -;; and 2. we remove the inverse-video attribute in Emacs and XEmacs. -;; Inverse-video is only useful on a monochrome tty. -(defun color-theme-spec-maybe-invert (atts) - "Remove the :inverse-video attribute from ATTS. -If ATTS contains :inverse-video t, remove it and swap foreground and -background color. Return ATTS." - (let ((inv (plist-get atts ':inverse-video))) - (if inv - (let (result att) - (while atts - (setq att (car atts) - atts (cdr atts)) - (cond ((and (eq att :foreground) (not color-theme-xemacs-p)) - (setq result (cons :background result))) - ((and (eq att :background) (not color-theme-xemacs-p)) - (setq result (cons :foreground result))) - ((eq att :inverse-video) - (setq atts (cdr atts))); this prevents using dolist - (t - (setq result (cons att result))))) - (nreverse result)) - ;; else - atts))) -;; (color-theme-spec-maybe-invert '(:bold t)) -;; (color-theme-spec-maybe-invert '(:foreground "blue")) -;; (color-theme-spec-maybe-invert '(:background "red")) -;; (color-theme-spec-maybe-invert '(:inverse-video t)) -;; (color-theme-spec-maybe-invert '(:inverse-video t :foreground "red")) -;; (color-theme-spec-maybe-invert '(:inverse-video t :background "red")) -;; (color-theme-spec-maybe-invert '(:inverse-video t :background "red" :foreground "blue" :bold t)) -;; (color-theme-spec-maybe-invert '(:inverse-video nil :background "red" :foreground "blue" :bold t)) - -(defun color-theme-spec (face) - "Return a list for FACE which has the form (FACE SPEC). -See `defface' for the format of SPEC. In this case we use only one -DISPLAY, t, and determine ATTS using `color-theme-face-attr-construct'. -If ATTS is nil, (nil) is used instead. - -If ATTS contains :inverse-video t, we remove it and swap foreground and -background color using `color-theme-spec-maybe-invert'. We do this -because :inverse-video is handled differently in Emacs and XEmacs. We -will loose on a tty without colors, because in that situation, -:inverse-video means something." - (let ((atts - (color-theme-spec-canonical-font - (color-theme-spec-maybe-invert - (color-theme-spec-resolve-inheritance - (color-theme-face-attr-construct face (selected-frame))))))) - (if atts - `(,face ((t ,atts))) - `(,face ((t (nil))))))) - -(defun color-theme-get-params () - "Return a list of frame parameter settings usable in a color theme. -Such an alist may be installed by `color-theme-install-frame-params'. The -frame parameters returned must match `color-theme-legal-frame-parameters'." - (let ((params (color-theme-filter (frame-parameters (selected-frame)) - color-theme-legal-frame-parameters))) - (sort params (lambda (a b) (string< (symbol-name (car a)) - (symbol-name (car b))))))) - -(defun color-theme-get-vars () - "Return a list of variable settings usable in a color theme. -Such an alist may be installed by `color-theme-install-variables'. -The variable names must match `color-theme-legal-variables', and the -variable must be a user variable according to `user-variable-p'." - (let ((vars) - (val)) - (mapatoms (lambda (v) - (and (boundp v) - (user-variable-p v) - (string-match color-theme-legal-variables - (symbol-name v)) - (setq val (eval v)) - (add-to-list 'vars (cons v val))))) - (sort vars (lambda (a b) (string< (car a) (car b)))))) - -(defun color-theme-print-alist (alist) - "Print ALIST." - (insert "\n " (if alist "(" "nil")) - (dolist (elem alist) - (when (= (preceding-char) ?\)) - (insert "\n ")) - (prin1 elem (current-buffer))) - (when (= (preceding-char) ?\)) (insert ")"))) - -(defun color-theme-get-faces () - "Return a list of faces usable in a color theme. -Such an alist may be installed by `color-theme-install-faces'. The -faces returned must not match `color-theme-illegal-faces'." - (let ((faces (color-theme-filter (face-list) color-theme-illegal-faces t))) - ;; default face must come first according to comments in - ;; custom-save-faces, the rest is to be sorted by name - (cons 'default (sort (delq 'default faces) 'string-lessp)))) - -(defun color-theme-get-face-definitions () - "Return face settings usable in a color-theme." - (let ((faces (color-theme-get-faces))) - (mapcar 'color-theme-spec faces))) - -(defun color-theme-print-faces (faces) - "Print face settings for all faces returned by `color-theme-get-faces'." - (when faces - (insert "\n ")) - (dolist (face faces) - (when (= (preceding-char) ?\)) - (insert "\n ")) - (prin1 face (current-buffer)))) - -(defun color-theme-reset-faces () - "Reset face settings for all faces returned by `color-theme-get-faces'." - (let ((faces (color-theme-get-faces)) - (face) (spec) (entry) - (frame (if color-theme-is-global nil (selected-frame)))) - (while faces - (setq entry (color-theme-spec (car faces))) - (setq face (nth 0 entry)) - (setq spec '((t (nil)))) - (setq faces (cdr faces)) - (if (functionp 'face-spec-reset-face) - (face-spec-reset-face face frame) - (face-spec-set face spec frame) - (if color-theme-is-global - (put face 'face-defface-spec spec)))))) - -(defun color-theme-print-theme (func doc params vars faces) - "Print a theme into the current buffer. -FUNC is the function name, DOC the doc string, PARAMS the -frame parameters, VARS the variable bindings, and FACES -the list of faces and their specs." - (insert "(defun " (symbol-name func) " ()\n" - " \"" doc "\"\n" - " (interactive)\n" - " (color-theme-install\n" - " '(" (symbol-name func)) - ;; alist of frame parameters - (color-theme-print-alist params) - ;; alist of variables - (color-theme-print-alist vars) - ;; remaining elements of snapshot: face specs - (color-theme-print-faces faces) - (insert ")))") - (goto-char (point-min))) - -(defun color-theme-print (&optional buf) - "Print the current color theme function. - -You can contribute this function to or -paste it into your .emacs file and call it. That should recreate all -the settings necessary for your color theme. - -Example: - - \(require 'color-theme) - \(defun my-color-theme () - \"Color theme by Alex Schroeder, created 2000-05-17.\" - \(interactive) - \(color-theme-install - '(... - ... - ...))) - \(my-color-theme) - -If you want to use a specific color theme function, you can call the -color theme function in your .emacs directly. - -Example: - - \(require 'color-theme) - \(color-theme-gnome2)" - (interactive) - (message "Pretty printing current color theme function...") - (switch-to-buffer (if buf - buf - (get-buffer-create "*Color Theme*"))) - (unless buf - (setq buffer-read-only nil) - (erase-buffer)) - ;; insert defun - (color-theme-print-theme 'my-color-theme - (concat "Color theme by " - (if (string= "" user-full-name) - (user-login-name) - user-full-name) - ", created " (format-time-string "%Y-%m-%d") ".") - (color-theme-get-params) - (color-theme-get-vars) - (mapcar 'color-theme-spec (color-theme-get-faces))) - (unless buf - (emacs-lisp-mode)) - (goto-char (point-min)) - (message "Pretty printing current color theme function... done")) - -(defun color-theme-analyze-find-theme (code) - "Find the sexpr that calls `color-theme-install'." - (let (theme) - (while (and (not theme) code) - (when (eq (car code) 'color-theme-install) - (setq theme code)) - (when (listp (car code)) - (setq theme (color-theme-analyze-find-theme (car code)))) - (setq code (cdr code))) - theme)) - -;; (equal (color-theme-analyze-find-theme -;; '(defun color-theme-blue-eshell () -;; "Color theme for eshell faces only." -;; (color-theme-install -;; '(color-theme-blue-eshell -;; nil -;; (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) -;; (eshell-ls-backup-face ((t (:foreground "Grey")))))))) -;; '(color-theme-install -;; (quote -;; (color-theme-blue-eshell -;; nil -;; (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) -;; (eshell-ls-backup-face ((t (:foreground "Grey"))))))))) - -(defun color-theme-analyze-add-face (a b regexp faces) - "If only one of A or B are in FACES, the other is added, and FACES is returned. -If REGEXP is given, this is only done if faces contains a match for regexps." - (when (or (not regexp) - (catch 'found - (dolist (face faces) - (when (string-match regexp (symbol-name (car face))) - (throw 'found t))))) - (let ((face-a (assoc a faces)) - (face-b (assoc b faces))) - (if (and face-a (not face-b)) - (setq faces (cons (list b (nth 1 face-a)) - faces)) - (if (and (not face-a) face-b) - (setq faces (cons (list a (nth 1 face-b)) - faces)))))) - faces) - -;; (equal (color-theme-analyze-add-face -;; 'blue 'violet nil -;; '((blue ((t (:foreground "blue")))) -;; (bold ((t (:bold t)))))) -;; '((violet ((t (:foreground "blue")))) -;; (blue ((t (:foreground "blue")))) -;; (bold ((t (:bold t)))))) -;; (equal (color-theme-analyze-add-face -;; 'violet 'blue nil -;; '((blue ((t (:foreground "blue")))) -;; (bold ((t (:bold t)))))) -;; '((violet ((t (:foreground "blue")))) -;; (blue ((t (:foreground "blue")))) -;; (bold ((t (:bold t)))))) -;; (equal (color-theme-analyze-add-face -;; 'violet 'blue "foo" -;; '((blue ((t (:foreground "blue")))) -;; (bold ((t (:bold t)))))) -;; '((blue ((t (:foreground "blue")))) -;; (bold ((t (:bold t)))))) -;; (equal (color-theme-analyze-add-face -;; 'violet 'blue "blue" -;; '((blue ((t (:foreground "blue")))) -;; (bold ((t (:bold t)))))) -;; '((violet ((t (:foreground "blue")))) -;; (blue ((t (:foreground "blue")))) -;; (bold ((t (:bold t)))))) - -(defun color-theme-analyze-add-faces (faces) - "Add missing faces to FACES and return it." - ;; The most important thing is to add missing faces for the other - ;; editor. These are the most important faces to check. The - ;; following rules list two faces, A and B. If either of the two is - ;; part of the theme, the other must be, too. The optional third - ;; argument specifies a regexp. Only if an existing face name - ;; matches this regexp, is the rule applied. - (let ((rules '((font-lock-builtin-face font-lock-reference-face) - (font-lock-doc-face font-lock-doc-string-face) - (font-lock-constant-face font-lock-preprocessor-face) - ;; In Emacs 21 `modeline' is just an alias for - ;; `mode-line'. I recommend the use of - ;; `modeline' until further notice. - (modeline mode-line) - (modeline modeline-buffer-id) - (modeline modeline-mousable) - (modeline modeline-mousable-minor-mode) - (region primary-selection) - (region zmacs-region) - (font-lock-string-face dired-face-boring "^dired") - (font-lock-function-name-face dired-face-directory "^dired") - (default dired-face-executable "^dired") - (font-lock-warning-face dired-face-flagged "^dired") - (font-lock-warning-face dired-face-marked "^dired") - (default dired-face-permissions "^dired") - (default dired-face-setuid "^dired") - (default dired-face-socket "^dired") - (font-lock-keyword-face dired-face-symlink "^dired") - (tool-bar menu)))) - (dolist (rule rules) - (setq faces (color-theme-analyze-add-face - (nth 0 rule) (nth 1 rule) (nth 2 rule) faces)))) - ;; The `fringe' face defines what the left and right borders of the - ;; frame look like in Emacs 21. To give them default fore- and - ;; background colors, use (fringe ((t (nil)))) in your color theme. - ;; Usually it makes more sense to choose a color slightly lighter or - ;; darker from the default background. - (unless (assoc 'fringe faces) - (setq faces (cons '(fringe ((t (nil)))) faces))) - ;; The tool-bar should not be part of the frame-parameters, since it - ;; should not appear or disappear depending on the color theme. The - ;; apppearance of the toolbar, however, can be changed by the color - ;; theme. For Emacs 21, use the `tool-bar' face. The easiest way - ;; to do this is to give it the default fore- and background colors. - ;; This can be achieved using (tool-bar ((t (nil)))) in the theme. - ;; Usually it makes more sense, however, to provide the same colors - ;; as used in the `menu' face, and to specify a :box attribute. In - ;; order to alleviate potential Emacs/XEmacs incompatibilities, - ;; `toolbar' will be defined as an alias for `tool-bar' if it does - ;; not exist, and vice-versa. This is done eventhough the face - ;; `toolbar' seems to have no effect on XEmacs. If you look at - ;; XEmacs lisp/faces.el, however, you will find that it is in fact - ;; referenced for XPM stuff. - (unless (assoc 'tool-bar faces) - (setq faces (cons '(tool-bar ((t (nil)))) faces))) - ;; Move the default face back to the front, and sort the rest. - (unless (eq (caar faces) 'default) - (let ((face (assoc 'default faces))) - (setq faces (cons face - (sort (delete face faces) - (lambda (a b) - (string-lessp (car a) (car b)))))))) - faces) - -(defun color-theme-analyze-remove-heights (faces) - "Remove :height property where it is an integer and return FACES." - ;; I don't recommend making font sizes part of a color theme. Most - ;; users would be surprised to see their font sizes change when they - ;; install a color-theme. Therefore, remove all :height attributes - ;; if the value is an integer. If the value is a float, this is ok - ;; -- the value is relative to the default height. One notable - ;; exceptions is for a color-theme created for visually impaired - ;; people. These *must* use a larger font in order to be usable. - (let (result) - (dolist (face faces) - (let ((props (cadar (nth 1 face)))) - (if (and (plist-member props :height) - (integerp (plist-get props :height))) - (setq props (color-theme-plist-delete props :height) - result (cons (list (car face) `((t ,props))) - result)) - (setq result (cons face result))))) - (nreverse result))) - -;; (equal (color-theme-analyze-remove-heights -;; '((blue ((t (:foreground "blue" :height 2)))) -;; (bold ((t (:bold t :height 1.0)))))) -;; '((blue ((t (:foreground "blue")))) -;; (bold ((t (:bold t :height 1.0)))))) - -(defun color-theme-analyze-defun () - "Once you have a color-theme printed, check for missing faces. -This is used by maintainers who receive a color-theme submission -and want to make sure it follows the guidelines by the color-theme -author." - ;; The support for :foreground and :background attributes works for - ;; Emacs 20 and 21 as well as for XEmacs. :inverse-video is taken - ;; care of while printing color themes. - (interactive) - ;; Parse the stuff and find the call to color-theme-install - (save-excursion - (save-restriction - (narrow-to-defun) - ;; define the function - (eval-defun nil) - (goto-char (point-min)) - (let* ((code (read (current-buffer))) - (theme (color-theme-canonic - (eval - (cadr - (color-theme-analyze-find-theme - code))))) - (func (color-theme-function theme)) - (doc (documentation func t)) - (variables (color-theme-variables theme)) - (faces (color-theme-faces theme)) - (params (color-theme-frame-params theme))) - (setq faces (color-theme-analyze-remove-heights - (color-theme-analyze-add-faces faces))) - ;; Remove any variable bindings of faces that point to their - ;; symbol? Perhaps not, because another theme might want to - ;; change this, so it is important to be able to reset them. - ;; (let (result) - ;; (dolist (var variables) - ;; (unless (eq (car var) (cdr var)) - ;; (setq result (cons var result)))) - ;; (setq variables (nreverse result))) - ;; Now modify the theme directly. - (setq theme (color-theme-analyze-find-theme code)) - (setcdr (cadadr theme) (list params variables faces)) - (message "Pretty printing analysed color theme function...") - (with-current-buffer (get-buffer-create "*Color Theme*") - (setq buffer-read-only nil) - (erase-buffer) - ;; insert defun - (color-theme-print-theme func doc params variables faces) - (emacs-lisp-mode)) - (message "Pretty printing analysed color theme function... done") - (ediff-buffers (current-buffer) - (get-buffer "*Color Theme*")))))) - -;;; Creating a snapshot of the current color theme - -(defun color-theme-snapshot nil) - -(defun color-theme-make-snapshot () - "Return the definition of the current color-theme. -The function returned will recreate the color-theme in use at the moment." - (eval `(lambda () - "The color theme in use when the selection buffer was created. -\\[color-theme-select] creates the color theme selection buffer. At the -same time, this snapshot is created as a very simple undo mechanism. -The snapshot is created via `color-theme-snapshot'." - (interactive) - (color-theme-install - '(color-theme-snapshot - ;; alist of frame parameters - ,(color-theme-get-params) - ;; alist of variables - ,(color-theme-get-vars) - ;; remaining elements of snapshot: face specs - ,@(color-theme-get-face-definitions)))))) - - - -;;; Handling the various parts of a color theme install - -(defvar color-theme-frame-param-frobbing-rules - '((foreground-color default foreground) - (background-color default background)) - "List of rules to use when frobbing faces based on frame parameters. -This is only necessary for XEmacs, because in Emacs 21 changing the -frame paramters automatically affects the relevant faces.") - -(defun color-theme-frob-faces (params) - "Change certain faces according to PARAMS. -This uses `color-theme-frame-param-frobbing-rules'." - (dolist (rule color-theme-frame-param-frobbing-rules) - (let* ((param (nth 0 rule)) - (face (nth 1 rule)) - (prop (nth 2 rule)) - (val (cdr (assq param params))) - (frame (if color-theme-is-global nil (selected-frame)))) - (when val - (set-face-property face prop val frame))))) - -(defun color-theme-alist-reduce (old-list) - "Reduce OLD-LIST. -The resulting list will be newly allocated and will not contain any elements -with duplicate cars. This will speed the installation of new themes by -only installing unique attributes." - (let (new-list) - (dolist (elem old-list) - (when (not (assq (car elem) new-list)) - (setq new-list (cons elem new-list)))) - new-list)) - -(defun color-theme-install-frame-params (params) - "Change frame parameters using alist PARAMETERS. - -If `color-theme-is-global' is non-nil, all frames are modified using -`modify-frame-parameters' and the PARAMETERS are prepended to -`default-frame-alist'. The value of `initial-frame-alist' is not -modified. If `color-theme-is-global' is nil, only the selected frame is -modified. If `color-theme-is-cumulative' is nil, the frame parameters -are restored from `color-theme-original-frame-alist'. - -If the current frame parameters have a parameter `minibuffer' with -value `only', then the frame parameters are not installed, since this -indicates a dedicated minibuffer frame. - -Called from `color-theme-install'." - (setq params (color-theme-filter - params color-theme-legal-frame-parameters)) - ;; We have a new list in params now, therefore we may use - ;; destructive nconc. - (if color-theme-is-global - (let ((frames (frame-list))) - (if (or color-theme-is-cumulative - (null color-theme-original-frame-alist)) - (setq default-frame-alist - (append params (color-theme-alist default-frame-alist)) - minibuffer-frame-alist - (append params (color-theme-alist minibuffer-frame-alist))) - (setq default-frame-alist - (append params color-theme-original-frame-alist) - minibuffer-frame-alist - (append params (color-theme-alist minibuffer-frame-alist)))) - (setq default-frame-alist - (color-theme-alist-reduce default-frame-alist) - minibuffer-frame-alist - (color-theme-alist-reduce minibuffer-frame-alist)) - (dolist (frame frames) - (let ((params (if (eq 'only (cdr (assq 'minibuffer (frame-parameters frame)))) - minibuffer-frame-alist - default-frame-alist))) - (condition-case var - (modify-frame-parameters frame params) - (error (message "Error using params %S: %S" params var)))))) - (condition-case var - (modify-frame-parameters (selected-frame) params) - (error (message "Error using params %S: %S" params var)))) - (when color-theme-xemacs-p - (color-theme-frob-faces params))) - -;; (setq default-frame-alist (cons '(height . 30) default-frame-alist)) - -(defun color-theme-install-variables (vars) - "Change variables using alist VARS. -All variables matching `color-theme-legal-variables' are set. - -If `color-theme-is-global' and `color-theme-xemacs-p' are nil, variables -are made frame-local before setting them. Variables are set using `set' -in either case. This may lead to problems if changing the variable -requires the usage of the function specified with the :set tag in -defcustom declarations. - -Called from `color-theme-install'." - (let ((vars (color-theme-filter vars color-theme-legal-variables))) - (dolist (var vars) - (if (or color-theme-is-global color-theme-xemacs-p) - (set (car var) (cdr var)) - (make-variable-frame-local (car var)) - (modify-frame-parameters (selected-frame) (list var)))))) - -(defun color-theme-install-faces (faces) - "Change faces using FACES. - -Change faces for all frames and create any faces listed in FACES which -don't exist. The modified faces will be marked as \"unchanged from -its standard setting\". This is OK, since the changes made by -installing a color theme should never by saved in .emacs by -customization code. - -FACES should be a list where each entry has the form: - - (FACE SPEC) - -See `defface' for the format of SPEC. - -If `color-theme-is-global' is non-nil, faces are modified on all frames -using `face-spec-set'. If `color-theme-is-global' is nil, faces are -only modified on the selected frame. Non-existing faces are created -using `make-empty-face' in either case. If `color-theme-is-cumulative' -is nil, all faces are reset before installing the new faces. - -Called from `color-theme-install'." - ;; clear all previous faces - (when (not color-theme-is-cumulative) - (color-theme-reset-faces)) - ;; install new faces - (let ((faces (color-theme-filter faces color-theme-illegal-faces t)) - (frame (if color-theme-is-global nil (selected-frame)))) - (dolist (entry faces) - (let ((face (nth 0 entry)) - (spec (nth 1 entry))) - (or (facep face) - (make-empty-face face)) - ;; remove weird properties from the default face only - (when (eq face 'default) - (setq spec (color-theme-spec-filter spec))) - ;; Emacs/XEmacs customization issues: filter out :bold when - ;; the spec contains :weight, etc, such that the spec remains - ;; "valid" for custom. - (setq spec (color-theme-spec-compat spec)) - ;; using a spec of ((t (nil))) to reset a face doesn't work - ;; in Emacs 21, we use the new function face-spec-reset-face - ;; instead - (if (and (functionp 'face-spec-reset-face) - (equal spec '((t (nil))))) - (face-spec-reset-face face frame) - (condition-case var - (progn - (face-spec-set face spec frame) - (if color-theme-is-global - (put face 'face-defface-spec spec))) - (error (message "Error using spec %S: %S" spec var)))))))) - -;; `custom-set-faces' is unusable here because it doesn't allow to set -;; the faces for one frame only. - -;; Emacs `face-spec-set': If FRAME is nil, the face is created and -;; marked as a customized face. This is achieved by setting the -;; `face-defface-spec' property. If we don't, new frames will not be -;; created using the face we installed because `face-spec-set' is -;; broken: If given a FRAME of nil, it will not set the default faces; -;; instead it will walk through all the frames and set modify the faces. -;; If we do set a property (`saved-face' or `face-defface-spec'), -;; `make-frame' will correctly use the faces we defined with our color -;; theme. If we used the property `saved-face', -;; `customize-save-customized' will save all the faces installed as part -;; of a color-theme in .emacs. That's why we use the -;; `face-defface-spec' property. - - - -;;; Theme accessor functions, canonicalization, merging, comparing - -(defun color-theme-canonic (theme) - "Return the canonic form of THEME. -This deals with all the backwards compatibility stuff." - (let (function frame-params variables faces) - (when (functionp (car theme)) - (setq function (car theme) - theme (cdr theme))) - (setq frame-params (car theme) - theme (cdr theme)) - ;; optional variable defintions (for backwards compatibility) - (when (listp (caar theme)) - (setq variables (car theme) - theme (cdr theme))) - ;; face definitions - (setq faces theme) - (list function frame-params variables faces))) - -(defun color-theme-function (theme) - "Return function used to create THEME." - (nth 0 theme)) - -(defun color-theme-frame-params (theme) - "Return frame-parameters defined by THEME." - (nth 1 theme)) - -(defun color-theme-variables (theme) - "Return variables set by THEME." - (nth 2 theme)) - -(defun color-theme-faces (theme) - "Return faces defined by THEME." - (nth 3 theme)) - -(defun color-theme-merge-alists (&rest alists) - "Merges all the alist arguments into one alist. -Only the first instance of every key will be part of the resulting -alist. Membership will be tested using `assq'." - (let (result) - (dolist (l alists) - (dolist (entry l) - (unless (assq (car entry) result) - (setq result (cons entry result))))) - (nreverse result))) -;; (color-theme-merge-alists '((a . 1) (b . 2))) -;; (color-theme-merge-alists '((a . 1) (b . 2) (a . 3))) -;; (color-theme-merge-alists '((a . 1) (b . 2)) '((a . 3))) -;; (color-theme-merge-alists '((a . 1) (b . 2)) '((c . 3))) -;; (color-theme-merge-alists '((a . 1) (b . 2)) '((c . 3) (d . 4))) -;; (color-theme-merge-alists '((a . 1) (b . 2)) '((c . 3) (d . 4) (b . 5))) - -(defun color-theme-compare (theme-a theme-b) - "Compare two color themes. -This will print the differences between installing THEME-A and -installing THEME-B. Note that the order is important: If a face is -defined in THEME-A and not in THEME-B, then this will not show up as a -difference, because there is no reset before installing THEME-B. If a -face is defined in THEME-B and not in THEME-A, then this will show up as -a difference." - (interactive - (list - (intern - (completing-read "Theme A: " - (mapcar (lambda (i) (list (symbol-name (car i)))) - color-themes) - (lambda (i) (string-match "color-theme" (car i))))) - (intern - (completing-read "Theme B: " - (mapcar (lambda (i) (list (symbol-name (car i)))) - color-themes) - (lambda (i) (string-match "color-theme" (car i))))))) - ;; install the themes in a new frame and get the definitions - (let ((color-theme-is-global nil)) - (select-frame (make-frame)) - (funcall theme-a) - (setq theme-a (list theme-a - (color-theme-get-params) - (color-theme-get-vars) - (color-theme-get-face-definitions))) - (funcall theme-b) - (setq theme-b (list theme-b - (color-theme-get-params) - (color-theme-get-vars) - (color-theme-get-face-definitions))) - (delete-frame)) - (let ((params (set-difference - (color-theme-frame-params theme-b) - (color-theme-frame-params theme-a) - :test 'equal)) - (vars (set-difference - (color-theme-variables theme-b) - (color-theme-variables theme-a) - :test 'equal)) - (faces (set-difference - (color-theme-faces theme-b) - (color-theme-faces theme-a) - :test 'equal))) - (list 'diff - params - vars - faces))) - - - -;;; Installing a color theme - -(defun color-theme-install (theme) - "Install a color theme defined by frame parameters, variables and faces. - -The theme is installed for all present and future frames; any missing -faces are created. See `color-theme-install-faces'. - -THEME is a color theme definition. See below for more information. - -If you want to install a color theme from your .emacs, use the output -generated by `color-theme-print'. This produces color theme function -which you can copy to your .emacs. - -A color theme definition is a list: -\([FUNCTION] FRAME-PARAMETERS VARIABLE-SETTINGS FACE-DEFINITIONS) - -FUNCTION is the color theme function which called `color-theme-install'. -This is no longer used. There was a time when this package supported -automatic factoring of color themes. This has been abandoned. - -FRAME-PARAMETERS is an alist of frame parameters. These are installed -with `color-theme-install-frame-params'. These are installed last such -that any changes to the default face can be changed by the frame -parameters. - -VARIABLE-DEFINITIONS is an alist of variable settings. These are -installed with `color-theme-install-variables'. - -FACE-DEFINITIONS is an alist of face definitions. These are installed -with `color-theme-install-faces'. - -If `color-theme-is-cumulative' is nil, a color theme will undo face and -frame-parameter settings of previous color themes." - (setq theme (color-theme-canonic theme)) - (color-theme-install-variables (color-theme-variables theme)) - (color-theme-install-faces (color-theme-faces theme)) - ;; frame parameters override faces - (color-theme-install-frame-params (color-theme-frame-params theme)) - (when color-theme-history-max-length - (color-theme-add-to-history - (car theme)))) - - - -;; Sharing your stuff - -(defun color-theme-submit () - "Submit your color-theme to the maintainer." - (interactive) - (require 'reporter) - (let ((reporter-eval-buffer (current-buffer)) - final-resting-place - after-sep-pos - (reporter-status-message "Formatting buffer...") - (reporter-status-count 0) - (problem "Yet another color-theme") - (agent (reporter-compose-outgoing)) - (mailbuf (current-buffer)) - hookvar) - ;; do the work - (require 'sendmail) - ;; If mailbuf did not get made visible before, make it visible now. - (let (same-window-buffer-names same-window-regexps) - (pop-to-buffer mailbuf) - ;; Just in case the original buffer is not visible now, bring it - ;; back somewhere - (and pop-up-windows (display-buffer reporter-eval-buffer))) - (goto-char (point-min)) - (mail-position-on-field "to") - (insert color-theme-maintainer-address) - (mail-position-on-field "subject") - (insert problem) - ;; move point to the body of the message - (mail-text) - (setq after-sep-pos (point)) - (unwind-protect - (progn - (setq final-resting-place (point-marker)) - (goto-char final-resting-place)) - (color-theme-print (current-buffer)) - (goto-char final-resting-place) - (insert "\n\n") - (goto-char final-resting-place) - (insert "Hello there!\n\nHere's my color theme named: ") - (set-marker final-resting-place nil)) - ;; compose the minibuf message and display this. - (let* ((sendkey-whereis (where-is-internal - (get agent 'sendfunc) nil t)) - (abortkey-whereis (where-is-internal - (get agent 'abortfunc) nil t)) - (sendkey (if sendkey-whereis - (key-description sendkey-whereis) - "C-c C-c")); TBD: BOGUS hardcode - (abortkey (if abortkey-whereis - (key-description abortkey-whereis) - "M-x kill-buffer"))); TBD: BOGUS hardcode - (message "Enter a message and type %s to send or %s to abort." - sendkey abortkey)))) - - - -;;; The color theme functions - -(defun color-theme-gnome () - "Wheat on darkslategrey scheme. -From one version of Emacs in RH6 and Gnome, modified by Jonadab." - (interactive) - (color-theme-install - '(color-theme-gnome - ((foreground-color . "wheat") - (background-color . "darkslategrey") - (background-mode . dark)) - (default ((t (nil)))) - (region ((t (:foreground "cyan" :background "dark cyan")))) - (underline ((t (:foreground "yellow" :underline t)))) - (modeline ((t (:foreground "dark cyan" :background "wheat")))) - (modeline-buffer-id ((t (:foreground "dark cyan" :background "wheat")))) - (modeline-mousable ((t (:foreground "dark cyan" :background "wheat")))) - (modeline-mousable-minor-mode ((t (:foreground "dark cyan" :background "wheat")))) - (italic ((t (:foreground "dark red" :italic t)))) - (bold-italic ((t (:foreground "dark red" :bold t :italic t)))) - (font-lock-comment-face ((t (:foreground "Firebrick")))) - (bold ((t (:bold))))))) - -(defun color-theme-blue-gnus () - "Color theme for gnus and message faces only. -This is intended for other color themes to use (eg. `color-theme-gnome2' -and `color-theme-blue-sea')." - (interactive) - (color-theme-install - '(color-theme-blue-gnus - nil - (gnus-cite-attribution-face ((t (:lforeground "lemon chiffon" :bold t)))) - (gnus-cite-face-1 ((t (:foreground "LightSalmon")))) - (gnus-cite-face-2 ((t (:foreground "Khaki")))) - (gnus-cite-face-3 ((t (:foreground "Coral")))) - (gnus-cite-face-4 ((t (:foreground "yellow green")))) - (gnus-cite-face-5 ((t (:foreground "dark khaki")))) - (gnus-cite-face-6 ((t (:foreground "bisque")))) - (gnus-cite-face-7 ((t (:foreground "peru")))) - (gnus-cite-face-8 ((t (:foreground "light coral")))) - (gnus-cite-face-9 ((t (:foreground "plum")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:bold t :underline t)))) - (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t)))) - (gnus-emphasis-underline-italic ((t (:italic t :underline t)))) - (gnus-group-mail-1-empty-face ((t (:foreground "White")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "White")))) - (gnus-group-mail-2-empty-face ((t (:foreground "light cyan")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "light cyan")))) - (gnus-group-mail-3-empty-face ((t (:foreground "LightBlue")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue")))) - (gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine")))) - (gnus-group-news-1-empty-face ((t (:foreground "White")))) - (gnus-group-news-1-face ((t (:bold t :foreground "White")))) - (gnus-group-news-2-empty-face ((t (:foreground "light cyan")))) - (gnus-group-news-2-face ((t (:bold t :foreground "light cyan")))) - (gnus-group-news-3-empty-face ((t (:foreground "LightBlue")))) - (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue")))) - (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine")))) - (gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine")))) - (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine")))) - (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine")))) - (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine")))) - (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine")))) - (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) - (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine")))) - (gnus-header-content-face ((t (:foreground "LightSkyBlue3")))) - (gnus-header-from-face ((t (:bold t :foreground "light cyan")))) - (gnus-header-name-face ((t (:bold t :foreground "LightBlue")))) - (gnus-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine")))) - (gnus-header-subject-face ((t (:bold t :foreground "light cyan")))) - (gnus-signature-face ((t (:foreground "Grey")))) - (gnus-splash-face ((t (:foreground "ForestGreen")))) - (gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon")))) - (gnus-summary-high-unread-face ((t (:bold t :foreground "beige")))) - (gnus-summary-low-ancient-face ((t (:foreground "DimGray")))) - (gnus-summary-low-read-face ((t (:foreground "slate gray")))) - (gnus-summary-low-ticked-face ((t (:foreground "Pink")))) - (gnus-summary-low-unread-face ((t (:foreground "LightGray")))) - (gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine")))) - (gnus-summary-normal-read-face ((t (:foreground "Aquamarine")))) - (gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:background "DarkSlateBlue")))) - (message-cited-text-face ((t (:foreground "LightSalmon")))) - (message-header-cc-face ((t (:foreground "light cyan")))) - (message-header-name-face ((t (:foreground "LightBlue")))) - (message-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine")))) - (message-header-other-face ((t (:foreground "MediumAquamarine")))) - (message-header-subject-face ((t (:bold t :foreground "light cyan")))) - (message-header-to-face ((t (:bold t :foreground "light cyan")))) - (message-header-xheader-face ((t (:foreground "MediumAquamarine")))) - (message-separator-face ((t (:foreground "chocolate"))))))) - -(defun color-theme-dark-gnus () - "Color theme for gnus and message faces only. -This is intended for other color themes to use -\(eg. `color-theme-late-night')." - (interactive) - (color-theme-install - '(color-theme-blue-gnus - nil - (gnus-cite-attribution-face ((t (:foreground "#bbb")))) - (gnus-cite-face-1 ((t (:foreground "#aaa")))) - (gnus-cite-face-2 ((t (:foreground "#aaa")))) - (gnus-cite-face-3 ((t (:foreground "#aaa")))) - (gnus-cite-face-4 ((t (:foreground "#aaa")))) - (gnus-cite-face-5 ((t (:foreground "#aaa")))) - (gnus-cite-face-6 ((t (:foreground "#aaa")))) - (gnus-cite-face-7 ((t (:foreground "#aaa")))) - (gnus-cite-face-8 ((t (:foreground "#aaa")))) - (gnus-cite-face-9 ((t (:foreground "#aaa")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) - (gnus-emphasis-highlight-words ((t (:foreground "#ccc")))) - (gnus-emphasis-italic ((t (:italic t)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:bold t :underline t)))) - (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t)))) - (gnus-emphasis-underline-italic ((t (:italic t :underline t)))) - (gnus-group-mail-1-empty-face ((t (:foreground "#999")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "#999")))) - (gnus-group-mail-2-empty-face ((t (:foreground "#999")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "#999")))) - (gnus-group-mail-3-empty-face ((t (:foreground "#888")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "#888")))) - (gnus-group-mail-low-empty-face ((t (:foreground "#777")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "#777")))) - (gnus-group-news-1-empty-face ((t (:foreground "#999")))) - (gnus-group-news-1-face ((t (:bold t :foreground "#999")))) - (gnus-group-news-2-empty-face ((t (:foreground "#888")))) - (gnus-group-news-2-face ((t (:bold t :foreground "#888")))) - (gnus-group-news-3-empty-face ((t (:foreground "#777")))) - (gnus-group-news-3-face ((t (:bold t :foreground "#777")))) - (gnus-group-news-4-empty-face ((t (:foreground "#666")))) - (gnus-group-news-4-face ((t (:bold t :foreground "#666")))) - (gnus-group-news-5-empty-face ((t (:foreground "#666")))) - (gnus-group-news-5-face ((t (:bold t :foreground "#666")))) - (gnus-group-news-6-empty-face ((t (:foreground "#666")))) - (gnus-group-news-6-face ((t (:bold t :foreground "#666")))) - (gnus-group-news-low-empty-face ((t (:foreground "#666")))) - (gnus-group-news-low-face ((t (:bold t :foreground "#666")))) - (gnus-header-content-face ((t (:foreground "#888")))) - (gnus-header-from-face ((t (:bold t :foreground "#888")))) - (gnus-header-name-face ((t (:bold t :foreground "#777")))) - (gnus-header-newsgroups-face ((t (:bold t :foreground "#777")))) - (gnus-header-subject-face ((t (:bold t :foreground "#999")))) - (gnus-signature-face ((t (:foreground "#444")))) - (gnus-splash-face ((t (:foreground "#ccc")))) - (gnus-summary-cancelled-face ((t (:background "#555" :foreground "#000")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "#555")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "#666")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "#777")))) - (gnus-summary-high-unread-face ((t (:bold t :foreground "#888")))) - (gnus-summary-low-ancient-face ((t (:foreground "#444")))) - (gnus-summary-low-read-face ((t (:foreground "#555")))) - (gnus-summary-low-ticked-face ((t (:foreground "#666")))) - (gnus-summary-low-unread-face ((t (:foreground "#777")))) - (gnus-summary-normal-ancient-face ((t (:foreground "#555")))) - (gnus-summary-normal-read-face ((t (:foreground "#666")))) - (gnus-summary-normal-ticked-face ((t (:foreground "#777")))) - (gnus-summary-normal-unread-face ((t (:foreground "#888")))) - (gnus-summary-selected-face ((t (:background "#333")))) - (message-cited-text-face ((t (:foreground "#aaa")))) - (message-header-cc-face ((t (:foreground "#888")))) - (message-header-name-face ((t (:bold t :foreground "#777")))) - (message-header-newsgroups-face ((t (:bold t :foreground "#777")))) - (message-header-other-face ((t (:foreground "#666")))) - (message-header-subject-face ((t (:bold t :foreground "#999")))) - (message-header-to-face ((t (:bold t :foreground "#777")))) - (message-header-xheader-face ((t (:foreground "#666")))) - (message-separator-face ((t (:foreground "#999"))))))) - -(defun color-theme-blue-eshell () - "Color theme for eshell faces only. -This is intended for other color themes to use (eg. `color-theme-gnome2')." - (interactive) - (color-theme-install - '(color-theme-blue-eshell - nil - (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) - (eshell-ls-backup-face ((t (:foreground "Grey")))) - (eshell-ls-clutter-face ((t (:foreground "DimGray")))) - (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue")))) - (eshell-ls-executable-face ((t (:foreground "Coral")))) - (eshell-ls-missing-face ((t (:foreground "black")))) - (eshell-ls-picture-face ((t (:foreground "Violet")))) ; non-standard face - (eshell-ls-product-face ((t (:foreground "LightSalmon")))) - (eshell-ls-readonly-face ((t (:foreground "Aquamarine")))) - (eshell-ls-special-face ((t (:foreground "Gold")))) - (eshell-ls-symlink-face ((t (:foreground "White")))) - (eshell-ls-text-face ((t (:foreground "medium aquamarine")))) ; non-standard face - (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine")))) ; non-standard face - (eshell-ls-unreadable-face ((t (:foreground "DimGray")))) - (eshell-prompt-face ((t (:foreground "powder blue"))))))) - -(defun color-theme-salmon-font-lock () - "Color theme for font-lock faces only. -This is intended for other color themes to use (eg. `color-theme-gnome2')." - (interactive) - (color-theme-install - '(color-theme-salmon-font-lock - nil - (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen")))) - (font-lock-comment-face ((t (:foreground "LightBlue")))) - (font-lock-constant-face ((t (:foreground "Aquamarine")))) - (font-lock-doc-string-face ((t (:foreground "LightSalmon")))) - (font-lock-function-name-face ((t (:bold t :foreground "Aquamarine")))) - (font-lock-keyword-face ((t (:foreground "Salmon")))) - (font-lock-preprocessor-face ((t (:foreground "Salmon")))) - (font-lock-reference-face ((t (:foreground "pale green")))) - (font-lock-string-face ((t (:foreground "LightSalmon")))) - (font-lock-type-face ((t (:bold t :foreground "YellowGreen")))) - (font-lock-variable-name-face ((t (:bold t :foreground "Aquamarine")))) - (font-lock-warning-face ((t (:bold t :foreground "red"))))))) - -(defun color-theme-dark-font-lock () - "Color theme for font-lock faces only. -This is intended for other color themes to use (eg. `color-theme-late-night')." - (interactive) - (color-theme-install - '(color-theme-dark-font-lock - nil - (font-lock-builtin-face ((t (:bold t :foreground "#777")))) - (font-lock-comment-face ((t (:foreground "#555")))) - (font-lock-constant-face ((t (:foreground "#777")))) - (font-lock-doc-string-face ((t (:foreground "#777")))) - (font-lock-doc-face ((t (:foreground "#777")))) - (font-lock-function-name-face ((t (:bold t :foreground "#777")))) - (font-lock-keyword-face ((t (:foreground "#777")))) - (font-lock-preprocessor-face ((t (:foreground "#777")))) - (font-lock-reference-face ((t (:foreground "#777")))) - (font-lock-string-face ((t (:foreground "#777")))) - (font-lock-type-face ((t (:bold t)))) - (font-lock-variable-name-face ((t (:bold t :foreground "#888")))) - (font-lock-warning-face ((t (:bold t :foreground "#999"))))))) - -(defun color-theme-dark-info () - "Color theme for info, help and apropos faces. -This is intended for other color themes to use (eg. `color-theme-late-night')." - (interactive) - (color-theme-install - '(color-theme-dark-info - nil - (info-header-node ((t (:foreground "#666")))) - (info-header-xref ((t (:foreground "#666")))) - (info-menu-5 ((t (:underline t)))) - (info-menu-header ((t (:bold t :foreground "#666")))) - (info-node ((t (:bold t :foreground "#888")))) - (info-xref ((t (:bold t :foreground "#777"))))))) - -(defun color-theme-gnome2 () - "Wheat on darkslategrey scheme. -`color-theme-gnome' started it all. - -This theme supports standard faces, font-lock, eshell, info, message, -gnus, custom, widget, woman, diary, cperl, bbdb, and erc. This theme -includes faces for Emacs and XEmacs. - -The theme does not support w3 faces because w3 faces can be controlled -by your default style sheet. - -This is what you should put in your .Xdefaults file, if you want to -change the colors of the menus in Emacs 20 as well: - -emacs*Background: DarkSlateGray -emacs*Foreground: Wheat" - (interactive) - (color-theme-blue-gnus) - (let ((color-theme-is-cumulative t)) - (color-theme-blue-erc) - (color-theme-blue-eshell) - (color-theme-salmon-font-lock) - (color-theme-salmon-diff) - (color-theme-install - '(color-theme-gnome2 - ((foreground-color . "wheat") - (background-color . "darkslategrey") - (mouse-color . "Grey") - (cursor-color . "LightGray") - (border-color . "black") - (background-mode . dark)) - ((apropos-keybinding-face . underline) - (apropos-label-face . italic) - (apropos-match-face . secondary-selection) - (apropos-property-face . bold-italic) - (apropos-symbol-face . info-xref) - (goto-address-mail-face . message-header-to-face) - (goto-address-mail-mouse-face . secondary-selection) - (goto-address-url-face . info-xref) - (goto-address-url-mouse-face . highlight) - (list-matching-lines-face . bold) - (view-highlight-face . highlight)) - (default ((t (nil)))) - (bbdb-company ((t (:foreground "pale green")))) - (bbdb-name ((t (:bold t :foreground "pale green")))) - (bbdb-field-name ((t (:foreground "medium sea green")))) - (bbdb-field-value ((t (:foreground "dark sea green")))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t :foreground "beige")))) - (calendar-today-face ((t (:underline t)))) - (comint-highlight-prompt ((t (:foreground "medium aquamarine")))) - (cperl-array-face ((t (:foreground "Yellow")))) - (cperl-hash-face ((t (:foreground "White")))) - (cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) - (custom-button-face ((t (:underline t :foreground "MediumSlateBlue")))) - (custom-documentation-face ((t (:foreground "Grey")))) - (custom-group-tag-face ((t (:foreground "MediumAquamarine")))) - (custom-state-face ((t (:foreground "LightSalmon")))) - (custom-variable-tag-face ((t (:foreground "Aquamarine")))) - (diary-face ((t (:foreground "IndianRed")))) - (dired-face-directory ((t (:bold t :foreground "sky blue")))) - (dired-face-permissions ((t (:foreground "aquamarine")))) - (dired-face-flagged ((t (:foreground "tomato")))) - (dired-face-marked ((t (:foreground "light salmon")))) - (dired-face-executable ((t (:foreground "green yellow")))) - (fringe ((t (:background "darkslategrey")))) - (highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) - (highline-face ((t (:background "SeaGreen")))) - (holiday-face ((t (:background "DimGray")))) - (hyper-apropos-hyperlink ((t (:bold t :foreground "DodgerBlue1")))) - (hyper-apropos-documentation ((t (:foreground "LightSalmon")))) - (info-header-xref ((t (:foreground "DodgerBlue1" :bold t)))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:underline t :bold t :foreground "DodgerBlue1")))) - (info-xref ((t (:bold t :foreground "DodgerBlue1")))) - (isearch ((t (:background "sea green")))) - (italic ((t (:italic t)))) - (menu ((t (:foreground "wheat" :background "darkslategrey")))) - (modeline ((t (:background "dark olive green" :foreground "wheat")))) - (modeline-buffer-id ((t (:background "dark olive green" :foreground "beige")))) - (modeline-mousable ((t (:background "dark olive green" :foreground "yellow green")))) - (modeline-mousable-minor-mode ((t (:background "dark olive green" :foreground "wheat")))) - (region ((t (:background "dark cyan" :foreground "cyan")))) - (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) - (show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue")))) - (show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) - (underline ((t (:underline t)))) - (widget-field-face ((t (:foreground "LightBlue")))) - (widget-inactive-face ((t (:foreground "DimGray")))) - (widget-single-line-field-face ((t (:foreground "LightBlue")))) - (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1")))) - (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3")))) - (w3m-header-line-location-title-face ((t (:foreground "beige" :background "dark olive green")))) - (w3m-header-line-location-content-face ((t (:foreground "wheat" :background "dark olive green")))) - (woman-bold-face ((t (:bold t)))) - (woman-italic-face ((t (:foreground "beige")))) - (woman-unknown-face ((t (:foreground "LightSalmon")))) - (zmacs-region ((t (:background "dark cyan" :foreground "cyan")))))))) - -(defun color-theme-simple-1 () - "Black background. -Doesn't mess with most faces, but does turn on dark background mode." - (interactive) - (color-theme-install - '(color-theme-simple-1 - ((foreground-color . "white") - (background-color . "black") - (cursor-color . "indian red") - (background-mode . dark)) - (default ((t (nil)))) - (modeline ((t (:foreground "black" :background "white")))) - (modeline-buffer-id ((t (:foreground "black" :background "white")))) - (modeline-mousable ((t (:foreground "black" :background "white")))) - (modeline-mousable-minor-mode ((t (:foreground "black" :background "white")))) - (underline ((t (:underline t)))) - (region ((t (:background "grey"))))))) - -(defun color-theme-jonadabian () - "Dark blue background. -Supports standard faces, font-lock, highlight-changes, widget and -custom." - (interactive) - (color-theme-install - '(color-theme-jonadabian - ((foreground-color . "#CCBB77") - (cursor-color . "medium turquoise") - (background-color . "#000055") - (background-mode . dark)) - (default ((t (nil)))) - (modeline ((t (:foreground "cyan" :background "#007080")))) - (modeline-buffer-id ((t (:foreground "cyan" :background "#007080")))) - (modeline-mousable ((t (:foreground "cyan" :background "#007080")))) - (modeline-mousable-minor-mode ((t (:foreground "cyan" :background "#007080")))) - (underline ((t (:underline t)))) - (region ((t (:background "#004080")))) - (font-lock-keyword-face ((t (:foreground "#00BBBB")))) - (font-lock-comment-face ((t (:foreground "grey50" :bold t :italic t)))) - (font-lock-string-face ((t (:foreground "#10D010")))) - (font-lock-constant-face ((t (:foreground "indian red")))) - (highlight-changes-face ((t (:background "navy")))) - (highlight-changes-delete-face ((t (:foreground "red" :background "navy")))) - (widget-field-face ((t (:foreground "black" :background "grey35")))) - (widget-inactive-face ((t (:foreground "gray")))) - (custom-button-face ((t (:foreground "yellow" :background "dark blue")))) - (custom-state-face ((t (:foreground "mediumaquamarine")))) - (custom-face-tag-face ((t (:foreground "goldenrod" :underline t)))) - (custom-documentation-face ((t (:foreground "#10D010")))) - (custom-set-face ((t (:foreground "#2020D0"))))))) - -(defun color-theme-ryerson () - "White on midnightblue scheme. -Used at Ryerson Polytechnic University in the Electronic Engineering department." - (interactive) - (color-theme-install - '(color-theme-ryerson - ((foreground-color . "white") - (background-color . "midnightblue") - (cursor-color . "red") - (background-mode . dark)) - (default ((t (nil)))) - (modeline ((t (:foreground "black" :background "slategray3")))) - (modeline-buffer-id ((t (:foreground "black" :background "slategray3")))) - (modeline-mousable ((t (:foreground "black" :background "slategray3")))) - (modeline-mousable-minor-mode ((t (:foreground "black" :background "slategray3")))) - (underline ((t (:underline t)))) - (region ((t (:foreground "black" :background "slategray3"))))))) - -(defun color-theme-wheat () - "Default colors on a wheat background. -Calls the standard color theme function `color-theme-standard' in order -to reset all faces." - (interactive) - (color-theme-standard) - (let ((color-theme-is-cumulative t)) - (color-theme-install - '(color-theme-wheat - ((background-color . "Wheat")))))) - -(defun color-theme-standard () - "Emacs default colors. -If you are missing standard faces in this theme, please notify the maintainer." - (interactive) - ;; Note that some of the things that make up a color theme are - ;; actually variable settings! - (color-theme-install - '(color-theme-standard - ((foreground-color . "black") - (background-color . "white") - (mouse-color . "black") - (cursor-color . "black") - (border-color . "black") - (background-mode . light)) - ((Man-overstrike-face . bold) - (Man-underline-face . underline) - (apropos-keybinding-face . underline) - (apropos-label-face . italic) - (apropos-match-face . secondary-selection) - (apropos-property-face . bold-italic) - (apropos-symbol-face . bold) - (goto-address-mail-face . italic) - (goto-address-mail-mouse-face . secondary-selection) - (goto-address-url-face . bold) - (goto-address-url-mouse-face . highlight) - (help-highlight-face . underline) - (list-matching-lines-face . bold) - (view-highlight-face . highlight)) - (default ((t (nil)))) - (bold ((t (:bold t)))) - (bold-italic ((t (:bold t :italic t)))) - (calendar-today-face ((t (:underline t)))) - (cperl-array-face ((t (:foreground "Blue" :background "lightyellow2" :bold t)))) - (cperl-hash-face ((t (:foreground "Red" :background "lightyellow2" :bold t :italic t)))) - (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) - (custom-button-face ((t (nil)))) - (custom-changed-face ((t (:foreground "white" :background "blue")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:foreground "blue" :underline t)))) - (custom-group-tag-face-1 ((t (:foreground "red" :underline t)))) - (custom-invalid-face ((t (:foreground "yellow" :background "red")))) - (custom-modified-face ((t (:foreground "white" :background "blue")))) - (custom-rogue-face ((t (:foreground "pink" :background "black")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:foreground "blue" :background "white")))) - (custom-state-face ((t (:foreground "dark green")))) - (custom-variable-button-face ((t (:bold t :underline t)))) - (custom-variable-tag-face ((t (:foreground "blue" :underline t)))) - (diary-face ((t (:foreground "red")))) - (ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green")))) - (ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed")))) - (ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow")))) - (ediff-current-diff-face-C ((t (:foreground "Navy" :background "Pink")))) - (ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey")))) - (ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey")))) - (ediff-even-diff-face-B ((t (:foreground "White" :background "Grey")))) - (ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey")))) - (ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue")))) - (ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green")))) - (ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan")))) - (ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise")))) - (ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey")))) - (ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey")))) - (ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey")))) - (ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey")))) - (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t)))) - (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) - (eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t)))) - (eshell-ls-directory-face ((t (:foreground "Blue" :bold t)))) - (eshell-ls-executable-face ((t (:foreground "ForestGreen" :bold t)))) - (eshell-ls-missing-face ((t (:foreground "Red" :bold t)))) - (eshell-ls-product-face ((t (:foreground "OrangeRed")))) - (eshell-ls-readonly-face ((t (:foreground "Brown")))) - (eshell-ls-special-face ((t (:foreground "Magenta" :bold t)))) - (eshell-ls-symlink-face ((t (:foreground "DarkCyan" :bold t)))) - (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) - (eshell-prompt-face ((t (:foreground "Red" :bold t)))) - (eshell-test-failed-face ((t (:foreground "OrangeRed" :bold t)))) - (eshell-test-ok-face ((t (:foreground "Green" :bold t)))) - (excerpt ((t (:italic t)))) - (fixed ((t (:bold t)))) - (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t)))) - (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t)))) - (font-lock-builtin-face ((t (:foreground "Orchid")))) - (font-lock-comment-face ((t (:foreground "Firebrick")))) - (font-lock-constant-face ((t (:foreground "CadetBlue")))) - (font-lock-function-name-face ((t (:foreground "Blue")))) - (font-lock-keyword-face ((t (:foreground "Purple")))) - (font-lock-string-face ((t (:foreground "RosyBrown")))) - (font-lock-type-face ((t (:foreground "ForestGreen")))) - (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) - (font-lock-warning-face ((t (:foreground "Red" :bold t)))) - (fringe ((t (:background "grey95")))) - (gnus-cite-attribution-face ((t (:italic t)))) - (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "firebrick")))) - (gnus-cite-face-3 ((t (:foreground "dark green")))) - (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) - (gnus-cite-face-5 ((t (:foreground "dark khaki")))) - (gnus-cite-face-6 ((t (:foreground "dark violet")))) - (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-bold-italic ((t (:bold t :italic t)))) - (gnus-emphasis-italic ((t (:italic t)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:bold t :underline t)))) - (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t)))) - (gnus-emphasis-underline-italic ((t (:italic t :underline t)))) - (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) - (gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t)))) - (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) - (gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t)))) - (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) - (gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t)))) - (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) - (gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t)))) - (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) - (gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t)))) - (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) - (gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t)))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) - (gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t)))) - (gnus-header-content-face ((t (:foreground "indianred4" :italic t)))) - (gnus-header-from-face ((t (:foreground "red3")))) - (gnus-header-name-face ((t (:foreground "maroon")))) - (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue" :italic t)))) - (gnus-header-subject-face ((t (:foreground "red4")))) - (gnus-signature-face ((t (:italic t)))) - (gnus-splash-face ((t (:foreground "ForestGreen")))) - (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black")))) - (gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t)))) - (gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t)))) - (gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t)))) - (gnus-summary-high-unread-face ((t (:bold t)))) - (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t)))) - (gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t)))) - (gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t)))) - (gnus-summary-low-unread-face ((t (:italic t)))) - (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (highlight ((t (:background "darkseagreen2")))) - (highlight-changes-delete-face ((t (:foreground "red" :underline t)))) - (highlight-changes-face ((t (:foreground "red")))) - (highline-face ((t (:background "paleturquoise")))) - (holiday-face ((t (:background "pink")))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:bold t :italic t)))) - (info-xref ((t (:bold t)))) - (italic ((t (:italic t)))) - (makefile-space-face ((t (:background "hotpink")))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:foreground "MidnightBlue")))) - (message-header-name-face ((t (:foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:foreground "blue4" :bold t :italic t)))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-subject-face ((t (:foreground "navy blue" :bold t)))) - (message-header-to-face ((t (:foreground "MidnightBlue" :bold t)))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-separator-face ((t (:foreground "brown")))) - (modeline ((t (:foreground "white" :background "black")))) - (modeline-buffer-id ((t (:foreground "white" :background "black")))) - (modeline-mousable ((t (:foreground "white" :background "black")))) - (modeline-mousable-minor-mode ((t (:foreground "white" :background "black")))) - (region ((t (:background "gray")))) - (secondary-selection ((t (:background "paleturquoise")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:foreground "white" :background "purple")))) - (speedbar-button-face ((t (:foreground "green4")))) - (speedbar-directory-face ((t (:foreground "blue4")))) - (speedbar-file-face ((t (:foreground "cyan4")))) - (speedbar-highlight-face ((t (:background "green")))) - (speedbar-selected-face ((t (:foreground "red" :underline t)))) - (speedbar-tag-face ((t (:foreground "brown")))) - (term-black ((t (:foreground "black")))) - (term-blackbg ((t (:background "black")))) - (term-blue ((t (:foreground "blue")))) - (term-bluebg ((t (:background "blue")))) - (term-bold ((t (:bold t)))) - (term-cyan ((t (:foreground "cyan")))) - (term-cyanbg ((t (:background "cyan")))) - (term-default-bg ((t (nil)))) - (term-default-bg-inv ((t (nil)))) - (term-default-fg ((t (nil)))) - (term-default-fg-inv ((t (nil)))) - (term-green ((t (:foreground "green")))) - (term-greenbg ((t (:background "green")))) - (term-invisible ((t (nil)))) - (term-invisible-inv ((t (nil)))) - (term-magenta ((t (:foreground "magenta")))) - (term-magentabg ((t (:background "magenta")))) - (term-red ((t (:foreground "red")))) - (term-redbg ((t (:background "red")))) - (term-underline ((t (:underline t)))) - (term-white ((t (:foreground "white")))) - (term-whitebg ((t (:background "white")))) - (term-yellow ((t (:foreground "yellow")))) - (term-yellowbg ((t (:background "yellow")))) - (underline ((t (:underline t)))) - (vcursor ((t (:foreground "blue" :background "cyan" :underline t)))) - (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) - (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) - (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) - (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) - (vhdl-font-lock-prompt-face ((t (:foreground "Red" :bold t)))) - (vhdl-font-lock-reserved-words-face ((t (:foreground "Orange" :bold t)))) - (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) - (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) - (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) - (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) - (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) - (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) - (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) - (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) - (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) - (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) - (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) - (viper-minibuffer-emacs-face ((t (:foreground "Black" :background "darkseagreen2")))) - (viper-minibuffer-insert-face ((t (:foreground "Black" :background "pink")))) - (viper-minibuffer-vi-face ((t (:foreground "DarkGreen" :background "grey")))) - (viper-replace-overlay-face ((t (:foreground "Black" :background "darkseagreen2")))) - (viper-search-face ((t (:foreground "Black" :background "khaki")))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "gray85"))))))) - -(defun color-theme-fischmeister () - "The light colors on a grey blackground. -Sebastian Fischmeister " - (interactive) - (color-theme-install - '(color-theme-fischmeister - ((foreground-color . "black") - (background-color . "gray80") - (mouse-color . "red") - (cursor-color . "yellow") - (border-color . "black") - (background-mode . light)) - (default ((t (nil)))) - (modeline ((t (:foreground "gray80" :background "black")))) - (modeline-buffer-id ((t (:foreground "gray80" :background "black")))) - (modeline-mousable ((t (:foreground "gray80" :background "black")))) - (modeline-mousable-minor-mode ((t (:foreground "gray80" :background "black")))) - (highlight ((t (:background "darkseagreen2")))) - (bold ((t (:bold t)))) - (italic ((t (:italic t)))) - (bold-italic ((t (:bold t :italic t)))) - (region ((t (:background "gray")))) - (secondary-selection ((t (:background "paleturquoise")))) - (underline ((t (:underline t)))) - (show-paren-match-face ((t (:foreground "yellow" :background "darkgreen")))) - (show-paren-mismatch-face ((t (:foreground "white" :background "red")))) - (font-lock-comment-face ((t (:foreground "FireBrick" :bold t :italic t)))) - (font-lock-string-face ((t (:foreground "DarkSlateBlue" :italic t)))) - (font-lock-keyword-face ((t (:foreground "navy")))) - (font-lock-builtin-face ((t (:foreground "white")))) - (font-lock-function-name-face ((t (:foreground "Blue")))) - (font-lock-variable-name-face ((t (:foreground "Darkblue")))) - (font-lock-type-face ((t (:foreground "darkgreen")))) - (font-lock-constant-face ((t (:foreground "CadetBlue")))) - (font-lock-warning-face ((t (:foreground "Orchid" :bold t)))) - (font-lock-reference-face ((t (:foreground "SteelBlue"))))))) - -(defun color-theme-sitaramv-solaris () - "White on a midnight blue background. Lots of yellow and orange. -Includes faces for font-lock, widget, custom, speedbar, message, gnus, -eshell." - (interactive) - (color-theme-install - '(color-theme-sitaramv-solaris - ((foreground-color . "white") - (background-color . "MidnightBlue") - (mouse-color . "yellow") - (cursor-color . "magenta2") - (border-color . "black") - (background-mode . dark)) - (default ((t (nil)))) - (modeline ((t (:foreground "black" :background "gold2")))) - (modeline-buffer-id ((t (:foreground "black" :background "gold2")))) - (modeline-mousable ((t (:foreground "black" :background "gold2")))) - (modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2")))) - (highlight ((t (:foreground "black" :background "Aquamarine")))) - (bold ((t (:bold t)))) - (italic ((t (:italic t)))) - (bold-italic ((t (:bold t :italic t)))) - (region ((t (:foreground "black" :background "snow3")))) - (secondary-selection ((t (:foreground "black" :background "aquamarine")))) - (underline ((t (:underline t)))) - (lazy-highlight-face ((t (:foreground "yellow")))) - (font-lock-comment-face ((t (:foreground "orange" :italic t)))) - (font-lock-string-face ((t (:foreground "orange")))) - (font-lock-keyword-face ((t (:foreground "green")))) - (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) - (font-lock-function-name-face ((t (:foreground "cyan" :bold t)))) - (font-lock-variable-name-face ((t (:foreground "white")))) - (font-lock-type-face ((t (:foreground "cyan")))) - (font-lock-constant-face ((t (:foreground "Aquamarine")))) - (font-lock-warning-face ((t (:foreground "Pink" :bold t)))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-button-face ((t (:bold t)))) - (widget-field-face ((t (:background "dim gray")))) - (widget-single-line-field-face ((t (:background "dim gray")))) - (widget-inactive-face ((t (:foreground "light gray")))) - (widget-button-pressed-face ((t (:foreground "red")))) - (custom-invalid-face ((t (:foreground "yellow" :background "red")))) - (custom-rogue-face ((t (:foreground "pink" :background "black")))) - (custom-modified-face ((t (:foreground "white" :background "blue")))) - (custom-set-face ((t (:foreground "blue" :background "white")))) - (custom-changed-face ((t (:foreground "white" :background "blue")))) - (custom-saved-face ((t (:underline t)))) - (custom-button-face ((t (nil)))) - (custom-documentation-face ((t (nil)))) - (custom-state-face ((t (:foreground "lime green")))) - (custom-variable-tag-face ((t (:foreground "light blue" :underline t)))) - (custom-variable-button-face ((t (:bold t :underline t)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face-1 ((t (:foreground "pink" :underline t)))) - (custom-group-tag-face ((t (:foreground "light blue" :underline t)))) - (speedbar-button-face ((t (:foreground "green3")))) - (speedbar-file-face ((t (:foreground "cyan")))) - (speedbar-directory-face ((t (:foreground "light blue")))) - (speedbar-tag-face ((t (:foreground "yellow")))) - (speedbar-selected-face ((t (:foreground "red" :underline t)))) - (speedbar-highlight-face ((t (:background "sea green")))) - (font-lock-doc-string-face ((t (:foreground "Plum1" :bold t)))) - (font-lock-exit-face ((t (:foreground "green")))) - (ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t)))) - (show-paren-match-face ((t (:background "red")))) - (show-paren-mismatch-face ((t (:foreground "white" :background "purple")))) - (message-header-to-face ((t (:foreground "green2" :bold t)))) - (message-header-cc-face ((t (:foreground "LightGoldenrod" :bold t)))) - (message-header-subject-face ((t (:foreground "green3")))) - (message-header-newsgroups-face ((t (:foreground "yellow" :bold t :italic t)))) - (message-header-other-face ((t (:foreground "Salmon")))) - (message-header-name-face ((t (:foreground "green3")))) - (message-header-xheader-face ((t (:foreground "GreenYellow")))) - (message-separator-face ((t (:foreground "Tan")))) - (message-cited-text-face ((t (:foreground "Gold")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (gnus-group-news-1-face ((t (:foreground "PaleTurquoise" :bold t)))) - (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) - (gnus-group-news-2-face ((t (:foreground "turquoise" :bold t)))) - (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) - (gnus-group-news-3-face ((t (:bold t)))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) - (gnus-group-mail-1-face ((t (:foreground "aquamarine1" :bold t)))) - (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) - (gnus-group-mail-2-face ((t (:foreground "aquamarine2" :bold t)))) - (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) - (gnus-group-mail-3-face ((t (:foreground "aquamarine3" :bold t)))) - (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) - (gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t)))) - (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) - (gnus-summary-selected-face ((t (:underline t)))) - (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black")))) - (gnus-summary-high-ticked-face ((t (:foreground "pink" :bold t)))) - (gnus-summary-low-ticked-face ((t (:foreground "pink" :italic t)))) - (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) - (gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t)))) - (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t)))) - (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) - (gnus-summary-high-unread-face ((t (:bold t)))) - (gnus-summary-low-unread-face ((t (:italic t)))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t)))) - (gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t)))) - (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) - (gnus-splash-face ((t (:foreground "Brown")))) - (eshell-ls-directory-face ((t (:foreground "SkyBlue" :bold t)))) - (eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t)))) - (eshell-ls-executable-face ((t (:foreground "Green" :bold t)))) - (eshell-ls-readonly-face ((t (:foreground "Pink")))) - (eshell-ls-unreadable-face ((t (:foreground "DarkGrey")))) - (eshell-ls-special-face ((t (:foreground "Magenta" :bold t)))) - (eshell-ls-missing-face ((t (:foreground "Red" :bold t)))) - (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t)))) - (eshell-ls-backup-face ((t (:foreground "LightSalmon")))) - (eshell-ls-product-face ((t (:foreground "LightSalmon")))) - (eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t)))) - (eshell-prompt-face ((t (:foreground "Pink" :bold t)))) - (term-default-fg ((t (nil)))) - (term-default-bg ((t (nil)))) - (term-default-fg-inv ((t (nil)))) - (term-default-bg-inv ((t (nil)))) - (term-bold ((t (:bold t)))) - (term-underline ((t (:underline t)))) - (term-invisible ((t (nil)))) - (term-invisible-inv ((t (nil)))) - (term-black ((t (:foreground "black")))) - (term-red ((t (:foreground "red")))) - (term-green ((t (:foreground "green")))) - (term-yellow ((t (:foreground "yellow")))) - (term-blue ((t (:foreground "blue")))) - (term-magenta ((t (:foreground "magenta")))) - (term-cyan ((t (:foreground "cyan")))) - (term-white ((t (:foreground "white")))) - (term-blackbg ((t (:background "black")))) - (term-redbg ((t (:background "red")))) - (term-greenbg ((t (:background "green")))) - (term-yellowbg ((t (:background "yellow")))) - (term-bluebg ((t (:background "blue")))) - (term-magentabg ((t (:background "magenta")))) - (term-cyanbg ((t (:background "cyan")))) - (term-whitebg ((t (:background "white")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-italic ((t (:italic t)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:bold t :underline t)))) - (gnus-emphasis-underline-italic ((t (:italic t :underline t)))) - (gnus-emphasis-bold-italic ((t (:bold t :italic t)))) - (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t)))) - (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black")))) - (gnus-signature-face ((t (:italic t)))) - (gnus-header-from-face ((t (:foreground "spring green")))) - (gnus-header-subject-face ((t (:foreground "yellow" :bold t)))) - (gnus-header-newsgroups-face ((t (:foreground "SeaGreen3" :bold t :italic t)))) - (gnus-header-name-face ((t (:foreground "pink")))) - (gnus-header-content-face ((t (:foreground "lime green" :italic t)))) - (gnus-cite-attribution-face ((t (:italic t)))) - (gnus-cite-face-1 ((t (:foreground "light blue")))) - (gnus-cite-face-2 ((t (:foreground "light cyan")))) - (gnus-cite-face-3 ((t (:foreground "light yellow")))) - (gnus-cite-face-4 ((t (:foreground "light pink")))) - (gnus-cite-face-5 ((t (:foreground "pale green")))) - (gnus-cite-face-6 ((t (:foreground "beige")))) - (gnus-cite-face-7 ((t (:foreground "orange")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise"))))))) - -(defun color-theme-sitaramv-nt () - "Black foreground on white background. -Includes faces for font-lock, widget, custom, speedbar." - (interactive) - (color-theme-install - '(color-theme-sitaramv-nt - ((foreground-color . "black") - (background-color . "white") - (mouse-color . "sienna3") - (cursor-color . "HotPink") - (border-color . "Blue") - (background-mode . light)) - (default ((t (nil)))) - (modeline ((t (:foreground "black" :background "gold2")))) - (modeline-buffer-id ((t (:foreground "black" :background "gold2")))) - (modeline-mousable ((t (:foreground "black" :background "gold2")))) - (modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2")))) - (highlight ((t (:foreground "black" :background "darkseagreen2")))) - (bold ((t (:bold t)))) - (italic ((t (:italic t)))) - (bold-italic ((t (:bold t :italic t)))) - (region ((t (:foreground "black" :background "snow3")))) - (secondary-selection ((t (:background "paleturquoise")))) - (underline ((t (:underline t)))) - (lazy-highlight-face ((t (:foreground "dark magenta" :bold t)))) - (font-lock-comment-face ((t (:foreground "ForestGreen" :italic t)))) - (font-lock-string-face ((t (:foreground "red")))) - (font-lock-keyword-face ((t (:foreground "blue" :bold t)))) - (font-lock-builtin-face ((t (:foreground "black")))) - (font-lock-function-name-face ((t (:foreground "dark magenta" :bold t)))) - (font-lock-variable-name-face ((t (:foreground "black")))) - (font-lock-type-face ((t (:foreground "blue")))) - (font-lock-constant-face ((t (:foreground "CadetBlue")))) - (font-lock-warning-face ((t (:foreground "Red" :bold t)))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-button-face ((t (:bold t)))) - (widget-field-face ((t (:background "gray85")))) - (widget-single-line-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-button-pressed-face ((t (:foreground "red")))) - (custom-invalid-face ((t (:foreground "yellow" :background "red")))) - (custom-rogue-face ((t (:foreground "pink" :background "black")))) - (custom-modified-face ((t (:foreground "white" :background "blue")))) - (custom-set-face ((t (:foreground "blue" :background "white")))) - (custom-changed-face ((t (:foreground "white" :background "blue")))) - (custom-saved-face ((t (:underline t)))) - (custom-button-face ((t (nil)))) - (custom-documentation-face ((t (nil)))) - (custom-state-face ((t (:foreground "dark green")))) - (custom-variable-tag-face ((t (:foreground "blue" :underline t)))) - (custom-variable-button-face ((t (:bold t :underline t)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face-1 ((t (:foreground "red" :underline t)))) - (custom-group-tag-face ((t (:foreground "blue" :underline t)))) - (speedbar-button-face ((t (:foreground "green4")))) - (speedbar-file-face ((t (:foreground "cyan4")))) - (speedbar-directory-face ((t (:foreground "blue4")))) - (speedbar-tag-face ((t (:foreground "brown")))) - (speedbar-selected-face ((t (:foreground "red" :underline t)))) - (speedbar-highlight-face ((t (:background "green")))) - (ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t)))) - (show-paren-match-face ((t (:background "light blue")))) - (show-paren-mismatch-face ((t (:foreground "white" :background "purple"))))))) - -(defun color-theme-billw () - "Cornsilk on black. -Includes info, diary, font-lock, eshell, sgml, message, gnus, -widget, custom, latex, ediff." - (interactive) - (color-theme-install - '(color-theme-billw - ((foreground-color . "cornsilk") - (background-color . "black") - (mouse-color . "black") - (cursor-color . "white") - (border-color . "black") - (background-mode . dark)) - (default ((t (nil)))) - (modeline ((t (:foreground "black" :background "wheat")))) - (modeline-buffer-id ((t (:foreground "black" :background "wheat")))) - (modeline-mousable ((t (:foreground "black" :background "wheat")))) - (modeline-mousable-minor-mode ((t (:foreground "black" :background "wheat")))) - (highlight ((t (:foreground "wheat" :background "darkslategray")))) - (bold ((t (:bold t)))) - (italic ((t (:italic t)))) - (bold-italic ((t (:bold t :italic t)))) - (region ((t (:background "dimgray")))) - (secondary-selection ((t (:background "deepskyblue4")))) - (underline ((t (:underline t)))) - (info-node ((t (:foreground "yellow" :bold t :italic t)))) - (info-menu-5 ((t (:underline t)))) - (info-xref ((t (:foreground "yellow" :bold t)))) - (diary-face ((t (:foreground "orange")))) - (calendar-today-face ((t (:underline t)))) - (holiday-face ((t (:background "red")))) - (show-paren-match-face ((t (:background "deepskyblue4")))) - (show-paren-mismatch-face ((t (:foreground "white" :background "red")))) - (font-lock-comment-face ((t (:foreground "gold")))) - (font-lock-string-face ((t (:foreground "orange")))) - (font-lock-keyword-face ((t (:foreground "cyan1")))) - (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) - (font-lock-function-name-face ((t (:foreground "mediumspringgreen")))) - (font-lock-variable-name-face ((t (:foreground "light salmon")))) - (font-lock-type-face ((t (:foreground "yellow1")))) - (font-lock-constant-face ((t (:foreground "salmon")))) - (font-lock-warning-face ((t (:foreground "gold" :bold t)))) - (blank-space-face ((t (:background "LightGray")))) - (blank-tab-face ((t (:foreground "black" :background "cornsilk")))) - (highline-face ((t (:background "gray35")))) - (eshell-ls-directory-face ((t (:foreground "green" :bold t)))) - (eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t)))) - (eshell-ls-executable-face ((t (:foreground "orange" :bold t)))) - (eshell-ls-readonly-face ((t (:foreground "gray")))) - (eshell-ls-unreadable-face ((t (:foreground "DarkGrey")))) - (eshell-ls-special-face ((t (:foreground "Magenta" :bold t)))) - (eshell-ls-missing-face ((t (:foreground "Red" :bold t)))) - (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t)))) - (eshell-ls-backup-face ((t (:foreground "LightSalmon")))) - (eshell-ls-product-face ((t (:foreground "LightSalmon")))) - (eshell-ls-clutter-face ((t (:foreground "blue" :bold t)))) - (sgml-start-tag-face ((t (:foreground "mediumspringgreen")))) - (custom-button-face ((t (:foreground "white")))) - (sgml-ignored-face ((t (:foreground "gray20" :background "gray60")))) - (sgml-doctype-face ((t (:foreground "orange")))) - (sgml-sgml-face ((t (:foreground "yellow")))) - (vc-annotate-face-0046FF ((t (:foreground "wheat" :background "black")))) - (custom-documentation-face ((t (:foreground "white")))) - (sgml-end-tag-face ((t (:foreground "greenyellow")))) - (linemenu-face ((t (:background "gray30")))) - (sgml-entity-face ((t (:foreground "gold")))) - (message-header-to-face ((t (:foreground "floral white" :bold t)))) - (message-header-cc-face ((t (:foreground "ivory")))) - (message-header-subject-face ((t (:foreground "papaya whip" :bold t)))) - (message-header-newsgroups-face ((t (:foreground "lavender blush" :bold t :italic t)))) - (message-header-other-face ((t (:foreground "pale turquoise")))) - (message-header-name-face ((t (:foreground "light sky blue")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-separator-face ((t (:foreground "sandy brown")))) - (message-cited-text-face ((t (:foreground "plum1")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (gnus-group-news-1-face ((t (:foreground "white" :bold t)))) - (gnus-group-news-1-empty-face ((t (:foreground "white")))) - (gnus-group-news-2-face ((t (:foreground "lightcyan" :bold t)))) - (gnus-group-news-2-empty-face ((t (:foreground "lightcyan")))) - (gnus-group-news-3-face ((t (:foreground "tan" :bold t)))) - (gnus-group-news-3-empty-face ((t (:foreground "tan")))) - (gnus-group-news-4-face ((t (:foreground "white" :bold t)))) - (gnus-group-news-4-empty-face ((t (:foreground "white")))) - (gnus-group-news-5-face ((t (:foreground "wheat" :bold t)))) - (gnus-group-news-5-empty-face ((t (:foreground "wheat")))) - (gnus-group-news-6-face ((t (:foreground "tan" :bold t)))) - (gnus-group-news-6-empty-face ((t (:foreground "tan")))) - (gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) - (gnus-group-mail-1-face ((t (:foreground "white" :bold t)))) - (gnus-group-mail-1-empty-face ((t (:foreground "gray80")))) - (gnus-group-mail-2-face ((t (:foreground "lightcyan" :bold t)))) - (gnus-group-mail-2-empty-face ((t (:foreground "lightcyan")))) - (gnus-group-mail-3-face ((t (:foreground "tan" :bold t)))) - (gnus-group-mail-3-empty-face ((t (:foreground "tan")))) - (gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t)))) - (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) - (gnus-summary-selected-face ((t (:background "deepskyblue4" :underline t)))) - (gnus-summary-cancelled-face ((t (:foreground "black" :background "gray")))) - (gnus-summary-high-ticked-face ((t (:foreground "gray70" :bold t)))) - (gnus-summary-low-ticked-face ((t (:foreground "gray70" :bold t)))) - (gnus-summary-normal-ticked-face ((t (:foreground "gray70" :bold t)))) - (gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t)))) - (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t)))) - (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) - (gnus-summary-high-unread-face ((t (:bold t)))) - (gnus-summary-low-unread-face ((t (:italic t)))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t)))) - (gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t)))) - (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) - (gnus-splash-face ((t (:foreground "gold")))) - (font-latex-bold-face ((t (nil)))) - (font-latex-italic-face ((t (nil)))) - (font-latex-math-face ((t (nil)))) - (font-latex-sedate-face ((t (:foreground "Gray85")))) - (font-latex-string-face ((t (:foreground "orange")))) - (font-latex-warning-face ((t (:foreground "gold")))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-button-face ((t (:bold t)))) - (widget-field-face ((t (:background "gray20")))) - (widget-single-line-field-face ((t (:background "gray20")))) - (widget-inactive-face ((t (:foreground "wheat")))) - (widget-button-pressed-face ((t (:foreground "red")))) - (custom-invalid-face ((t (:foreground "yellow" :background "red")))) - (custom-rogue-face ((t (:foreground "pink" :background "black")))) - (custom-modified-face ((t (:foreground "white" :background "blue")))) - (custom-set-face ((t (:foreground "blue")))) - (custom-changed-face ((t (:foreground "wheat" :background "skyblue")))) - (custom-saved-face ((t (:underline t)))) - (custom-state-face ((t (:foreground "light green")))) - (custom-variable-tag-face ((t (:foreground "skyblue" :underline t)))) - (custom-variable-button-face ((t (:bold t :underline t)))) - (custom-face-tag-face ((t (:foreground "white" :underline t)))) - (custom-group-tag-face-1 ((t (:foreground "pink" :underline t)))) - (custom-group-tag-face ((t (:foreground "skyblue" :underline t)))) - (swbuff-current-buffer-face ((t (:foreground "red" :bold t)))) - (ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green")))) - (ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow")))) - (ediff-current-diff-face-C ((t (:foreground "white" :background "indianred")))) - (ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed")))) - (ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue")))) - (ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan")))) - (ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise")))) - (ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green")))) - (ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey")))) - (ediff-even-diff-face-B ((t (:foreground "White" :background "Grey")))) - (ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey")))) - (ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey")))) - (ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey")))) - (ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey")))) - (ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey")))) - (ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-italic ((t (:italic t)))) - (gnus-emphasis-underline ((t (:foreground "white" :background "goldenrod4")))) - (gnus-emphasis-underline-bold ((t (:foreground "black" :background "yellow" :bold t :underline t)))) - (gnus-emphasis-underline-italic ((t (:foreground "black" :background "yellow" :italic t :underline t)))) - (gnus-emphasis-bold-italic ((t (:bold t :italic t)))) - (gnus-emphasis-underline-bold-italic ((t (:foreground "black" :background "yellow" :bold t :italic t :underline t)))) - (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black")))) - (gnus-signature-face ((t (:italic t)))) - (gnus-header-from-face ((t (:foreground "wheat")))) - (gnus-header-subject-face ((t (:foreground "wheat" :bold t)))) - (gnus-header-newsgroups-face ((t (:foreground "wheat" :italic t)))) - (gnus-header-name-face ((t (:foreground "white")))) - (gnus-header-content-face ((t (:foreground "tan" :italic t)))) - (gnus-filterhist-face-1 ((t (nil)))) - (gnus-splash ((t (:foreground "Brown")))) - (gnus-cite-attribution-face ((t (:italic t)))) - (gnus-cite-face-1 ((t (:foreground "light blue")))) - (gnus-cite-face-2 ((t (:foreground "light cyan")))) - (gnus-cite-face-3 ((t (:foreground "light yellow")))) - (gnus-cite-face-4 ((t (:foreground "light pink")))) - (gnus-cite-face-5 ((t (:foreground "pale green")))) - (gnus-cite-face-6 ((t (:foreground "beige")))) - (gnus-cite-face-7 ((t (:foreground "orange")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise"))))))) - -(defun color-theme-retro-green (&optional color func) - "Plain green on black faces for those longing for the good old days." - (interactive) - ;; Build a list of faces without parameters - (let ((old-faces (face-list)) - (faces) - (face) - (foreground (or color "green"))) - (dolist (face old-faces) - (cond ((memq face '(bold bold-italic)) - (add-to-list 'faces `(,face (( t (:bold t)))))) - ((memq face '(italic underline show-paren-mismatch-face)) - (add-to-list 'faces `(,face (( t (:underline t)))))) - ((memq face '(modeline modeline-buffer-id modeline-mousable - modeline-mousable-minor-mode highlight region - secondary-selection show-paren-match-face)) - (add-to-list 'faces `(,face (( t (:foreground "black" - :background ,foreground - :inverse t)))))) - (t - (add-to-list 'faces `(,face (( t (nil)))))))) - (color-theme-install - (append - (list (or func 'color-theme-retro-green) - (list (cons 'foreground-color foreground) - (cons 'background-color "black") - (cons 'mouse-color foreground) - (cons 'cursor-color foreground) - (cons 'border-color foreground) - (cons 'background-mode 'dark))) - faces)))) - -(defun color-theme-retro-orange () - "Plain orange on black faces for those longing for the good old days." - (interactive) - (color-theme-retro-green "orange" 'color-theme-retro-orange)) - -(defun color-theme-subtle-hacker () - "Subtle Hacker Color Theme. -Based on gnome2, but uses white for important things like comments, -and less of the unreadable tomato. By Colin Walters " - (interactive) - (color-theme-gnome2) - (let ((color-theme-is-cumulative t)) - (color-theme-install - '(color-theme-subtle-hacker - nil - nil - (custom-state-face ((t (:foreground "Coral")))) - (diary-face ((t (:bold t :foreground "IndianRed")))) - (eshell-ls-clutter-face ((t (:bold t :foreground "DimGray")))) - (eshell-ls-executable-face ((t (:bold t :foreground "Coral")))) - (eshell-ls-missing-face ((t (:bold t :foreground "black")))) - (eshell-ls-special-face ((t (:bold t :foreground "Gold")))) - (eshell-ls-symlink-face ((t (:bold t :foreground "White")))) - (font-lock-comment-face ((t (:foreground "White")))) - (font-lock-constant-face ((t (:bold t :foreground "Aquamarine")))) - (font-lock-function-name-face ((t (:bold t :foreground "MediumSlateBlue")))) - (font-lock-string-face ((t (:italic t :foreground "LightSalmon")))) - (font-lock-variable-name-face ((t (:italic t :bold t :foreground "Aquamarine")))) - (gnus-cite-face-1 ((t (:foreground "dark khaki")))) - (gnus-cite-face-2 ((t (:foreground "chocolate")))) - (gnus-cite-face-3 ((t (:foreground "tomato")))) - (gnus-group-mail-1-empty-face ((t (:foreground "light cyan")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "light cyan")))) - (gnus-group-mail-2-empty-face ((t (:foreground "turquoise")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise")))) - (gnus-group-mail-3-empty-face ((t (:foreground "tomato")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "tomato")))) - (gnus-group-mail-low-empty-face ((t (:foreground "dodger blue")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "dodger blue")))) - (gnus-group-news-1-empty-face ((t (:foreground "green yellow")))) - (gnus-group-news-1-face ((t (:bold t :foreground "green yellow")))) - (gnus-group-news-2-empty-face ((t (:foreground "dark orange")))) - (gnus-group-news-2-face ((t (:bold t :foreground "dark orange")))) - (gnus-group-news-3-empty-face ((t (:foreground "tomato")))) - (gnus-group-news-3-face ((t (:bold t :foreground "tomato")))) - (gnus-group-news-low-empty-face ((t (:foreground "yellow green")))) - (gnus-group-news-low-face ((t (:bold t :foreground "yellow green")))) - (gnus-header-name-face ((t (:bold t :foreground "DodgerBlue1")))) - (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) - (gnus-signature-face ((t (:foreground "salmon")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "forest green")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "burlywood")))) - (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "cyan")))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "chocolate")))) - (gnus-summary-low-read-face ((t (:foreground "light sea green")))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "chocolate")))) - (gnus-summary-low-unread-face ((t (:italic t :foreground "light sea green")))) - (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "khaki")))) - (gnus-summary-normal-ticked-face ((t (:foreground "sandy brown")))) - (gnus-summary-normal-unread-face ((t (:foreground "aquamarine")))) - (message-cited-text-face ((t (:foreground "White")))) - (message-header-name-face ((t (:foreground "DodgerBlue1")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) - (message-header-other-face ((t (:foreground "LightSkyBlue3")))) - (message-header-xheader-face ((t (:foreground "DodgerBlue3")))))))) - -(defun color-theme-pok-wog () - "Low-contrast White-on-Gray by S.Pokrovsky. - -The following might be a good addition to your .Xdefaults file: - -Emacs.pane.menubar.background: darkGrey -Emacs.pane.menubar.foreground: black" - (interactive) - (color-theme-install - '(color-theme-pok-wog - ((foreground-color . "White") - (background-color . "DarkSlateGray") - (mouse-color . "gold") - (cursor-color . "Cyan") - (border-color . "black") - (background-mode . dark)) - (default ((t (nil)))) - (bold ((t (:bold t :foreground "Wheat")))) - (bold-italic ((t (:italic t :bold t :foreground "wheat")))) - (calendar-today-face ((t (:underline t :foreground "white")))) - (diary-face ((t (:foreground "red")))) - (font-lock-builtin-face ((t (:bold t :foreground "cyan")))) - (font-lock-comment-face ((t (:foreground "Gold")))) - (font-lock-constant-face ((t (:bold t :foreground "LightSteelBlue")))) - (font-lock-function-name-face ((t (:bold t :foreground "Yellow")))) - (font-lock-keyword-face ((t (:bold t :foreground "Cyan")))) - (font-lock-string-face ((t (:foreground "Khaki")))) - (font-lock-type-face ((t (:bold t :foreground "Cyan")))) - (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) - (font-lock-warning-face ((t (:bold t :foreground "Pink")))) - (gnus-cite-attribution-face ((t (:bold t :foreground "Wheat")))) - (gnus-cite-face-1 ((t (:foreground "wheat")))) - (gnus-cite-face-10 ((t (:foreground "wheat")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "cyan")))) - (gnus-cite-face-3 ((t (:foreground "light yellow")))) - (gnus-cite-face-4 ((t (:foreground "light pink")))) - (gnus-cite-face-5 ((t (:foreground "pale green")))) - (gnus-cite-face-6 ((t (:foreground "beige")))) - (gnus-cite-face-7 ((t (:foreground "orange")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t :foreground "wheat")))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t :foreground "white")))) - (gnus-emphasis-underline ((t (:underline t :foreground "white")))) - (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "wheat")))) - (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) - (gnus-emphasis-underline-italic ((t (:underline t :italic t :foreground "white")))) - (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) - (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) - (gnus-group-mail-3-empty-face ((t (:foreground "Salmon")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "gold")))) - (gnus-group-mail-low-empty-face ((t (:foreground "Wheat")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) - (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) - (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) - (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) - (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t :foreground "Wheat")))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) - (gnus-header-content-face ((t (:italic t :foreground "Wheat")))) - (gnus-header-from-face ((t (:foreground "light yellow")))) - (gnus-header-name-face ((t (:foreground "cyan")))) - (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow")))) - (gnus-header-subject-face ((t (:bold t :foreground "Gold")))) - (gnus-signature-face ((t (:italic t :foreground "wheat")))) - (gnus-splash-face ((t (:foreground "orange")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink")))) - (gnus-summary-high-unread-face ((t (:bold t :foreground "gold")))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) - (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) - (gnus-summary-low-unread-face ((t (:italic t)))) - (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) - (gnus-summary-normal-unread-face ((t (:foreground "wheat")))) - (gnus-summary-selected-face ((t (:underline t :foreground "white")))) - (highlight ((t (:background "Blue" :foreground "white")))) - (highline-face ((t (:background "black" :foreground "white")))) - (holiday-face ((t (:background "pink" :foreground "white")))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:italic t :bold t :foreground "white")))) - (info-xref ((t (:bold t :foreground "wheat")))) - (italic ((t (:italic t :foreground "white")))) - (makefile-space-face ((t (:background "hotpink")))) - (message-cited-text-face ((t (:foreground "green")))) - (message-header-cc-face ((t (:bold t :foreground "Aquamarine")))) - (message-header-name-face ((t (:foreground "Gold")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) - (message-header-other-face ((t (:foreground "lightGray")))) - (message-header-subject-face ((t (:foreground "Yellow")))) - (message-header-to-face ((t (:bold t :foreground "green2")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:bold t :foreground "khaki")))) - (message-separator-face ((t (:background "aquamarine" :foreground "black")))) - (modeline ((t (:background "DarkGray" :foreground "Black")))) - (modeline-buffer-id ((t (:background "DarkGray" :foreground "Black")))) - (modeline-mousable ((t (:background "DarkGray" :foreground "Black")))) - (modeline-mousable-minor-mode ((t (:background "DarkGray" :foreground "Black")))) - (paren-mismatch-face ((t (:background "DeepPink" :foreground "white")))) - (paren-no-match-face ((t (:background "yellow" :foreground "white")))) - (region ((t (:background "MediumSlateBlue" :foreground "white")))) - (secondary-selection ((t (:background "Sienna" :foreground "white")))) - (show-paren-match-face ((t (:background "turquoise" :foreground "white")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (speedbar-button-face ((t (:bold t :foreground "magenta")))) - (speedbar-directory-face ((t (:bold t :foreground "orchid")))) - (speedbar-file-face ((t (:foreground "pink")))) - (speedbar-highlight-face ((t (:background "black")))) - (speedbar-selected-face ((t (:underline t :foreground "cyan")))) - (speedbar-tag-face ((t (:foreground "yellow")))) - (swbuff-current-buffer-face ((t (:bold t :foreground "red")))) - (underline ((t (:underline t :foreground "white")))) - (widget-button-face ((t (:bold t :foreground "wheat")))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-field-face ((t (:background "dim gray" :foreground "white")))) - (widget-inactive-face ((t (:foreground "light gray")))) - (widget-single-line-field-face ((t (:background "dim gray" :foreground "white"))))))) - -(defun color-theme-pok-wob () - "White-on-Black by S. Pokrovsky. - -The following might be a good addition to your .Xdefaults file: - -Emacs.pane.menubar.background: darkGrey -Emacs.pane.menubar.foreground: black" - (interactive) -; (setq term-default-fg-color "white" -; term-default-bg "black") - (color-theme-install - '(color-theme-pok-wob - ((foreground-color . "white") - (background-color . "black") - (mouse-color . "gold") - (cursor-color . "yellow") - (border-color . "black") - (background-mode . dark)) - (default ((t (nil)))) - (bold ((t (:bold t :foreground "light gray")))) - (bold-italic ((t (:italic t :bold t :foreground "cyan")))) - (calendar-today-face ((t (:underline t :foreground "white")))) - (custom-button-face ((t (nil)))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:underline t)))) - (custom-group-tag-face-1 ((t (:underline t)))) - (custom-invalid-face ((t (:background "red" :foreground "white")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (nil)))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t)))) - (diary-face ((t (:foreground "gold")))) - (font-lock-builtin-face ((t (:bold t :foreground "cyan")))) - (font-lock-comment-face ((t (:foreground "Gold")))) - (font-lock-constant-face ((t (:bold t :foreground "LightSteelBlue")))) - (font-lock-function-name-face ((t (:bold t :foreground "gold")))) - (font-lock-keyword-face ((t (:bold t :foreground "Cyan")))) - (font-lock-string-face ((t (:foreground "Khaki")))) - (font-lock-type-face ((t (:bold t :foreground "Cyan")))) - (font-lock-variable-name-face ((t (:italic t :foreground "gold")))) - (font-lock-warning-face ((t (:bold t :foreground "Pink")))) - (gnus-cite-attribution-face ((t (:underline t :foreground "beige")))) - (gnus-cite-face-1 ((t (:foreground "gold")))) - (gnus-cite-face-10 ((t (:foreground "coral")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "wheat")))) - (gnus-cite-face-3 ((t (:foreground "light pink")))) - (gnus-cite-face-4 ((t (:foreground "khaki")))) - (gnus-cite-face-5 ((t (:foreground "pale green")))) - (gnus-cite-face-6 ((t (:foreground "beige")))) - (gnus-cite-face-7 ((t (:foreground "orange")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t :foreground "light gray")))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "cyan")))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "gold")))) - (gnus-emphasis-italic ((t (:italic t :foreground "cyan")))) - (gnus-emphasis-underline ((t (:underline t :foreground "white")))) - (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "white")))) - (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :foreground "white")))) - (gnus-emphasis-underline-italic ((t (:underline t :italic t :foreground "white")))) - (gnus-group-mail-1-empty-face ((t (:foreground "Magenta")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "Magenta")))) - (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) - (gnus-group-mail-3-empty-face ((t (:foreground "Cyan")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "Cyan")))) - (gnus-group-mail-low-empty-face ((t (:foreground "Wheat")))) - (gnus-group-mail-low-face ((t (:foreground "aquamarine4")))) - (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) - (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) - (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) - (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) - (gnus-group-news-3-empty-face ((t (:foreground "wheat")))) - (gnus-group-news-3-face ((t (:bold t :foreground "Wheat")))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) - (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine")))) - (gnus-header-content-face ((t (:italic t :foreground "Wheat")))) - (gnus-header-from-face ((t (:foreground "light yellow")))) - (gnus-header-name-face ((t (:foreground "Wheat")))) - (gnus-header-newsgroups-face ((t (:italic t :foreground "gold")))) - (gnus-header-subject-face ((t (:bold t :foreground "Gold")))) - (gnus-signature-face ((t (:italic t :foreground "white")))) - (gnus-splash-face ((t (:foreground "orange")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "orange")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "red")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral")))) - (gnus-summary-high-unread-face ((t (:bold t :foreground "gold")))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) - (gnus-summary-low-read-face ((t (:italic t :foreground "red")))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "coral")))) - (gnus-summary-low-unread-face ((t (:italic t :foreground "white")))) - (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) - (gnus-summary-normal-unread-face ((t (:foreground "white")))) - (gnus-summary-selected-face ((t (:underline t :foreground "white")))) - (highlight ((t (:background "Blue" :foreground "white")))) - (highline-face ((t (:background "dark slate gray" :foreground "white")))) - (holiday-face ((t (:background "red" :foreground "white")))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:italic t :bold t :foreground "white")))) - (info-xref ((t (:bold t :foreground "light gray")))) - (italic ((t (:italic t :foreground "cyan")))) - (makefile-space-face ((t (:background "hotpink" :foreground "white")))) - (message-cited-text-face ((t (:foreground "green")))) - (message-header-cc-face ((t (:bold t :foreground "Aquamarine")))) - (message-header-name-face ((t (:foreground "Gold")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "gold")))) - (message-header-other-face ((t (:foreground "lightGray")))) - (message-header-subject-face ((t (:foreground "Yellow")))) - (message-header-to-face ((t (:bold t :foreground "green2")))) - (message-header-xheader-face ((t (:foreground "sky blue")))) - (message-mml-face ((t (:bold t :foreground "khaki")))) - (message-separator-face ((t (:background "aquamarine" :foreground "black")))) - (modeline ((t (:background "dark gray" :foreground "black")))) - (modeline-buffer-id ((t (:background "dark gray" :foreground "black")))) - (modeline-mousable ((t (:background "dark gray" :foreground "black")))) - (modeline-mousable-minor-mode ((t (:background "dark gray" :foreground "black")))) - (paren-mismatch-face ((t (:bold t :background "white" :foreground "red")))) - (paren-no-match-face ((t (:bold t :background "white" :foreground "red")))) - (region ((t (:background "MediumSlateBlue" :foreground "white")))) - (secondary-selection ((t (:background "Sienna" :foreground "white")))) - (show-paren-match-face ((t (:background "purple" :foreground "white")))) - (show-paren-mismatch-face ((t (:bold t :background "white" :foreground "red")))) - (speedbar-button-face ((t (nil)))) - (speedbar-directory-face ((t (nil)))) - (speedbar-file-face ((t (:bold t)))) - (speedbar-highlight-face ((t (nil)))) - (speedbar-selected-face ((t (:underline t)))) - (speedbar-tag-face ((t (nil)))) - (swbuff-current-buffer-face ((t (:bold t :foreground "red")))) - (underline ((t (:underline t :foreground "white")))) - (widget-button-face ((t (:bold t :foreground "coral")))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-field-face ((t (:background "dim gray" :foreground "white")))) - (widget-inactive-face ((t (:foreground "light gray")))) - (widget-single-line-field-face ((t (:background "dim gray" :foreground "white"))))))) - -(defun color-theme-blue-sea () - "The grey on midnight blue theme. - -Includes faces for apropos, font-lock (Emacs and XEmacs), speedbar, -custom, widget, info, flyspell, gnus, message, man, woman, dired. - -This is what you should put in your .Xdefaults file, if you want to -change the colors of the menus: - -emacs*Background: DarkSlateGray -emacs*Foreground: Wheat" - (interactive) - (color-theme-blue-gnus) - (let ((color-theme-is-cumulative t)) - (color-theme-blue-erc) - (color-theme-install - '(color-theme-blue-sea - ((background-color . "MidnightBlue") - (background-mode . dark) - (border-color . "Grey") - (cursor-color . "Grey") - (foreground-color . "Grey") - (mouse-color . "Grey")) - ((Man-overstrike-face . woman-bold-face) - (Man-underline-face . woman-italic-face)) - (default ((t (nil)))) - (bold ((t (:bold t)))) - (bold-italic ((t (:bold t :foreground "beige")))) - (calendar-today-face ((t (:underline t)))) - (cperl-array-face ((t (:foreground "light salmon" :bold t)))) - (cperl-hash-face ((t (:foreground "beige" :bold t :italic t)))) - (cperl-nonoverridable-face ((t (:foreground "aquamarine")))) - (custom-button-face ((t (:foreground "gainsboro")))) - (custom-changed-face ((t (:foreground "white" :background "blue")))) - (custom-documentation-face ((t (:foreground "light blue")))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:foreground "pale turquoise" :bold t)))) - (custom-group-tag-face-1 ((t (:foreground "pale turquoise" :underline t)))) - (custom-invalid-face ((t (:foreground "yellow" :background "red")))) - (custom-modified-face ((t (:foreground "white" :background "blue")))) - (custom-rogue-face ((t (:foreground "pink" :background "black")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:foreground "blue" :background "white")))) - (custom-state-face ((t (:foreground "light salmon")))) - (custom-variable-button-face ((t (:bold t :underline t)))) - (custom-variable-tag-face ((t (:foreground "turquoise" :bold t)))) - (diary-face ((t (:foreground "red")))) - (dired-face-directory ((t (:bold t :foreground "sky blue")))) - (dired-face-permissions ((t (:foreground "aquamarine")))) - (dired-face-flagged ((t (:foreground "tomato")))) - (dired-face-marked ((t (:foreground "light salmon")))) - (dired-face-executable ((t (:foreground "green yellow")))) - (eshell-ls-archive-face ((t (:bold t :foreground "medium purple")))) - (eshell-ls-backup-face ((t (:foreground "dim gray")))) - (eshell-ls-clutter-face ((t (:foreground "dim gray")))) - (eshell-ls-directory-face ((t (:bold t :foreground "medium slate blue")))) - (eshell-ls-executable-face ((t (:bold t :foreground "aquamarine")))) - (eshell-ls-missing-face ((t (:foreground "black")))) - (eshell-ls-picture-face ((t (:foreground "violet")))) - (eshell-ls-product-face ((t (:foreground "light steel blue")))) - (eshell-ls-readonly-face ((t (:foreground "aquamarine")))) - (eshell-ls-special-face ((t (:foreground "gold")))) - (eshell-ls-symlink-face ((t (:foreground "white")))) - (eshell-ls-unreadable-face ((t (:foreground "dim gray")))) - (eshell-prompt-face ((t (:foreground "light sky blue" :bold t)))) - (excerpt ((t (:italic t)))) - (fixed ((t (:bold t)))) - (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t)))) - (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t)))) - (font-lock-builtin-face ((t (:foreground "aquamarine")))) - (font-lock-comment-face ((t (:foreground "light blue")))) - (font-lock-constant-face ((t (:foreground "pale green")))) - (font-lock-doc-string-face ((t (:foreground "sky blue")))) - (font-lock-function-name-face ((t (:bold t :foreground "aquamarine")))) - (font-lock-keyword-face ((t (:foreground "pale turquoise" :bold t)))) - (font-lock-reference-face ((t (:foreground "pale green")))) - (font-lock-string-face ((t (:foreground "light sky blue")))) - (font-lock-type-face ((t (:foreground "sky blue" :bold t)))) - (font-lock-variable-name-face ((t (:foreground "turquoise" :bold t)))) - (font-lock-warning-face ((t (:foreground "Red" :bold t)))) - (fringe ((t (:background "MidnightBlue")))) - (header-line ((t (:background "#002" :foreground "cornflower blue")))) - (highlight ((t (:background "dark slate blue" :foreground "light blue")))) - (highline-face ((t (:background "DeepSkyBlue4")))) - (holiday-face ((t (:background "pink")))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:bold t)))) - (info-xref ((t (:bold t :foreground "sky blue")))) - (isearch ((t (:background "slate blue")))) - (italic ((t (:foreground "sky blue")))) - (makefile-space-face ((t (:background "hotpink")))) - (menu ((t (:background "MidnightBlue" :foreground "Grey")))) - (modeline ((t (:foreground "wheat" :background "slate blue")))) - (mode-line-inactive ((t (:background "dark slate blue" :foreground "wheat")))) - (modeline-buffer-id ((t (:foreground "beige" :background "slate blue")))) - (modeline-mousable ((t (:foreground "light cyan" :background "slate blue")))) - (modeline-mousable-minor-mode ((t (:foreground "wheat" :background "slate blue")))) - (region ((t (:background "DarkSlateBlue")))) - (secondary-selection ((t (:background "steel blue")))) - (show-paren-match-face ((t (:foreground "white" :background "light slate blue")))) - (show-paren-mismatch-face ((t (:foreground "white" :background "red")))) - (speedbar-button-face ((t (:foreground "seashell2")))) - (speedbar-directory-face ((t (:foreground "seashell3")))) - (speedbar-file-face ((t (:foreground "seashell4")))) - (speedbar-highlight-face ((t (:background "dark slate blue" :foreground "wheat")))) - (speedbar-selected-face ((t (:foreground "seashell1" :underline t)))) - (speedbar-tag-face ((t (:foreground "antique white")))) - (tool-bar ((t (:background "MidnightBlue" :foreground "Grey" :box (:line-width 1 :style released-button))))) - (underline ((t (:underline t)))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "light blue")))) - (widget-field-face ((t (:background "RoyalBlue4" :foreground "wheat")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "slate blue" :foreground "wheat")))) - (woman-bold-face ((t (:foreground "sky blue" :bold t)))) - (woman-italic-face ((t (:foreground "deep sky blue")))) - (woman-unknown-face ((t (:foreground "LightSalmon")))) - (zmacs-region ((t (:background "DarkSlateBlue")))))))) - -(defun color-theme-rotor () - "Black on Beige color theme by Jinwei Shen, created 2000-06-08. -Supports default faces, font-lock, custom, widget, message, man, -show-paren, viper." - (interactive) - (color-theme-install - '(color-theme-rotor - ((background-color . "Beige") - (background-mode . light) - (border-color . "black") - (cursor-color . "Maroon") - (foreground-color . "Black") - (mouse-color . "Black")) - ((Man-overstrike-face . font-lock-function-name-face) - (Man-underline-face . font-lock-type-face) - (list-matching-lines-face . bold) - (rmail-highlight-face . font-lock-function-name-face) - (watson-attribution-face . italic) - (watson-url-face . bold) - (watson-url-mouse-face . highlight)) - (default ((t (nil)))) - (bold ((t (:bold t :background "grey40" :foreground "yellow")))) - (bold-italic ((t (:italic t :bold t :foreground "yellow green")))) - (custom-button-face ((t (nil)))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:underline t :foreground "blue")))) - (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "dark green")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t :foreground "blue")))) - (font-lock-builtin-face ((t (:foreground "Orchid")))) - (font-lock-comment-face ((t (:foreground "MediumBlue")))) - (font-lock-constant-face ((t (:foreground "CadetBlue")))) - (font-lock-function-name-face ((t (:foreground "MediumSlateBlue")))) - (font-lock-keyword-face ((t (:foreground "#80a0ff")))) - (font-lock-string-face ((t (:foreground "red")))) - (font-lock-type-face ((t (:foreground "ForestGreen")))) - (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) - (font-lock-warning-face ((t (:bold t :foreground "Red")))) - (highlight ((t (:background "PaleGreen" :foreground "black")))) - (italic ((t (:italic t :foreground "yellow3")))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:foreground "MidnightBlue")))) - (message-header-name-face ((t (:foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-subject-face ((t (:bold t :foreground "navy blue")))) - (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-separator-face ((t (:foreground "brown")))) - (modeline ((t (:background "wheat" :foreground "DarkOliveGreen")))) - (modeline-buffer-id ((t (:background "wheat" :foreground "DarkOliveGreen")))) - (modeline-mousable ((t (:background "wheat" :foreground "DarkOliveGreen")))) - (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "DarkOliveGreen")))) - (nil ((t (nil)))) - (region ((t (:background "dark cyan" :foreground "cyan")))) - (secondary-selection ((t (:background "Turquoise" :foreground "black")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (underline ((t (:underline t)))) - (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) - (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) - (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-search-face ((t (:background "khaki" :foreground "Black")))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "gray85"))))))) - -(defun color-theme-pierson () - "Black on White color theme by Dan L. Pierson, created 2000-06-08. -Supports default faces, font-lock, show-paren." - (interactive) - (color-theme-install - '(color-theme-pierson - ((background-color . "AntiqueWhite") - (background-mode . light) - (border-color . "black") - (cursor-color . "Orchid") - (foreground-color . "black") - (mouse-color . "Orchid")) - ((list-matching-lines-face . bold)) - (default ((t (nil)))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (font-lock-builtin-face ((t (:foreground "Orchid")))) - (font-lock-comment-face ((t (:foreground "ForestGreen")))) - (font-lock-constant-face ((t (:foreground "CadetBlue")))) - (font-lock-function-name-face ((t (:foreground "blue3")))) - (font-lock-keyword-face ((t (:foreground "Blue")))) - (font-lock-string-face ((t (:foreground "Firebrick")))) - (font-lock-type-face ((t (:foreground "Purple")))) - (font-lock-variable-name-face ((t (:foreground "blue3")))) - (font-lock-warning-face ((t (:bold t :foreground "Red")))) - (highlight ((t (:background "darkseagreen2")))) - (italic ((t (:italic t)))) - (modeline ((t (:foreground "antiquewhite" :background "black")))) - (modeline-mousable-minor-mode ((t (:foreground "antiquewhite" :background "black")))) - (modeline-mousable ((t (:foreground "antiquewhite" :background "black")))) - (modeline-buffer-id ((t (:foreground "antiquewhite" :background "black")))) - (region ((t (:background "gray")))) - (secondary-selection ((t (:background "paleturquoise")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (underline ((t (:underline t))))))) - -(defun color-theme-xemacs () - "XEmacs standard colors. -If you are missing standard faces in this theme, please notify the maintainer. -Currently, this theme includes the standard faces and font-lock faces, including -some faces used in Emacs only but which are needed to recreate the look of the -XEmacs color theme." - (interactive) - (color-theme-install - '(color-theme-xemacs - ((background-color . "gray80") - (background-mode . light) - (background-toolbar-color . "#cf3ccf3ccf3c") - (border-color . "#000000000000") - (bottom-toolbar-shadow-color . "#79e77df779e7") - (cursor-color . "Red3") - (foreground-color . "black") - (top-toolbar-shadow-color . "#fffffbeeffff")) - (default ((t (nil)))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (border-glyph ((t (nil)))) - (custom-button-face ((t (:bold t)))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:underline t :foreground "blue")))) - (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "dark green")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t :foreground "blue")))) - (dired-face-boring ((t (:foreground "Gray65")))) - (dired-face-directory ((t (:bold t)))) - (dired-face-executable ((t (:foreground "SeaGreen")))) - (dired-face-flagged ((t (:background "LightSlateGray")))) - (dired-face-marked ((t (:background "PaleVioletRed")))) - (dired-face-permissions ((t (:background "grey75" :foreground "black")))) - (dired-face-setuid ((t (:foreground "Red")))) - (dired-face-socket ((t (:foreground "magenta")))) - (dired-face-symlink ((t (:foreground "cyan")))) - (font-lock-builtin-face ((t (:foreground "red3")))) - (font-lock-comment-face ((t (:foreground "blue4")))) - (font-lock-constant-face ((t (:foreground "red3")))) - (font-lock-doc-string-face ((t (:foreground "green4")))) - (font-lock-function-name-face ((t (:foreground "brown4")))) - (font-lock-keyword-face ((t (:foreground "red4")))) - (font-lock-preprocessor-face ((t (:foreground "blue3")))) - (font-lock-reference-face ((t (:foreground "red3")))) - (font-lock-string-face ((t (:foreground "green4")))) - (font-lock-type-face ((t (:foreground "steelblue")))) - (font-lock-variable-name-face ((t (:foreground "magenta4")))) - (font-lock-warning-face ((t (:bold t :foreground "Red")))) - (green ((t (:foreground "green")))) - (gui-button-face ((t (:background "grey75" :foreground "black")))) - (gui-element ((t (:background "Gray80")))) - (highlight ((t (:background "darkseagreen2")))) - (info-node ((t (:italic t :bold t)))) - (info-xref ((t (:bold t)))) - (isearch ((t (:background "paleturquoise")))) - (italic ((t (:italic t)))) - (left-margin ((t (nil)))) - (list-mode-item-selected ((t (:background "gray68")))) - (modeline ((t (:background "Gray80")))) - (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4")))) - (modeline-mousable ((t (:background "Gray80" :foreground "firebrick")))) - (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4")))) - (paren-blink-off ((t (:foreground "gray80")))) - (paren-match ((t (:background "darkseagreen2")))) - (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) - (pointer ((t (nil)))) - (primary-selection ((t (:background "gray65")))) - (red ((t (:foreground "red")))) - (region ((t (:background "gray65")))) - (right-margin ((t (nil)))) - (secondary-selection ((t (:background "paleturquoise")))) - (text-cursor ((t (:background "Red3" :foreground "gray80")))) - (toolbar ((t (:background "Gray80")))) - (underline ((t (:underline t)))) - (vertical-divider ((t (:background "Gray80")))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (yellow ((t (:foreground "yellow")))) - (zmacs-region ((t (:background "gray65"))))))) - -(defun color-theme-jsc-light () - "Color theme by John S Cooper, created 2000-06-08." - (interactive) - (color-theme-install - '(color-theme-jsc-light - ((background-color . "white") - (background-mode . light) - (border-color . "black") - (cursor-color . "Red") - (foreground-color . "black") - (mouse-color . "black")) - ((gnus-mouse-face . highlight) - (list-matching-lines-face . bold) - (view-highlight-face . highlight)) - (default ((t (nil)))) - (bold ((t (:bold t :foreground "red3")))) - (bold-italic ((t (:italic t :bold t :foreground "red")))) - (custom-button-face ((t (nil)))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:underline t :foreground "blue")))) - (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "dark green")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t :foreground "blue")))) - (font-lock-builtin-face ((t (:foreground "Orchid")))) - (font-lock-comment-face ((t (:italic t :bold t :foreground "Red3")))) - (font-lock-constant-face ((t (:foreground "navy")))) - (font-lock-function-name-face ((t (:bold t :foreground "Blue")))) - (font-lock-keyword-face ((t (:bold t :foreground "Purple")))) - (font-lock-string-face ((t (:foreground "Green4")))) - (font-lock-type-face ((t (:foreground "Navy")))) - (font-lock-variable-name-face ((t (:foreground "Tan4")))) - (font-lock-warning-face ((t (:bold t :foreground "Red")))) - (gnus-cite-attribution-face ((t (:italic t)))) - (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "firebrick")))) - (gnus-cite-face-3 ((t (:foreground "dark green")))) - (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) - (gnus-cite-face-5 ((t (:foreground "dark khaki")))) - (gnus-cite-face-6 ((t (:foreground "dark violet")))) - (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) - (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) - (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) - (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) - (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) - (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) - (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) - (gnus-group-news-1-empty-face ((t (:foreground "blue2")))) - (gnus-group-news-1-face ((t (:bold t :foreground "blue2")))) - (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) - (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-header-content-face ((t (:italic t :foreground "blue")))) - (gnus-header-from-face ((t (:foreground "red3")))) - (gnus-header-name-face ((t (:foreground "red3")))) - (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) - (gnus-header-subject-face ((t (:bold t :foreground "red")))) - (gnus-signature-face ((t (:foreground "pink")))) - (gnus-splash-face ((t (:foreground "Brown")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "navy")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) - (gnus-summary-high-unread-face ((t (:bold t :foreground "blue")))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) - (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) - (gnus-summary-low-unread-face ((t (:italic t)))) - (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "red3")))) - (gnus-summary-normal-ticked-face ((t (:foreground "black")))) - (gnus-summary-normal-unread-face ((t (:bold t :foreground "red3")))) - (gnus-summary-selected-face ((t (:underline t)))) - (highlight ((t (:background "antiquewhite" :foreground "blue")))) - (italic ((t (:italic t)))) - (makefile-space-face ((t (:background "hotpink")))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:foreground "MidnightBlue")))) - (message-header-name-face ((t (:foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-subject-face ((t (:bold t :foreground "navy blue")))) - (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "brown")))) - (modeline ((t (:background "plum" :foreground "black")))) - (modeline-buffer-id ((t (:background "plum" :foreground "black")))) - (modeline-mousable ((t (:background "plum" :foreground "black")))) - (modeline-mousable-minor-mode ((t (:background "plum" :foreground "black")))) - (region ((t (:background "plum")))) - (secondary-selection ((t (:background "palegreen")))) - (show-paren-match-face ((t (:background "plum")))) - (show-paren-mismatch-face ((t (:background "navy" :foreground "white")))) - (speedbar-button-face ((t (:foreground "green4")))) - (speedbar-directory-face ((t (:foreground "blue4")))) - (speedbar-file-face ((t (:foreground "cyan4")))) - (speedbar-highlight-face ((t (:background "green")))) - (speedbar-selected-face ((t (:underline t :foreground "red")))) - (speedbar-tag-face ((t (:foreground "brown")))) - (underline ((t (:underline t)))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "gray85"))))))) - -(defun color-theme-jsc-dark () - "Color theme by John S Cooper, created 2000-06-11." - (interactive) - (color-theme-install - '(color-theme-jsc-dark - ((background-color . "black") - (background-mode . dark) - (border-color . "black") - (cursor-color . "white") - (foreground-color . "cornsilk") - (mouse-color . "black")) - ((gnus-mouse-face . highlight) - (goto-address-mail-face . italic) - (goto-address-mail-mouse-face . secondary-selection) - (goto-address-url-face . bold) - (goto-address-url-mouse-face . highlight) - (list-matching-lines-face . bold) - (view-highlight-face . highlight)) - (blank-space-face ((t (:background "LightGray")))) - (blank-tab-face ((t (:background "cornsilk" :foreground "black")))) - (default ((t (nil)))) - (bold ((t (:bold t :foreground "white")))) - (bold-italic ((t (:italic t :bold t)))) - (calendar-today-face ((t (:underline t)))) - (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) - (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red")))) - (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) - (custom-button-face ((t (:foreground "white")))) - (custom-changed-face ((t (:background "skyblue" :foreground "wheat")))) - (custom-documentation-face ((t (:foreground "white")))) - (custom-face-tag-face ((t (:underline t :foreground "white")))) - (custom-group-tag-face ((t (:underline t :foreground "skyblue")))) - (custom-group-tag-face-1 ((t (:underline t :foreground "pink")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:foreground "blue")))) - (custom-state-face ((t (:foreground "light green")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t :foreground "skyblue")))) - (diary-face ((t (:bold t :foreground "orange")))) - (font-lock-builtin-face ((t (:bold t :foreground "LightSteelBlue")))) - (font-lock-comment-face ((t (:italic t :foreground "red")))) - (font-lock-constant-face ((t (:bold t :foreground "salmon")))) - (font-lock-function-name-face ((t (:bold t :foreground "orange")))) - (font-lock-keyword-face ((t (:bold t :foreground "gold")))) - (font-lock-string-face ((t (:italic t :foreground "orange")))) - (font-lock-type-face ((t (:bold t :foreground "gold")))) - (font-lock-variable-name-face ((t (:italic t :bold t :foreground "light salmon")))) - (font-lock-warning-face ((t (:bold t :foreground "gold")))) - (gnus-cite-attribution-face ((t (:italic t)))) - (gnus-cite-face-1 ((t (:foreground "light cyan")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "light blue")))) - (gnus-cite-face-3 ((t (:foreground "light yellow")))) - (gnus-cite-face-4 ((t (:foreground "light pink")))) - (gnus-cite-face-5 ((t (:foreground "pale green")))) - (gnus-cite-face-6 ((t (:foreground "beige")))) - (gnus-cite-face-7 ((t (:foreground "orange")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t)))) - (gnus-emphasis-underline ((t (:background "goldenrod4" :foreground "white")))) - (gnus-emphasis-underline-bold ((t (:underline t :bold t :background "yellow" :foreground "black")))) - (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :background "yellow" :foreground "black")))) - (gnus-emphasis-underline-italic ((t (:underline t :italic t :background "yellow" :foreground "black")))) - (gnus-filterhist-face-1 ((t (nil)))) - (gnus-group-mail-1-empty-face ((t (:foreground "gray80")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "white")))) - (gnus-group-mail-2-empty-face ((t (:foreground "lightcyan")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "lightcyan")))) - (gnus-group-mail-3-empty-face ((t (:foreground "tan")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "tan")))) - (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) - (gnus-group-news-1-empty-face ((t (:foreground "white")))) - (gnus-group-news-1-face ((t (:bold t :foreground "white")))) - (gnus-group-news-2-empty-face ((t (:foreground "lightcyan")))) - (gnus-group-news-2-face ((t (:bold t :foreground "lightcyan")))) - (gnus-group-news-3-empty-face ((t (:foreground "tan")))) - (gnus-group-news-3-face ((t (:bold t :foreground "tan")))) - (gnus-group-news-4-empty-face ((t (:foreground "white")))) - (gnus-group-news-4-face ((t (:bold t :foreground "white")))) - (gnus-group-news-5-empty-face ((t (:foreground "wheat")))) - (gnus-group-news-5-face ((t (:bold t :foreground "wheat")))) - (gnus-group-news-6-empty-face ((t (:foreground "tan")))) - (gnus-group-news-6-face ((t (:bold t :foreground "tan")))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) - (gnus-header-content-face ((t (:italic t :foreground "plum1")))) - (gnus-header-from-face ((t (:bold t :foreground "wheat")))) - (gnus-header-name-face ((t (:bold t :foreground "gold")))) - (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "wheat")))) - (gnus-header-subject-face ((t (:bold t :foreground "red")))) - (gnus-signature-face ((t (:italic t :foreground "maroon")))) - (gnus-splash ((t (:foreground "Brown")))) - (gnus-splash-face ((t (:foreground "gold")))) - (gnus-summary-cancelled-face ((t (:background "gray" :foreground "black")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "gray70")))) - (gnus-summary-high-unread-face ((t (:italic t :bold t)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) - (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) - (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "gray70")))) - (gnus-summary-low-unread-face ((t (:italic t)))) - (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) - (gnus-summary-normal-ticked-face ((t (:bold t :foreground "gray70")))) - (gnus-summary-normal-unread-face ((t (:bold t)))) - (gnus-summary-selected-face ((t (:underline t :background "deepskyblue4")))) - (highlight ((t (:background "darkslategray" :foreground "wheat")))) - (highlight-changes-delete-face ((t (:underline t :foreground "red")))) - (highlight-changes-face ((t (:foreground "red")))) - (highline-face ((t (:background "gray35")))) - (holiday-face ((t (:background "red")))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:italic t :bold t :foreground "yellow")))) - (info-xref ((t (:bold t :foreground "plum")))) - (italic ((t (:italic t)))) - (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) - (linemenu-face ((t (:background "gray30")))) - (makefile-space-face ((t (:background "hotpink")))) - (message-cited-text-face ((t (:foreground "plum1")))) - (message-header-cc-face ((t (:bold t :foreground "ivory")))) - (message-header-name-face ((t (:foreground "light sky blue")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "lavender blush")))) - (message-header-other-face ((t (:foreground "pale turquoise")))) - (message-header-subject-face ((t (:bold t :foreground "papaya whip")))) - (message-header-to-face ((t (:bold t :foreground "floral white")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:bold t :foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "sandy brown")))) - (modeline ((t (:background "tan" :foreground "black")))) - (modeline-buffer-id ((t (:background "tan" :foreground "black")))) - (modeline-mousable ((t (:background "tan" :foreground "black")))) - (modeline-mousable-minor-mode ((t (:background "tan" :foreground "black")))) - (paren-mismatch-face ((t (:bold t :background "white" :foreground "red")))) - (paren-no-match-face ((t (:bold t :background "white" :foreground "red")))) - (region ((t (:background "slategrey")))) - (secondary-selection ((t (:background "deepskyblue4")))) - (sgml-doctype-face ((t (:foreground "orange")))) - (sgml-end-tag-face ((t (:foreground "greenyellow")))) - (sgml-entity-face ((t (:foreground "gold")))) - (sgml-ignored-face ((t (:background "gray60" :foreground "gray20")))) - (sgml-sgml-face ((t (:foreground "yellow")))) - (sgml-start-tag-face ((t (:foreground "mediumspringgreen")))) - (show-paren-match-face ((t (:background "deepskyblue4")))) - (show-paren-mismatch-face ((t (:bold t :background "red" :foreground "white")))) - (speedbar-button-face ((t (:foreground "green4")))) - (speedbar-directory-face ((t (:foreground "blue4")))) - (speedbar-file-face ((t (:bold t :foreground "cyan4")))) - (speedbar-highlight-face ((t (:background "green")))) - (speedbar-selected-face ((t (:underline t :foreground "red")))) - (speedbar-tag-face ((t (:foreground "brown")))) - (underline ((t (:underline t)))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-field-face ((t (:background "gray20")))) - (widget-inactive-face ((t (:foreground "wheat")))) - (widget-single-line-field-face ((t (:background "gray20")))) - (woman-bold-face ((t (:bold t)))) - (woman-italic-face ((t (:foreground "beige")))) - (woman-unknown-face ((t (:foreground "LightSalmon"))))))) - -(defun color-theme-greiner () - "Color theme by Kevin Greiner, created 2000-06-13. -Black on Beige, supports default, font-lock, speedbar, custom, widget -faces. Designed to be easy on the eyes, particularly on Win32 -computers which commonly have white window backgrounds." - (interactive) - (color-theme-install - '(color-theme-greiner - ((background-color . "beige") - (background-mode . light) - (border-color . "black") - (cursor-color . "black") - (foreground-color . "black") - (mouse-color . "black")) - ((list-matching-lines-face . bold)) - (default ((t (nil)))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (custom-button-face ((t (nil)))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:underline t :foreground "blue")))) - (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "dark green")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t :foreground "blue")))) - (font-lock-builtin-face ((t (:foreground "blue4")))) - (font-lock-comment-face ((t (:foreground "Firebrick")))) - (font-lock-constant-face ((t (:foreground "CadetBlue")))) - (font-lock-function-name-face ((t (:foreground "Blue")))) - (font-lock-keyword-face ((t (:foreground "royal blue")))) - (font-lock-string-face ((t (:foreground "RosyBrown")))) - (font-lock-type-face ((t (:foreground "ForestGreen")))) - (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) - (font-lock-warning-face ((t (:bold t :foreground "Red")))) - (highlight ((t (:background "darkseagreen2")))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:italic t :bold t)))) - (info-xref ((t (:bold t)))) - (italic ((t (:italic t)))) - (modeline ((t (:background "black" :foreground "white")))) - (modeline-mousable-minor-mode ((t (:background "black" :foreground "white")))) - (modeline-mousable ((t (:background "black" :foreground "white")))) - (modeline-buffer-id ((t (:background "black" :foreground "white")))) - (region ((t (:background "gray")))) - (secondary-selection ((t (:background "paleturquoise")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (speedbar-button-face ((t (:foreground "green4")))) - (speedbar-directory-face ((t (:foreground "blue4")))) - (speedbar-file-face ((t (:foreground "cyan4")))) - (speedbar-highlight-face ((t (:background "green")))) - (speedbar-selected-face ((t (:underline t :foreground "red")))) - (speedbar-tag-face ((t (:foreground "brown")))) - (underline ((t (:underline t)))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "gray85"))))))) - -(defun color-theme-jb-simple () - "Color theme by jeff, created 2000-06-14. -Uses white background and bold for many things" - (interactive) - (color-theme-install - '(color-theme-jb-simple - ((background-color . "white") - (background-mode . light) - (background-toolbar-color . "#cf3ccf3ccf3c") - (border-color . "black") - (bottom-toolbar-shadow-color . "#79e77df779e7") - (cursor-color . "black") - (foreground-color . "black") - (mouse-color . "black") - (top-toolbar-shadow-color . "#fffffbeeffff")) - ((gnus-mouse-face . highlight) - (list-matching-lines-face . bold) - (rmail-highlight-face . font-lock-function-name-face) - (view-highlight-face . highlight)) - (default ((t (nil)))) - (blank-space-face ((t (nil)))) - (blank-tab-face ((t (nil)))) - (blue ((t (nil)))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (border-glyph ((t (nil)))) - (calendar-today-face ((t (:underline t)))) - (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) - (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red")))) - (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) - (custom-button-face ((t (:bold t)))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:underline t :bold t :foreground "blue")))) - (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "dark green")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue")))) - (diary-face ((t (:bold t :foreground "red")))) - (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) - (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) - (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) - (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) - (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) - (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) - (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) - (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) - (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) - (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) - (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) - (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) - (erc-action-face ((t (:bold t)))) - (erc-bold-face ((t (:bold t)))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (nil)))) - (erc-error-face ((t (:bold t)))) - (erc-input-face ((t (nil)))) - (erc-inverse-face ((t (nil)))) - (erc-notice-face ((t (nil)))) - (erc-pal-face ((t (nil)))) - (erc-prompt-face ((t (nil)))) - (erc-underline-face ((t (nil)))) - (eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) - (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) - (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) - (eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) - (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) - (eshell-ls-missing-face ((t (:bold t :foreground "Red")))) - (eshell-ls-picture-face ((t (nil)))) - (eshell-ls-product-face ((t (:foreground "OrangeRed")))) - (eshell-ls-readonly-face ((t (:foreground "Brown")))) - (eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) - (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan")))) - (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) - (eshell-prompt-face ((t (:bold t :foreground "Red")))) - (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) - (eshell-test-ok-face ((t (:bold t :foreground "Green")))) - (excerpt ((t (:italic t)))) - (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) - (fixed ((t (:bold t)))) - (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) - (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) - (font-latex-bold-face ((t (nil)))) - (font-latex-italic-face ((t (nil)))) - (font-latex-math-face ((t (nil)))) - (font-latex-sedate-face ((t (nil)))) - (font-latex-string-face ((t (nil)))) - (font-latex-warning-face ((t (nil)))) - (font-lock-builtin-face ((t (:bold t :foreground "Orchid")))) - (font-lock-comment-face ((t (:italic t :bold t :foreground "blue4")))) - (font-lock-constant-face ((t (:bold t :foreground "CadetBlue")))) - (font-lock-doc-string-face ((t (:italic t :bold t :foreground "blue4")))) - (font-lock-exit-face ((t (nil)))) - (font-lock-function-name-face ((t (:bold t :foreground "brown4")))) - (font-lock-keyword-face ((t (:bold t :foreground "black")))) - (font-lock-preprocessor-face ((t (:foreground "blue3")))) - (font-lock-reference-face ((t (:foreground "red3")))) - (font-lock-string-face ((t (:italic t :bold t :foreground "green4")))) - (font-lock-type-face ((t (:bold t :foreground "steelblue")))) - (font-lock-variable-name-face ((t (:italic t :bold t :foreground "magenta4")))) - (font-lock-warning-face ((t (:bold t :foreground "Red")))) - (gnus-cite-attribution-face ((t (:italic t :bold t)))) - (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "firebrick")))) - (gnus-cite-face-3 ((t (:foreground "dark green")))) - (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) - (gnus-cite-face-5 ((t (:foreground "dark khaki")))) - (gnus-cite-face-6 ((t (:foreground "dark violet")))) - (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) - (gnus-emphasis-highlight-words ((t (nil)))) - (gnus-emphasis-italic ((t (:italic t)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) - (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) - (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) - (gnus-filterhist-face-1 ((t (nil)))) - (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) - (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) - (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) - (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) - (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) - (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) - (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) - (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) - (gnus-header-from-face ((t (:bold t :foreground "red3")))) - (gnus-header-name-face ((t (:bold t :foreground "maroon")))) - (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue")))) - (gnus-header-subject-face ((t (:bold t :foreground "red4")))) - (gnus-signature-face ((t (:italic t)))) - (gnus-splash ((t (nil)))) - (gnus-splash-face ((t (:foreground "ForestGreen")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) - (gnus-summary-high-unread-face ((t (:italic t :bold t)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) - (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) - (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "firebrick")))) - (gnus-summary-low-unread-face ((t (:italic t)))) - (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) - (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick")))) - (gnus-summary-normal-unread-face ((t (:bold t)))) - (gnus-summary-selected-face ((t (:underline t)))) - (green ((t (nil)))) - (gui-button-face ((t (:background "grey75")))) - (gui-element ((t (:background "Gray80")))) - (highlight ((t (:background "darkseagreen2")))) - (highlight-changes-delete-face ((t (:underline t :foreground "red")))) - (highlight-changes-face ((t (:foreground "red")))) - (highline-face ((t (:background "paleturquoise")))) - (holiday-face ((t (:background "pink")))) - (html-helper-italic-face ((t (:italic t)))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:italic t :bold t)))) - (info-xref ((t (:bold t)))) - (isearch ((t (nil)))) - (italic ((t (:italic t)))) - (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) - (left-margin ((t (nil)))) - (linemenu-face ((t (nil)))) - (list-mode-item-selected ((t (nil)))) - (makefile-space-face ((t (:background "hotpink")))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:bold t :foreground "MidnightBlue")))) - (message-header-name-face ((t (:foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-subject-face ((t (:bold t :foreground "navy blue")))) - (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:bold t)))) - (message-separator-face ((t (:foreground "brown")))) - (modeline ((t (:background "darkblue" :foreground "yellow")))) - (modeline-buffer-id ((t (:background "black" :foreground "white")))) - (modeline-mousable ((t (:background "black" :foreground "white")))) - (modeline-mousable-minor-mode ((t (:background "black" :foreground "white")))) - (nil ((t (nil)))) - (paren-mismatch-face ((t (:bold t)))) - (paren-no-match-face ((t (:bold t)))) - (pointer ((t (nil)))) - (primary-selection ((t (nil)))) - (red ((t (nil)))) - (region ((t (:background "gray")))) - (right-margin ((t (nil)))) - (secondary-selection ((t (:background "paleturquoise")))) - (sgml-doctype-face ((t (nil)))) - (sgml-end-tag-face ((t (nil)))) - (sgml-entity-face ((t (nil)))) - (sgml-ignored-face ((t (nil)))) - (sgml-sgml-face ((t (nil)))) - (sgml-start-tag-face ((t (nil)))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white")))) - (speedbar-button-face ((t (:bold t :foreground "green4")))) - (speedbar-directory-face ((t (:bold t :foreground "blue4")))) - (speedbar-file-face ((t (:bold t :foreground "cyan4")))) - (speedbar-highlight-face ((t (:background "green")))) - (speedbar-selected-face ((t (:underline t :foreground "red")))) - (speedbar-tag-face ((t (:foreground "brown")))) - (swbuff-current-buffer-face ((t (:bold t)))) - (term-black ((t (:foreground "black")))) - (term-blackbg ((t (:background "black")))) - (term-blue ((t (:foreground "blue")))) - (term-bluebg ((t (:background "blue")))) - (term-bold ((t (:bold t)))) - (term-cyan ((t (:foreground "cyan")))) - (term-cyanbg ((t (:background "cyan")))) - (term-default-bg ((t (nil)))) - (term-default-bg-inv ((t (nil)))) - (term-default-fg ((t (nil)))) - (term-default-fg-inv ((t (nil)))) - (term-green ((t (:foreground "green")))) - (term-greenbg ((t (:background "green")))) - (term-invisible ((t (nil)))) - (term-invisible-inv ((t (nil)))) - (term-magenta ((t (:foreground "magenta")))) - (term-magentabg ((t (:background "magenta")))) - (term-red ((t (:foreground "red")))) - (term-redbg ((t (:background "red")))) - (term-underline ((t (:underline t)))) - (term-white ((t (:foreground "white")))) - (term-whitebg ((t (:background "white")))) - (term-yellow ((t (:foreground "yellow")))) - (term-yellowbg ((t (:background "yellow")))) - (text-cursor ((t (nil)))) - (toolbar ((t (nil)))) - (underline ((t (:underline t)))) - (vc-annotate-face-0046FF ((t (nil)))) - (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) - (vertical-divider ((t (nil)))) - (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) - (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) - (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) - (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) - (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) - (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) - (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) - (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) - (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) - (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) - (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) - (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) - (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) - (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) - (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) - (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) - (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) - (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) - (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) - (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-search-face ((t (:background "khaki" :foreground "Black")))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "gray85")))) - (woman-bold-face ((t (:bold t)))) - (woman-italic-face ((t (nil)))) - (woman-unknown-face ((t (nil)))) - (yellow ((t (nil)))) - (zmacs-region ((t (nil))))))) - -(defun color-theme-beige-diff () - "Brownish faces for diff and change-log modes. -This is intended for other color themes to use (eg. `color-theme-gnome2' -and `color-theme-blue-sea')." - (color-theme-install - '(color-theme-beige-diff - nil - (change-log-acknowledgement-face ((t (:foreground "firebrick")))) - (change-log-conditionals-face ((t (:foreground "khaki" :background "sienna")))) - (change-log-date-face ((t (:foreground "gold")))) - (change-log-email-face ((t (:foreground "khaki" :underline t)))) - (change-log-file-face ((t (:bold t :foreground "lemon chiffon")))) - (change-log-function-face ((t (:foreground "khaki" :background "sienna")))) - (change-log-list-face ((t (:foreground "wheat")))) - (change-log-name-face ((t (:bold t :foreground "light goldenrod")))) - (diff-added-face ((t (nil)))) - (diff-changed-face ((t (nil)))) - (diff-context-face ((t (:foreground "grey50")))) - (diff-file-header-face ((t (:bold t :foreground "lemon chiffon")))) - (diff-function-face ((t (:foreground "grey50")))) - (diff-header-face ((t (:foreground "lemon chiffon")))) - (diff-hunk-header-face ((t (:foreground "light goldenrod")))) - (diff-index-face ((t (:bold t :underline t)))) - (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold)))) - (diff-removed-face ((t (nil)))) - (log-view-message-face ((t (:foreground "lemon chiffon"))))))) - -(defun color-theme-standard-ediff () - "Standard colors for ediff faces. -This is intended for other color themes to use -\(eg. `color-theme-goldenrod')." - (color-theme-install - '(color-theme-beige-diff - nil - (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) - (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) - (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) - (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) - (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) - (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) - (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) - (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) - (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) - (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) - (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) - (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))))) - -(defun color-theme-beige-eshell () - "Brownish colors for eshell faces only. -This is intended for other color themes to use (eg. `color-theme-goldenrod')." - (color-theme-install - '(color-theme-beige-eshell - nil - (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) - (eshell-ls-backup-face ((t (:foreground "Grey")))) - (eshell-ls-clutter-face ((t (:foreground "DimGray")))) - (eshell-ls-directory-face ((t (:bold t :foreground "dark khaki")))) - (eshell-ls-executable-face ((t (:foreground "Coral")))) - (eshell-ls-missing-face ((t (:foreground "black")))) - (eshell-ls-picture-face ((t (:foreground "gold")))) ; non-standard face - (eshell-ls-product-face ((t (:foreground "dark sea green")))) - (eshell-ls-readonly-face ((t (:foreground "light steel blue")))) - (eshell-ls-special-face ((t (:foreground "gold")))) - (eshell-ls-symlink-face ((t (:foreground "peach puff")))) - (eshell-ls-text-face ((t (:foreground "moccasin")))) ; non-standard face - (eshell-ls-todo-face ((t (:bold t :foreground "yellow green")))) ; non-standard face - (eshell-ls-unreadable-face ((t (:foreground "DimGray")))) - (eshell-prompt-face ((t (:foreground "lemon chiffon"))))))) - -(defun color-theme-goldenrod () - "Brown color theme. Very different from the others. -Supports standard, font-lock and info faces, and it uses -`color-theme-blue-gnus', `color-theme-blue-erc' , and -`color-theme-beige-diff'." - (interactive) - (color-theme-blue-gnus) - (let ((color-theme-is-cumulative t)) - (color-theme-blue-erc) - (color-theme-beige-diff) - (color-theme-beige-eshell) - (color-theme-install - '(color-theme-goldenrod - ((background-color . "black") - (background-mode . dark) - (border-color . "black") - (cursor-color . "light goldenrod") - (foreground-color . "goldenrod") - (mouse-color . "goldenrod")) - ((goto-address-mail-face . info-xref) - (list-matching-lines-face . bold) - (view-highlight-face . highlight)) - (default ((t (nil)))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t :foreground "lavender")))) - (font-lock-builtin-face ((t (:foreground "pale goldenrod")))) - (font-lock-comment-face ((t (:foreground "indian red")))) - (font-lock-constant-face ((t (:foreground "pale green")))) - (font-lock-function-name-face ((t (:bold t :foreground "lemon chiffon")))) - (font-lock-keyword-face ((t (:foreground "wheat")))) - (font-lock-string-face ((t (:foreground "gold")))) - (font-lock-type-face ((t (:foreground "dark khaki" :bold t)))) - (font-lock-variable-name-face ((t (:bold t :foreground "khaki")))) - (font-lock-warning-face ((t (:bold t :foreground "orange red")))) - (fringe ((t (:background "gray25")))) - (header-line ((t (:background "gray20" :foreground "gray70")))) - (highlight ((t (:background "dark slate blue")))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:bold t)))) - (info-xref ((t (:bold t :foreground "pale goldenrod")))) - (isearch ((t (:background "SeaGreen4")))) - (isearch-lazy-highlight-face ((t (:background "DarkOliveGreen4")))) - (italic ((t (:italic t :foreground "lavender")))) - (menu ((t (:background "gray25" :foreground "lemon chiffon")))) - (modeline ((t (:background "gray40" :foreground "lemon chiffon" :box (:line-width 1 :style released-button))))) - (modeline-buffer-id ((t (:background "AntiqueWhite4" :foreground "lemon chiffon")))) - (modeline-mousable ((t (:background "AntiqueWhite4" :foreground "lemon chiffon")))) - (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "lemon chiffon")))) - (mode-line-inactive ((t (:background "gray20" :foreground "lemon chiffon" :box (:line-width 1 :style released-button))))) - (region ((t (:background "dark olive green")))) - (secondary-selection ((t (:background "dark green")))) - (tool-bar ((t (:background "gray25" :foreground "lemon chiffon" :box (:line-width 1 :style released-button))))) - (underline ((t (:underline t)))))))) - -(defun color-theme-ramangalahy () - "Color theme by Solofo Ramangalahy, created 2000-10-18. -Black on light grey, includes faces for vm, ispell, gnus, -dired, display-time, cperl, font-lock, widget, x-symbol." - (interactive) - (color-theme-install - '(color-theme-ramangalahy - ((background-color . "lightgrey") - (background-mode . light) - (background-toolbar-color . "#bfbfbfbfbfbf") - (border-color . "#000000000000") - (bottom-toolbar-shadow-color . "#737373737373") - (cursor-color . "blue") - (foreground-color . "black") - (top-toolbar-shadow-color . "#e6e6e6e6e6e6")) - ((gnus-mouse-face . highlight) - (goto-address-mail-face . info-xref) - (ispell-highlight-face . highlight) - (notes-bold-face . notes-bold-face) - (setnu-line-number-face . bold) - (tinyreplace-:face . highlight) - (vm-highlight-url-face . bold-italic) - (vm-highlighted-header-face . bold) - (vm-mime-button-face . gui-button-face) - (vm-summary-highlight-face . bold)) - (default ((t (nil)))) - (bbdb-company ((t (nil)))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (border-glyph ((t (nil)))) - (cperl-here-face ((t (:foreground "green4")))) - (cperl-pod-face ((t (:foreground "brown4")))) - (cperl-pod-head-face ((t (:foreground "steelblue")))) - (custom-button-face ((t (:bold t)))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:underline t :foreground "blue")))) - (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "dark green")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t :foreground "blue")))) - (dired-face-boring ((t (:foreground "Gray65")))) - (dired-face-directory ((t (:bold t)))) - (dired-face-executable ((t (:foreground "SeaGreen")))) - (dired-face-flagged ((t (:background "LightSlateGray")))) - (dired-face-marked ((t (:background "PaleVioletRed")))) - (dired-face-permissions ((t (:background "grey75" :foreground "black")))) - (dired-face-setuid ((t (:foreground "Red")))) - (dired-face-socket ((t (:foreground "magenta")))) - (dired-face-symlink ((t (:foreground "blue")))) - (display-time-mail-balloon-enhance-face ((t (:background "orange")))) - (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) - (display-time-time-balloon-face ((t (:foreground "red")))) - (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) - (font-lock-comment-face ((t (:bold t :foreground "purple")))) - (font-lock-doc-string-face ((t (:bold t :foreground "slateblue")))) - (font-lock-emphasized-face ((t (:bold t :background "lightyellow2")))) - (font-lock-function-name-face ((t (:bold t :foreground "blue")))) - (font-lock-keyword-face ((t (:bold t :foreground "violetred")))) - (font-lock-other-emphasized-face ((t (:italic t :bold t :background "lightyellow2")))) - (font-lock-other-type-face ((t (:bold t :foreground "orange3")))) - (font-lock-preprocessor-face ((t (:bold t :foreground "mediumblue")))) - (font-lock-reference-face ((t (:foreground "red3")))) - (font-lock-string-face ((t (:foreground "green4")))) - (font-lock-type-face ((t (:bold t :foreground "steelblue")))) - (font-lock-variable-name-face ((t (:foreground "magenta4")))) - (font-lock-warning-face ((t (:bold t :background "yellow" :foreground "Red")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-bold-italic ((t (nil)))) - (gnus-emphasis-italic ((t (nil)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) - (gnus-emphasis-underline-bold-italic ((t (:underline t)))) - (gnus-emphasis-underline-italic ((t (:underline t)))) - (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) - (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) - (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) - (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) - (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) - (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) - (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) - (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) - (gnus-group-news-3-empty-face ((t (:foreground "DeepPink4")))) - (gnus-group-news-3-face ((t (:bold t :foreground "DeepPink4")))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-header-content-face ((t (:foreground "indianred4")))) - (gnus-header-from-face ((t (:foreground "red3")))) - (gnus-header-name-face ((t (:foreground "maroon")))) - (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue")))) - (gnus-header-subject-face ((t (:foreground "red4")))) - (gnus-signature-face ((t (:bold t)))) - (gnus-splash-face ((t (:foreground "ForestGreen")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) - (gnus-summary-high-unread-face ((t (:bold t)))) - (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-low-read-face ((t (:foreground "DarkGreen")))) - (gnus-summary-low-ticked-face ((t (:foreground "firebrick")))) - (gnus-summary-low-unread-face ((t (nil)))) - (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (gnus-x-face ((t (:background "lightgrey" :foreground "black")))) - (green ((t (:foreground "green")))) - (gui-button-face ((t (:background "grey75" :foreground "black")))) - (gui-element ((t (:background "lightgrey")))) - (highlight ((t (:background "darkseagreen2")))) - (info-node ((t (:underline t :bold t :foreground "mediumpurple")))) - (info-xref ((t (:underline t :bold t :foreground "#0000ee")))) - (isearch ((t (:background "paleturquoise")))) - (italic ((t (:italic t)))) - (left-margin ((t (nil)))) - (list-mode-item-selected ((t (:background "gray68" :foreground "black")))) - (message-cited-text ((t (:foreground "slategrey")))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:foreground "MidnightBlue")))) - (message-header-contents ((t (:italic t)))) - (message-header-name-face ((t (:foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:bold t :foreground "blue4")))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-subject-face ((t (:bold t :foreground "navy blue")))) - (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-headers ((t (:bold t)))) - (message-highlighted-header-contents ((t (:bold t)))) - (message-separator-face ((t (:foreground "brown")))) - (message-url ((t (:bold t)))) - (modeline ((t (:bold t :background "Gray75" :foreground "Black")))) - (modeline-buffer-id ((t (:bold t :background "Gray75" :foreground "blue4")))) - (modeline-mousable ((t (:bold t :background "Gray75" :foreground "firebrick")))) - (modeline-mousable-minor-mode ((t (:bold t :background "Gray75" :foreground "green4")))) - (paren-blink-off ((t (:foreground "lightgrey")))) - (paren-match ((t (:background "darkseagreen2")))) - (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) - (pointer ((t (:foreground "blue")))) - (primary-selection ((t (:background "gray65")))) - (red ((t (:foreground "red")))) - (region ((t (:background "black" :foreground "white")))) - (right-margin ((t (nil)))) - (searchm-buffer ((t (:bold t :background "white" :foreground "red")))) - (searchm-button ((t (:bold t :background "CadetBlue" :foreground "white")))) - (searchm-field ((t (:background "grey89")))) - (searchm-field-label ((t (:bold t)))) - (searchm-highlight ((t (:bold t :background "darkseagreen2" :foreground "black")))) - (secondary-selection ((t (:background "paleturquoise")))) - (template-message-face ((t (:bold t)))) - (text-cursor ((t (:background "blue" :foreground "lightgrey")))) - (toolbar ((t (nil)))) - (underline ((t (:underline t)))) - (vertical-divider ((t (nil)))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (x-face ((t (:background "white" :foreground "black")))) - (x-symbol-adobe-fontspecific-face ((t (nil)))) - (x-symbol-face ((t (nil)))) - (x-symbol-heading-face ((t (:underline t :bold t :foreground "green4")))) - (x-symbol-info-face ((t (:foreground "green4")))) - (x-symbol-invisible-face ((t (nil)))) - (x-symbol-revealed-face ((t (:background "pink")))) - (yellow ((t (:foreground "yellow")))) - (zmacs-region ((t (:background "yellow"))))))) - -(defun color-theme-raspopovic () - "Color theme by Pedja Raspopovic, created 2000-10-19. -Includes faces for dired, font-lock, info, paren." - (interactive) - (color-theme-install - '(color-theme-raspopovic - ((background-color . "darkblue") - (background-mode . light) - (background-toolbar-color . "#bfbfbfbfbfbf") - (border-color . "#000000000000") - (bottom-toolbar-shadow-color . "#737373737373") - (cursor-color . "Red3") - (foreground-color . "yellow") - (top-toolbar-shadow-color . "#e6e6e6e6e6e6")) - ((setnu-line-number-face . bold) - (goto-address-mail-face . info-xref)) - (default ((t (nil)))) - (blue ((t (:background "darkblue" :foreground "blue")))) - (bold ((t (:bold t :background "darkblue" :foreground "yellow")))) - (bold-italic ((t (:bold t :background "darkblue" :foreground "red3")))) - (comint-input-face ((t (:foreground "deepskyblue")))) - (dired-face-boring ((t (:foreground "Gray65")))) - (dired-face-directory ((t (:foreground "lightgreen")))) - (dired-face-executable ((t (:foreground "indianred")))) - (dired-face-flagged ((t (:background "LightSlateGray")))) - (dired-face-marked ((t (:background "darkblue" :foreground "deepskyblue")))) - (dired-face-permissions ((t (:background "darkblue" :foreground "white")))) - (dired-face-setuid ((t (:foreground "Red")))) - (dired-face-socket ((t (:foreground "magenta")))) - (dired-face-symlink ((t (:foreground "grey95")))) - (font-lock-comment-face ((t (:background "darkblue" :foreground "lightgreen")))) - (font-lock-doc-string-face ((t (:background "darkblue" :foreground "darkseagreen")))) - (font-lock-function-name-face ((t (:bold t :background "darkblue" :foreground "indianred")))) - (font-lock-keyword-face ((t (:background "darkblue" :foreground "skyblue")))) - (font-lock-preprocessor-face ((t (:background "darkblue" :foreground "orange")))) - (font-lock-reference-face ((t (:background "darkblue" :foreground "deepskyblue")))) - (font-lock-string-face ((t (:background "darkblue" :foreground "lightgrey")))) - (font-lock-type-face ((t (:background "darkblue" :foreground "orange")))) - (font-lock-variable-name-face ((t (:background "darkblue" :foreground "white")))) - (green ((t (:background "darkblue" :foreground "green")))) - (gui-button-face ((t (:background "grey75" :foreground "black")))) - (highlight ((t (:background "yellow" :foreground "darkblue")))) - (info-node ((t (:bold t :background "darkblue" :foreground "red3")))) - (info-xref ((t (:bold t :background "darkblue" :foreground "yellow")))) - (isearch ((t (:background "yellow" :foreground "darkblue")))) - (isearch-secondary ((t (:foreground "red3")))) - (italic ((t (:background "darkblue" :foreground "red3")))) - (left-margin ((t (:background "darkblue" :foreground "yellow")))) - (list-mode-item-selected ((t (:background "gray68" :foreground "yellow")))) - (makefile-space-face ((t (:background "hotpink")))) - (modeline ((t (:background "Gray75" :foreground "Black")))) - (modeline-buffer-id ((t (:background "Gray75" :foreground "blue")))) - (modeline-mousable ((t (:background "Gray75" :foreground "red")))) - (modeline-mousable-minor-mode ((t (:background "Gray75" :foreground "green4")))) - (paren-blink-off ((t (:foreground "darkblue")))) - (paren-match ((t (:background "yellow" :foreground "darkblue")))) - (paren-mismatch ((t (:background "DeepPink" :foreground "yellow")))) - (pointer ((t (:background "darkblue" :foreground "red3")))) - (primary-selection ((t (:background "yellow" :foreground "darkblue")))) - (red ((t (:background "darkblue" :foreground "red")))) - (right-margin ((t (:background "darkblue" :foreground "yellow")))) - (secondary-selection ((t (:background "darkblue" :foreground "yellow")))) - (shell-option-face ((t (:background "darkblue" :foreground "cyan2")))) - (shell-output-2-face ((t (:background "darkblue" :foreground "darkseagreen")))) - (shell-output-3-face ((t (:background "darkblue" :foreground "lightgrey")))) - (shell-output-face ((t (:background "darkblue" :foreground "white")))) - (shell-prompt-face ((t (:background "darkblue" :foreground "red")))) - (text-cursor ((t (:background "Red3" :foreground "white")))) - (underline ((t (:underline t :background "darkblue" :foreground "yellow")))) - (vvb-face ((t (:background "pink" :foreground "black")))) - (yellow ((t (:background "darkblue" :foreground "yellow")))) - (zmacs-region ((t (:background "gray" :foreground "black"))))))) - -(defun color-theme-taylor () - "Color theme by Art Taylor, created 2000-10-20. -Wheat on black. Includes faces for font-lock, gnus, paren." - (interactive) - (color-theme-install - '(color-theme-taylor - ((background-color . "black") - (background-mode . dark) - (border-color . "black") - (cursor-color . "red") - (foreground-color . "wheat") - (mouse-color . "black")) - ((gnus-mouse-face . highlight) - (list-matching-lines-face . bold) - (view-highlight-face . highlight)) - (default ((t (nil)))) - (bold ((t (:bold t :background "grey40" :foreground "yellow")))) - (bold-italic ((t (:italic t :bold t :foreground "yellow green")))) - (fl-comment-face ((t (:foreground "medium purple")))) - (fl-function-name-face ((t (:foreground "green")))) - (fl-keyword-face ((t (:foreground "LightGreen")))) - (fl-string-face ((t (:foreground "light coral")))) - (fl-type-face ((t (:foreground "cyan")))) - (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) - (font-lock-comment-face ((t (:foreground "OrangeRed")))) - (font-lock-constant-face ((t (:foreground "Aquamarine")))) - (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) - (font-lock-keyword-face ((t (:foreground "Cyan")))) - (font-lock-string-face ((t (:foreground "LightSalmon")))) - (font-lock-type-face ((t (:foreground "PaleGreen")))) - (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) - (font-lock-warning-face ((t (:bold t :foreground "Pink")))) - (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) - (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) - (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3")))) - (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) - (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) - (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) - (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) - (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) - (gnus-splash-face ((t (:foreground "Brown")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink")))) - (gnus-summary-high-unread-face ((t (:bold t)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) - (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) - (gnus-summary-low-unread-face ((t (:italic t)))) - (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (highlight ((t (:background "black" :foreground "black")))) - (italic ((t (:italic t :foreground "yellow3")))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:bold t :foreground "green4")))) - (message-header-name-face ((t (:foreground "DarkGreen")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) - (message-header-other-face ((t (:foreground "#b00000")))) - (message-header-subject-face ((t (:foreground "green3")))) - (message-header-to-face ((t (:bold t :foreground "green2")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "blue3")))) - (modeline ((t (:background "wheat" :foreground "black")))) - (modeline-buffer-id ((t (:background "wheat" :foreground "black")))) - (modeline-mousable ((t (:background "wheat" :foreground "black")))) - (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "black")))) - (region ((t (:background "blue")))) - (secondary-selection ((t (:background "darkslateblue" :foreground "black")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (underline ((t (:underline t)))) - (xref-keyword-face ((t (:foreground "blue")))) - (xref-list-default-face ((t (nil)))) - (xref-list-pilot-face ((t (:foreground "navy")))) - (xref-list-symbol-face ((t (:foreground "navy"))))))) - -(defun color-theme-marquardt () - "Color theme by Colin Marquardt, created 2000-10-25. -Black on bisque, a light color. Based on some settings from Robin S. Socha. -Features some color changes to programming languages, especially vhdl-mode. -You might also want to put something like - Emacs*Foreground: Black - Emacs*Background: bisque2 -in your ~/.Xdefaults." - (interactive) - (color-theme-install - '(color-theme-marquardt - ((background-color . "bisque") - (background-mode . light) - (background-toolbar-color . "bisque") - (border-color . "#000000000000") - (bottom-toolbar-shadow-color . "#909099999999") - (cursor-color . "Red3") - (foreground-color . "black") - (top-toolbar-shadow-color . "#ffffffffffff")) - (default ((t (nil)))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t)))) - (bold-italic ((t (:bold t)))) - (border-glyph ((t (nil)))) - (calendar-today-face ((t (:underline t)))) - (diary-face ((t (:foreground "red")))) - (display-time-mail-balloon-enhance-face ((t (:background "orange")))) - (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) - (display-time-time-balloon-face ((t (:foreground "red")))) - (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) - (font-lock-comment-face ((t (:foreground "gray50")))) - (font-lock-doc-string-face ((t (:foreground "green4")))) - (font-lock-function-name-face ((t (:foreground "darkorange")))) - (font-lock-keyword-face ((t (:foreground "blue3")))) - (font-lock-preprocessor-face ((t (:foreground "blue3")))) - (font-lock-reference-face ((t (:foreground "red3")))) - (font-lock-special-comment-face ((t (:foreground "blue4")))) - (font-lock-special-keyword-face ((t (:foreground "red4")))) - (font-lock-string-face ((t (:foreground "green4")))) - (font-lock-type-face ((t (:foreground "steelblue")))) - (font-lock-variable-name-face ((t (:foreground "black")))) - (font-lock-warning-face ((t (:bold t :foreground "Red")))) - (green ((t (:foreground "green")))) - (gui-button-face ((t (:background "grey75" :foreground "black")))) - (gui-element ((t (:background "azure1" :foreground "Black")))) - (highlight ((t (:background "darkseagreen2" :foreground "blue")))) - (holiday-face ((t (:background "pink" :foreground "black")))) - (info-node ((t (:bold t)))) - (info-xref ((t (:bold t)))) - (isearch ((t (:background "yellow" :foreground "red")))) - (italic ((t (:bold t)))) - (left-margin ((t (nil)))) - (list-mode-item-selected ((t (:background "gray68" :foreground "black")))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:foreground "MidnightBlue")))) - (message-header-name-face ((t (:foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:bold t :foreground "blue4")))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-subject-face ((t (:bold t :foreground "navy blue")))) - (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "brown")))) - (modeline ((t (:background "bisque2" :foreground "steelblue4")))) - (modeline-buffer-id ((t (:background "bisque2" :foreground "blue4")))) - (modeline-mousable ((t (:background "bisque2" :foreground "firebrick")))) - (modeline-mousable-minor-mode ((t (:background "bisque2" :foreground "green4")))) - (paren-blink-off ((t (:foreground "azure1")))) - (paren-face ((t (:background "lightgoldenrod")))) - (paren-match ((t (:background "bisque2")))) - (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) - (paren-mismatch-face ((t (:background "DeepPink")))) - (paren-no-match-face ((t (:background "yellow")))) - (pointer ((t (:background "white" :foreground "blue")))) - (primary-selection ((t (:background "gray65")))) - (red ((t (:foreground "red")))) - (right-margin ((t (nil)))) - (secondary-selection ((t (:background "paleturquoise")))) - (shell-option-face ((t (:foreground "gray50")))) - (shell-output-2-face ((t (:foreground "green4")))) - (shell-output-3-face ((t (:foreground "green4")))) - (shell-output-face ((t (:bold t)))) - (shell-prompt-face ((t (:foreground "blue3")))) - (speedbar-button-face ((t (:foreground "green4")))) - (speedbar-directory-face ((t (:foreground "blue4")))) - (speedbar-file-face ((t (:foreground "cyan4")))) - (speedbar-highlight-face ((t (:background "green")))) - (speedbar-selected-face ((t (:underline t :foreground "red")))) - (speedbar-tag-face ((t (:foreground "brown")))) - (text-cursor ((t (:background "Red3" :foreground "bisque")))) - (toolbar ((t (:background "Gray80")))) - (underline ((t (:underline t)))) - (vertical-divider ((t (nil)))) - (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) - (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) - (vhdl-font-lock-enumvalue-face ((t (:foreground "SaddleBrown")))) - (vhdl-font-lock-function-face ((t (:foreground "DarkCyan")))) - (vhdl-font-lock-generic-/constant-face ((t (:foreground "Gold3")))) - (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) - (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) - (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) - (vhdl-font-lock-type-face ((t (:foreground "ForestGreen")))) - (vhdl-font-lock-variable-face ((t (:foreground "Grey50")))) - (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) - (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) - (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) - (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) - (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) - (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) - (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) - (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) - (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) - (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) - (vhdl-speedbar-subprogram-face ((t (:foreground "Orchid4")))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (yellow ((t (:foreground "yellow")))) - (zmacs-region ((t (:background "steelblue" :foreground "yellow"))))))) - -(defun color-theme-parus () - "Color theme by Jon K Hellan, created 2000-11-01. -White on dark blue color theme. - -There is some redundancy in the X resources, but I do not have time to -find out which should go or which should stay: - -Emacs*dialog*Background: midnightblue -Emacs*dialog*Foreground: white -Emacs*popup*Background: midnightblue -Emacs*popup*Foreground: white -emacs*background: #00005a -emacs*cursorColor: gray90 -emacs*foreground: White -emacs.dialog*.background: midnightblue -emacs.menu*.background: midnightblue -emacs.pane.menubar.background: midnightblue" - (interactive) - (color-theme-install - '(color-theme-parus - ((background-color . "#00005a") - (background-mode . dark) - (border-color . "black") - (cursor-color . "yellow") - (foreground-color . "White") - (mouse-color . "yellow")) - ((gnus-mouse-face . highlight) - (list-matching-lines-face . bold) - (paren-face . bold) - (paren-mismatch-face . paren-mismatch-face) - (paren-no-match-face . paren-no-match-face) - (view-highlight-face . highlight)) - (default ((t (nil)))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (font-latex-bold-face ((t (:bold t :foreground "OliveDrab")))) - (font-latex-italic-face ((t (:italic t :foreground "OliveDrab")))) - (font-latex-math-face ((t (:foreground "burlywood")))) - (font-latex-sedate-face ((t (:foreground "LightGray")))) - (font-latex-string-face ((t (:foreground "LightSalmon")))) - (font-latex-warning-face ((t (:foreground "Pink")))) - (font-lock-builtin-face ((t (:foreground "#e0e0ff")))) - (font-lock-reference-face ((t (:foreground "#e0e0ff")))) - (font-lock-comment-face ((t (:foreground "#FFd1d1")))) - (font-lock-constant-face ((t (:foreground "Aquamarine")))) - (font-lock-preprocessor-face ((t (:foreground "Aquamarine")))) - (font-lock-function-name-face ((t (:foreground "#b2e4ff")))) - (font-lock-keyword-face ((t (:foreground "#a0ffff")))) - (font-lock-string-face ((t (:foreground "#efca10")))) - (font-lock-doc-string-face ((t (:foreground "#efca10")))) - (font-lock-type-face ((t (:foreground "PaleGreen")))) - (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) - (font-lock-warning-face ((t (:bold t :foreground "Pink")))) - (gnus-cite-attribution-face ((t (:italic t)))) - (gnus-cite-face-1 ((t (:foreground "#dfdfff")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "light cyan")))) - (gnus-cite-face-3 ((t (:foreground "light yellow")))) - (gnus-cite-face-4 ((t (:foreground "light pink")))) - (gnus-cite-face-5 ((t (:foreground "pale green")))) - (gnus-cite-face-6 ((t (:foreground "beige")))) - (gnus-cite-face-7 ((t (:foreground "orange")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) - (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) - (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) - (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) - (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) - (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3")))) - (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) - (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) - (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) - (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) - (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) - (gnus-header-content-face ((t (:italic t :foreground "#90f490")))) - (gnus-header-from-face ((t (:foreground "#aaffaa")))) - (gnus-header-name-face ((t (:foreground "#c7e3c7")))) - (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow")))) - (gnus-header-subject-face ((t (:foreground "#a0f0a0")))) - (gnus-signature-face ((t (:italic t)))) - (gnus-splash-face ((t (:foreground "Brown")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink")))) - (gnus-summary-high-unread-face ((t (:bold t)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) - (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) - (gnus-summary-low-unread-face ((t (:italic t)))) - (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (highlight ((t (:background "darkolivegreen")))) - (italic ((t (:italic t)))) - (message-cited-text-face ((t (:foreground "#dfdfff")))) - (message-header-cc-face ((t (:bold t :foreground "#a0f0a0")))) - (message-header-name-face ((t (:foreground "#c7e3c7")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) - (message-header-other-face ((t (:foreground "#db9b9b")))) - (message-header-subject-face ((t (:foreground "#a0f0a0")))) - (message-header-to-face ((t (:bold t :foreground "#aaffaa")))) - (message-header-xheader-face ((t (:foreground "#e2e2ff")))) - (message-mml-face ((t (:foreground "#abdbab")))) - (message-separator-face ((t (:foreground "#dfdfff")))) - (modeline ((t (:background "White" :foreground "#00005a")))) - (modeline-buffer-id ((t (:background "White" :foreground "#00005a")))) - (modeline-mousable ((t (:background "White" :foreground "#00005a")))) - (modeline-mousable-minor-mode ((t (:background "White" :foreground "#00005a")))) - (paren-mismatch-face ((t (:background "DeepPink")))) - (paren-no-match-face ((t (:background "yellow")))) - (region ((t (:background "blue")))) - (primary-selection ((t (:background "blue")))) - (isearch ((t (:background "blue")))) - (secondary-selection ((t (:background "darkslateblue")))) - (underline ((t (:underline t)))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-field-face ((t (:background "dim gray")))) - (widget-inactive-face ((t (:foreground "light gray")))) - (widget-single-line-field-face ((t (:background "dim gray"))))))) - -(defun color-theme-high-contrast () - "High contrast color theme, maybe for the visually impaired. -Watch out! This will set a very large font-size! - -If you want to modify the font as well, you should customize variable -`color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\". -The default setting will prevent color themes from installing specific -fonts." - (interactive) - (color-theme-standard) - (let ((color-theme-is-cumulative t)) - (color-theme-install - '(color-theme-high-contrast - ((cursor-color . "red") - (width . 60) - (height . 25) - (background . dark)) - (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :height 240 :width normal :family "adobe-courier")))) - - (bold ((t (:bold t :underline t)))) - (bold-italic ((t (:bold t :underline t)))) - (font-lock-builtin-face ((t (:bold t :foreground "Red")))) - (font-lock-comment-face ((t (:bold t :foreground "Firebrick")))) - (font-lock-constant-face ((t (:bold t :underline t :foreground "Blue")))) - (font-lock-function-name-face ((t (:bold t :foreground "Blue")))) - (font-lock-keyword-face ((t (:bold t :foreground "Purple")))) - (font-lock-string-face ((t (:bold t :foreground "DarkGreen")))) - (font-lock-type-face ((t (:bold t :foreground "ForestGreen")))) - (font-lock-variable-name-face ((t (:bold t :foreground "DarkGoldenrod")))) - (font-lock-warning-face ((t (:bold t :foreground "Red")))) - (highlight ((t (:background "black" :foreground "white" :bold 1)))) - (info-menu-5 ((t (:underline t :bold t)))) - (info-node ((t (:bold t)))) - (info-xref ((t (:bold t )))) - (italic ((t (:bold t :underline t)))) - (modeline ((t (:background "black" :foreground "white" :bold 1)))) - (modeline-buffer-id ((t (:background "black" :foreground "white" :bold 1)))) - (modeline-mousable ((t (:background "black" :foreground "white" :bold 1)))) - (modeline-mousable-minor-mode ((t (:background "black" :foreground "white" :bold 1)))) - (region ((t (:background "black" :foreground "white" :bold 1)))) - (secondary-selection ((t (:background "black" :foreground "white" :bold 1)))) - (underline ((t (:bold t :underline t)))))))) - -(defun color-theme-infodoc () - "Color theme by Frederic Giroud, created 2001-01-18. -Black on wheat scheme. Based on infodoc (xemacs variant distribution), -with my favorit fontlock color." - (interactive) - (color-theme-install - '(color-theme-infodoc - ((background-color . "wheat") - (background-mode . light) - (background-toolbar-color . "#000000000000") - (border-color . "#000000000000") - (bottom-toolbar-shadow-color . "#000000000000") - (cursor-color . "red") - (foreground-color . "black") - (top-toolbar-shadow-color . "#ffffffffffff")) - nil - (default ((t (:bold t)))) - (blue ((t (:bold t :foreground "blue")))) - (bold ((t (:background "wheat" :foreground "black")))) - (bold-italic ((t (:bold t :background "wheat" :foreground "black")))) - (border-glyph ((t (:bold t)))) - (calendar-today-face ((t (:underline t :bold t)))) - (custom-button-face ((t (nil)))) - (custom-changed-face ((t (:bold t :background "blue" :foreground "white")))) - (custom-documentation-face ((t (:bold t :background "wheat" :foreground "purple4")))) - (custom-face-tag-face ((t (:underline t :bold t)))) - (custom-group-tag-face ((t (:underline t :bold t :background "wheat" :foreground "blue")))) - (custom-group-tag-face-1 ((t (:underline t :bold t :background "wheat" :foreground "red")))) - (custom-invalid-face ((t (:bold t :background "red" :foreground "yellow")))) - (custom-modified-face ((t (:bold t :background "blue" :foreground "white")))) - (custom-rogue-face ((t (:bold t :background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t :bold t)))) - (custom-set-face ((t (:bold t :background "white" :foreground "blue")))) - (custom-state-face ((t (:bold t :background "wheat" :foreground "dark green")))) - (custom-variable-button-face ((t (:underline t)))) - (custom-variable-tag-face ((t (:underline t :bold t :background "wheat" :foreground "blue")))) - (diary-face ((t (:bold t :foreground "red")))) - (display-time-mail-balloon-enhance-face ((t (:bold t :background "wheat" :foreground "black")))) - (display-time-mail-balloon-gnus-group-face ((t (:bold t :background "wheat" :foreground "blue")))) - (display-time-time-balloon-face ((t (:bold t :background "light salmon" :foreground "dark green")))) - (font-lock-comment-face ((t (:bold t :background "wheat" :foreground "turquoise4")))) - (font-lock-doc-string-face ((t (:bold t :background "wheat" :foreground "purple4")))) - (font-lock-function-name-face ((t (:bold t :background "wheat" :foreground "blue4")))) - (font-lock-keyword-face ((t (:bold t :background "wheat" :foreground "dark orchid")))) - (font-lock-preprocessor-face ((t (:bold t :background "wheat" :foreground "orchid4")))) - (font-lock-reference-face ((t (:bold t :background "wheat" :foreground "red3")))) - (font-lock-string-face ((t (:bold t :background "wheat" :foreground "dark goldenrod")))) - (font-lock-type-face ((t (:bold t :background "wheat" :foreground "brown")))) - (font-lock-variable-name-face ((t (:bold t :background "wheat" :foreground "chocolate")))) - (font-lock-warning-face ((t (:bold t :background "wheat" :foreground "black")))) - (gdb-arrow-face ((t (:bold t :background "LightGreen" :foreground "black")))) - (green ((t (:bold t :foreground "green")))) - (gui-button-face ((t (:bold t :background "wheat" :foreground "red")))) - (gui-element ((t (:bold t :background "wheat" :foreground "black")))) - (highlight ((t (:bold t :background "darkseagreen2" :foreground "dark green")))) - (holiday-face ((t (:bold t :background "pink" :foreground "black")))) - (hproperty:but-face ((t (:bold t :background "wheat" :foreground "medium violet red")))) - (hproperty:flash-face ((t (:bold t :background "wheat" :foreground "gray80")))) - (hproperty:highlight-face ((t (:bold t :background "wheat" :foreground "red")))) - (hproperty:item-face ((t (:bold t)))) - (isearch ((t (:bold t :background "pale turquoise" :foreground "blue")))) - (italic ((t (:bold t :background "wheat" :foreground "black")))) - (left-margin ((t (:bold t :background "wheat" :foreground "black")))) - (list-mode-item-selected ((t (:bold t :background "gray68" :foreground "black")))) - (message-cited-text ((t (:bold t :background "wheat" :foreground "brown")))) - (message-header-contents ((t (:bold t :background "wheat" :foreground "black")))) - (message-headers ((t (:bold t :background "wheat" :foreground "black")))) - (message-highlighted-header-contents ((t (:bold t :background "wheat" :foreground "blue")))) - (message-url ((t (nil)))) - (modeline ((t (:bold t :background "light salmon" :foreground "dark green")))) - (modeline-buffer-id ((t (:bold t :background "light salmon" :foreground "blue4")))) - (modeline-mousable ((t (:bold t :background "light salmon" :foreground "firebrick")))) - (modeline-mousable-minor-mode ((t (:bold t :background "light salmon" :foreground "green4")))) - (pointer ((t (:bold t :background "wheat" :foreground "red")))) - (primary-selection ((t (:bold t :background "medium sea green")))) - (red ((t (:bold t :foreground "red")))) - (right-margin ((t (:bold t :background "wheat" :foreground "black")))) - (secondary-selection ((t (:bold t :background "paleturquoise" :foreground "black")))) - (shell-input-face ((t (:bold t :background "wheat" :foreground "blue")))) - (shell-option-face ((t (:bold t :background "wheat" :foreground "turquoise4")))) - (shell-output-2-face ((t (:bold t :background "wheat" :foreground "dark goldenrod")))) - (shell-output-3-face ((t (:bold t :background "wheat" :foreground "dark goldenrod")))) - (shell-output-face ((t (:bold t :background "wheat" :foreground "black")))) - (shell-prompt-face ((t (:bold t :background "wheat" :foreground "dark orchid")))) - (text-cursor ((t (:bold t :background "red" :foreground "wheat")))) - (toolbar ((t (:bold t :background "wheat" :foreground "black")))) - (underline ((t (:underline t :bold t :background "wheat" :foreground "black")))) - (vertical-divider ((t (:bold t)))) - (widget-button-face ((t (nil)))) - (widget-button-pressed-face ((t (:bold t :background "wheat" :foreground "red")))) - (widget-documentation-face ((t (:bold t :background "wheat" :foreground "dark green")))) - (widget-field-face ((t (:bold t :background "gray85")))) - (widget-inactive-face ((t (:bold t :background "wheat" :foreground "dim gray")))) - (x-face ((t (:bold t :background "wheat" :foreground "black")))) - (yellow ((t (:bold t :foreground "yellow")))) - (zmacs-region ((t (:bold t :background "lightyellow" :foreground "darkgreen"))))))) - -(defun color-theme-classic () - "Color theme by Frederic Giroud, created 2001-01-18. -AntiqueWhite on darkslategrey scheme. Based on Gnome 2, with my favorit -color foreground-color and fontlock color." - (interactive) - (color-theme-blue-gnus) - (let ((color-theme-is-cumulative t)) - (color-theme-install - '(color-theme-classic - ((foreground-color . "AntiqueWhite") - (background-color . "darkslategrey") - (mouse-color . "Grey") - (cursor-color . "Red") - (border-color . "black") - (background-mode . dark)) - ((apropos-keybinding-face . underline) - (apropos-label-face . italic) - (apropos-match-face . secondary-selection) - (apropos-property-face . bold-italic) - (apropos-symbol-face . info-xref) - (goto-address-mail-face . message-header-to-face) - (goto-address-mail-mouse-face . secondary-selection) - (goto-address-url-face . info-xref) - (goto-address-url-mouse-face . highlight) - (list-matching-lines-face . bold) - (view-highlight-face . highlight)) - (default ((t (nil)))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t :foreground "beige")))) - (calendar-today-face ((t (:underline t)))) - (cperl-array-face ((t (:foreground "Yellow")))) - (cperl-hash-face ((t (:foreground "White")))) - (cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) - (custom-button-face ((t (:underline t :foreground "MediumSlateBlue")))) - (custom-documentation-face ((t (:foreground "Grey")))) - (custom-group-tag-face ((t (:foreground "MediumAquamarine")))) - (custom-state-face ((t (:foreground "LightSalmon")))) - (custom-variable-tag-face ((t (:foreground "Aquamarine")))) - (diary-face ((t (:foreground "IndianRed")))) - (erc-action-face ((t (:bold t)))) - (erc-bold-face ((t (:bold t)))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (:foreground "LightSalmon")))) - (erc-error-face ((t (:bold t :foreground "IndianRed")))) - (erc-input-face ((t (:foreground "Beige")))) - (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey")))) - (erc-notice-face ((t (:foreground "MediumAquamarine")))) - (erc-pal-face ((t (:foreground "pale green")))) - (erc-prompt-face ((t (:foreground "MediumAquamarine")))) - (erc-underline-face ((t (:underline t)))) - (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) - (eshell-ls-backup-face ((t (:foreground "Grey")))) - (eshell-ls-clutter-face ((t (:foreground "DimGray")))) - (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue")))) - (eshell-ls-executable-face ((t (:foreground "Coral")))) - (eshell-ls-missing-face ((t (:foreground "black")))) - (eshell-ls-picture-face ((t (:foreground "Violet")))) - (eshell-ls-product-face ((t (:foreground "LightSalmon")))) - (eshell-ls-readonly-face ((t (:foreground "Aquamarine")))) - (eshell-ls-special-face ((t (:foreground "Gold")))) - (eshell-ls-symlink-face ((t (:foreground "White")))) - (eshell-ls-unreadable-face ((t (:foreground "DimGray")))) - (eshell-prompt-face ((t (:foreground "MediumAquamarine")))) - (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen")))) - (font-lock-comment-face ((t (:foreground "tomato3")))) - (font-lock-constant-face ((t (:foreground "Aquamarine")))) - (font-lock-doc-string-face ((t (:foreground "LightSalmon3")))) - (font-lock-function-name-face ((t (:foreground "SteelBlue1")))) - (font-lock-keyword-face ((t (:foreground "cyan1")))) - (font-lock-reference-face ((t (:foreground "LightSalmon2")))) - (font-lock-string-face ((t (:foreground "LightSalmon3")))) - (font-lock-type-face ((t (:foreground "PaleGreen3")))) - (font-lock-variable-name-face ((t (:foreground "khaki1")))) - (font-lock-warning-face ((t (:bold t :foreground "IndianRed")))) - (font-lock-preprocessor-face ((t (:foreground "SkyBlue3")))) - (widget-field-face ((t (:background "DarkCyan")))) - (custom-group-tag-face ((t(:foreground "brown" :underline t)))) - (custom-state-face ((t (:foreground "khaki")))) - (highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) - (highline-face ((t (:background "SeaGreen")))) - (holiday-face ((t (:background "DimGray")))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:underline t :bold t :foreground "DodgerBlue1")))) - (info-xref ((t (:underline t :foreground "DodgerBlue1")))) - (isearch ((t (:foreground "red" :background "CornflowerBlue")))) - (italic ((t (:italic t)))) - (modeline ((t (:background "LightSlateGray" :foreground "AntiqueWhite")))) - (modeline-buffer-id ((t (:background "LightSlateGray" :foreground "DarkBlue")))) - (modeline-mousable ((t (:background "LightSlateGray" :foreground "firebrick")))) - (modeline-mousable-minor-mode ((t (:background "LightSlateGray" :foreground "wheat")))) - (region ((t (:background "dark cyan" :foreground "cyan")))) - (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) - (show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue")))) - (show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) - (underline ((t (:underline t)))) - (widget-field-face ((t (:foreground "LightBlue")))) - (widget-inactive-face ((t (:foreground "DimGray")))) - (widget-single-line-field-face ((t (:foreground "LightBlue")))) - (woman-bold-face ((t (:bold t)))) - (woman-italic-face ((t (:foreground "beige")))) - (woman-unknown-face ((t (:foreground "LightSalmon")))))))) - -(defun color-theme-scintilla () - "Color theme by Gordon Messmer, created 2001-02-07. -Based on the Scintilla editor. - -If you want to modify the font as well, you should customize variable -`color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\". -The default setting will prevent color themes from installing specific -fonts." - (interactive) - (color-theme-install - ;; The light editor style doesn't seem to look right with - ;; the same font that works in the dark editor style. - ;; Dark letters on light background just isn't as visible. - '(color-theme-scintilla - ((font . "-monotype-courier new-bold-r-normal-*-*-140-*-*-m-*-iso8859-1") - (width . 95) - (height . 40) - (background-color . "white") - (foreground-color . "black") - (background-mode . light) - (mouse-color . "grey15") - (cursor-color . "grey15")) - (default ((t nil))) - (font-lock-comment-face ((t (:italic t :foreground "ForestGreen")))) - (font-lock-string-face ((t (:foreground "DarkMagenta")))) - (font-lock-keyword-face ((t (:foreground "NavyBlue")))) - (font-lock-warning-face ((t (:bold t :foreground "VioletRed")))) - (font-lock-constant-face ((t (:foreground "Blue")))) - (font-lock-type-face ((t (:foreground "NavyBlue")))) - (font-lock-variable-name-face ((t (:foreground "DarkCyan")))) - (font-lock-function-name-face ((t (:foreground "DarkCyan")))) - (font-lock-builtin-face ((t (:foreground "NavyBlue")))) - (highline-face ((t (:background "Grey95")))) - (show-paren-match-face ((t (:background "Grey80")))) - (region ((t (:background "Grey80")))) - (highlight ((t (:foreground "ForestGreen")))) - (secondary-selection ((t (:background "NavyBlue" :foreground "white")))) - (widget-field-face ((t (:background "NavyBlue")))) - (widget-single-line-field-face ((t (:background "RoyalBlue")))))) ) - -(defun color-theme-gtk-ide () - "Color theme by Gordon Messmer, created 2001-02-07. -Inspired by a GTK IDE whose name I've forgotten. - -If you want to modify the font as well, you should customize variable -`color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\". -The default setting will prevent color themes from installing specific -fonts." - ;; The light editor style doesn't seem to look right with - ;; the same font that works in the dark editor style. - ;; Dark letters on light background just isn't as visible. - (interactive) - (color-theme-install - '(color-theme-gtk-ide - ((font . "-monotype-courier new-medium-r-normal-*-*-120-*-*-m-*-iso8859-15") - (width . 95) - (height . 45) - (background-color . "white") - (foreground-color . "black") - (background-mode . light) - (mouse-color . "grey15") - (cursor-color . "grey15")) - (default ((t nil))) - (font-lock-comment-face ((t (:italic t :foreground "grey55")))) - (font-lock-string-face ((t (:foreground "DarkRed")))) - (font-lock-keyword-face ((t (:foreground "DarkBlue")))) - (font-lock-warning-face ((t (:bold t :foreground "VioletRed")))) - (font-lock-constant-face ((t (:foreground "OliveDrab")))) - (font-lock-type-face ((t (:foreground "SteelBlue4")))) - (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) - (font-lock-function-name-face ((t (:foreground "SlateBlue")))) - (font-lock-builtin-face ((t (:foreground "ForestGreen")))) - (highline-face ((t (:background "grey95")))) - (show-paren-match-face ((t (:background "grey80")))) - (region ((t (:background "grey80")))) - (highlight ((t (:background "LightSkyBlue")))) - (secondary-selection ((t (:background "grey55")))) - (widget-field-face ((t (:background "navy")))) - (widget-single-line-field-face ((t (:background "royalblue")))))) ) - -(defun color-theme-midnight () - "Color theme by Gordon Messmer, created 2001-02-07. -A color theme inspired by a certain IDE for Windows. It's all from memory, -since I only used that software in college. - -If you want to modify the font as well, you should customize variable -`color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\". -The default setting will prevent color themes from installing specific -fonts." - (interactive) - (color-theme-install - '(color-theme-midnight - ((font . "fixed") - (width . 130) - (height . 50) - (background-color . "black") - (foreground-color . "grey85") - (background-mode . dark) - (mouse-color . "grey85") - (cursor-color . "grey85")) - (default ((t (nil)))) - (font-lock-comment-face ((t (:italic t :foreground "grey60")))) - (font-lock-string-face ((t (:foreground "Magenta")))) - (font-lock-keyword-face ((t (:foreground "Cyan")))) - (font-lock-warning-face ((t (:bold t :foreground "Pink")))) - (font-lock-constant-face ((t (:foreground "OliveDrab")))) - (font-lock-type-face ((t (:foreground "DarkCyan")))) - (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) - (font-lock-function-name-face ((t (:foreground "SlateBlue")))) - (font-lock-builtin-face ((t (:foreground "SkyBlue")))) - (highline-face ((t (:background "grey12")))) - (setnu-line-number-face ((t (:background "Grey15" :foreground "White" :bold t)))) - (show-paren-match-face ((t (:background "grey30")))) - (region ((t (:background "grey15")))) - (highlight ((t (:background "blue")))) - (secondary-selection ((t (:background "navy")))) - (widget-field-face ((t (:background "navy")))) - (widget-single-line-field-face ((t (:background "royalblue")))))) ) - -(defun color-theme-jedit-grey () - "Color theme by Gordon Messmer, created 2001-02-07. -Based on a screenshot of jedit. - -If you want to modify the font as well, you should customize variable -`color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\". -The default setting will prevent color themes from installing specific -fonts." - (interactive) - (color-theme-install - '(color-theme-jedit-grey - ((font . "fixed") - (width . 130) - (height . 50) - (background-color . "grey77") - (foreground-color . "black") - (background-mode . light) - (mouse-color . "black") - (cursor-color . "black")) - (default ((t (nil)))) - (font-lock-comment-face ((t (:italic t :foreground "RoyalBlue4")))) - (font-lock-string-face ((t (:foreground "Gold4")))) - (font-lock-keyword-face ((t (:bold t :foreground "DarkRed")))) - (font-lock-warning-face ((t (:bold t :foreground "Pink")))) - (font-lock-constant-face ((t (:foreground "DarkCyan")))) - (font-lock-type-face ((t (:foreground "DarkRed")))) - (font-lock-function-name-face ((t (:foreground "Green4")))) - (font-lock-builtin-face ((t (:bold t :foreground "DarkRed")))) - (highline-face ((t (:background "grey84")))) - (setnu-line-number-face ((t (:background "White" :foreground "MediumPurple3" :italic t)))) - (show-paren-match-face ((t (:background "grey60")))) - (region ((t (:background "grey70")))) - (highlight ((t (:background "grey90")))) - (secondary-selection ((t (:background "white")))) - (widget-field-face ((t (:background "royalblue")))) - (widget-single-line-field-face ((t (:background "royalblue")))))) ) - -(defun color-theme-snow () - "Color theme by Nicolas Rist, created 2001-03-08. -Black on gainsboro. In Emacs, the text background is a shade darker -than the frame background: Gainsboro instead of snow. This makes the -structure of the text clearer without being too agressive on the eyes. -On XEmacs, this doesn't really work as the frame and the default face -allways use the same foreground and background colors. -The color theme includes gnus, message, font-lock, sgml, and speedbar." - (interactive) - (color-theme-install - '(color-theme-snow - ((background-color . "snow2") - (background-mode . light) - (border-color . "black") - (cursor-color . "RoyalBlue2") - (foreground-color . "black") - (mouse-color . "black")) - ((gnus-mouse-face . highlight) - (list-matching-lines-face . bold) - (view-highlight-face . highlight)) - (default ((t (:background "gainsboro" :foreground "dark slate gray")))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (calendar-today-face ((t (:underline t)))) - (custom-button-face ((t (:background "gainsboro" :foreground "dark cyan")))) - (custom-documentation-face ((t (:background "gainsboro")))) - (diary-face ((t (:foreground "red")))) - (fg:black ((t (:foreground "black")))) - (font-lock-builtin-face ((t (:background "gainsboro" :foreground "medium orchid")))) - (font-lock-comment-face ((t (:background "gainsboro" :foreground "SteelBlue3")))) - (font-lock-constant-face ((t (:background "gainsboro" :foreground "orange3")))) - (font-lock-function-name-face ((t (:background "gainsboro" :foreground "blue3")))) - (font-lock-keyword-face ((t (:background "gainsboro" :foreground "red3")))) - (font-lock-string-face ((t (:background "gainsboro" :foreground "SpringGreen3")))) - (font-lock-type-face ((t (:background "gainsboro" :foreground "dark cyan")))) - (font-lock-variable-name-face ((t (:background "gainsboro" :foreground "purple2")))) - (font-lock-warning-face ((t (:bold t :background "gainsboro" :foreground "red")))) - (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) - (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) - (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) - (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) - (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) - (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) - (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) - (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-splash-face ((t (:foreground "ForestGreen")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) - (gnus-summary-high-unread-face ((t (:bold t)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) - (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) - (gnus-summary-low-unread-face ((t (:italic t)))) - (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (gui-button-face ((t (:foreground "light grey")))) - (highlight ((t (:background "LightSteelBlue1")))) - (holiday-face ((t (:background "pink")))) - (ibuffer-marked-face ((t (:foreground "red")))) - (italic ((t (:italic t)))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:foreground "MidnightBlue")))) - (message-header-name-face ((t (:foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-subject-face ((t (:bold t :foreground "navy blue")))) - (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-separator-face ((t (:foreground "brown")))) - (modeline ((t (:background "dark slate gray" :foreground "gainsboro")))) - (modeline-buffer-id ((t (:background "dark slate gray" :foreground "gainsboro")))) - (modeline-mousable ((t (:background "dark slate gray" :foreground "gainsboro")))) - (modeline-mousable-minor-mode ((t (:background "dark slate gray" :foreground "gainsboro")))) - (region ((t (:background "lavender")))) - (secondary-selection ((t (:background "paleturquoise")))) - (sgml-comment-face ((t (:foreground "dark green")))) - (sgml-doctype-face ((t (:foreground "maroon")))) - (sgml-end-tag-face ((t (:foreground "blue2")))) - (sgml-entity-face ((t (:foreground "red2")))) - (sgml-ignored-face ((t (:background "gray90" :foreground "maroon")))) - (sgml-ms-end-face ((t (:foreground "maroon")))) - (sgml-ms-start-face ((t (:foreground "maroon")))) - (sgml-pi-face ((t (:foreground "maroon")))) - (sgml-sgml-face ((t (:foreground "maroon")))) - (sgml-short-ref-face ((t (:foreground "goldenrod")))) - (sgml-start-tag-face ((t (:foreground "blue2")))) - (show-paren-match-face ((t (:background "SlateGray1")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (speedbar-button-face ((t (:foreground "green4")))) - (speedbar-directory-face ((t (:foreground "blue4")))) - (speedbar-file-face ((t (:foreground "cyan4")))) - (speedbar-highlight-face ((t (:background "dark turquoise" :foreground "white")))) - (speedbar-selected-face ((t (:underline t :foreground "red")))) - (speedbar-tag-face ((t (:foreground "brown")))) - (underline ((t (:underline t))))))) - -(defun color-theme-montz () - "Color theme by Brady Montz, created 2001-03-08. -Black on Gray. -Includes dired, bbdb, font-lock, gnus, message, viper, and widget." - (interactive) - (color-theme-install - '(color-theme-montz - ((background-color . "gray80") - (background-mode . light) - (background-toolbar-color . "#cccccccccccc") - (border-color . "#000000000000") - (bottom-toolbar-shadow-color . "#7a7a7a7a7a7a") - (cursor-color . "Red3") - (foreground-color . "black") - (top-toolbar-shadow-color . "#f5f5f5f5f5f5") - (viper-saved-cursor-color-in-replace-mode . "Red3")) - ((gnus-mouse-face . highlight) - (paren-match-face . paren-face-match) - (paren-mismatch-face . paren-face-mismatch) - (paren-no-match-face . paren-face-no-match) - (smiley-mouse-face . highlight)) - (default ((t (nil)))) - (bbdb-company ((t (:italic t)))) - (bbdb-field-name ((t (:bold t)))) - (bbdb-field-value ((t (nil)))) - (bbdb-name ((t (:underline t)))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (border-glyph ((t (nil)))) - (dired-face-boring ((t (:foreground "Gray65")))) - (dired-face-directory ((t (:bold t)))) - (dired-face-executable ((t (:foreground "SeaGreen")))) - (dired-face-flagged ((t (:background "LightSlateGray")))) - (dired-face-marked ((t (:background "PaleVioletRed")))) - (dired-face-permissions ((t (:background "grey75" :foreground "black")))) - (dired-face-setuid ((t (:foreground "Red")))) - (dired-face-socket ((t (:foreground "magenta")))) - (dired-face-symlink ((t (:foreground "cyan")))) - (display-time-mail-balloon-enhance-face ((t (:background "orange")))) - (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) - (display-time-time-balloon-face ((t (:foreground "red")))) - (font-lock-builtin-face ((t (:foreground "red3")))) - (font-lock-comment-face ((t (:foreground "blue")))) - (font-lock-constant-face ((t (:foreground "red3")))) - (font-lock-doc-string-face ((t (:foreground "mediumvioletred")))) - (font-lock-function-name-face ((t (:foreground "firebrick")))) - (font-lock-keyword-face ((t (:bold t :foreground "black")))) - (font-lock-preprocessor-face ((t (:foreground "blue3")))) - (font-lock-reference-face ((t (:foreground "red3")))) - (font-lock-string-face ((t (:foreground "mediumvioletred")))) - (font-lock-type-face ((t (:foreground "darkgreen")))) - (font-lock-variable-name-face ((t (:foreground "black")))) - (font-lock-warning-face ((t (:bold t :foreground "Red")))) - (gnus-cite-attribution-face ((t (:italic t)))) - (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "firebrick")))) - (gnus-cite-face-3 ((t (:foreground "dark green")))) - (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) - (gnus-cite-face-5 ((t (:foreground "dark khaki")))) - (gnus-cite-face-6 ((t (:foreground "dark violet")))) - (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-bold-italic ((t (:bold t)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) - (gnus-emphasis-underline-bold-italic ((t (:underline t :bold t)))) - (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) - (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) - (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) - (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) - (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) - (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) - (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) - (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) - (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) - (gnus-header-from-face ((t (:foreground "red3")))) - (gnus-header-name-face ((t (:foreground "maroon")))) - (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) - (gnus-header-subject-face ((t (:foreground "red4")))) - (gnus-picons-face ((t (:background "white" :foreground "black")))) - (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) - (gnus-signature-face ((t (:italic t)))) - (gnus-splash-face ((t (:foreground "Brown")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) - (gnus-summary-high-unread-face ((t (:bold t)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) - (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) - (gnus-summary-low-unread-face ((t (:italic t)))) - (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (gnus-x-face ((t (:background "white" :foreground "black")))) - (green ((t (:foreground "green")))) - (gui-button-face ((t (:background "grey75" :foreground "black")))) - (gui-element ((t (nil)))) - (highlight ((t (:background "darkseagreen2")))) - (info-node ((t (:bold t)))) - (info-xref ((t (:bold t)))) - (isearch ((t (:background "paleturquoise")))) - (italic ((t (:italic t)))) - (left-margin ((t (nil)))) - (list-mode-item-selected ((t (:background "gray68" :foreground "black")))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:foreground "MidnightBlue")))) - (message-header-name-face ((t (:foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:bold t :foreground "blue4")))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-subject-face ((t (:bold t :foreground "navy blue")))) - (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "brown")))) - (modeline ((t (nil)))) - (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4")))) - (modeline-mousable ((t (:background "Gray80" :foreground "firebrick")))) - (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4")))) - (paren-face-match ((t (:background "turquoise")))) - (paren-face-mismatch ((t (:background "purple" :foreground "white")))) - (paren-face-no-match ((t (:background "yellow" :foreground "black")))) - (pointer ((t (nil)))) - (primary-selection ((t (:background "gray65")))) - (red ((t (:foreground "red")))) - (right-margin ((t (nil)))) - (secondary-selection ((t (:background "paleturquoise")))) - (text-cursor ((t (:background "Red3" :foreground "gray80")))) - (toolbar ((t (nil)))) - (underline ((t (:underline t)))) - (vertical-divider ((t (nil)))) - (viper-minibuffer-emacs-face ((t (:background "gray80" :foreground "black")))) - (viper-minibuffer-insert-face ((t (:background "gray80" :foreground "black")))) - (viper-minibuffer-vi-face ((t (:background "gray80" :foreground "black")))) - (viper-replace-overlay-face ((t (:background "black" :foreground "white")))) - (viper-search-face ((t (:background "black" :foreground "white")))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (yellow ((t (:foreground "yellow")))) - (zmacs-region ((t (:background "black" :foreground "white"))))))) - -(defun color-theme-aalto-light () - "Color theme by Jari Aalto, created 2001-03-08. -Black on light yellow. -Used for Win32 on a Nokia446Xpro monitor. -Includes cvs, font-lock, gnus, message, sgml, widget" - (interactive) - (color-theme-install - '(color-theme-aalto-light - ((background-color . "#FFFFE0") - (background-mode . light) - (border-color . "black") - (cursor-color . "black") - (foreground-color . "black") - (mouse-color . "LawnGreen")) - ((gnus-mouse-face . highlight) - (list-matching-lines-face . bold) - (tinyreplace-:face . highlight) - (view-highlight-face . highlight)) - (default ((t (nil)))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (calendar-today-face ((t (:underline t)))) - (cvs-filename-face ((t (:foreground "blue4")))) - (cvs-handled-face ((t (:foreground "pink")))) - (cvs-header-face ((t (:bold t :foreground "blue4")))) - (cvs-marked-face ((t (:bold t :foreground "green3")))) - (cvs-msg-face ((t (:italic t)))) - (cvs-need-action-face ((t (:foreground "orange")))) - (cvs-unknown-face ((t (:foreground "red")))) - (diary-face ((t (:foreground "red")))) - (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) - (eshell-test-ok-face ((t (:bold t :foreground "Green")))) - (font-lock-builtin-face ((t (:foreground "Orchid")))) - (font-lock-comment-face ((t (:foreground "Firebrick")))) - (font-lock-constant-face ((t (:foreground "CadetBlue")))) - (font-lock-function-name-face ((t (:foreground "Blue")))) - (font-lock-keyword-face ((t (:foreground "Purple")))) - (font-lock-string-face ((t (:foreground "RosyBrown")))) - (font-lock-type-face ((t (:foreground "ForestGreen")))) - (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) - (font-lock-warning-face ((t (:bold t :foreground "Red")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) - (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) - (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) - (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) - (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) - (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) - (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) - (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) - (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) - (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) - (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) - (gnus-header-from-face ((t (:foreground "red3")))) - (gnus-header-name-face ((t (:foreground "maroon")))) - (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) - (gnus-header-subject-face ((t (:foreground "red4")))) - (gnus-signature-face ((t (:italic t)))) - (gnus-splash-face ((t (:foreground "Brown")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) - (gnus-summary-high-unread-face ((t (:bold t)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) - (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) - (gnus-summary-low-unread-face ((t (:italic t)))) - (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (highlight ((t (:background "darkseagreen2")))) - (holiday-face ((t (:background "pink")))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:italic t :bold t)))) - (info-xref ((t (:bold t)))) - (italic ((t (:italic t)))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:foreground "MidnightBlue")))) - (message-header-name-face ((t (:foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-subject-face ((t (:bold t :foreground "navy blue")))) - (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "brown")))) - (modeline ((t (:background "black" :foreground "white")))) - (modeline-buffer-id ((t (:background "black" :foreground "white")))) - (modeline-mousable ((t (:background "black" :foreground "white")))) - (modeline-mousable-minor-mode ((t (:background "black" :foreground "white")))) - (region ((t (:background "gray")))) - (secondary-selection ((t (:background "paleturquoise")))) - (sgml-comment-face ((t (:foreground "dark turquoise")))) - (sgml-doctype-face ((t (:foreground "red")))) - (sgml-end-tag-face ((t (:foreground "blue")))) - (sgml-entity-face ((t (:foreground "magenta")))) - (sgml-ignored-face ((t (:background "gray60" :foreground "gray40")))) - (sgml-ms-end-face ((t (:foreground "green")))) - (sgml-ms-start-face ((t (:foreground "green")))) - (sgml-pi-face ((t (:foreground "lime green")))) - (sgml-sgml-face ((t (:foreground "brown")))) - (sgml-short-ref-face ((t (:foreground "deep sky blue")))) - (sgml-start-tag-face ((t (:foreground "blue")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (underline ((t (:underline t)))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "gray85"))))))) - -(defun color-theme-aalto-dark () - "Color theme by Jari Aalto, created 2001-03-08. -White on Deep Sky Blue 3. -Used for Unix Exceed on a Nokia446Xpro monitor. -Includes font-lock, info, and message." - (interactive) - (color-theme-install - '(color-theme-aalto-dark - ((background-color . "DeepSkyBlue3") - (background-mode . dark) - (border-color . "black") - (cursor-color . "yellow") - (foreground-color . "white") - (mouse-color . "black")) - ((ispell-highlight-face . highlight) - (list-matching-lines-face . bold) - (tinyreplace-:face . highlight) - (view-highlight-face . highlight)) - (default ((t (nil)))) - (bold ((t (:bold t :background "blue3" :foreground "white")))) - (bold-italic ((t (:italic t :bold t :foreground "blue3")))) - (calendar-today-face ((t (:underline t)))) - (diary-face ((t (:foreground "red")))) - (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) - (font-lock-comment-face ((t (:foreground "OrangeRed")))) - (font-lock-constant-face ((t (:foreground "Aquamarine")))) - (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) - (font-lock-keyword-face ((t (:foreground "Cyan")))) - (font-lock-string-face ((t (:foreground "LightSalmon")))) - (font-lock-type-face ((t (:foreground "PaleGreen")))) - (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) - (font-lock-warning-face ((t (:bold t :foreground "Pink")))) - (highlight ((t (:background "blue3" :foreground "white")))) - (holiday-face ((t (:background "pink")))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:italic t :bold t)))) - (info-xref ((t (:bold t)))) - (italic ((t (:italic t :background "gray")))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:bold t :foreground "green4")))) - (message-header-name-face ((t (:foreground "DarkGreen")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) - (message-header-other-face ((t (:foreground "#b00000")))) - (message-header-subject-face ((t (:foreground "green3")))) - (message-header-to-face ((t (:bold t :foreground "green2")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "blue3")))) - (modeline ((t (:background "white" :foreground "DeepSkyBlue3")))) - (modeline-buffer-id ((t (:background "white" :foreground "DeepSkyBlue3")))) - (modeline-mousable ((t (:background "white" :foreground "DeepSkyBlue3")))) - (modeline-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3")))) - (region ((t (:background "gray")))) - (secondary-selection ((t (:background "darkslateblue")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (underline ((t (:underline t))))))) - -(defun color-theme-blippblopp () - "Color theme by Thomas Sicheritz-Ponten, created 2001-03-12. -Used by researchers at Uppsala University and the Center for Biological -Sequence Analysis at the Technical University of Denmark. (As some of my -swedish friends couldn't pronounce Sicheritz - they choose to transform -it to something more \"swedish\": Blippblopp :-) -Includes font-lock and message." - (interactive) - (color-theme-install - '(color-theme-blippblopp - ((background-color . "white") - (background-mode . light) - (background-toolbar-color . "#cf3ccf3ccf3c") - (border-color . "#000000000000") - (bottom-toolbar-shadow-color . "#79e77df779e7") - (cursor-color . "Red3") - (foreground-color . "black") - (mouse-color . "black") - (top-toolbar-shadow-color . "#fffffbeeffff") - (viper-saved-cursor-color-in-replace-mode . "Red3")) - ((ispell-highlight-face . highlight)) - (default ((t (nil)))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (excerpt ((t (:italic t)))) - (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) - (fg:black ((t (:foreground "black")))) - (fixed ((t (:bold t)))) - (font-lock-builtin-face ((t (:foreground "red3")))) - (font-lock-comment-face ((t (:foreground "orange")))) - (font-lock-constant-face ((t (:foreground "red3")))) - (font-lock-doc-string-face ((t (:foreground "darkgreen")))) - (font-lock-exit-face ((t (:foreground "green")))) - (font-lock-function-name-face ((t (:bold t :foreground "red")))) - (font-lock-keyword-face ((t (:bold t :foreground "steelblue")))) - (font-lock-preprocessor-face ((t (:foreground "blue3")))) - (font-lock-reference-face ((t (:foreground "red3")))) - (font-lock-string-face ((t (:foreground "green4")))) - (font-lock-type-face ((t (:bold t :foreground "blue")))) - (font-lock-variable-name-face ((t (:foreground "black")))) - (font-lock-warning-face ((t (:bold t :foreground "Red")))) - (green ((t (:foreground "green")))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:foreground "MidnightBlue")))) - (message-header-name-face ((t (:foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-subject-face ((t (:bold t :foreground "navy blue")))) - (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "brown")))) - (modeline ((t (:background "dimgray" :foreground "lemonchiffon")))) - (modeline-buffer-id ((t (:background "dimgray" :foreground "green3")))) - (modeline-mousable ((t (:background "dimgray" :foreground "orange")))) - (modeline-mousable-minor-mode ((t (:background "dimgray" :foreground "blue4")))) - (primary-selection ((t (:background "gray65")))) - (red ((t (:foreground "red")))) - (region ((t (:background "gray65")))) - (secondary-selection ((t (:background "paleturquoise")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (text-cursor ((t (:background "Red3" :foreground "white")))) - (toolbar ((t (:background "Gray80")))) - (underline ((t (:underline t)))) - (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) - (vertical-divider ((t (:background "Gray80")))) - (xref-keyword-face ((t (:foreground "blue")))) - (xref-list-pilot-face ((t (:foreground "navy")))) - (xref-list-symbol-face ((t (:foreground "navy")))) - (yellow ((t (:foreground "yellow")))) - (zmacs-region ((t (:background "gray65"))))))) - -(defun color-theme-hober (&optional preview) - "Does all sorts of crazy stuff. -Originally based on color-theme-standard, so I probably still have some -setting that I haven't changed. I also liberally copied settings from -the other themes in this package. The end result isn't much like the -other ones; I hope you like it." - (interactive) - (color-theme-install - '(color-theme-hober - ((foreground-color . "#c0c0c0") - (background-color . "black") - (mouse-color . "black") - (cursor-color . "medium turquoise") - (border-color . "black") - (background-mode . dark)) - (default ((t (nil)))) - (modeline ((t (:foreground "white" :background "darkslateblue")))) - (modeline-buffer-id ((t (:foreground "white" :background "darkslateblue")))) - (modeline-mousable ((t (:foreground "white" :background "darkslateblue")))) - (modeline-mousable-minor-mode ((t (:foreground "white" :background "darkslateblue")))) - (highlight ((t (:foreground "black" :background "#c0c0c0")))) - (bold ((t (:bold t)))) - (italic ((t (:italic t)))) - (bold-italic ((t (:bold t :italic t)))) - (region ((t (:foreground "white" :background "darkslateblue")))) - (zmacs-region ((t (:foreground "white" :background "darkslateblue")))) - (secondary-selection ((t (:background "paleturquoise")))) - (underline ((t (:underline t)))) - (diary-face ((t (:foreground "red")))) - (calendar-today-face ((t (:underline t)))) - (holiday-face ((t (:background "pink")))) - (widget-documentation-face ((t (:foreground "dark green" :background "white")))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red" :background "black")))) - (widget-field-face ((t (:background "gray85" :foreground "black")))) - (widget-single-line-field-face ((t (:background "gray85" :foreground "black")))) - (widget-inactive-face ((t (:foreground "dim gray" :background "red")))) - (fixed ((t (:bold t)))) - (excerpt ((t (:italic t)))) - (term-default-fg ((t (nil)))) - (term-default-bg ((t (nil)))) - (term-default-fg-inv ((t (nil)))) - (term-default-bg-inv ((t (nil)))) - (term-bold ((t (:bold t)))) - (term-underline ((t (:underline t)))) - (term-invisible ((t (nil)))) - (term-invisible-inv ((t (nil)))) - (term-white ((t (:foreground "#c0c0c0")))) - (term-whitebg ((t (:background "#c0c0c0")))) - (term-black ((t (:foreground "black")))) - (term-blackbg ((t (:background "black")))) - (term-red ((t (:foreground "#ef8171")))) - (term-redbg ((t (:background "#ef8171")))) - (term-green ((t (:foreground "#e5f779")))) - (term-greenbg ((t (:background "#e5f779")))) - (term-yellow ((t (:foreground "#fff796")))) - (term-yellowbg ((t (:background "#fff796")))) - (term-blue ((t (:foreground "#4186be")))) - (term-bluebg ((t (:background "#4186be")))) - (term-magenta ((t (:foreground "#ef9ebe")))) - (term-magentabg ((t (:background "#ef9ebe")))) - (term-cyan ((t (:foreground "#71bebe")))) - (term-cyanbg ((t (:background "#71bebe")))) - (font-lock-keyword-face ((t (:foreground "#00ffff")))) - (font-lock-comment-face ((t (:foreground "Red")))) - (font-lock-string-face ((t (:foreground "#ffff00")))) - (font-lock-constant-face ((t (:foreground "#00ff00")))) - (font-lock-builtin-face ((t (:foreground "#ffaa00")))) - (font-lock-type-face ((t (:foreground "Coral")))) - (font-lock-warning-face ((t (:foreground "Red" :bold t)))) - (font-lock-function-name-face ((t (:foreground "#4186be")))) - (font-lock-variable-name-face ((t (:foreground "white" :bold t)))) - (message-header-to-face ((t (:foreground "#4186be" :bold t)))) - (message-header-cc-face ((t (:foreground "#4186be")))) - (message-header-subject-face ((t (:foreground "#4186be" :bold t)))) - (message-header-newsgroups-face ((t (:foreground "Coral" :bold t)))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-name-face ((t (:foreground "white")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-separator-face ((t (:foreground "brown")))) - (message-cited-text-face ((t (:foreground "white")))) - (gnus-header-from-face ((t (:foreground "Coral")))) - (gnus-header-subject-face ((t (:foreground "#4186be")))) - (gnus-header-newsgroups-face ((t (:foreground "#4186be" :italic t)))) - (gnus-header-name-face ((t (:foreground "white")))) - (gnus-header-content-face ((t (:foreground "#4186be" :italic t)))) - (gnus-cite-attribution-face ((t (:italic t)))) - (gnus-cite-face-list ((t (:bold nil :foreground "red")))) - (gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t)))) - (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) - (gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t)))) - (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) - (gnus-group-news-3-face ((t (:bold t)))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) - (gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t)))) - (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) - (gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t)))) - (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) - (gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t)))) - (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) - (gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t)))) - (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) - (gnus-summary-selected-face ((t (:underline t)))) - (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black")))) - (gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t)))) - (gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t)))) - (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) - (gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t)))) - (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t)))) - (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-high-unread-face ((t (:bold t)))) - (gnus-summary-low-unread-face ((t (:italic t)))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t)))) - (gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t)))) - (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) - (gnus-splash-face ((t (:foreground "ForestGreen")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-italic ((t (:italic t)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:bold t :underline t)))) - (gnus-emphasis-underline-italic ((t (:italic t :underline t)))) - (gnus-emphasis-bold-italic ((t (:bold t :italic t)))) - (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t)))) - (gnus-signature-face ((t (:foreground "white")))) - (gnus-cite-face-1 ((t (:foreground "Khaki")))) - (gnus-cite-face-2 ((t (:foreground "Coral")))) - (gnus-cite-face-3 ((t (:foreground "#4186be")))) - (gnus-cite-face-4 ((t (:foreground "yellow green")))) - (gnus-cite-face-5 ((t (:foreground "IndianRed")))) - (highlight-changes-face ((t (:foreground "red")))) - (highlight-changes-delete-face ((t (:foreground "red" :underline t)))) - (show-paren-match-face ((t (:foreground "white" :background "purple")))) - (show-paren-mismatch-face ((t (:foreground "white" :background "red")))) - (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) - (cperl-array-face ((t (:foreground "Blue" :bold t :background "lightyellow2")))) - (cperl-hash-face ((t (:foreground "Red" :bold t :italic t :background "lightyellow2")))) - (makefile-space-face ((t (:background "hotpink")))) - (sgml-start-tag-face ((t (:foreground "mediumspringgreen")))) - (sgml-ignored-face ((t (:foreground "gray20" :background "gray60")))) - (sgml-doctype-face ((t (:foreground "orange")))) - (sgml-sgml-face ((t (:foreground "yellow")))) - (sgml-end-tag-face ((t (:foreground "greenyellow")))) - (sgml-entity-face ((t (:foreground "gold")))) - (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t)))) - (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t))))))) - -(defun color-theme-bharadwaj () - "Color theme by Girish Bharadwaj, created 2001-03-28. -Black on gainsboro. Includes BBDB, custom, cperl, cvs, dired, ediff, -erc, eshell, font-latex, font-lock, gnus, info, message, paren, sgml, -shell, speedbar, term, vhdl, viper, widget, woman, xref. Wow!" - (interactive) - (color-theme-install - '(color-theme-bharadwaj - ((background-color . "gainsboro") - (background-mode . light) - (background-toolbar-color . "#cf3ccf3ccf3c") - (border-color . "black") - (bottom-toolbar-shadow-color . "#79e77df779e7") - (cursor-color . "grey15") - (foreground-color . "black") - (mouse-color . "grey15") - (top-toolbar-shadow-color . "#fffffbeeffff") - (viper-saved-cursor-color-in-replace-mode . "Red3")) - ((gnus-mouse-face . highlight) - (smiley-mouse-face . highlight)) - (default ((t (nil)))) - (bbdb-company ((t (nil)))) - (bbdb-field-name ((t (:bold t)))) - (bbdb-field-value ((t (nil)))) - (bbdb-name ((t (:underline t)))) - (blank-space-face ((t (nil)))) - (blank-tab-face ((t (nil)))) - (blue ((t (nil)))) - (bold ((t (:bold t)))) - (bold-italic ((t (:bold t)))) - (border-glyph ((t (nil)))) - (calendar-today-face ((t (:underline t)))) - (comint-input-face ((t (:foreground "deepskyblue")))) - (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) - (cperl-hash-face ((t (:bold t :background "lightyellow2" :foreground "Red")))) - (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) - (custom-button-face ((t (:bold t)))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:underline t :bold t :foreground "blue")))) - (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "dark green")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue")))) - (cvs-filename-face ((t (:foreground "blue4")))) - (cvs-handled-face ((t (:foreground "pink")))) - (cvs-header-face ((t (:bold t :foreground "blue4")))) - (cvs-marked-face ((t (:bold t :foreground "green3")))) - (cvs-msg-face ((t (nil)))) - (cvs-need-action-face ((t (:foreground "orange")))) - (cvs-unknown-face ((t (:foreground "red")))) - (diary-face ((t (:bold t :foreground "red")))) - (dired-face-boring ((t (:foreground "Gray65")))) - (dired-face-directory ((t (:bold t :foreground "forestgreen")))) - (dired-face-executable ((t (:foreground "indianred")))) - (dired-face-flagged ((t (:background "SlateGray")))) - (dired-face-marked ((t (:background "darkblue" :foreground "deepskyblue")))) - (dired-face-permissions ((t (nil)))) - (dired-face-setuid ((t (:foreground "Red")))) - (dired-face-socket ((t (:foreground "magenta")))) - (dired-face-symlink ((t (:foreground "grey95")))) - (display-time-mail-balloon-enhance-face ((t (:background "orange")))) - (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) - (display-time-time-balloon-face ((t (:foreground "red")))) - (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) - (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) - (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) - (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) - (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) - (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) - (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) - (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) - (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) - (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) - (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) - (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) - (erc-action-face ((t (:bold t)))) - (erc-bold-face ((t (:bold t)))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (nil)))) - (erc-error-face ((t (:bold t)))) - (erc-input-face ((t (nil)))) - (erc-inverse-face ((t (nil)))) - (erc-notice-face ((t (nil)))) - (erc-pal-face ((t (nil)))) - (erc-prompt-face ((t (nil)))) - (erc-underline-face ((t (nil)))) - (eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) - (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) - (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) - (eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) - (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) - (eshell-ls-missing-face ((t (:bold t :foreground "Red")))) - (eshell-ls-picture-face ((t (nil)))) - (eshell-ls-product-face ((t (:foreground "OrangeRed")))) - (eshell-ls-readonly-face ((t (:foreground "Brown")))) - (eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) - (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan")))) - (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) - (eshell-prompt-face ((t (:bold t :foreground "Red")))) - (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) - (eshell-test-ok-face ((t (:bold t :foreground "Green")))) - (excerpt ((t (nil)))) - (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) - (fg:black ((t (:foreground "black")))) - (fixed ((t (:bold t)))) - (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) - (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) - (font-latex-bold-face ((t (nil)))) - (font-latex-italic-face ((t (nil)))) - (font-latex-math-face ((t (nil)))) - (font-latex-sedate-face ((t (nil)))) - (font-latex-string-face ((t (nil)))) - (font-latex-warning-face ((t (nil)))) - (font-lock-builtin-face ((t (:foreground "ForestGreen")))) - (font-lock-comment-face ((t (:foreground "grey55")))) - (font-lock-constant-face ((t (:foreground "OliveDrab")))) - (font-lock-doc-string-face ((t (:bold t :foreground "blue4")))) - (font-lock-exit-face ((t (nil)))) - (font-lock-function-name-face ((t (:italic t :bold t :foreground "SlateBlue")))) - (font-lock-keyword-face ((t (:foreground "DarkBlue")))) - (font-lock-preprocessor-face ((t (:foreground "blue3")))) - (font-lock-reference-face ((t (:foreground "red3")))) - (font-lock-string-face ((t (:foreground "DarkRed")))) - (font-lock-type-face ((t (:foreground "SteelBlue4")))) - (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) - (font-lock-warning-face ((t (:bold t :foreground "VioletRed")))) - (fringe ((t (:background "grey95")))) - (gnus-cite-attribution-face ((t (:bold t)))) - (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "firebrick")))) - (gnus-cite-face-3 ((t (:foreground "dark green")))) - (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) - (gnus-cite-face-5 ((t (:foreground "dark khaki")))) - (gnus-cite-face-6 ((t (:foreground "dark violet")))) - (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-bold-italic ((t (:bold t)))) - (gnus-emphasis-highlight-words ((t (nil)))) - (gnus-emphasis-italic ((t (nil)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) - (gnus-emphasis-underline-bold-italic ((t (:underline t :bold t)))) - (gnus-emphasis-underline-italic ((t (:underline t)))) - (gnus-filterhist-face-1 ((t (nil)))) - (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) - (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) - (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) - (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) - (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) - (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) - (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) - (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-header-content-face ((t (:foreground "indianred4")))) - (gnus-header-from-face ((t (:bold t :foreground "red3")))) - (gnus-header-name-face ((t (:bold t :foreground "maroon")))) - (gnus-header-newsgroups-face ((t (:bold t :foreground "MidnightBlue")))) - (gnus-header-subject-face ((t (:bold t :foreground "red4")))) - (gnus-picons-face ((t (:background "white" :foreground "black")))) - (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) - (gnus-signature-face ((t (nil)))) - (gnus-splash ((t (nil)))) - (gnus-splash-face ((t (:foreground "ForestGreen")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) - (gnus-summary-high-unread-face ((t (:bold t)))) - (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-low-read-face ((t (:foreground "DarkGreen")))) - (gnus-summary-low-ticked-face ((t (:bold t :foreground "firebrick")))) - (gnus-summary-low-unread-face ((t (nil)))) - (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) - (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick")))) - (gnus-summary-normal-unread-face ((t (:bold t)))) - (gnus-summary-selected-face ((t (:underline t)))) - (gnus-x-face ((t (:background "white" :foreground "black")))) - (green ((t (nil)))) - (gui-button-face ((t (:background "grey75")))) - (gui-element ((t (:background "Gray80")))) - (highlight ((t (:background "LightSkyBlue")))) - (highlight-changes-delete-face ((t (:underline t :foreground "red")))) - (highlight-changes-face ((t (:foreground "red")))) - (highline-face ((t (:background "grey95")))) - (holiday-face ((t (:background "pink")))) - (html-helper-italic-face ((t (nil)))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:bold t)))) - (info-xref ((t (:bold t)))) - (isearch ((t (:background "yellow")))) - (isearch-secondary ((t (:foreground "red3")))) - (italic ((t (nil)))) - (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) - (left-margin ((t (nil)))) - (linemenu-face ((t (nil)))) - (list-mode-item-selected ((t (nil)))) - (makefile-space-face ((t (:background "hotpink")))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:bold t :foreground "MidnightBlue")))) - (message-header-name-face ((t (:foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:bold t :foreground "blue4")))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-subject-face ((t (:bold t :foreground "navy blue")))) - (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:bold t)))) - (message-separator-face ((t (:foreground "brown")))) - (modeline ((t (:background "white" :foreground "black")))) - (modeline-buffer-id ((t (:background "white" :foreground "black")))) - (modeline-mousable ((t (:background "white" :foreground "black")))) - (modeline-mousable-minor-mode ((t (:background "white" :foreground "black")))) - (paren-blink-off ((t (:foreground "gray80")))) - (paren-face-match ((t (:background "turquoise")))) - (paren-face-mismatch ((t (:background "purple" :foreground "white")))) - (paren-face-no-match ((t (:background "yellow" :foreground "black")))) - (paren-match ((t (:background "darkseagreen2")))) - (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) - (paren-mismatch-face ((t (:bold t)))) - (paren-no-match-face ((t (:bold t)))) - (pointer ((t (nil)))) - (primary-selection ((t (nil)))) - (red ((t (nil)))) - (region ((t (:background "grey80")))) - (right-margin ((t (nil)))) - (secondary-selection ((t (:background "grey55")))) - (sgml-comment-face ((t (:foreground "dark turquoise")))) - (sgml-doctype-face ((t (nil)))) - (sgml-end-tag-face ((t (nil)))) - (sgml-entity-face ((t (nil)))) - (sgml-ignored-face ((t (nil)))) - (sgml-ms-end-face ((t (:foreground "green")))) - (sgml-ms-start-face ((t (:foreground "green")))) - (sgml-pi-face ((t (:foreground "lime green")))) - (sgml-sgml-face ((t (nil)))) - (sgml-short-ref-face ((t (:foreground "deep sky blue")))) - (sgml-start-tag-face ((t (nil)))) - (shell-option-face ((t (:foreground "blue")))) - (shell-output-2-face ((t (:foreground "darkseagreen")))) - (shell-output-3-face ((t (:foreground "slategrey")))) - (shell-output-face ((t (:foreground "palegreen")))) - (shell-prompt-face ((t (:foreground "red")))) - (show-paren-match-face ((t (:background "grey80")))) - (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white")))) - (speedbar-button-face ((t (:bold t :foreground "green4")))) - (speedbar-directory-face ((t (:bold t :foreground "blue4")))) - (speedbar-file-face ((t (:bold t :foreground "cyan4")))) - (speedbar-highlight-face ((t (:background "green")))) - (speedbar-selected-face ((t (:underline t :foreground "red")))) - (speedbar-tag-face ((t (:foreground "brown")))) - (swbuff-current-buffer-face ((t (:bold t)))) - (template-message-face ((t (:bold t)))) - (term-black ((t (:foreground "black")))) - (term-blackbg ((t (:background "black")))) - (term-blue ((t (:foreground "blue")))) - (term-bluebg ((t (:background "blue")))) - (term-bold ((t (:bold t)))) - (term-cyan ((t (:foreground "cyan")))) - (term-cyanbg ((t (:background "cyan")))) - (term-default-bg ((t (nil)))) - (term-default-bg-inv ((t (nil)))) - (term-default-fg ((t (nil)))) - (term-default-fg-inv ((t (nil)))) - (term-green ((t (:foreground "green")))) - (term-greenbg ((t (:background "green")))) - (term-invisible ((t (nil)))) - (term-invisible-inv ((t (nil)))) - (term-magenta ((t (:foreground "magenta")))) - (term-magentabg ((t (:background "magenta")))) - (term-red ((t (:foreground "red")))) - (term-redbg ((t (:background "red")))) - (term-underline ((t (:underline t)))) - (term-white ((t (:foreground "white")))) - (term-whitebg ((t (:background "white")))) - (term-yellow ((t (:foreground "yellow")))) - (term-yellowbg ((t (:background "yellow")))) - (text-cursor ((t (:background "grey15" :foreground "gainsboro")))) - (toolbar ((t (nil)))) - (underline ((t (:underline t)))) - (vc-annotate-face-0046FF ((t (nil)))) - (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) - (vertical-divider ((t (nil)))) - (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) - (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) - (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) - (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) - (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) - (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) - (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) - (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) - (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) - (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) - (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) - (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) - (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) - (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) - (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) - (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) - (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) - (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) - (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) - (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-search-face ((t (:background "khaki" :foreground "Black")))) - (vvb-face ((t (:background "pink" :foreground "black")))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "navy" :foreground "white")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "royalblue" :foreground "white")))) - (woman-bold-face ((t (:bold t)))) - (woman-italic-face ((t (nil)))) - (woman-unknown-face ((t (nil)))) - (xref-keyword-face ((t (:foreground "blue")))) - (xref-list-pilot-face ((t (:foreground "navy")))) - (xref-list-symbol-face ((t (:foreground "navy")))) - (yellow ((t (nil)))) - (zmacs-region ((t (:background "royalblue"))))))) - -(defun color-theme-oswald () - "Color theme by Tom Oswald, created 2001-04-18. -Green on black, includes font-lock, show-paren, and ediff." - (interactive) - (color-theme-install - '(color-theme-oswald - ((background-color . "black") - (background-mode . dark) - (border-color . "black") - (cursor-color . "black") - (foreground-color . "green") - (mouse-color . "black")) - ((blank-space-face . blank-space-face) - (blank-tab-face . blank-tab-face) - (list-matching-lines-face . bold) - (view-highlight-face . highlight)) - (default ((t (nil)))) - (blank-space-face ((t (:background "LightGray")))) - (blank-tab-face ((t (:background "green" :foreground "black")))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) - (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) - (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) - (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) - (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) - (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) - (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) - (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) - (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) - (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) - (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) - (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) - (font-lock-builtin-face ((t (:italic t :bold t :foreground "LightSteelBlue")))) - (font-lock-comment-face ((t (:italic t :foreground "LightGoldenrod4")))) - (font-lock-constant-face ((t (:italic t :foreground "HotPink")))) - (font-lock-doc-string-face ((t (:italic t :foreground "orange")))) - (font-lock-function-name-face ((t (:italic t :bold t :foreground "red")))) - (font-lock-keyword-face ((t (:foreground "red")))) - (font-lock-preprocessor-face ((t (:italic t :foreground "HotPink")))) - (font-lock-string-face ((t (:italic t :foreground "orange")))) - (font-lock-reference-face ((t (:italic t :bold t :foreground "LightSteelBlue")))) - (font-lock-type-face ((t (:italic t :foreground "LightSlateBlue")))) - (font-lock-variable-name-face ((t (:underline t :foreground "LightGoldenrod")))) - (font-lock-warning-face ((t (:bold t :foreground "Pink")))) - (highlight ((t (:background "yellow" :foreground "red")))) - (isearch ((t (:background "dim gray" :foreground "aquamarine")))) - (ispell-face ((t (:bold t :background "#3454b4" :foreground "yellow")))) - (italic ((t (:italic t)))) - (modeline ((t (:background "green" :foreground "black")))) - (modeline-buffer-id ((t (:background "green" :foreground "black")))) - (modeline-mousable ((t (:background "green" :foreground "black")))) - (modeline-mousable-minor-mode ((t (:background "green" :foreground "black")))) - (region ((t (:background "dim gray" :foreground "aquamarine")))) - (secondary-selection ((t (:background "darkslateblue" :foreground "light goldenrod")))) - (show-paren-match-face ((t (:background "turquoise" :foreground "black")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (underline ((t (:underline t)))) - (zmacs-region ((t (:background "dim gray" :foreground "aquamarine"))))))) - -(defun color-theme-salmon-diff () - "Salmon and aquamarine faces for diff and change-log modes. -This is intended for other color themes to use (eg. `color-theme-gnome2')." - (color-theme-install - '(color-theme-salmon-diff - nil - (change-log-acknowledgement-face ((t (:foreground "LightBlue")))) - (change-log-conditionals-face ((t (:bold t :weight bold :foreground "Aquamarine")))) - (change-log-date-face ((t (:foreground "LightSalmon")))) - (change-log-email-face ((t (:bold t :weight bold :foreground "Aquamarine")))) - (change-log-file-face ((t (:bold t :weight bold :foreground "Aquamarine")))) - (change-log-function-face ((t (:bold t :weight bold :foreground "Aquamarine")))) - (change-log-list-face ((t (:foreground "Salmon")))) - (change-log-name-face ((t (:foreground "Aquamarine")))) - (diff-added-face ((t (nil)))) - (diff-changed-face ((t (nil)))) - (diff-context-face ((t (:foreground "grey70")))) - (diff-file-header-face ((t (:bold t)))) - (diff-function-face ((t (:foreground "grey70")))) - (diff-header-face ((t (:foreground "light salmon")))) - (diff-hunk-header-face ((t (:foreground "light salmon")))) - (diff-index-face ((t (:bold t)))) - (diff-nonexistent-face ((t (:bold t)))) - (diff-removed-face ((t (nil)))) - (log-view-message-face ((t (:foreground "light salmon"))))))) - -(defun color-theme-robin-hood () - "`color-theme-gnome2' with navajo white on green. -This theme tries to avoid underlined and italic faces, because -the fonts either look ugly, or do not exist. The author himself -uses neep, for example." - (interactive) - (color-theme-gnome2) - (let ((color-theme-is-cumulative t)) - (color-theme-install - '(color-theme-robin-hood - ((foreground-color . "navajo white") - (background-color . "#304020")) - ((CUA-mode-read-only-cursor-color . "white") - (help-highlight-face . info-xref) - (list-matching-lines-buffer-name-face . bold)) - (default ((t (nil)))) - (button ((t (:bold t)))) - (calendar-today-face ((t (:foreground "lemon chiffon")))) - (custom-button-face ((t (:bold t :foreground "DodgerBlue1")))) - (diary-face ((t (:bold t :foreground "yellow")))) - (fringe ((t (:background "#003700")))) - (header-line ((t (:background "#030" :foreground "#AA7")))) - (holiday-face ((t (:bold t :foreground "peru")))) - (ido-subdir-face ((t (:foreground "MediumSlateBlue")))) - (isearch ((t (:foreground "pink" :background "red")))) - (isearch-lazy-highlight-face ((t (:foreground "red")))) - (menu ((t (:background "#304020" :foreground "navajo white")))) - (minibuffer-prompt ((t (:foreground "pale green")))) - (modeline ((t (:background "dark olive green" :foreground "wheat" :box (:line-width 1 :style released-button))))) - (mode-line-inactive ((t (:background "dark olive green" :foreground "khaki" :box (:line-width 1 :style released-button))))) - (semantic-dirty-token-face ((t (:background "grey22")))) - (tool-bar ((t (:background "#304020" :foreground "wheat" :box (:line-width 1 :style released-button))))) - (tooltip ((t (:background "lemon chiffon" :foreground "black")))))))) - -(defun color-theme-snowish () - "Color theme by Girish Bharadwaj, created 2001-05-17. -Dark slate gray on snow2, lots of blue colors. -Includes custom, eshell, font-lock, gnus, html-helper, -hyper-apropos, jde, message, paren, semantic, speedbar, -term, widget." - (interactive) - (color-theme-install - '(color-theme-snowish - ((background-color . "snow2") - (background-mode . light) - (cursor-color . "Red3") - (foreground-color . "darkslategray")) - ((buffers-tab-face . buffers-tab) - (gnus-mouse-face . highlight) - (sgml-set-face . t) - (smiley-mouse-face . highlight)) - (default ((t (nil)))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t :foreground "peru")))) - (bold-italic ((t (:italic t :bold t)))) - (border-glyph ((t (nil)))) - (buffers-tab ((t (:background "snow2" :foreground "darkslategray")))) - (custom-button-face ((t (:bold t)))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-comment-face ((t (:background "gray85")))) - (custom-comment-tag-face ((t (:foreground "blue4")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:underline t :foreground "blue")))) - (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "dark green")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t :foreground "blue")))) - (cyan ((t (:foreground "cyan")))) - (display-time-mail-balloon-enhance-face ((t (:background "orange")))) - (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) - (display-time-time-balloon-face ((t (:foreground "red")))) - (eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) - (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) - (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) - (eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) - (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) - (eshell-ls-missing-face ((t (:bold t :foreground "Red")))) - (eshell-ls-product-face ((t (:foreground "OrangeRed")))) - (eshell-ls-readonly-face ((t (:foreground "Brown")))) - (eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) - (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan")))) - (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) - (eshell-prompt-face ((t (:bold t :foreground "Red")))) - (font-lock-builtin-face ((t (:underline t :foreground "blue")))) - (font-lock-comment-face ((t (:foreground "snow4")))) - (font-lock-constant-face ((t (:foreground "CadetBlue")))) - (font-lock-doc-string-face ((t (:foreground "mediumblue")))) - (font-lock-function-name-face ((t (:bold t :foreground "darkblue")))) - (font-lock-keyword-face ((t (:bold t :foreground "dodgerblue")))) - (font-lock-preprocessor-face ((t (:underline t :foreground "blue3")))) - (font-lock-reference-face ((t (:foreground "red3")))) - (font-lock-string-face ((t (:foreground "darkviolet")))) - (font-lock-type-face ((t (:foreground "goldenrod")))) - (font-lock-variable-name-face ((t (:foreground "tomato")))) - (font-lock-warning-face ((t (:bold t :foreground "Red")))) - (gnus-cite-attribution-face ((t (nil)))) - (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "firebrick")))) - (gnus-cite-face-3 ((t (:foreground "dark green")))) - (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) - (gnus-cite-face-5 ((t (:foreground "dark khaki")))) - (gnus-cite-face-6 ((t (:foreground "dark violet")))) - (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-bold-italic ((t (nil)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (nil)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) - (gnus-emphasis-underline-bold-italic ((t (:underline t)))) - (gnus-emphasis-underline-italic ((t (:underline t)))) - (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) - (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) - (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) - (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) - (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) - (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) - (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) - (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-header-content-face ((t (:foreground "indianred4")))) - (gnus-header-from-face ((t (:foreground "red3")))) - (gnus-header-name-face ((t (:foreground "maroon")))) - (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue")))) - (gnus-header-subject-face ((t (:foreground "red4")))) - (gnus-picons-face ((t (:background "white" :foreground "black")))) - (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) - (gnus-signature-face ((t (nil)))) - (gnus-splash-face ((t (:foreground "Brown")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) - (gnus-summary-high-unread-face ((t (:bold t)))) - (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-low-read-face ((t (:foreground "DarkGreen")))) - (gnus-summary-low-ticked-face ((t (:foreground "firebrick")))) - (gnus-summary-low-unread-face ((t (nil)))) - (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (gnus-x-face ((t (:background "white" :foreground "black")))) - (green ((t (:foreground "green")))) - (gui-button-face ((t (:background "grey75" :foreground "black")))) - (gui-element ((t (:background "#D4D0C8" :foreground "black")))) - (highlight ((t (:background "darkseagreen2")))) - (html-helper-bold-face ((t (:bold t)))) - (html-helper-bold-italic-face ((t (nil)))) - (html-helper-builtin-face ((t (:underline t :foreground "blue3")))) - (html-helper-italic-face ((t (:foreground "medium sea green")))) - (html-helper-underline-face ((t (:underline t)))) - (html-tag-face ((t (:bold t)))) - (hyper-apropos-documentation ((t (:foreground "darkred")))) - (hyper-apropos-heading ((t (:bold t)))) - (hyper-apropos-hyperlink ((t (:foreground "blue4")))) - (hyper-apropos-major-heading ((t (:bold t)))) - (hyper-apropos-section-heading ((t (nil)))) - (hyper-apropos-warning ((t (:bold t :foreground "red")))) - (info-menu-6 ((t (nil)))) - (isearch ((t (:background "paleturquoise")))) - (isearch-secondary ((t (:foreground "red3")))) - (italic ((t (nil)))) - (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) - (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) - (jde-java-font-lock-link-face ((t (:underline t :foreground "blue")))) - (jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) - (left-margin ((t (nil)))) - (list-mode-item-selected ((t (:background "gray68" :foreground "darkslategray")))) - (magenta ((t (:foreground "magenta")))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:foreground "MidnightBlue")))) - (message-header-name-face ((t (:foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:foreground "blue4")))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-subject-face ((t (:bold t :foreground "navy blue")))) - (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "brown")))) - (modeline ((t (nil)))) - (modeline-buffer-id ((t (:background "#D4D0C8" :foreground "blue4")))) - (modeline-mousable ((t (:background "#D4D0C8" :foreground "firebrick")))) - (modeline-mousable-minor-mode ((t (:background "#D4D0C8" :foreground "green4")))) - (paren-blink-off ((t (:foreground "snow2")))) - (paren-match ((t (:background "darkseagreen2")))) - (paren-mismatch ((t (:background "snow2" :foreground "darkslategray")))) - (pointer ((t (nil)))) - (primary-selection ((t (:background "gray65")))) - (red ((t (:foreground "red")))) - (right-margin ((t (nil)))) - (secondary-selection ((t (:background "paleturquoise")))) - (semantic-intangible-face ((t (:foreground "gray25")))) - (semantic-read-only-face ((t (:background "gray25")))) - (senator-momentary-highlight-face ((t (:background "gray70")))) - (speedbar-button-face ((t (:foreground "green4")))) - (speedbar-directory-face ((t (:foreground "blue4")))) - (speedbar-file-face ((t (:foreground "cyan4")))) - (speedbar-highlight-face ((t (:background "green")))) - (speedbar-selected-face ((t (:underline t :foreground "red")))) - (speedbar-tag-face ((t (:foreground "brown")))) - (template-message-face ((t (:bold t)))) - (term-blue-bold-face ((t (:bold t :background "snow2" :foreground "blue")))) - (term-blue-face ((t (:foreground "blue")))) - (term-blue-inv-face ((t (:background "blue")))) - (term-blue-ul-face ((t (:underline t :background "snow2" :foreground "blue")))) - (term-cyan-bold-face ((t (:bold t :background "snow2" :foreground "cyan")))) - (term-cyan-face ((t (:foreground "cyan")))) - (term-cyan-inv-face ((t (:background "cyan")))) - (term-cyan-ul-face ((t (:underline t :background "snow2" :foreground "cyan")))) - (term-default-bold-face ((t (:bold t :background "snow2" :foreground "darkslategray")))) - (term-default-face ((t (:background "snow2" :foreground "darkslategray")))) - (term-default-inv-face ((t (:background "darkslategray" :foreground "snow2")))) - (term-default-ul-face ((t (:underline t :background "snow2" :foreground "darkslategray")))) - (term-green-bold-face ((t (:bold t :background "snow2" :foreground "green")))) - (term-green-face ((t (:foreground "green")))) - (term-green-inv-face ((t (:background "green")))) - (term-green-ul-face ((t (:underline t :background "snow2" :foreground "green")))) - (term-magenta-bold-face ((t (:bold t :background "snow2" :foreground "magenta")))) - (term-magenta-face ((t (:foreground "magenta")))) - (term-magenta-inv-face ((t (:background "magenta")))) - (term-magenta-ul-face ((t (:underline t :background "snow2" :foreground "magenta")))) - (term-red-bold-face ((t (:bold t :background "snow2" :foreground "red")))) - (term-red-face ((t (:foreground "red")))) - (term-red-inv-face ((t (:background "red")))) - (term-red-ul-face ((t (:underline t :background "snow2" :foreground "red")))) - (term-white-bold-face ((t (:bold t :background "snow2" :foreground "white")))) - (term-white-face ((t (:foreground "white")))) - (term-white-inv-face ((t (:background "snow2")))) - (term-white-ul-face ((t (:underline t :background "snow2" :foreground "white")))) - (term-yellow-bold-face ((t (:bold t :background "snow2" :foreground "yellow")))) - (term-yellow-face ((t (:foreground "yellow")))) - (term-yellow-inv-face ((t (:background "yellow")))) - (term-yellow-ul-face ((t (:underline t :background "snow2" :foreground "yellow")))) - (text-cursor ((t (:background "Red3" :foreground "snow2")))) - (toolbar ((t (nil)))) - (underline ((t (:underline t)))) - (vertical-divider ((t (nil)))) - (white ((t (:foreground "white")))) - (widget ((t (nil)))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (yellow ((t (:foreground "yellow")))) - (zmacs-region ((t (:background "gray65"))))))) - -(defun color-theme-dark-laptop () - "Color theme by Laurent Michel, created 2001-05-24. -Includes custom, fl, font-lock, gnus, message, widget." - (interactive) - (color-theme-install - '(color-theme-dark-laptop - ((background-color . "black") - (background-mode . dark) - (border-color . "black") - (cursor-color . "yellow") - (foreground-color . "white") - (mouse-color . "sienna1")) - ((gnus-mouse-face . highlight) - (list-matching-lines-face . bold) - (view-highlight-face . highlight)) - (default ((t (nil)))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (custom-button-face ((t (nil)))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:underline t :foreground "light blue")))) - (custom-group-tag-face-1 ((t (:underline t :foreground "pink")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "lime green")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t :foreground "light blue")))) - (fl-comment-face ((t (:foreground "pink")))) - (fl-doc-string-face ((t (:foreground "purple")))) - (fl-function-name-face ((t (:foreground "red")))) - (fl-keyword-face ((t (:foreground "cyan")))) - (fl-string-face ((t (:foreground "green")))) - (fl-type-face ((t (:foreground "yellow")))) - (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) - (font-lock-comment-face ((t (:foreground "OrangeRed")))) - (font-lock-constant-face ((t (:foreground "Aquamarine")))) - (font-lock-doc-string-face ((t (:foreground "LightSalmon")))) - (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) - (font-lock-keyword-face ((t (:foreground "Cyan")))) - (font-lock-preprocessor-face ((t (:foreground "Aquamarine")))) - (font-lock-reference-face ((t (:foreground "LightSteelBlue")))) - (font-lock-string-face ((t (:foreground "LightSalmon")))) - (font-lock-type-face ((t (:foreground "PaleGreen")))) - (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) - (font-lock-warning-face ((t (:bold t :foreground "Pink")))) - (gnus-cite-attribution-face ((t (:italic t)))) - (gnus-cite-face-1 ((t (:bold t :foreground "deep sky blue")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:bold t :foreground "cyan")))) - (gnus-cite-face-3 ((t (:bold t :foreground "gold")))) - (gnus-cite-face-4 ((t (:foreground "light pink")))) - (gnus-cite-face-5 ((t (:foreground "pale green")))) - (gnus-cite-face-6 ((t (:bold t :foreground "chocolate")))) - (gnus-cite-face-7 ((t (:foreground "orange")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) - (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) - (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) - (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) - (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) - (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3")))) - (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) - (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) - (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) - (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) - (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) - (gnus-header-content-face ((t (:italic t :foreground "forest green")))) - (gnus-header-from-face ((t (:bold t :foreground "spring green")))) - (gnus-header-name-face ((t (:foreground "deep sky blue")))) - (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "purple")))) - (gnus-header-subject-face ((t (:bold t :foreground "orange")))) - (gnus-signature-face ((t (:bold t :foreground "khaki")))) - (gnus-splash-face ((t (:foreground "Brown")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink")))) - (gnus-summary-high-unread-face ((t (:bold t)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) - (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) - (gnus-summary-low-unread-face ((t (:italic t)))) - (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (highlight ((t (:background "darkolivegreen")))) - (italic ((t (:italic t)))) - (message-cited-text-face ((t (:bold t :foreground "red")))) - (message-header-cc-face ((t (:bold t :foreground "green4")))) - (message-header-name-face ((t (:bold t :foreground "orange")))) - (message-header-newsgroups-face ((t (:bold t :foreground "violet")))) - (message-header-other-face ((t (:bold t :foreground "chocolate")))) - (message-header-subject-face ((t (:bold t :foreground "yellow")))) - (message-header-to-face ((t (:bold t :foreground "cyan")))) - (message-header-xheader-face ((t (:bold t :foreground "light blue")))) - (message-mml-face ((t (:bold t :background "Green3")))) - (message-separator-face ((t (:foreground "blue3")))) - (modeline ((t (:background "white" :foreground "black")))) - (modeline-buffer-id ((t (:background "white" :foreground "black")))) - (modeline-mousable ((t (:background "white" :foreground "black")))) - (modeline-mousable-minor-mode ((t (:background "white" :foreground "black")))) - (region ((t (:background "blue")))) - (primary-selection ((t (:background "blue")))) - (isearch ((t (:background "blue")))) - (zmacs-region ((t (:background "blue")))) - (secondary-selection ((t (:background "darkslateblue")))) - (underline ((t (:underline t)))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-field-face ((t (:background "dim gray")))) - (widget-inactive-face ((t (:foreground "light gray")))) - (widget-single-line-field-face ((t (:background "dim gray"))))))) - -(defun color-theme-taming-mr-arneson () - "Color theme by Erik Arneson, created 2001-06-12. -Light sky blue on black. Includes bbdb, cperl, custom, cvs, diff, -dired, font-lock, html-helper, hyper-apropos, info, isearch, man, -message, paren, shell, and widget." - (interactive) - (color-theme-install - '(color-theme-taming-mr-arneson - ((background-color . "black") - (background-mode . light) - (background-toolbar-color . "#cf3ccf3ccf3c") - (border-color . "#000000000000") - (bottom-toolbar-shadow-color . "#79e77df779e7") - (cursor-color . "Red3") - (foreground-color . "LightSkyBlue") - (top-toolbar-shadow-color . "#fffffbeeffff")) - ((buffers-tab-face . buffers-tab) - (cperl-here-face . font-lock-string-face) - (cperl-invalid-face quote default) - (cperl-pod-face . font-lock-comment-face) - (cperl-pod-head-face . font-lock-variable-name-face) - (ispell-highlight-face . highlight) - (vc-mode-face . highlight) - (vm-highlight-url-face . bold-italic) - (vm-highlighted-header-face . bold) - (vm-mime-button-face . gui-button-face) - (vm-summary-highlight-face . bold)) - (default ((t (nil)))) - (bbdb-company ((t (nil)))) - (bbdb-field-name ((t (:bold t)))) - (bbdb-field-value ((t (nil)))) - (bbdb-name ((t (:underline t)))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t)))) - (bold-italic ((t (:bold t :foreground "yellow")))) - (border-glyph ((t (nil)))) - (buffers-tab ((t (:background "black" :foreground "LightSkyBlue")))) - (cperl-array-face ((t (:bold t :foreground "SkyBlue2")))) - (cperl-hash-face ((t (:foreground "LightBlue2")))) - (cperl-invalid-face ((t (:foreground "white")))) - (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) - (custom-button-face ((t (:bold t)))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-comment-face ((t (:foreground "white")))) - (custom-comment-tag-face ((t (:foreground "white")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:underline t :foreground "blue")))) - (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "white")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t :foreground "blue")))) - (cvs-filename-face ((t (:foreground "white")))) - (cvs-handled-face ((t (:foreground "pink")))) - (cvs-header-face ((t (:foreground "green")))) - (cvs-marked-face ((t (:bold t :foreground "green3")))) - (cvs-msg-face ((t (:foreground "red")))) - (cvs-need-action-face ((t (:foreground "yellow")))) - (cvs-unknown-face ((t (:foreground "grey")))) - (diff-added-face ((t (nil)))) - (diff-changed-face ((t (nil)))) - (diff-file-header-face ((t (:bold t :background "grey70")))) - (diff-hunk-header-face ((t (:background "grey85")))) - (diff-index-face ((t (:bold t :background "grey70")))) - (diff-removed-face ((t (nil)))) - (dired-face-boring ((t (:foreground "Gray65")))) - (dired-face-directory ((t (:bold t :foreground "SkyBlue2")))) - (dired-face-executable ((t (:foreground "Green")))) - (dired-face-flagged ((t (:background "LightSlateGray")))) - (dired-face-header ((t (:background "grey75" :foreground "black")))) - (dired-face-marked ((t (:background "PaleVioletRed")))) - (dired-face-permissions ((t (:background "grey75" :foreground "black")))) - (dired-face-setuid ((t (:foreground "Red")))) - (dired-face-socket ((t (:foreground "magenta")))) - (dired-face-symlink ((t (:foreground "cyan")))) - (excerpt ((t (nil)))) - (fixed ((t (:bold t)))) - (font-lock-builtin-face ((t (:foreground "red3")))) - (font-lock-comment-face ((t (:foreground "red")))) - (font-lock-constant-face ((t (nil)))) - (font-lock-doc-string-face ((t (:foreground "turquoise")))) - (font-lock-function-name-face ((t (:foreground "white")))) - (font-lock-keyword-face ((t (:foreground "green")))) - (font-lock-preprocessor-face ((t (:foreground "green3")))) - (font-lock-reference-face ((t (:foreground "red3")))) - (font-lock-string-face ((t (:foreground "turquoise")))) - (font-lock-type-face ((t (:foreground "steelblue")))) - (font-lock-variable-name-face ((t (:foreground "magenta2")))) - (font-lock-warning-face ((t (:bold t :foreground "Red")))) - (green ((t (:foreground "green")))) - (gui-button-face ((t (:background "grey75" :foreground "black")))) - (gui-element ((t (nil)))) - (highlight ((t (:background "darkseagreen2" :foreground "blue")))) - (html-helper-bold-face ((t (:bold t)))) - (html-helper-italic-face ((t (:bold t :foreground "yellow")))) - (html-helper-underline-face ((t (:underline t)))) - (hyper-apropos-documentation ((t (:foreground "white")))) - (hyper-apropos-heading ((t (:bold t)))) - (hyper-apropos-hyperlink ((t (:foreground "sky blue")))) - (hyper-apropos-major-heading ((t (:bold t)))) - (hyper-apropos-section-heading ((t (:bold t)))) - (hyper-apropos-warning ((t (:bold t :foreground "red")))) - (info-node ((t (:bold t :foreground "yellow")))) - (info-xref ((t (:bold t)))) - (isearch ((t (:background "paleturquoise" :foreground "dark red")))) - (isearch-secondary ((t (:foreground "red3")))) - (italic ((t (:bold t :foreground "yellow")))) - (left-margin ((t (nil)))) - (list-mode-item-selected ((t (:background "gray68" :foreground "dark green")))) - (man-bold ((t (:bold t)))) - (man-heading ((t (:bold t)))) - (man-italic ((t (:foreground "yellow")))) - (man-xref ((t (:underline t)))) - (message-cited-text ((t (:foreground "orange")))) - (message-header-contents ((t (:foreground "white")))) - (message-headers ((t (:bold t :foreground "orange")))) - (message-highlighted-header-contents ((t (:bold t)))) - (message-url ((t (:bold t :foreground "pink")))) - (mmm-face ((t (:background "black" :foreground "green")))) - (modeline ((t (nil)))) - (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4")))) - (modeline-mousable ((t (:background "Gray80" :foreground "firebrick")))) - (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4")))) - (paren-blink-off ((t (:foreground "gray80")))) - (paren-match ((t (:background "dark blue")))) - (paren-mismatch ((t (:background "DeepPink" :foreground "LightSkyBlue")))) - (pointer ((t (nil)))) - (primary-selection ((t (:background "gray65" :foreground "DarkBlue")))) - (red ((t (:foreground "red")))) - (region ((t (:background "gray65" :foreground "DarkBlue")))) - (right-margin ((t (nil)))) - (secondary-selection ((t (:background "paleturquoise" :foreground "black")))) - (shell-option-face ((t (:foreground "blue4")))) - (shell-output-2-face ((t (:foreground "green4")))) - (shell-output-3-face ((t (:foreground "green4")))) - (shell-output-face ((t (:bold t)))) - (shell-prompt-face ((t (:foreground "red4")))) - (text-cursor ((t (:background "Red3" :foreground "black")))) - (toolbar ((t (:background "Gray80" :foreground "black")))) - (underline ((t (:underline t)))) - (vertical-divider ((t (nil)))) - (vm-xface ((t (:background "white" :foreground "black")))) - (vmpc-pre-sig-face ((t (:foreground "forestgreen")))) - (vmpc-sig-face ((t (:foreground "steelblue")))) - (widget ((t (nil)))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85" :foreground "black")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (x-face ((t (:background "white" :foreground "black")))) - (xrdb-option-name-face ((t (:foreground "red")))) - (yellow ((t (:foreground "yellow")))) - (zmacs-region ((t (:background "gray65"))))))) - -(defun color-theme-digital-ofs1 () - "Color theme by Gareth Owen, created 2001-06-13. -This works well on an old, beat-up Digital Unix box with its 256 colour -display, on which other color themes hog too much of the palette. -Black on some shade of dark peach. Includes bbdb, cperl, custom, -cvs, diff, dired, ediff, erc, eshell, font-latex, font-lock, gnus, -highlight, hproperty, html-helper, hyper-apropos, info, jde, man, -message, paren, searchm, semantic, sgml, shell, speedbar, term, -vhdl, viper, w3m, widget, woman, x-symbol, xref." - (interactive) - (color-theme-install - '(color-theme-digital-ofs1 - ((background-color . "#CA94AA469193") - (background-mode . light) - (background-toolbar-color . "#cf3ccf3ccf3c") - (border-color . "black") - (bottom-toolbar-shadow-color . "#79e77df779e7") - (cursor-color . "Black") - (foreground-color . "Black") - (mouse-color . "Black") - (top-toolbar-shadow-color . "#fffffbeeffff") - (viper-saved-cursor-color-in-replace-mode . "Red3")) - ((Man-overstrike-face . bold) - (Man-underline-face . underline) - (gnus-mouse-face . highlight) - (goto-address-mail-face . italic) - (goto-address-mail-mouse-face . secondary-selection) - (goto-address-url-face . bold) - (goto-address-url-mouse-face . highlight) - (ispell-highlight-face . highlight) - (list-matching-lines-face . bold) - (rmail-highlight-face . font-lock-function-name-face) - (view-highlight-face . highlight)) - (default ((t (:bold t)))) - (bbdb-company ((t (:italic t)))) - (bbdb-field-name ((t (:bold t)))) - (bbdb-field-value ((t (nil)))) - (bbdb-name ((t (:underline t)))) - (blank-space-face ((t (nil)))) - (blank-tab-face ((t (nil)))) - (blue ((t (:bold t :foreground "blue")))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (border-glyph ((t (:bold t)))) - (buffers-tab ((t (:background "black" :foreground "LightSkyBlue")))) - (calendar-today-face ((t (:underline t :bold t :foreground "white")))) - (comint-input-face ((t (nil)))) - (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) - (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red")))) - (cperl-here-face ((t (nil)))) - (cperl-invalid-face ((t (:foreground "white")))) - (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) - (cperl-pod-face ((t (nil)))) - (cperl-pod-head-face ((t (nil)))) - (custom-button-face ((t (:bold t)))) - (custom-changed-face ((t (:bold t :background "blue" :foreground "white")))) - (custom-comment-face ((t (:foreground "white")))) - (custom-comment-tag-face ((t (:foreground "white")))) - (custom-documentation-face ((t (:bold t)))) - (custom-face-tag-face ((t (:underline t :bold t)))) - (custom-group-tag-face ((t (:underline t :bold t :foreground "DarkBlue")))) - (custom-group-tag-face-1 ((t (:underline t :bold t :foreground "red")))) - (custom-invalid-face ((t (:bold t :background "red" :foreground "yellow")))) - (custom-modified-face ((t (:bold t :background "blue" :foreground "white")))) - (custom-rogue-face ((t (:bold t :background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t :bold t)))) - (custom-set-face ((t (:bold t :background "white" :foreground "blue")))) - (custom-state-face ((t (:bold t :foreground "dark green")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue")))) - (cvs-filename-face ((t (:foreground "white")))) - (cvs-handled-face ((t (:foreground "pink")))) - (cvs-header-face ((t (:bold t :foreground "green")))) - (cvs-marked-face ((t (:bold t :foreground "green3")))) - (cvs-msg-face ((t (:italic t :foreground "red")))) - (cvs-need-action-face ((t (:foreground "yellow")))) - (cvs-unknown-face ((t (:foreground "grey")))) - (cyan ((t (:foreground "cyan")))) - (diary-face ((t (:bold t :foreground "red")))) - (diff-added-face ((t (nil)))) - (diff-changed-face ((t (nil)))) - (diff-file-header-face ((t (:bold t :background "grey70")))) - (diff-hunk-header-face ((t (:background "grey85")))) - (diff-index-face ((t (:bold t :background "grey70")))) - (diff-removed-face ((t (nil)))) - (dired-face-boring ((t (:foreground "Gray65")))) - (dired-face-directory ((t (:bold t)))) - (dired-face-executable ((t (:foreground "SeaGreen")))) - (dired-face-flagged ((t (:background "LightSlateGray")))) - (dired-face-header ((t (:background "grey75" :foreground "black")))) - (dired-face-marked ((t (:background "PaleVioletRed")))) - (dired-face-permissions ((t (:background "grey75" :foreground "black")))) - (dired-face-setuid ((t (:foreground "Red")))) - (dired-face-socket ((t (:foreground "magenta")))) - (dired-face-symlink ((t (:foreground "cyan")))) - (display-time-mail-balloon-enhance-face ((t (:bold t :background "orange")))) - (display-time-mail-balloon-gnus-group-face ((t (:bold t :foreground "blue")))) - (display-time-time-balloon-face ((t (:bold t :foreground "red")))) - (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) - (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) - (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) - (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) - (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) - (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) - (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) - (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) - (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) - (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) - (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) - (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) - (erc-action-face ((t (:bold t)))) - (erc-bold-face ((t (:bold t)))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (nil)))) - (erc-error-face ((t (:bold t)))) - (erc-input-face ((t (nil)))) - (erc-inverse-face ((t (nil)))) - (erc-notice-face ((t (nil)))) - (erc-pal-face ((t (nil)))) - (erc-prompt-face ((t (nil)))) - (erc-underline-face ((t (nil)))) - (eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) - (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) - (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) - (eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) - (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) - (eshell-ls-missing-face ((t (:bold t :foreground "Red")))) - (eshell-ls-picture-face ((t (:foreground "Violet")))) - (eshell-ls-product-face ((t (:foreground "OrangeRed")))) - (eshell-ls-readonly-face ((t (:foreground "Brown")))) - (eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) - (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan")))) - (eshell-ls-text-face ((t (:foreground "medium aquamarine")))) - (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine")))) - (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) - (eshell-prompt-face ((t (:bold t :foreground "Red")))) - (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) - (eshell-test-ok-face ((t (:bold t :foreground "Green")))) - (excerpt ((t (:italic t)))) - (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) - (fg:black ((t (:foreground "black")))) - (fixed ((t (:bold t)))) - (fl-comment-face ((t (:foreground "medium purple")))) - (fl-doc-string-face ((t (nil)))) - (fl-function-name-face ((t (:foreground "green")))) - (fl-keyword-face ((t (:foreground "LightGreen")))) - (fl-string-face ((t (:foreground "light coral")))) - (fl-type-face ((t (:foreground "cyan")))) - (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) - (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) - (font-latex-bold-face ((t (:bold t)))) - (font-latex-italic-face ((t (:italic t)))) - (font-latex-math-face ((t (nil)))) - (font-latex-sedate-face ((t (nil)))) - (font-latex-string-face ((t (nil)))) - (font-latex-warning-face ((t (nil)))) - (font-lock-builtin-face ((t (:italic t :bold t :foreground "Orchid")))) - (font-lock-comment-face ((t (:bold t :foreground "Firebrick")))) - (font-lock-constant-face ((t (:italic t :bold t :foreground "CadetBlue")))) - (font-lock-doc-string-face ((t (:italic t :bold t :foreground "green4")))) - (font-lock-emphasized-face ((t (:bold t)))) - (font-lock-exit-face ((t (:foreground "green")))) - (font-lock-function-name-face ((t (:italic t :bold t :foreground "Blue")))) - (font-lock-keyword-face ((t (:bold t :foreground "dark olive green")))) - (font-lock-other-emphasized-face ((t (:italic t :bold t)))) - (font-lock-other-type-face ((t (:bold t :foreground "DarkBlue")))) - (font-lock-preprocessor-face ((t (:italic t :bold t :foreground "blue3")))) - (font-lock-reference-face ((t (:italic t :bold t :foreground "red3")))) - (font-lock-special-comment-face ((t (nil)))) - (font-lock-special-keyword-face ((t (nil)))) - (font-lock-string-face ((t (:italic t :bold t :foreground "DarkBlue")))) - (font-lock-type-face ((t (:italic t :bold t :foreground "DarkGreen")))) - (font-lock-variable-name-face ((t (:italic t :bold t :foreground "darkgreen")))) - (font-lock-warning-face ((t (:bold t :foreground "Red")))) - (fringe ((t (:background "grey95")))) - (gdb-arrow-face ((t (:bold t)))) - (gnus-cite-attribution-face ((t (:italic t :bold t)))) - (gnus-cite-face-1 ((t (:bold t :foreground "MidnightBlue")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:bold t :foreground "firebrick")))) - (gnus-cite-face-3 ((t (:bold t :foreground "dark green")))) - (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) - (gnus-cite-face-5 ((t (:foreground "dark khaki")))) - (gnus-cite-face-6 ((t (:bold t :foreground "dark violet")))) - (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-cite-face-list ((t (nil)))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) - (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) - (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) - (gnus-filterhist-face-1 ((t (nil)))) - (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) - (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) - (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) - (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) - (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) - (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) - (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) - (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) - (gnus-header-from-face ((t (:bold t :foreground "red3")))) - (gnus-header-name-face ((t (:bold t :foreground "maroon")))) - (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue")))) - (gnus-header-subject-face ((t (:bold t :foreground "red4")))) - (gnus-picons-face ((t (:background "white" :foreground "black")))) - (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) - (gnus-signature-face ((t (:italic t :bold t)))) - (gnus-splash ((t (nil)))) - (gnus-splash-face ((t (:foreground "Brown")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) - (gnus-summary-high-unread-face ((t (:italic t :bold t)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) - (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) - (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "firebrick")))) - (gnus-summary-low-unread-face ((t (:italic t)))) - (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) - (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick")))) - (gnus-summary-normal-unread-face ((t (:bold t)))) - (gnus-summary-selected-face ((t (:underline t)))) - (gnus-x-face ((t (:background "white" :foreground "black")))) - (green ((t (:bold t :foreground "green")))) - (gui-button-face ((t (:bold t :background "grey75" :foreground "black")))) - (gui-element ((t (:bold t :background "Gray80")))) - (highlight ((t (:bold t :background "darkseagreen2")))) - (highlight-changes-delete-face ((t (:underline t :foreground "red")))) - (highlight-changes-face ((t (:foreground "red")))) - (highline-face ((t (:background "black" :foreground "white")))) - (holiday-face ((t (:bold t :background "pink" :foreground "white")))) - (hproperty:but-face ((t (:bold t)))) - (hproperty:flash-face ((t (:bold t)))) - (hproperty:highlight-face ((t (:bold t)))) - (hproperty:item-face ((t (:bold t)))) - (html-helper-bold-face ((t (:bold t)))) - (html-helper-bold-italic-face ((t (nil)))) - (html-helper-builtin-face ((t (:underline t :foreground "blue3")))) - (html-helper-italic-face ((t (:italic t :bold t :foreground "yellow")))) - (html-helper-underline-face ((t (:underline t)))) - (html-tag-face ((t (:bold t)))) - (hyper-apropos-documentation ((t (:foreground "white")))) - (hyper-apropos-heading ((t (:bold t)))) - (hyper-apropos-hyperlink ((t (:foreground "sky blue")))) - (hyper-apropos-major-heading ((t (:bold t)))) - (hyper-apropos-section-heading ((t (:bold t)))) - (hyper-apropos-warning ((t (:bold t :foreground "red")))) - (ibuffer-marked-face ((t (:foreground "red")))) - (info-menu-5 ((t (:underline t :bold t)))) - (info-menu-6 ((t (nil)))) - (info-node ((t (:italic t :bold t)))) - (info-xref ((t (:bold t)))) - (isearch ((t (:bold t :background "paleturquoise")))) - (isearch-secondary ((t (:foreground "red3")))) - (ispell-face ((t (:bold t)))) - (italic ((t (:italic t :bold t)))) - (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) - (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) - (jde-java-font-lock-link-face ((t (:underline t :foreground "blue")))) - (jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) - (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) - (left-margin ((t (:bold t)))) - (linemenu-face ((t (nil)))) - (list-mode-item-selected ((t (:bold t :background "gray68")))) - (magenta ((t (:foreground "magenta")))) - (makefile-space-face ((t (:background "hotpink")))) - (man-bold ((t (:bold t)))) - (man-heading ((t (:bold t)))) - (man-italic ((t (:foreground "yellow")))) - (man-xref ((t (:underline t)))) - (message-cited-text ((t (:bold t :foreground "orange")))) - (message-cited-text-face ((t (:bold t :foreground "red")))) - (message-header-cc-face ((t (:bold t :foreground "MidnightBlue")))) - (message-header-contents ((t (:italic t :bold t :foreground "white")))) - (message-header-name-face ((t (:bold t :foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) - (message-header-other-face ((t (:bold t :foreground "steel blue")))) - (message-header-subject-face ((t (:bold t :foreground "navy blue")))) - (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) - (message-header-xheader-face ((t (:bold t :foreground "blue")))) - (message-headers ((t (:bold t :foreground "orange")))) - (message-highlighted-header-contents ((t (:bold t)))) - (message-mml-face ((t (:bold t :foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "brown")))) - (message-url ((t (:bold t :foreground "pink")))) - (mmm-face ((t (:background "black" :foreground "green")))) - (modeline ((t (:bold t :background "Black" :foreground "#CA94AA469193")))) - (modeline-buffer-id ((t (:bold t :background "Gray80" :foreground "blue4")))) - (modeline-mousable ((t (:bold t :background "Gray80" :foreground "firebrick")))) - (modeline-mousable-minor-mode ((t (:bold t :background "Gray80" :foreground "green4")))) - (my-tab-face ((t (nil)))) - (nil ((t (nil)))) - (p4-diff-del-face ((t (:bold t)))) - (paren-blink-off ((t (:foreground "gray80")))) - (paren-face ((t (nil)))) - (paren-face-match ((t (nil)))) - (paren-face-mismatch ((t (nil)))) - (paren-face-no-match ((t (nil)))) - (paren-match ((t (:background "darkseagreen2")))) - (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) - (paren-mismatch-face ((t (:bold t :background "DeepPink" :foreground "white")))) - (paren-no-match-face ((t (:bold t :background "yellow" :foreground "white")))) - (pointer ((t (:bold t)))) - (primary-selection ((t (:bold t :background "gray65")))) - (red ((t (:bold t :foreground "red")))) - (region ((t (:bold t :background "gray")))) - (right-margin ((t (:bold t)))) - (searchm-buffer ((t (:bold t)))) - (searchm-button ((t (:bold t)))) - (searchm-field ((t (nil)))) - (searchm-field-label ((t (:bold t)))) - (searchm-highlight ((t (:bold t)))) - (secondary-selection ((t (:bold t :background "paleturquoise")))) - (semantic-intangible-face ((t (:foreground "gray25")))) - (semantic-read-only-face ((t (:background "gray25")))) - (senator-momentary-highlight-face ((t (:background "gray70")))) - (setnu-line-number-face ((t (:italic t :bold t)))) - (sgml-comment-face ((t (:foreground "dark green")))) - (sgml-doctype-face ((t (:foreground "maroon")))) - (sgml-end-tag-face ((t (:foreground "blue2")))) - (sgml-entity-face ((t (:foreground "red2")))) - (sgml-ignored-face ((t (:background "gray90" :foreground "maroon")))) - (sgml-ms-end-face ((t (:foreground "maroon")))) - (sgml-ms-start-face ((t (:foreground "maroon")))) - (sgml-pi-face ((t (:foreground "maroon")))) - (sgml-sgml-face ((t (:foreground "maroon")))) - (sgml-short-ref-face ((t (:foreground "goldenrod")))) - (sgml-start-tag-face ((t (:foreground "blue2")))) - (shell-input-face ((t (:bold t)))) - (shell-option-face ((t (:bold t :foreground "blue4")))) - (shell-output-2-face ((t (:bold t :foreground "green4")))) - (shell-output-3-face ((t (:bold t :foreground "green4")))) - (shell-output-face ((t (:bold t)))) - (shell-prompt-face ((t (:bold t :foreground "red4")))) - (show-paren-match-face ((t (:bold t :background "turquoise")))) - (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white")))) - (speedbar-button-face ((t (:bold t :foreground "magenta")))) - (speedbar-directory-face ((t (:bold t :foreground "orchid")))) - (speedbar-file-face ((t (:bold t :foreground "pink")))) - (speedbar-highlight-face ((t (:background "black")))) - (speedbar-selected-face ((t (:underline t :foreground "cyan")))) - (speedbar-tag-face ((t (:foreground "yellow")))) - (swbuff-current-buffer-face ((t (:bold t :foreground "red")))) - (template-message-face ((t (:bold t)))) - (term-black ((t (:foreground "black")))) - (term-blackbg ((t (:background "black")))) - (term-blue ((t (:foreground "blue")))) - (term-blue-bold-face ((t (:bold t :background "snow2" :foreground "blue")))) - (term-blue-face ((t (:foreground "blue")))) - (term-blue-inv-face ((t (:background "blue")))) - (term-blue-ul-face ((t (:underline t :background "snow2" :foreground "blue")))) - (term-bluebg ((t (:background "blue")))) - (term-bold ((t (:bold t)))) - (term-cyan ((t (:foreground "cyan")))) - (term-cyan-bold-face ((t (:bold t :background "snow2" :foreground "cyan")))) - (term-cyan-face ((t (:foreground "cyan")))) - (term-cyan-inv-face ((t (:background "cyan")))) - (term-cyan-ul-face ((t (:underline t :background "snow2" :foreground "cyan")))) - (term-cyanbg ((t (:background "cyan")))) - (term-default-bg ((t (nil)))) - (term-default-bg-inv ((t (nil)))) - (term-default-bold-face ((t (:bold t :background "snow2" :foreground "darkslategray")))) - (term-default-face ((t (:background "snow2" :foreground "darkslategray")))) - (term-default-fg ((t (nil)))) - (term-default-fg-inv ((t (nil)))) - (term-default-inv-face ((t (:background "darkslategray" :foreground "snow2")))) - (term-default-ul-face ((t (:underline t :background "snow2" :foreground "darkslategray")))) - (term-green ((t (:foreground "green")))) - (term-green-bold-face ((t (:bold t :background "snow2" :foreground "green")))) - (term-green-face ((t (:foreground "green")))) - (term-green-inv-face ((t (:background "green")))) - (term-green-ul-face ((t (:underline t :background "snow2" :foreground "green")))) - (term-greenbg ((t (:background "green")))) - (term-invisible ((t (nil)))) - (term-invisible-inv ((t (nil)))) - (term-magenta ((t (:foreground "magenta")))) - (term-magenta-bold-face ((t (:bold t :background "snow2" :foreground "magenta")))) - (term-magenta-face ((t (:foreground "magenta")))) - (term-magenta-inv-face ((t (:background "magenta")))) - (term-magenta-ul-face ((t (:underline t :background "snow2" :foreground "magenta")))) - (term-magentabg ((t (:background "magenta")))) - (term-red ((t (:foreground "red")))) - (term-red-bold-face ((t (:bold t :background "snow2" :foreground "red")))) - (term-red-face ((t (:foreground "red")))) - (term-red-inv-face ((t (:background "red")))) - (term-red-ul-face ((t (:underline t :background "snow2" :foreground "red")))) - (term-redbg ((t (:background "red")))) - (term-underline ((t (:underline t)))) - (term-white ((t (:foreground "white")))) - (term-white-bold-face ((t (:bold t :background "snow2" :foreground "white")))) - (term-white-face ((t (:foreground "white")))) - (term-white-inv-face ((t (:background "snow2")))) - (term-white-ul-face ((t (:underline t :background "snow2" :foreground "white")))) - (term-whitebg ((t (:background "white")))) - (term-yellow ((t (:foreground "yellow")))) - (term-yellow-bold-face ((t (:bold t :background "snow2" :foreground "yellow")))) - (term-yellow-face ((t (:foreground "yellow")))) - (term-yellow-inv-face ((t (:background "yellow")))) - (term-yellow-ul-face ((t (:underline t :background "snow2" :foreground "yellow")))) - (term-yellowbg ((t (:background "yellow")))) - (text-cursor ((t (:bold t :background "Red3" :foreground "gray80")))) - (toolbar ((t (:bold t :background "Gray80")))) - (underline ((t (:underline t :bold t)))) - (vc-annotate-face-0046FF ((t (nil)))) - (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) - (vertical-divider ((t (:bold t :background "Gray80")))) - (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) - (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) - (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) - (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) - (vhdl-font-lock-generic-/constant-face ((t (nil)))) - (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) - (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) - (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) - (vhdl-font-lock-type-face ((t (nil)))) - (vhdl-font-lock-variable-face ((t (nil)))) - (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) - (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) - (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) - (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) - (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) - (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) - (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) - (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) - (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) - (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) - (vhdl-speedbar-subprogram-face ((t (nil)))) - (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) - (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) - (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-search-face ((t (:background "khaki" :foreground "Black")))) - (vm-xface ((t (:background "white" :foreground "black")))) - (vmpc-pre-sig-face ((t (:foreground "forestgreen")))) - (vmpc-sig-face ((t (:foreground "steelblue")))) - (vvb-face ((t (nil)))) - (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1")))) - (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3")))) - (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat")))) - (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige")))) - (white ((t (:foreground "white")))) - (widget ((t (nil)))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:bold t :foreground "red")))) - (widget-documentation-face ((t (:bold t :foreground "dark green")))) - (widget-field-face ((t (:bold t :background "gray85")))) - (widget-inactive-face ((t (:bold t :foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "gray85")))) - (woman-bold-face ((t (:bold t)))) - (woman-italic-face ((t (:foreground "beige")))) - (woman-unknown-face ((t (:foreground "LightSalmon")))) - (x-face ((t (:bold t :background "white" :foreground "black")))) - (x-symbol-adobe-fontspecific-face ((t (nil)))) - (x-symbol-face ((t (nil)))) - (x-symbol-heading-face ((t (:bold t)))) - (x-symbol-info-face ((t (nil)))) - (x-symbol-invisible-face ((t (nil)))) - (x-symbol-revealed-face ((t (nil)))) - (xrdb-option-name-face ((t (:foreground "red")))) - (xref-keyword-face ((t (:foreground "blue")))) - (xref-list-default-face ((t (nil)))) - (xref-list-pilot-face ((t (:foreground "navy")))) - (xref-list-symbol-face ((t (:foreground "navy")))) - (yellow ((t (:bold t :foreground "yellow")))) - (zmacs-region ((t (:bold t :background "gray65"))))))) - -(defun color-theme-mistyday () - "Color theme by K.C. Hari Kumar, created 2001-06-13. -Black on mistyrose. Includes CUA, calendar, diary, font-latex and -font-lock. Uses backgrounds on some font-lock faces." - (interactive) - (color-theme-install - '(color-theme-mistyday - ((background-color . "mistyrose") - (background-mode . light) - (border-color . "black") - (cursor-color . "deep pink") - (foreground-color . "Black") - (mouse-color . "black")) - ((goto-address-mail-face . italic) - (goto-address-mail-mouse-face . secondary-selection) - (goto-address-url-face . bold) - (goto-address-url-mouse-face . highlight) - (list-matching-lines-face . bold) - (paren-match-face . paren-face-match) - (paren-mismatch-face . paren-face-mismatch) - (paren-no-match-face . paren-face-no-match)) - (default ((t (nil)))) - (CUA-global-mark-face ((t (:background "cyan" :foreground "black")))) - (CUA-rectangle-face ((t (:background "maroon" :foreground "white")))) - (CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white")))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (calendar-today-face ((t (:underline t :background "Spring Green" :foreground "Brown")))) - (custom-button-face ((t (:background "dark slate grey" :foreground "azure")))) - (custom-documentation-face ((t (:background "white" :foreground "blue")))) - (diary-face ((t (:background "navy" :foreground "yellow")))) - (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen")))) - (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen")))) - (font-latex-math-face ((t (:foreground "navy")))) - (font-latex-sedate-face ((t (:foreground "DimGray")))) - (font-latex-string-face ((t (nil)))) - (font-latex-warning-face ((t (nil)))) - (font-lock-builtin-face ((t (:background "DarkTurquoise" :foreground "Navy")))) - (font-lock-comment-face ((t (:italic t :foreground "royal blue")))) - (font-lock-constant-face ((t (:background "pale green" :foreground "dark slate blue")))) - (font-lock-doc-string-face ((t (:background "medium aquamarine" :foreground "deep pink")))) - (font-lock-function-name-face ((t (:background "SpringGreen" :foreground "MidnightBlue")))) - (font-lock-keyword-face ((t (:foreground "dark magenta")))) - (font-lock-preprocessor-face ((t (:background "pale green" :foreground "dark slate blue")))) - (font-lock-reference-face ((t (:background "DarkTurquoise" :foreground "Navy")))) - (font-lock-string-face ((t (:background "medium aquamarine" :foreground "deep pink")))) - (font-lock-type-face ((t (:background "steel blue" :foreground "khaki")))) - (font-lock-variable-name-face ((t (:background "thistle" :foreground "orange red")))) - (font-lock-warning-face ((t (:background "LemonChiffon" :foreground "Red")))) - (highlight ((t (:background "dark slate grey" :foreground "light cyan")))) - (holiday-face ((t (:background "orangered" :foreground "lightyellow")))) - (ido-first-match-face ((t (:bold t)))) - (ido-only-match-face ((t (:foreground "ForestGreen")))) - (ido-subdir-face ((t (:foreground "red")))) - (italic ((t (:italic t)))) - (isearch ((t (:background "sienna" :foreground "light cyan")))) - (modeline ((t (:background "Royalblue4" :foreground "lawn green")))) - (modeline-buffer-id ((t (:background "Royalblue4" :foreground "lawn green")))) - (modeline-mousable ((t (:background "Royalblue4" :foreground "lawn green")))) - (modeline-mousable-minor-mode ((t (:background "Royalblue4" :foreground "lawn green")))) - (paren-face-match ((t (:background "turquoise")))) - (paren-face-mismatch ((t (:background "purple" :foreground "white")))) - (paren-face-no-match ((t (:background "yellow" :foreground "black")))) - (primary-selection ((t (:background "sienna" :foreground "light cyan")))) - (region ((t (:background "sienna" :foreground "light cyan")))) - (secondary-selection ((t (:background "forest green" :foreground "white smoke")))) - (underline ((t (:underline t)))) - (zmacs-region ((t (:background "sienna" :foreground "light cyan"))))))) - -(defun color-theme-marine () - "Color theme by Girish Bharadwaj, created 2001-06-22. -Matches the MS Windows Marine color theme. -Includes custom, font-lock, paren, widget." - (interactive) - (color-theme-install - '(color-theme-marine - ((background-color . "#9dcec9") - (background-mode . light) - (border-color . "black") - (cursor-color . "yellow") - (foreground-color . "darkslategray") - (mouse-color . "sienna1")) - ((buffers-tab-face . buffers-tab) - (gnus-mouse-face . highlight) - (smiley-mouse-face . highlight)) - (default ((t (nil)))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t)))) - (bold-italic ((t (nil)))) - (border-glyph ((t (nil)))) - (buffers-tab ((t (:background "#9dcec9" :foreground "darkslategray")))) - (custom-button-face ((t (nil)))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-comment-face ((t (:background "gray85")))) - (custom-comment-tag-face ((t (:foreground "blue4")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:underline t :foreground "blue")))) - (custom-group-tag-face-1 ((t (:underline t :foreground "deeppink")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "darkgreen")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t :foreground "blue")))) - (display-time-mail-balloon-enhance-face ((t (:background "orange")))) - (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) - (display-time-time-balloon-face ((t (:foreground "red")))) - (font-lock-builtin-face ((t (:foreground "SteelBlue")))) - (font-lock-comment-face ((t (:foreground "cadetblue")))) - (font-lock-constant-face ((t (:foreground "OrangeRed")))) - (font-lock-doc-string-face ((t (:foreground "Salmon")))) - (font-lock-function-name-face ((t (:bold t :foreground "NavyBlue")))) - (font-lock-keyword-face ((t (:bold t :foreground "purple")))) - (font-lock-preprocessor-face ((t (:foreground "SteelBlue")))) - (font-lock-reference-face ((t (:foreground "SteelBlue")))) - (font-lock-string-face ((t (:foreground "royalblue")))) - (font-lock-type-face ((t (:foreground "darkmagenta")))) - (font-lock-variable-name-face ((t (:foreground "violetred")))) - (font-lock-warning-face ((t (:bold t :foreground "red")))) - (green ((t (:foreground "green")))) - (gui-button-face ((t (:background "grey75" :foreground "black")))) - (gui-element ((t (:background "#489088" :foreground "black")))) - (highlight ((t (:background "darkolivegreen" :foreground "white")))) - (isearch ((t (:background "blue")))) - (isearch-secondary ((t (:foreground "red3")))) - (italic ((t (nil)))) - (left-margin ((t (nil)))) - (list-mode-item-selected ((t (:background "gray68" :foreground "darkslategray")))) - (modeline ((t (:background "black" :foreground "white")))) - (modeline-buffer-id ((t (:background "black" :foreground "white")))) - (modeline-mousable ((t (:background "black" :foreground "white")))) - (modeline-mousable-minor-mode ((t (:background "black" :foreground "white")))) - (paren-blink-off ((t (:foreground "black")))) - (paren-match ((t (:background "darkolivegreen" :foreground "white")))) - (paren-mismatch ((t (:background "#9dcec9" :foreground "darkslategray")))) - (pointer ((t (nil)))) - (primary-selection ((t (:background "blue")))) - (red ((t (:foreground "red")))) - (region ((t (:background "blue")))) - (right-margin ((t (nil)))) - (secondary-selection ((t (:background "darkslateblue" :foreground "white")))) - (template-message-face ((t (:bold t)))) - (text-cursor ((t (:background "yellow" :foreground "#9dcec9")))) - (toolbar ((t (nil)))) - (underline ((t (:underline t)))) - (vertical-divider ((t (nil)))) - (widget ((t (nil)))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "forestgreen")))) - (widget-field-face ((t (:background "gray")))) - (widget-inactive-face ((t (:foreground "dimgray")))) - (widget-single-line-field-face ((t (:background "dim gray" :foreground "white")))) - (yellow ((t (:foreground "yellow")))) - (zmacs-region ((t (:background "blue"))))))) - -(defun color-theme-blue-erc () - "Color theme for erc faces only. -This is intended for other color themes to use (eg. `color-theme-gnome2')." - (color-theme-install - '(color-theme-blue-erc - nil - (erc-action-face ((t (nil)))) - (erc-bold-face ((t (:bold t)))) - (erc-current-nick-face ((t (:bold t :foreground "yellow")))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (:foreground "pale green")))) - (erc-error-face ((t (:bold t :foreground "IndianRed")))) - (erc-highlight-face ((t (:bold t :foreground "pale green")))) - (erc-input-face ((t (:foreground "light blue")))) - (erc-inverse-face ((t (:background "steel blue")))) - (erc-keyword-face ((t (:foreground "orange" :bold t)))) - (erc-notice-face ((t (:foreground "light salmon")))) - (erc-notice-face ((t (:foreground "MediumAquamarine")))) - (erc-pal-face ((t (:foreground "pale green")))) - (erc-prompt-face ((t (:foreground "light blue" :bold t)))) - (fg:erc-color-face0 ((t (:foreground "white")))) - (fg:erc-color-face1 ((t (:foreground "beige")))) - (fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) - (fg:erc-color-face3 ((t (:foreground "light cyan")))) - (fg:erc-color-face4 ((t (:foreground "powder blue")))) - (fg:erc-color-face5 ((t (:foreground "sky blue")))) - (fg:erc-color-face6 ((t (:foreground "dark sea green")))) - (fg:erc-color-face7 ((t (:foreground "pale green")))) - (fg:erc-color-face8 ((t (:foreground "medium spring green")))) - (fg:erc-color-face9 ((t (:foreground "khaki")))) - (fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) - (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) - (fg:erc-color-face12 ((t (:foreground "light yellow")))) - (fg:erc-color-face13 ((t (:foreground "yellow")))) - (fg:erc-color-face14 ((t (:foreground "light goldenrod")))) - (fg:erc-color-face15 ((t (:foreground "lime green")))) - (bg:erc-color-face0 ((t (nil)))) - (bg:erc-color-face1 ((t (nil)))) - (bg:erc-color-face2 ((t (nil)))) - (bg:erc-color-face3 ((t (nil)))) - (bg:erc-color-face4 ((t (nil)))) - (bg:erc-color-face5 ((t (nil)))) - (bg:erc-color-face6 ((t (nil)))) - (bg:erc-color-face7 ((t (nil)))) - (bg:erc-color-face8 ((t (nil)))) - (bg:erc-color-face9 ((t (nil)))) - (bg:erc-color-face10 ((t (nil)))) - (bg:erc-color-face11 ((t (nil)))) - (bg:erc-color-face12 ((t (nil)))) - (bg:erc-color-face13 ((t (nil)))) - (bg:erc-color-face14 ((t (nil)))) - (bg:erc-color-face15 ((t (nil))))))) - -(defun color-theme-dark-erc () - "Color theme for erc faces only. -This is intended for other color themes to use (eg. `color-theme-late-night')." - (interactive) - (color-theme-install - '(color-theme-dark-erc - nil - (erc-action-face ((t (nil)))) - (erc-bold-face ((t (:bold t)))) - (erc-current-nick-face ((t (:bold t)))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (nil)))) - (erc-error-face ((t (:bold t :foreground "IndianRed")))) - (erc-highlight-face ((t (:bold t :foreground "pale green")))) - (erc-input-face ((t (:foreground "#555")))) - (erc-inverse-face ((t (:background "steel blue")))) - (erc-keyword-face ((t (:foreground "#999" :bold t)))) - (erc-nick-msg-face ((t (:foreground "#888")))) - (erc-notice-face ((t (:foreground "#444")))) - (erc-pal-face ((t (:foreground "#888")))) - (erc-prompt-face ((t (:foreground "#777" :bold t)))) - (erc-timestamp-face ((t (:foreground "#777" :bold t)))) - (fg:erc-color-face0 ((t (:foreground "white")))) - (fg:erc-color-face1 ((t (:foreground "beige")))) - (fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) - (fg:erc-color-face3 ((t (:foreground "light cyan")))) - (fg:erc-color-face4 ((t (:foreground "powder blue")))) - (fg:erc-color-face5 ((t (:foreground "sky blue")))) - (fg:erc-color-face6 ((t (:foreground "dark sea green")))) - (fg:erc-color-face7 ((t (:foreground "pale green")))) - (fg:erc-color-face8 ((t (:foreground "medium spring green")))) - (fg:erc-color-face9 ((t (:foreground "khaki")))) - (fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) - (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) - (fg:erc-color-face12 ((t (:foreground "light yellow")))) - (fg:erc-color-face13 ((t (:foreground "yellow")))) - (fg:erc-color-face14 ((t (:foreground "light goldenrod")))) - (fg:erc-color-face15 ((t (:foreground "lime green")))) - (bg:erc-color-face0 ((t (nil)))) - (bg:erc-color-face1 ((t (nil)))) - (bg:erc-color-face2 ((t (nil)))) - (bg:erc-color-face3 ((t (nil)))) - (bg:erc-color-face4 ((t (nil)))) - (bg:erc-color-face5 ((t (nil)))) - (bg:erc-color-face6 ((t (nil)))) - (bg:erc-color-face7 ((t (nil)))) - (bg:erc-color-face8 ((t (nil)))) - (bg:erc-color-face9 ((t (nil)))) - (bg:erc-color-face10 ((t (nil)))) - (bg:erc-color-face11 ((t (nil)))) - (bg:erc-color-face12 ((t (nil)))) - (bg:erc-color-face13 ((t (nil)))) - (bg:erc-color-face14 ((t (nil)))) - (bg:erc-color-face15 ((t (nil))))))) - -(defun color-theme-subtle-blue () - "Color theme by Chris McMahan, created 2001-09-06. -Light blue background. Includes bbdb, comint, cperl, custom, cvs, -diary, dired, display-time, ecb, ediff, erc, eshell, font-lock, -gnus, html-helper, info, isearch, jde, message, paren, semantic, -sgml, speedbar, term, vhdl, viper, vm, widget, woman, xref, xxml." - (interactive) - (color-theme-install - '(color-theme-subtle-blue - ((background-color . "#65889C") - (background-mode . dark) - (background-toolbar-color . "#cf3ccf3ccf3c") - (border-color . "black") - (bottom-toolbar-shadow-color . "#79e77df779e7") - (cursor-color . "white") - (foreground-color . "#eedfcc") - (mouse-color . "Grey") - (top-toolbar-shadow-color . "#fffffbeeffff") - (viper-saved-cursor-color-in-replace-mode . "Red3")) - ((blank-space-face . blank-space-face) - (blank-tab-face . blank-tab-face) - (ecb-source-in-directories-buffer-face . ecb-sources-face) - (gnus-mouse-face . highlight) - (list-matching-lines-face . bold) - (view-highlight-face . highlight) - (vm-highlight-url-face . my-url-face) - (vm-highlighted-header-face . my-url-face) - (vm-mime-button-face . gui-button-face) - (vm-summary-highlight-face . my-summary-highlight-face)) - (default ((t (nil)))) - (bbdb-company ((t (:italic t)))) - (bbdb-field-name ((t (:bold t :foreground "MediumAquamarine")))) - (bbdb-field-value ((t (nil)))) - (bbdb-name ((t (:underline t)))) - (blank-space-face ((t (:background "gray80")))) - (blank-tab-face ((t (:background "LightBlue" :foreground "DarkSlateGray")))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t :foreground "MediumAquamarine")))) - (bold-italic ((t (:italic t :bold t :foreground "SkyBlue")))) - (border ((t (:background "black")))) - (border-glyph ((t (nil)))) - (calendar-today-face ((t (:underline t)))) - (comint-highlight-input ((t (:bold t)))) - (comint-highlight-prompt ((t (:foreground "cyan")))) - (comint-input-face ((t (:foreground "deepskyblue")))) - (cperl-array-face ((t (:bold t :foreground "Yellow")))) - (cperl-hash-face ((t (:italic t :bold t :foreground "White")))) - (cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) - (cursor ((t (:background "white")))) - (custom-button-face ((t (:underline t :bold t :foreground "MediumAquaMarine")))) - (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black")))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-comment-face ((t (:background "dim gray")))) - (custom-comment-tag-face ((t (:foreground "gray80")))) - (custom-documentation-face ((t (:foreground "Grey")))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:bold t :foreground "MediumAquamarine")))) - (custom-group-tag-face-1 ((t (:foreground "MediumAquaMarine")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "yellow")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:bold t :foreground "Aquamarine")))) - (cvs-filename-face ((t (:foreground "blue4")))) - (cvs-handled-face ((t (:foreground "pink")))) - (cvs-header-face ((t (:bold t :foreground "blue4")))) - (cvs-marked-face ((t (:bold t :foreground "green3")))) - (cvs-msg-face ((t (:italic t)))) - (cvs-need-action-face ((t (:foreground "orange")))) - (cvs-unknown-face ((t (:foreground "red")))) - (diary-face ((t (:bold t :foreground "cyan")))) - (dired-face-boring ((t (:foreground "Gray65")))) - (dired-face-directory ((t (:bold t :foreground "sky blue")))) - (dired-face-executable ((t (:foreground "MediumAquaMarine")))) - (dired-face-flagged ((t (:foreground "Cyan")))) - (dired-face-marked ((t (:foreground "cyan")))) - (dired-face-permissions ((t (:foreground "aquamarine")))) - (dired-face-setuid ((t (:foreground "LightSalmon")))) - (dired-face-socket ((t (:foreground "LightBlue")))) - (dired-face-symlink ((t (:foreground "gray95")))) - (display-time-mail-balloon-enhance-face ((t (:background "orange")))) - (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) - (display-time-time-balloon-face ((t (:foreground "red")))) - (ecb-sources-face ((t (:foreground "LightBlue1")))) - (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) - (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) - (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) - (ediff-current-diff-face-C ((t (:background "indianred" :foreground "white")))) - (ediff-even-diff-face-A ((t (:background "light gray" :foreground "Black")))) - (ediff-even-diff-face-Ancestor ((t (:background "Gray" :foreground "White")))) - (ediff-even-diff-face-B ((t (:background "Gray" :foreground "White")))) - (ediff-even-diff-face-C ((t (:background "light gray" :foreground "Black")))) - (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) - (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) - (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) - (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) - (ediff-odd-diff-face-A ((t (:background "Gray" :foreground "White")))) - (ediff-odd-diff-face-Ancestor ((t (:background "light gray" :foreground "Black")))) - (ediff-odd-diff-face-B ((t (:background "light gray" :foreground "Black")))) - (ediff-odd-diff-face-C ((t (:background "Gray" :foreground "White")))) - (erc-action-face ((t (:bold t)))) - (erc-bold-face ((t (:bold t)))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (:foreground "LightSalmon")))) - (erc-error-face ((t (:bold t :foreground "yellow")))) - (erc-input-face ((t (:foreground "Beige")))) - (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey")))) - (erc-notice-face ((t (:foreground "MediumAquamarine")))) - (erc-pal-face ((t (:foreground "PaleGreen")))) - (erc-prompt-face ((t (:foreground "MediumAquamarine")))) - (erc-underline-face ((t (:underline t)))) - (eshell-ls-archive-face ((t (:bold t :foreground "wheat")))) - (eshell-ls-backup-face ((t (:foreground "Grey")))) - (eshell-ls-clutter-face ((t (:bold t :foreground "wheat")))) - (eshell-ls-directory-face ((t (:bold t :foreground "Yellow")))) - (eshell-ls-executable-face ((t (:bold t :foreground "wheat")))) - (eshell-ls-missing-face ((t (:bold t :foreground "wheat")))) - (eshell-ls-picture-face ((t (:foreground "wheat")))) - (eshell-ls-product-face ((t (:foreground "wheat")))) - (eshell-ls-readonly-face ((t (:foreground "wheat")))) - (eshell-ls-special-face ((t (:bold t :foreground "wheat")))) - (eshell-ls-symlink-face ((t (:bold t :foreground "White")))) - (eshell-ls-text-face ((t (:foreground "wheat")))) - (eshell-ls-todo-face ((t (:foreground "wheat")))) - (eshell-ls-unreadable-face ((t (:foreground "wheat3")))) - (eshell-prompt-face ((t (:bold t :foreground "PaleGreen")))) - (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) - (eshell-test-ok-face ((t (:bold t :foreground "Green")))) - (excerpt ((t (:italic t)))) - (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) - (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) - (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) - (font-latex-italic-face ((t (nil)))) - (font-latex-math-face ((t (nil)))) - (font-latex-sedate-face ((t (:foreground "Gray85")))) - (font-latex-string-face ((t (:foreground "orange")))) - (font-latex-warning-face ((t (:foreground "gold")))) - (font-lock-builtin-face ((t (:foreground "PaleGreen")))) - (font-lock-comment-face ((t (:italic t :foreground "Wheat3")))) - (font-lock-constant-face ((t (:foreground "LightBlue")))) - (font-lock-doc-face ((t (:bold t :foreground "DarkSeaGreen")))) - (font-lock-doc-string-face ((t (:bold t :foreground "DarkSeaGreen")))) - (font-lock-exit-face ((t (:foreground "green")))) - (font-lock-function-name-face ((t (:italic t :bold t :foreground "cyan")))) - (font-lock-keyword-face ((t (:bold t :foreground "LightBlue")))) - (font-lock-preprocessor-face ((t (:foreground "blue3")))) - (font-lock-reference-face ((t (:foreground "PaleGreen")))) - (font-lock-string-face ((t (:italic t :foreground "MediumAquamarine")))) - (font-lock-type-face ((t (:bold t :foreground "LightBlue")))) - (font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightBlue")))) - (font-lock-warning-face ((t (:bold t :foreground "LightSalmon")))) - (fringe ((t (:background "darkslategrey")))) - (gnus-cite-attribution-face ((t (:italic t :bold t)))) - (gnus-cite-face-1 ((t (:foreground "LightBlue")))) - (gnus-cite-face-10 ((t (:foreground "LightBlue")))) - (gnus-cite-face-11 ((t (:foreground "LightBlue")))) - (gnus-cite-face-2 ((t (:foreground "LightBlue")))) - (gnus-cite-face-3 ((t (:foreground "LightBlue")))) - (gnus-cite-face-4 ((t (:foreground "LightBlue")))) - (gnus-cite-face-5 ((t (:foreground "LightBlue")))) - (gnus-cite-face-6 ((t (:foreground "LightBlue")))) - (gnus-cite-face-7 ((t (:foreground "LightBlue")))) - (gnus-cite-face-8 ((t (:foreground "LightBlue")))) - (gnus-cite-face-9 ((t (:foreground "LightBlue")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) - (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) - (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) - (gnus-filterhist-face-1 ((t (nil)))) - (gnus-group-mail-1-empty-face ((t (:foreground "gray80")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "light cyan")))) - (gnus-group-mail-2-empty-face ((t (:foreground "gray80")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise")))) - (gnus-group-mail-3-empty-face ((t (:foreground "gray80")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue")))) - (gnus-group-mail-low-empty-face ((t (:foreground "gray80")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "LightBlue")))) - (gnus-group-news-1-empty-face ((t (:foreground "gray80")))) - (gnus-group-news-1-face ((t (:bold t :foreground "green yellow")))) - (gnus-group-news-2-empty-face ((t (:foreground "gray80")))) - (gnus-group-news-2-face ((t (:bold t :foreground "Aquamarine")))) - (gnus-group-news-3-empty-face ((t (:foreground "gray80")))) - (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue")))) - (gnus-group-news-4-empty-face ((t (:foreground "gray80")))) - (gnus-group-news-4-face ((t (:bold t :foreground "Wheat")))) - (gnus-group-news-5-empty-face ((t (:foreground "gray80")))) - (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine")))) - (gnus-group-news-6-empty-face ((t (:foreground "gray80")))) - (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine")))) - (gnus-group-news-low-empty-face ((t (:foreground "gray80")))) - (gnus-group-news-low-face ((t (:bold t :foreground "yellow green")))) - (gnus-header-content-face ((t (:italic t :foreground "LightSkyBlue3")))) - (gnus-header-from-face ((t (:bold t :foreground "light cyan")))) - (gnus-header-name-face ((t (:bold t :foreground "LightBlue")))) - (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) - (gnus-header-subject-face ((t (:bold t :foreground "light cyan")))) - (gnus-picons-face ((t (:background "white" :foreground "black")))) - (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) - (gnus-signature-face ((t (:italic t :foreground "LightBlue")))) - (gnus-splash ((t (:foreground "Brown")))) - (gnus-splash-face ((t (:foreground "LightBlue")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "gray80")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "LightBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "gray80")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "burlywood")))) - (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "wheat")))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "LightBlue")))) - (gnus-summary-low-read-face ((t (:italic t :foreground "light sea green")))) - (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "LightBlue")))) - (gnus-summary-low-unread-face ((t (:italic t :foreground "light sea green")))) - (gnus-summary-normal-ancient-face ((t (:foreground "gray80")))) - (gnus-summary-normal-read-face ((t (:foreground "gray80")))) - (gnus-summary-normal-ticked-face ((t (:bold t :foreground "sandy brown")))) - (gnus-summary-normal-unread-face ((t (:bold t :foreground "wheat")))) - (gnus-summary-selected-face ((t (:underline t)))) - (gnus-x-face ((t (:background "white" :foreground "black")))) - (green ((t (:foreground "green")))) - (gui-button-face ((t (:background "cyan" :foreground "#65889C")))) - (gui-element ((t (:background "Gray")))) - (header-line ((t (:background "grey20" :foreground "grey90")))) - (highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) - (highlight-changes-delete-face ((t (:underline t :foreground "red")))) - (highlight-changes-face ((t (:foreground "red")))) - (highline-face ((t (:background "SeaGreen")))) - (holiday-face ((t (:background "DimGray")))) - (html-helper-bold-face ((t (:foreground "DarkRed")))) - (html-helper-italic-face ((t (:foreground "DarkBlue")))) - (html-helper-underline-face ((t (:underline t :foreground "Black")))) - (html-tag-face ((t (:foreground "Blue")))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:underline t :italic t :bold t :foreground "light blue")))) - (info-xref ((t (:bold t :foreground "light blue")))) - (isearch ((t (:background "Aquamarine" :foreground "SteelBlue")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) - (isearch-secondary ((t (:foreground "red3")))) - (italic ((t (:italic t)))) - (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) - (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) - (jde-java-font-lock-api-face ((t (:foreground "LightBlue")))) - (jde-java-font-lock-bold-face ((t (:bold t)))) - (jde-java-font-lock-code-face ((t (nil)))) - (jde-java-font-lock-constant-face ((t (:foreground "LightBlue")))) - (jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue")))) - (jde-java-font-lock-italic-face ((t (:italic t)))) - (jde-java-font-lock-link-face ((t (:underline t :foreground "LightBlue")))) - (jde-java-font-lock-modifier-face ((t (:foreground "LightBlue")))) - (jde-java-font-lock-number-face ((t (:foreground "LightBlue")))) - (jde-java-font-lock-package-face ((t (:foreground "LightBlue")))) - (jde-java-font-lock-pre-face ((t (nil)))) - (jde-java-font-lock-underline-face ((t (:underline t)))) - (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) - (left-margin ((t (nil)))) - (linemenu-face ((t (:background "gray30")))) - (list-mode-item-selected ((t (nil)))) - (makefile-space-face ((t (:background "hotpink")))) - (menu ((t (:background "wheat" :foreground "gray30")))) - (message-cited-text-face ((t (:foreground "White")))) - (message-header-cc-face ((t (:bold t :foreground "light cyan")))) - (message-header-name-face ((t (:foreground "LightBlue")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) - (message-header-other-face ((t (:foreground "LightSkyBlue3")))) - (message-header-subject-face ((t (:bold t :foreground "light cyan")))) - (message-header-to-face ((t (:bold t :foreground "light cyan")))) - (message-header-xheader-face ((t (:foreground "LightBlue")))) - (message-mml-face ((t (:bold t :foreground "LightBlue")))) - (message-separator-face ((t (:foreground "LightBlue")))) - (mmm-default-submode-face ((t (:background "#c0c0c5")))) - (modeline ((t (:background "#4f657d" :foreground "gray80")))) - (modeline-buffer-id ((t (:background "#4f657d" :foreground "gray80")))) - (modeline-mousable ((t (:background "#4f657d" :foreground "gray80")))) - (modeline-mousable-minor-mode ((t (:background "#4f657d" :foreground "gray80")))) - (mouse ((t (:background "Grey")))) - (my-summary-highlight-face ((t (:foreground "White")))) - (my-url-face ((t (:foreground "PaleTurquoise")))) - (nil ((t (nil)))) - (paren-blink-off ((t (:foreground "gray")))) - (paren-face-match ((t (:background "turquoise")))) - (paren-face-mismatch ((t (:background "purple" :foreground "white")))) - (paren-face-no-match ((t (:background "yellow" :foreground "black")))) - (paren-match ((t (:background "darkseagreen2")))) - (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) - (paren-mismatch-face ((t (:bold t)))) - (paren-no-match-face ((t (:bold t)))) - (pointer ((t (nil)))) - (primary-selection ((t (:background "gray65")))) - (red ((t (:foreground "red")))) - (region ((t (:background "CadetBlue" :foreground "gray80")))) - (right-margin ((t (nil)))) - (scroll-bar ((t (nil)))) - (secondary-selection ((t (:background "LightBlue" :foreground "#4f657d")))) - (semantic-dirty-token-face ((t (:background "gray10")))) - (semantic-intangible-face ((t (:foreground "gray25")))) - (semantic-read-only-face ((t (:background "gray25")))) - (senator-intangible-face ((t (:foreground "gray75")))) - (senator-momentary-highlight-face ((t (:background "gray80")))) - (senator-read-only-face ((t (:background "#664444")))) - (sgml-comment-face ((t (:foreground "dark turquoise")))) - (sgml-doctype-face ((t (:foreground "red")))) - (sgml-end-tag-face ((t (:foreground "blue")))) - (sgml-entity-face ((t (:foreground "magenta")))) - (sgml-ignored-face ((t (:background "gray60" :foreground "gray40")))) - (sgml-ms-end-face ((t (:foreground "green")))) - (sgml-ms-start-face ((t (:foreground "yellow")))) - (sgml-pi-face ((t (:foreground "lime green")))) - (sgml-sgml-face ((t (:foreground "brown")))) - (sgml-short-ref-face ((t (:foreground "deep sky blue")))) - (sgml-start-tag-face ((t (:foreground "dark green")))) - (shell-option-face ((t (:foreground "blue")))) - (shell-output-2-face ((t (:foreground "darkseagreen")))) - (shell-output-3-face ((t (:foreground "slategray")))) - (shell-output-face ((t (:foreground "palegreen")))) - (shell-prompt-face ((t (:foreground "red")))) - (show-paren-match-face ((t (:background "Aquamarine" :foreground "steel blue")))) - (show-paren-mismatch-face ((t (:bold t :background "IndianRed" :foreground "White")))) - (speedbar-button-face ((t (:bold t :foreground "LightBlue")))) - (speedbar-directory-face ((t (:bold t :foreground "yellow")))) - (speedbar-file-face ((t (:bold t :foreground "wheat")))) - (speedbar-highlight-face ((t (:background "sea green")))) - (speedbar-selected-face ((t (:underline t)))) - (speedbar-tag-face ((t (:foreground "LightBlue")))) - (swbuff-current-buffer-face ((t (:bold t :foreground "red")))) - (template-message-face ((t (:bold t)))) - (term-black ((t (:foreground "black")))) - (term-blackbg ((t (:background "black")))) - (term-blue ((t (:foreground "blue")))) - (term-bluebg ((t (:background "blue")))) - (term-bold ((t (:bold t)))) - (term-cyan ((t (:foreground "cyan")))) - (term-cyanbg ((t (:background "cyan")))) - (term-default-bg ((t (nil)))) - (term-default-bg-inv ((t (nil)))) - (term-default-fg ((t (nil)))) - (term-default-fg-inv ((t (nil)))) - (term-green ((t (:foreground "green")))) - (term-greenbg ((t (:background "green")))) - (term-invisible ((t (nil)))) - (term-invisible-inv ((t (nil)))) - (term-magenta ((t (:foreground "magenta")))) - (term-magentabg ((t (:background "magenta")))) - (term-red ((t (:foreground "red")))) - (term-redbg ((t (:background "red")))) - (term-underline ((t (:underline t)))) - (term-white ((t (:foreground "white")))) - (term-whitebg ((t (:background "white")))) - (term-yellow ((t (:foreground "yellow")))) - (term-yellowbg ((t (:background "yellow")))) - (text-cursor ((t (:background "Red3" :foreground "white")))) - (tool-bar ((t (:background "grey75" :foreground "black")))) - (toolbar ((t (:background "Gray")))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (nil)))) - (vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat")))) - (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) - (vertical-divider ((t (:background "Gray")))) - (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) - (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) - (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) - (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) - (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) - (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) - (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) - (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) - (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) - (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) - (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) - (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) - (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) - (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) - (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) - (vhdl-speedbar-package-face ((t (:foreground "Gray50")))) - (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Gray50")))) - (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) - (viper-minibuffer-vi-face ((t (:background "gray" :foreground "DarkGreen")))) - (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-search-face ((t (:background "khaki" :foreground "Black")))) - (vm-header-content-face ((t (:italic t :foreground "gray80")))) - (vm-header-from-face ((t (:italic t :background "#65889C" :foreground "cyan")))) - (vm-header-name-face ((t (:foreground "cyan")))) - (vm-header-subject-face ((t (:foreground "cyan")))) - (vm-header-to-face ((t (:italic t :foreground "cyan")))) - (vm-message-cited-face ((t (:foreground "Gray80")))) - (vm-summary-face-1 ((t (:foreground "MediumAquamarine")))) - (vm-summary-face-2 ((t (:foreground "MediumAquamarine")))) - (vm-summary-face-3 ((t (:foreground "MediumAquamarine")))) - (vm-summary-face-4 ((t (:foreground "MediumAquamarine")))) - (vm-summary-highlight-face ((t (:foreground "White")))) - (vmpc-pre-sig-face ((t (:foreground "Aquamarine")))) - (vmpc-sig-face ((t (:foreground "LightBlue")))) - (vvb-face ((t (:background "pink" :foreground "black")))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "cyan")))) - (widget-documentation-face ((t (:foreground "LightBlue")))) - (widget-field-face ((t (:foreground "LightBlue")))) - (widget-inactive-face ((t (:foreground "Wheat3")))) - (widget-single-line-field-face ((t (:foreground "LightBlue")))) - (woman-bold-face ((t (:bold t)))) - (woman-italic-face ((t (:foreground "beige")))) - (woman-unknown-face ((t (:foreground "LightSalmon")))) - (xref-keyword-face ((t (:foreground "Cyan")))) - (xref-list-pilot-face ((t (:foreground "navy")))) - (xref-list-symbol-face ((t (:foreground "navy")))) - (xxml-emph-1-face ((t (:background "lightyellow")))) - (xxml-emph-2-face ((t (:background "lightyellow")))) - (xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine")))) - (xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue")))) - (xxml-header-3-face ((t (:background "seashell1")))) - (xxml-header-4-face ((t (:background "seashell1")))) - (xxml-interaction-face ((t (:background "lightcyan")))) - (xxml-rug-face ((t (:background "cyan")))) - (xxml-sparkle-face ((t (:background "yellow")))) - (xxml-unbreakable-space-face ((t (:underline t :foreground "grey")))) - (yellow ((t (:foreground "yellow")))) - (zmacs-region ((t (:background "#4f657d"))))))) - -(defun color-theme-dark-blue () - "Color theme by Chris McMahan, created 2001-09-09. -Based on `color-theme-subtle-blue' with a slightly darker background." - (interactive) - (color-theme-subtle-blue) - (let ((color-theme-is-cumulative t)) - (color-theme-install - '(color-theme-dark-blue - ((background-color . "#537182") - (foreground-color . "AntiqueWhite2")) - nil - (default ((t (nil)))) - (blank-space-face ((t (:background "LightGray")))) - (blank-tab-face ((t (:background "Wheat" :foreground "DarkSlateGray")))) - (cursor ((t (:background "LightGray")))) - (dired-face-executable ((t (:foreground "green yellow")))) - (dired-face-flagged ((t (:foreground "tomato")))) - (dired-face-marked ((t (:foreground "light salmon")))) - (dired-face-setuid ((t (:foreground "Red")))) - (dired-face-socket ((t (:foreground "magenta")))) - (fixed ((t (:bold t)))) - (font-lock-comment-face ((t (:italic t :foreground "Gray80")))) - (font-lock-doc-face ((t (:bold t)))) - (font-lock-function-name-face ((t (:italic t :bold t :foreground "Yellow")))) - (font-lock-string-face ((t (:italic t :foreground "DarkSeaGreen")))) - (font-lock-type-face ((t (:bold t :foreground "YellowGreen")))) - (gui-button-face ((t (:background "DarkSalmon" :foreground "white")))) - (modeline ((t (:background "#c1ccd9" :foreground "#4f657d")))) - (modeline-buffer-id ((t (:background "#c1ccd9" :foreground "#4f657d")))) - (modeline-mousable ((t (:background "#c1ccd9" :foreground "#4f657d")))) - (modeline-mousable-minor-mode ((t (:background "#c1ccd9" :foreground "#4f657d")))) - (my-url-face ((t (:foreground "LightBlue")))) - (region ((t (:background "PaleTurquoise4" :foreground "gray80")))) - (secondary-selection ((t (:background "sea green" :foreground "yellow")))) - (vm-header-content-face ((t (:italic t :foreground "wheat")))) - (vm-header-from-face ((t (:italic t :foreground "wheat")))) - (widget-button-pressed-face ((t (:foreground "red")))) - (xref-keyword-face ((t (:foreground "blue")))) - (zmacs-region ((t (:background "SlateGray")))))))) - -(defun color-theme-jonadabian-slate () - "Another slate-and-wheat color theme by Jonadab the Unsightly One. -Updated 2001-10-12." - (interactive) - (color-theme-install - '(color-theme-jonadabian-slate - ((background-color . "#305050") - (background-mode . dark) - (border-color . "black") - (cursor-color . "medium turquoise") - (foreground-color . "#CCBB77") - (mouse-color . "black")) - ((list-matching-lines-face . bold) - (ued-mode-keyname-face . modeline) - (view-highlight-face . highlight)) - (default ((t (nil)))) - (fringe ((t (:background "#007080")))) - (bold ((t (:bold t :foreground "#EEDDAA")))) - (gnus-emphasis-bold ((t (:bold t :foreground "#EEDDAA")))) - (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "#EEDDAA")))) - (bold-italic ((t (:italic t :bold t :foreground "#AA0000")))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "#AA0000")))) - (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :foreground "#AA0000")))) - (gnus-emphasis-underline-italic ((t (:underline t :italic t :bold t :foreground "#AA0000")))) - (calendar-today-face ((t (:underline t :background "darkslategrey")))) - (cperl-array-face ((t (:background "#004060")))) - (cperl-hash-face ((t (:background "#004400")))) - (custom-button-face ((t (:background "dark blue" :foreground "rgbi:1.00/1.00/0.00")))) - (custom-documentation-face ((t (:foreground "#10D010")))) - (custom-face-tag-face ((t (:underline t :foreground "goldenrod")))) - (custom-group-tag-face ((t (:underline t :foreground "light blue")))) - (custom-group-tag-face-1 ((t (:underline t :foreground "pink")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:foreground "#6666dd")))) - (custom-state-face ((t (:foreground "mediumaquamarine")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t :foreground "light blue")))) - (diary-face ((t (:foreground "red")))) - (eshell-ls-archive-face ((t (:foreground "green")))) - (eshell-ls-backup-face ((t (:foreground "grey60")))) - (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) - (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue")))) - (eshell-ls-executable-face ((t (:foreground "white")))) - (eshell-ls-missing-face ((t (:foreground "red")))) - (eshell-ls-product-face ((t (:foreground "LightSalmon")))) - (eshell-ls-readonly-face ((t (:foreground "indian red")))) - (eshell-ls-special-face ((t (:foreground "yellow")))) - (eshell-ls-symlink-face ((t (:foreground "#6666dd")))) - (eshell-ls-unreadable-face ((t (:foreground "red")))) - (eshell-prompt-face ((t (:bold t :background "#305050" :foreground "#EEDD99")))) - (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) - (font-lock-comment-face ((t (:italic t :bold t :foreground "grey66")))) - (font-lock-constant-face ((t (:foreground "indian red")))) - (font-lock-function-name-face ((t (:foreground "#D0D000")))) - (font-lock-keyword-face ((t (:foreground "#00BBBB")))) - (font-lock-string-face ((t (:foreground "#10D010")))) - (font-lock-type-face ((t (:bold t :foreground "#ff7788")))) - (font-lock-variable-name-face ((t (:foreground "#eeddaa")))) - (font-lock-warning-face ((t (:bold t :foreground "Pink")))) - (header-line ((t (:box (:line-width 1 :style released-button))))) - (highlight ((t (:background "#226644")))) - (highlight-changes-delete-face ((t (:background "navy" :foreground "red")))) - (highlight-changes-face ((t (:background "navy")))) - (holiday-face ((t (:foreground "#ff7744")))) - (italic ((t (:italic t :foreground "#AA0000")))) - (gnus-emphasis-italic ((t (:italic t :foreground "#AA0000")))) - (modeline ((t (:background "#007080" :foreground "cyan")))) - (modeline-buffer-id ((t (:background "#007080" :foreground "cyan")))) - (modeline-mousable ((t (:background "#007080" :foreground "cyan")))) - (modeline-mousable-minor-mode ((t (:background "#007080" :foreground "cyan")))) - (region ((t (:background "#226644")))) - (secondary-selection ((t (:background "darkslategrey")))) - (sgml-comment-face ((t (:foreground "grey60")))) - (sgml-doctype-face ((t (:foreground "red")))) - (sgml-end-tag-face ((t (:foreground "#00D0D0")))) - (sgml-entity-face ((t (:foreground "indian red")))) - (sgml-ignored-face ((t (:background "gray60" :foreground "gray40")))) - (sgml-ms-end-face ((t (:foreground "green")))) - (sgml-ms-start-face ((t (:foreground "green")))) - (sgml-pi-face ((t (:foreground "lime green")))) - (sgml-sgml-face ((t (:foreground "brown")))) - (sgml-short-ref-face ((t (:foreground "deep sky blue")))) - (sgml-start-tag-face ((t (:foreground "#D0D000")))) - (show-paren-match-face ((t (:background "#400055" :foreground "cyan")))) - (show-paren-mismatch-face ((t (:background "red")))) - (special-string-face ((t (:foreground "light green")))) - (term-black ((t (:background "#000055" :foreground "black")))) - (term-blackbg ((t (:background "black" :foreground "#CCBB77")))) - (term-blue ((t (:background "#000055" :foreground "blue")))) - (term-bluebg ((t (:background "blue" :foreground "#CCBB77")))) - (term-bold ((t (:bold t :background "#000055" :foreground "#CCBB77")))) - (term-cyan ((t (:background "#000055" :foreground "cyan")))) - (term-cyanbg ((t (:background "darkcyan")))) - (term-default-bg ((t (:foreground "#CCBB77")))) - (term-default-bg-inv ((t (:foreground "#CCBB77")))) - (term-default-fg ((t (:background "#000055")))) - (term-default-fg-inv ((t (:background "#000055")))) - (term-green ((t (:background "#000055" :foreground "green")))) - (term-greenbg ((t (:background "darkgreen")))) - (term-invisible ((t (:foreground "#CCBB77")))) - (term-invisible-inv ((t (:foreground "#CCBB77")))) - (term-magenta ((t (:background "#000055" :foreground "magenta")))) - (term-magentabg ((t (:background "darkmagenta")))) - (term-red ((t (:background "#000055" :foreground "red")))) - (term-redbg ((t (:background "darkred")))) - (term-underline ((t (:underline t :background "#000055" :foreground "#CCBB77")))) - (term-white ((t (:background "#000055" :foreground "white")))) - (term-whitebg ((t (:background "grey50")))) - (term-yellow ((t (:background "#000055" :foreground "yellow")))) - (term-yellowbg ((t (:background "#997700")))) - (trailing-whitespace ((t (:background "#23415A")))) - (underline ((t (:underline t)))) - (gnus-emphasis-underline ((t (:underline t)))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "green")))) - (widget-field-face ((t (:background "grey35" :foreground "black")))) - (widget-inactive-face ((t (:foreground "gray")))) - (widget-single-line-field-face ((t (:background "dim gray"))))))) - -(defun color-theme-gray1 () - "Color theme by Paul Pulli, created 2001-10-19." - (interactive) - (color-theme-install - '(color-theme-gray1 - ((background-color . "darkgray") - (background-mode . light) - (background-toolbar-color . "#949494949494") - (border-color . "#000000000000") - (bottom-toolbar-shadow-color . "#595959595959") - (cursor-color . "Yellow") - (foreground-color . "black") - (top-toolbar-shadow-color . "#b2b2b2b2b2b2")) - nil - (default ((t (nil)))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (border-glyph ((t (nil)))) - (cperl-here-face ((t (:background "gray68" :foreground "DeepPink")))) - (font-lock-builtin-face ((t (:bold t :foreground "red3")))) - (font-lock-comment-face ((t (:foreground "gray50")))) - (font-lock-constant-face ((t (:bold t :foreground "blue3")))) - (font-lock-doc-string-face ((t (:foreground "black")))) - (font-lock-function-name-face ((t (:bold t :foreground "DeepPink3")))) - (font-lock-keyword-face ((t (:bold t :foreground "red")))) - (font-lock-other-type-face ((t (:bold t :foreground "green4")))) - (font-lock-preprocessor-face ((t (:bold t :foreground "blue3")))) - (font-lock-reference-face ((t (:bold t :foreground "red3")))) - (font-lock-string-face ((t (:foreground "red")))) - (font-lock-type-face ((t (:bold t :foreground "white")))) - (font-lock-variable-name-face ((t (:bold t :foreground "blue3")))) - (font-lock-warning-face ((t (:bold t :foreground "Red")))) - (green ((t (:foreground "green4")))) - (gui-button-face ((t (:background "black" :foreground "red")))) - (gui-element ((t (:background "gray58")))) - (highlight ((t (:background "magenta" :foreground "yellow")))) - (isearch ((t (:background "red" :foreground "yellow")))) - (italic ((t (:italic t)))) - (left-margin ((t (nil)))) - (list-mode-item-selected ((t (:background "gray90" :foreground "purple")))) - (m4-face ((t (:background "gray90" :foreground "orange3")))) - (message-cited-text ((t (nil)))) - (message-header-contents ((t (nil)))) - (message-headers ((t (nil)))) - (message-highlighted-header-contents ((t (nil)))) - (modeline ((t (:background "#aa80aa" :foreground "White")))) - (modeline-buffer-id ((t (:background "#aa80aa" :foreground "linen")))) - (modeline-mousable ((t (:background "#aa80aa" :foreground "cyan")))) - (modeline-mousable-minor-mode ((t (:background "#aa80aa" :foreground "yellow")))) - (paren-blink-off ((t (:foreground "gray58")))) - (paren-blink-on ((t (:foreground "purple")))) - (paren-match ((t (:background "gray68" :foreground "white")))) - (paren-mismatch ((t (:background "DeepPink" :foreground "black")))) - (pointer ((t (nil)))) - (primary-selection ((t (:background "gray")))) - (red ((t (:foreground "red")))) - (right-margin ((t (nil)))) - (secondary-selection ((t (:background "paleturquoise")))) - (text-cursor ((t (:background "Yellow" :foreground "darkgray")))) - (toolbar ((t (:background "#aa80aa" :foreground "linen")))) - (underline ((t (:underline t)))) - (vertical-divider ((t (nil)))) - (x-face ((t (:background "black" :foreground "lavenderblush")))) - (yellow ((t (:foreground "yellow3")))) - (zmacs-region ((t (:background "paleturquoise" :foreground "black"))))))) - -(defun color-theme-word-perfect () - "White on blue background, based on WordPerfect 5.1. -Color theme by Thomas Gehrlein, created 2001-10-21." - (interactive) - (color-theme-install - '(color-theme-word-perfect - ((background-color . "blue4") - (background-mode . dark) - (border-color . "black") - (cursor-color . "gold") - (foreground-color . "white") - (mouse-color . "black")) - ((ecb-source-in-directories-buffer-face . ecb-sources-face) - (gnus-mouse-face . highlight) - (goto-address-mail-face . italic) - (goto-address-mail-mouse-face . secondary-selection) - (goto-address-url-face . bold) - (goto-address-url-mouse-face . highlight) - (list-matching-lines-face . bold) - (view-highlight-face . highlight)) - (default ((t (nil)))) - (bbdb-field-name ((t (:foreground "lime green")))) - (bbdb-field-value ((t (:foreground "white")))) - (bbdb-name ((t (:underline t :foreground "lime green")))) - (bold ((t (:bold t :foreground "white")))) - (bold-italic ((t (:italic t :bold t :foreground "yellow")))) - (calendar-today-face ((t (:underline t :foreground "deep sky blue")))) - (diary-face ((t (:foreground "gold")))) - (ecb-sources-face ((t (:foreground "LightBlue1")))) - (edb-inter-field-face ((t (:foreground "deep sky blue")))) - (edb-normal-summary-face ((t (:foreground "gold")))) - (emacs-wiki-bad-link-face ((t (:underline "coral" :bold t :foreground "coral")))) - (emacs-wiki-link-face ((t (:underline "cyan" :bold t :foreground "cyan")))) - (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) - (font-lock-comment-face ((t (:foreground "deep sky blue")))) - (font-lock-constant-face ((t (:foreground "lime green")))) - (font-lock-doc-face ((t (:foreground "gold")))) - (font-lock-doc-string-face ((t (:foreground "gold")))) - (font-lock-function-name-face ((t (:background "blue4" :foreground "IndianRed")))) - (font-lock-keyword-face ((t (:foreground "lime green")))) - (font-lock-preprocessor-face ((t (:foreground "lime green")))) - (font-lock-reference-face ((t (:foreground "LightSteelBlue")))) - (font-lock-string-face ((t (:foreground "gold")))) - (font-lock-type-face ((t (:foreground "lime green")))) - (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) - (font-lock-warning-face ((t (:bold t :foreground "firebrick")))) - (gnus-emphasis-bold ((t (:foreground "yellow2")))) - (gnus-emphasis-bold-italic ((t (:foreground "yellow2")))) - (gnus-emphasis-italic ((t (:foreground "yellow2")))) - (gnus-emphasis-underline ((t (:foreground "yellow2")))) - (gnus-emphasis-underline-bold ((t (:foreground "yellow2")))) - (gnus-emphasis-underline-bold-italic ((t (:foreground "yellow2")))) - (gnus-emphasis-underline-italic ((t (:foreground "yellow2")))) - (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) - (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) - (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3")))) - (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) - (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) - (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) - (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) - (gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) - (gnus-group-news-3-empty-face ((t (:foreground "deep sky blue")))) - (gnus-group-news-3-face ((t (:bold t :foreground "deep sky blue")))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) - (gnus-header-content-face ((t (:foreground "gold")))) - (gnus-header-from-face ((t (:foreground "gold")))) - (gnus-header-name-face ((t (:foreground "deep sky blue")))) - (gnus-header-newsgroups-face ((t (:foreground "gold")))) - (gnus-header-subject-face ((t (:foreground "gold")))) - (gnus-signature-face ((t (:foreground "gold")))) - (gnus-splash-face ((t (:foreground "firebrick")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "deep sky blue")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "deep sky blue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "deep sky blue")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "deep sky blue")))) - (gnus-summary-high-unread-face ((t (:bold t :foreground "lime green")))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "deep sky blue")))) - (gnus-summary-low-read-face ((t (:italic t :foreground "deep sky blue")))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "deep sky blue")))) - (gnus-summary-low-unread-face ((t (:italic t :foreground "lime green")))) - (gnus-summary-normal-ancient-face ((t (:foreground "deep sky blue")))) - (gnus-summary-normal-read-face ((t (:foreground "deep sky blue")))) - (gnus-summary-normal-ticked-face ((t (:foreground "deep sky blue")))) - (gnus-summary-normal-unread-face ((t (:foreground "lime green")))) - (gnus-summary-selected-face ((t (:underline t :foreground "gold")))) - (highlight ((t (:background "steel blue" :foreground "black")))) - (holiday-face ((t (:background "blue4" :foreground "IndianRed1")))) - (info-menu-5 ((t (:underline t :foreground "gold")))) - (info-node ((t (:italic t :bold t :foreground "gold")))) - (info-xref ((t (:bold t :foreground "gold")))) - (isearch ((t (:background "firebrick" :foreground "white")))) - (italic ((t (:italic t :foreground "yellow2")))) - (message-cited-text-face ((t (:foreground "gold")))) - (message-header-cc-face ((t (:bold t :foreground "green4")))) - (message-header-name-face ((t (:foreground "deep sky blue")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "gold")))) - (message-header-other-face ((t (:foreground "gold")))) - (message-header-subject-face ((t (:foreground "gold")))) - (message-header-to-face ((t (:bold t :foreground "gold")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-separator-face ((t (:foreground "lime green")))) - (modeline ((t (:foreground "white" :background "black")))) - (modeline-buffer-id ((t (:foreground "white" :background "black")))) - (modeline-mousable ((t (:foreground "white" :background "black")))) - (modeline-mousable-minor-mode ((t (:foreground "white" :background "black")))) - (overlay-empty-face ((t (nil)))) - (primary-selection ((t (:background "firebrick" :foreground "white")))) - (region ((t (:background "firebrick" :foreground "white")))) - (secondary-selection ((t (:background "yellow2" :foreground "black")))) - (semantic-dirty-token-face ((t (:background "gray10")))) - (show-paren-match-face ((t (:background "deep sky blue" :foreground "black")))) - (show-paren-mismatch-face ((t (:background "firebrick" :foreground "white")))) - (underline ((t (:underline t :background "blue4" :foreground "white"))))))) - -;; In order to produce this, follow these steps: -;; -;; 0. Make sure .Xresources and .Xdefaults don't have any Emacs related -;; entries. -;; -;; 1. cd into the Emacs lisp directory and run the following command: -;; ( for d in `find -type d`; \ -;; do grep --files-with-matches 'defface[ ]' $d/*.el; \ -;; done ) | sort | uniq -;; Put the result in a lisp block, using load-library calls. -;; -;; Repeat this for any directories on your load path which you want to -;; include in the standard. This might include W3, eshell, etc. -;; -;; Add some of the libraries that don't use defface: -;; -;; 2. Start emacs using the --no-init-file and --no-site-file command line -;; arguments. Evaluate the lisp block you prepared. -;; 3. Load color-theme and run color-theme-print. Save the output and use it -;; to define color-theme-standard. -;; -;; (progn -;; (load-library "add-log") -;; (load-library "calendar") -;; (load-library "comint") -;; (load-library "cus-edit") -;; (load-library "cus-face") -;; (load-library "custom") -;; (load-library "diff-mode") -;; (load-library "ediff-init") -;; (load-library "re-builder") -;; (load-library "viper-init") -;; (load-library "enriched") -;; (load-library "em-ls") -;; (load-library "em-prompt") -;; (load-library "esh-test") -;; (load-library "faces") -;; (load-library "font-lock") -;; (load-library "generic-x") -;; (load-library "gnus-art") -;; (load-library "gnus-cite") -;; (load-library "gnus") -;; (load-library "message") -;; (load-library "hilit-chg") -;; (load-library "hi-lock") -;; (load-library "info") -;; (load-library "isearch") -;; (load-library "log-view") -;; (load-library "paren") -;; (load-library "pcvs-info") -;; (load-library "antlr-mode") -;; (load-library "cperl-mode") -;; (load-library "ebrowse") -;; (load-library "idlwave") -;; (load-library "idlw-shell") -;; (load-library "make-mode") -;; (load-library "sh-script") -;; (load-library "vhdl-mode") -;; (load-library "smerge-mode") -;; (load-library "speedbar") -;; (load-library "strokes") -;; (load-library "artist") -;; (load-library "flyspell") -;; (load-library "texinfo") -;; (load-library "tex-mode") -;; (load-library "tooltip") -;; (load-library "vcursor") -;; (load-library "wid-edit") -;; (load-library "woman") -;; (load-library "term") -;; (load-library "man") -;; (load-file "/home/alex/elisp/color-theme.el") -;; (color-theme-print)) -;; -;; 4. Make the color theme usable on Xemacs (add more faces, resolve -;; :inherit attributes) -;; -(defun color-theme-emacs-21 () - "Color theme used by Emacs 21.1. -Added and adapted for XEmacs by Alex Schroeder. Adaptation mostly -consisted of resolving :inherit attributes and adding missing faces. -This theme includes faces from the following Emacs libraries: add-log -calendar comint cus-edit cus-face custom diff-mode ediff-init re-builder -viper-init enriched em-ls em-prompt esh-test faces font-lock generic-x -gnus-art gnus-cite gnus message hilit-chg hi-lock info isearch log-view -paren pcvs-info antlr-mode cperl-mode ebrowse idlwave idlw-shell -make-mode sh-script vhdl-mode smerge-mode speedbar strokes artist -flyspell texinfo tex-mode tooltip vcursor wid-edit woman term man" - (interactive) - (color-theme-install - '(color-theme-emacs-21 - ((background-color . "white") - (background-mode . light) - (border-color . "black") - (cursor-color . "black") - (foreground-color . "black") - (mouse-color . "black")) - ((Man-overstrike-face . bold) - (Man-underline-face . underline) - (cperl-here-face . font-lock-string-face) - (cperl-invalid-face . underline) - (cperl-pod-face . font-lock-comment-face) - (cperl-pod-head-face . font-lock-variable-name-face) - (gnus-article-button-face . bold) - (gnus-article-mouse-face . highlight) - (gnus-cite-attribution-face . gnus-cite-attribution-face) - (gnus-mouse-face . highlight) - (gnus-signature-face . gnus-signature-face) - (gnus-summary-selected-face . gnus-summary-selected-face) - (help-highlight-face . underline) - (idlwave-class-arrow-face . bold) - (idlwave-shell-breakpoint-face . idlwave-shell-bp-face) - (idlwave-shell-expression-face . secondary-selection) - (idlwave-shell-stop-line-face . highlight) - (ispell-highlight-face . highlight) - (list-matching-lines-face . bold) - (view-highlight-face . highlight) - (viper-insert-state-cursor-color . "Green") - (viper-replace-overlay-cursor-color . "Red") - (widget-mouse-face . highlight)) - (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) - (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) - (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) - (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) - (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold)))) - (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold)))) - (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold)))) - (antlr-font-lock-ruleref-face ((t (:foreground "blue4")))) - (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold)))) - (antlr-font-lock-tokenref-face ((t (:foreground "orange4")))) - (bold ((t (:bold t :weight bold)))) - (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (border ((t (:background "black")))) - (calendar-today-face ((t (:underline t)))) - (change-log-acknowledgement-face ((t (:foreground "Firebrick")))) - (change-log-conditionals-face ((t (:foreground "DarkGoldenrod")))) - (change-log-date-face ((t (:foreground "RosyBrown")))) - (change-log-email-face ((t (:foreground "DarkGoldenrod")))) - (change-log-file-face ((t (:foreground "Blue")))) - (change-log-function-face ((t (:foreground "DarkGoldenrod")))) - (change-log-list-face ((t (:foreground "Purple")))) - (change-log-name-face ((t (:foreground "CadetBlue")))) - (comint-highlight-input ((t (:bold t :weight bold)))) - (comint-highlight-prompt ((t (:foreground "dark blue")))) - (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold)))) - (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold)))) - (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) - (cursor ((t (:background "black")))) - (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) - (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-comment-face ((t (:background "gray85")))) - (custom-comment-tag-face ((t (:foreground "blue4")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) - (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) - (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2)))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "dark green")))) - (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) - (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2)))) - (cvs-filename-face ((t (:foreground "blue4")))) - (cvs-handled-face ((t (:foreground "pink")))) - (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold)))) - (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold)))) - (cvs-msg-face ((t (:italic t :slant italic)))) - (cvs-need-action-face ((t (:foreground "orange")))) - (cvs-unknown-face ((t (:foreground "red")))) - (diary-face ((t (:foreground "red")))) - (diff-added-face ((t (nil)))) - (diff-changed-face ((t (nil)))) - (diff-context-face ((t (:foreground "grey50")))) - (diff-file-header-face ((t (:bold t :background "grey70" :weight bold)))) - (diff-function-face ((t (:foreground "grey50")))) - (diff-header-face ((t (:background "grey85")))) - (diff-hunk-header-face ((t (:background "grey85")))) - (diff-index-face ((t (:bold t :weight bold :background "grey70")))) - (diff-nonexistent-face ((t (:bold t :weight bold :background "grey70")))) - (diff-removed-face ((t (nil)))) - (dired-face-boring ((t (:foreground "RosyBrown")))) - (dired-face-directory ((t (:foreground "Blue")))) - (dired-face-executable ((t (nil)))) - (dired-face-flagged ((t (:foreground "Red" :weight bold)))) - (dired-face-marked ((t (:foreground "Red" :weight bold)))) - (dired-face-permissions ((t (nil)))) - (dired-face-setuid ((t (nil)))) - (dired-face-socket ((t (nil)))) - (dired-face-symlink ((t (:foreground "Purple")))) - (ebrowse-default-face ((t (nil)))) - (ebrowse-file-name-face ((t (:italic t :slant italic)))) - (ebrowse-member-attribute-face ((t (:foreground "red")))) - (ebrowse-member-class-face ((t (:foreground "purple")))) - (ebrowse-progress-face ((t (:background "blue")))) - (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold)))) - (ebrowse-tree-mark-face ((t (:foreground "red")))) - (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) - (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) - (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) - (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) - (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) - (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) - (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) - (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) - (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) - (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) - (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) - (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) - (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) - (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) - (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) - (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold)))) - (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) - (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) - (eshell-ls-product-face ((t (:foreground "OrangeRed")))) - (eshell-ls-readonly-face ((t (:foreground "Brown")))) - (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) - (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold)))) - (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) - (eshell-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) - (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) - (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold)))) - (excerpt ((t (:italic t :slant italic)))) - (fixed ((t (:bold t :weight bold)))) - (fixed-pitch ((t (:family "courier")))) - (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) - (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) - (font-lock-builtin-face ((t (:foreground "Orchid")))) - (font-lock-comment-face ((t (:foreground "Firebrick")))) - (font-lock-constant-face ((t (:foreground "CadetBlue")))) - (font-lock-doc-face ((t (:foreground "RosyBrown")))) - (font-lock-doc-string-face ((t (:foreground "RosyBrown")))) - (font-lock-function-name-face ((t (:foreground "Blue")))) - (font-lock-keyword-face ((t (:foreground "Purple")))) - (font-lock-preprocessor-face ((t (:foreground "CadetBlue")))) - (font-lock-reference-face ((t (:foreground "Orchid")))) - (font-lock-string-face ((t (:foreground "RosyBrown")))) - (font-lock-type-face ((t (:foreground "ForestGreen")))) - (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) - (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) - (fringe ((t (:background "grey95")))) - (gnus-cite-attribution-face ((t (:italic t :slant italic)))) - (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "firebrick")))) - (gnus-cite-face-3 ((t (:foreground "dark green")))) - (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) - (gnus-cite-face-5 ((t (:foreground "dark khaki")))) - (gnus-cite-face-6 ((t (:foreground "dark violet")))) - (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t :weight bold)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t :slant italic)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) - (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) - (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) - (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold)))) - (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold)))) - (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold)))) - (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold)))) - (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) - (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) - (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) - (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold)))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t :weight bold)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t :weight bold)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t :weight bold)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t :weight bold)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) - (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic)))) - (gnus-header-from-face ((t (:foreground "red3")))) - (gnus-header-name-face ((t (:foreground "maroon")))) - (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic)))) - (gnus-header-subject-face ((t (:foreground "red4")))) - (gnus-signature-face ((t (:italic t :slant italic)))) - (gnus-splash-face ((t (:foreground "Brown")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold)))) - (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold)))) - (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic)))) - (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic)))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic)))) - (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) - (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil)))) - (hi-black-b ((t (:bold t :weight bold)))) - (hi-black-hb ((t (:bold t :family "helv" :weight bold :height 1.67)))) - (hi-blue ((t (:background "light blue")))) - (hi-blue-b ((t (:bold t :foreground "blue" :weight bold)))) - (hi-green ((t (:background "green")))) - (hi-green-b ((t (:bold t :foreground "green" :weight bold)))) - (hi-pink ((t (:background "pink")))) - (hi-red-b ((t (:bold t :foreground "red" :weight bold)))) - (hi-yellow ((t (:background "yellow")))) - (highlight ((t (:background "darkseagreen2")))) - (highlight-changes-delete-face ((t (:foreground "red" :underline t)))) - (highlight-changes-face ((t (:foreground "red")))) - (holiday-face ((t (:background "pink")))) - (idlwave-help-link-face ((t (:foreground "Blue")))) - (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black")))) - (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "brown")))) - (info-header-xref ((t (:bold t :weight bold :foreground "magenta4")))) - (info-menu-5 ((t (:foreground "red1")))) - (info-menu-header ((t (:bold t :family "helv" :weight bold)))) - (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) - (info-xref ((t (:bold t :foreground "magenta4" :weight bold)))) - (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) - (italic ((t (:italic t :slant italic)))) - (log-view-file-face ((t (:bold t :background "grey70" :weight bold)))) - (log-view-message-face ((t (:background "grey85")))) - (makefile-space-face ((t (:background "hotpink")))) - (menu ((t (nil)))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:foreground "MidnightBlue")))) - (message-header-name-face ((t (:foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold)))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold)))) - (message-header-to-face ((t (:bold t :foreground "MidnightBlue" :weight bold)))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "brown")))) - (modeline ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) - (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) - (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) - (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) - (mouse ((t (:background "black")))) - (primary-selection ((t (:background "lightgoldenrod2")))) - (reb-match-0 ((t (:background "lightblue")))) - (reb-match-1 ((t (:background "aquamarine")))) - (reb-match-2 ((t (:background "springgreen")))) - (reb-match-3 ((t (:background "yellow")))) - (region ((t (:background "lightgoldenrod2")))) - (scroll-bar ((t (:background "grey75")))) - (secondary-selection ((t (:background "yellow")))) - (sh-heredoc-face ((t (:foreground "tan")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (show-tabs-space-face ((t (:foreground "yellow")))) - (show-tabs-tab-face ((t (:foreground "red")))) - (smerge-base-face ((t (:foreground "red")))) - (smerge-markers-face ((t (:background "grey85")))) - (smerge-mine-face ((t (:foreground "blue")))) - (smerge-other-face ((t (:foreground "darkgreen")))) - (speedbar-button-face ((t (:foreground "green4")))) - (speedbar-directory-face ((t (:foreground "blue4")))) - (speedbar-file-face ((t (:foreground "cyan4")))) - (speedbar-highlight-face ((t (:background "green")))) - (speedbar-selected-face ((t (:foreground "red" :underline t)))) - (speedbar-tag-face ((t (:foreground "brown")))) - (strokes-char-face ((t (:background "lightgray")))) - (term-black ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-blackbg ((t (:stipple nil :background "black" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-blue ((t (:stipple nil :background "white" :foreground "blue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-bluebg ((t (:stipple nil :background "blue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-bold ((t (:bold t :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :family "adobe-courier")))) - (term-cyan ((t (:stipple nil :background "white" :foreground "cyan" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-default-bg ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-default-bg-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-default-fg ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-default-fg-inv ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-green ((t (:stipple nil :background "white" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-greenbg ((t (:stipple nil :background "green" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-invisible ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-invisible-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-magenta ((t (:stipple nil :background "white" :foreground "magenta" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-magentabg ((t (:stipple nil :background "magenta" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-red ((t (:stipple nil :background "white" :foreground "red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-redbg ((t (:stipple nil :background "red" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-underline ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-white ((t (:stipple nil :background "white" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-whitebg ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-yellow ((t (:stipple nil :background "white" :foreground "yellow" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (tex-math-face ((t (:foreground "RosyBrown")))) - (texinfo-heading-face ((t (:foreground "Blue")))) - (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) - (tooltip ((t (:background "lightyellow" :foreground "black")))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv")))) - (vcursor ((t (:background "cyan" :foreground "blue" :underline t)))) - (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) - (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) - (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) - (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) - (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) - (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold)))) - (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) - (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) - (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) - (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) - (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) - (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) - (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) - (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) - (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) - (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) - (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) - (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) - (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) - (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-search-face ((t (:background "khaki" :foreground "Black")))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "gray85")))) - (woman-addition-face ((t (:foreground "orange")))) - (woman-bold-face ((t (:bold t :foreground "blue" :weight bold)))) - (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic)))) - (woman-unknown-face ((t (:foreground "brown")))) - (zmacs-region ((t (:background "lightgoldenrod2"))))))) - -(defun color-theme-jsc-light2 () - "Color theme by John S Cooper, created 2001-10-29. -This builds on `color-theme-jsc-light'." - (interactive) - (color-theme-jsc-light) - (let ((color-theme-is-cumulative t)) - (color-theme-install - '(color-theme-jsc-light2 - ((vc-annotate-very-old-color . "#0046FF") - (senator-eldoc-use-color . t)) - nil - (bold ((t (:bold t :weight bold)))) - (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (change-log-file-face ((t (:foreground "Blue")))) - (change-log-name-face ((t (:foreground "Maroon")))) - (comint-highlight-prompt ((t (:foreground "dark blue")))) - (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) - (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) - (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) - (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2)))) - (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2)))) - (font-lock-constant-face ((t (:foreground "Maroon")))) - (font-lock-function-name-face ((t (:foreground "Blue")))) - (font-lock-type-face ((t (:italic t :foreground "Navy" :slant italic)))) - (fringe ((t (:background "grey88")))) - (gnus-group-mail-1-empty-face ((t (:foreground "Blue2")))) - (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) - (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) - (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic)))) - (gnus-header-name-face ((t (:bold t :foreground "maroon" :weight bold)))) - (gnus-header-subject-face ((t (:foreground "red4")))) - (gnus-signature-face ((t (:italic t :slant italic)))) - (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) - (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) - (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "Navy")))) - (gnus-summary-normal-unread-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) - (header-line ((t (:background "grey90" :foreground "grey20" :box nil)))) - (highlight ((t (:background "darkseagreen2")))) - (ido-subdir-face ((t (:foreground "red")))) - (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) - (mode-line ((t (:background "grey88" :foreground "black" :box (:line-width -1 :style released-button))))) - (region ((t (:background "lightgoldenrod2")))) - (scroll-bar ((t (nil)))) - (secondary-selection ((t (:background "yellow")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (tooltip ((t (:background "lightyellow" :foreground "black")))))))) - -(defun color-theme-ld-dark () - "Dark Color theme by Linh Dang, created 2001-11-06." - (interactive) - (color-theme-install - '(color-theme-ld-dark - ((background-color . "black") - (background-mode . dark) - (border-color . "black") - (cursor-color . "yellow") - (foreground-color . "white") - (mouse-color . "white")) - ((align-highlight-change-face . highlight) - (align-highlight-nochange-face . secondary-selection) - (apropos-keybinding-face . underline) - (apropos-label-face . italic) - (apropos-match-face . secondary-selection) - (apropos-property-face . bold-italic) - (apropos-symbol-face . bold) - (ebnf-except-border-color . "Black") - (ebnf-line-color . "Black") - (ebnf-non-terminal-border-color . "Black") - (ebnf-repeat-border-color . "Black") - (ebnf-special-border-color . "Black") - (ebnf-terminal-border-color . "Black") - (gnus-article-button-face . bold) - (gnus-article-mouse-face . highlight) - (gnus-carpal-button-face . bold) - (gnus-carpal-header-face . bold-italic) - (gnus-cite-attribution-face . gnus-cite-attribution-face) - (gnus-mouse-face . highlight) - (gnus-selected-tree-face . modeline) - (gnus-signature-face . gnus-signature-face) - (gnus-summary-selected-face . gnus-summary-selected-face) - (help-highlight-face . underline) - (list-matching-lines-face . bold) - (ps-line-number-color . "black") - (ps-zebra-color . 0.95) - (tags-tag-face . default) - (vc-annotate-very-old-color . "#0046FF") - (view-highlight-face . highlight) - (widget-mouse-face . highlight)) - (default ((t (:stipple nil :background "black" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new")))) - (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) - (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) - (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) - (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) - (bbdb-company ((t (:italic t :slant italic)))) - (bbdb-field-name ((t (:bold t :weight bold)))) - (bbdb-field-value ((t (nil)))) - (bbdb-name ((t (:underline t)))) - (bold ((t (:bold t :weight bold)))) - (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (border ((t (:background "black")))) - (change-log-acknowledgement-face ((t (:italic t :slant oblique :foreground "AntiqueWhite3")))) - (change-log-conditionals-face ((t (:foreground "Aquamarine")))) - (change-log-date-face ((t (:italic t :slant oblique :foreground "BurlyWood")))) - (change-log-email-face ((t (:foreground "Aquamarine")))) - (change-log-file-face ((t (:bold t :family "Verdana" :weight bold :foreground "LightSkyBlue" :height 0.9)))) - (change-log-function-face ((t (:foreground "Aquamarine")))) - (change-log-list-face ((t (:foreground "LightSkyBlue")))) - (change-log-name-face ((t (:bold t :weight bold :foreground "Gold")))) - (clear-case-mode-string-face ((t (:bold t :family "Arial" :box (:line-width 2 :color "grey" :style released-button) :foreground "black" :background "grey" :weight bold :height 0.9)))) - (comint-highlight-input ((t (:bold t :weight bold)))) - (comint-highlight-prompt ((t (:foreground "cyan")))) - (cursor ((t (:background "yellow")))) - (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) - (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-comment-face ((t (:background "dim gray")))) - (custom-comment-tag-face ((t (:foreground "gray80")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.1)))) - (custom-group-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.1)))) - (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.1)))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "lime green")))) - (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) - (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2)))) - (diff-added-face ((t (nil)))) - (diff-changed-face ((t (nil)))) - (diff-context-face ((t (:foreground "grey70")))) - (diff-file-header-face ((t (:bold t :background "grey60" :weight bold)))) - (diff-function-face ((t (:foreground "grey70")))) - (diff-header-face ((t (:background "grey45")))) - (diff-hunk-header-face ((t (:background "grey45")))) - (diff-index-face ((t (:bold t :weight bold :background "grey60")))) - (diff-nonexistent-face ((t (:bold t :weight bold :background "grey60")))) - (diff-removed-face ((t (nil)))) - (fixed-pitch ((t (:family "courier")))) - (font-lock-builtin-face ((t (:foreground "SteelBlue")))) - (font-lock-comment-face ((t (:italic t :foreground "AntiqueWhite3" :slant oblique)))) - (font-lock-constant-face ((t (:bold t :foreground "Gold" :weight bold)))) - (font-lock-doc-face ((t (:italic t :slant oblique :foreground "BurlyWood")))) - (font-lock-doc-string-face ((t (:italic t :slant oblique :foreground "BurlyWood")))) - (font-lock-function-name-face ((t (:bold t :foreground "LightSkyBlue" :weight bold :height 0.9 :family "Verdana")))) - (font-lock-keyword-face ((t (:foreground "LightSkyBlue")))) - (font-lock-preprocessor-face ((t (:bold t :foreground "Gold" :weight bold)))) - (font-lock-reference-face ((t (:foreground "SteelBlue")))) - (font-lock-string-face ((t (:italic t :foreground "BurlyWood" :slant oblique)))) - (font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold :height 0.9 :family "Verdana")))) - (font-lock-variable-name-face ((t (:foreground "Aquamarine")))) - (font-lock-warning-face ((t (:bold t :foreground "chocolate" :weight bold)))) - (fringe ((t (:family "outline-courier new" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :stipple nil :background "grey4" :foreground "Wheat")))) - (gnus-cite-attribution-face ((t (:italic t :slant italic)))) - (gnus-cite-face-1 ((t (:foreground "light blue")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "light cyan")))) - (gnus-cite-face-3 ((t (:foreground "light yellow")))) - (gnus-cite-face-4 ((t (:foreground "light pink")))) - (gnus-cite-face-5 ((t (:foreground "pale green")))) - (gnus-cite-face-6 ((t (:foreground "beige")))) - (gnus-cite-face-7 ((t (:foreground "orange")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t :weight bold)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t :slant italic)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) - (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) - (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) - (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold)))) - (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) - (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold)))) - (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold)))) - (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) - (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) - (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) - (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t :weight bold)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t :weight bold)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t :weight bold)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t :weight bold)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold)))) - (gnus-header-content-face ((t (:italic t :foreground "forest green" :slant italic)))) - (gnus-header-from-face ((t (:foreground "spring green")))) - (gnus-header-name-face ((t (:foreground "SeaGreen")))) - (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic)))) - (gnus-header-subject-face ((t (:foreground "SeaGreen3")))) - (gnus-signature-face ((t (:italic t :slant italic)))) - (gnus-splash-face ((t (:foreground "Brown")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) - (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) - (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) - (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic)))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic)))) - (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) - (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (header-line ((t (:family "Arial" :background "grey20" :foreground "grey75" :box (:line-width 3 :color "grey20" :style released-button) :height 0.9)))) - (highlight ((t (:background "darkolivegreen")))) - (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "white")))) - (info-header-xref ((t (:bold t :weight bold :foreground "cyan")))) - (info-menu-5 ((t (:foreground "red1")))) - (info-menu-header ((t (:bold t :family "helv" :weight bold)))) - (info-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold)))) - (info-xref ((t (:bold t :foreground "cyan" :weight bold)))) - (isearch ((t (:background "palevioletred2")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) - (italic ((t (:italic t :slant italic)))) - (makefile-space-face ((t (:background "hotpink")))) - (menu ((t (nil)))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold)))) - (message-header-name-face ((t (:foreground "DarkGreen")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold)))) - (message-header-other-face ((t (:foreground "#b00000")))) - (message-header-subject-face ((t (:foreground "green3")))) - (message-header-to-face ((t (:bold t :foreground "green2" :weight bold)))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "blue3")))) - (modeline ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial")))) - (modeline-mousable-minor-mode ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial")))) - (modeline-mousable ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial")))) - (modeline-buffer-id ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial")))) - (mouse ((t (:background "white")))) - (primary-selection ((t (:background "DarkSlateGray")))) - (region ((t (:background "DarkSlateGray")))) - (scroll-bar ((t (nil)))) - (secondary-selection ((t (:background "SkyBlue4")))) - (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) - (trailing-whitespace ((t (:background "white")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv")))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-field-face ((t (:background "dim gray")))) - (widget-inactive-face ((t (:foreground "light gray")))) - (widget-single-line-field-face ((t (:background "dim gray")))) - (zmacs-region ((t (:background "DarkSlateGray"))))))) - -(defun color-theme-deep-blue () - "Color theme by Tomas Cerha, created 2001-11-13." - (interactive) - (color-theme-install - '(color-theme-deep-blue - ((background-color . "#102e4e") - (background-mode . dark) - (border-color . "black") - (cursor-color . "green") - (foreground-color . "#eeeeee") - (mouse-color . "white")) - ((browse-kill-ring-separator-face . bold) - (display-time-mail-face . mode-line) - (help-highlight-face . underline) - (list-matching-lines-face . secondary-selection) - (vc-annotate-very-old-color . "#0046FF") - (view-highlight-face . highlight) - (widget-mouse-face . highlight)) - (default ((t (:stipple nil :background "#102e4e" :foreground "#eeeeee" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "misc-fixed")))) - (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) - (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) - (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) - (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) - (bold ((t (:bold t :weight bold)))) - (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (border ((t (:background "black")))) - (calendar-today-face ((t (:background "blue")))) - (change-log-acknowledgement-face ((t (:italic t :slant italic :foreground "CadetBlue")))) - (change-log-conditionals-face ((t (:foreground "SeaGreen2")))) - (change-log-date-face ((t (:foreground "burlywood")))) - (change-log-email-face ((t (:foreground "SeaGreen2")))) - (change-log-file-face ((t (:bold t :weight bold :foreground "goldenrod")))) - (change-log-function-face ((t (:foreground "SeaGreen2")))) - (change-log-list-face ((t (:bold t :weight bold :foreground "DeepSkyBlue1")))) - (change-log-name-face ((t (:foreground "gold")))) - (comint-highlight-input ((t (:bold t :weight bold)))) - (comint-highlight-prompt ((t (:foreground "cyan")))) - (cursor ((t (:background "green" :foreground "black")))) - (cvs-filename-face ((t (:foreground "lightblue")))) - (cvs-handled-face ((t (:foreground "pink")))) - (cvs-header-face ((t (:bold t :foreground "lightyellow" :weight bold)))) - (cvs-marked-face ((t (:bold t :foreground "green" :weight bold)))) - (cvs-msg-face ((t (:italic t :slant italic)))) - (cvs-need-action-face ((t (:foreground "orange")))) - (cvs-unknown-face ((t (:foreground "red")))) - (diary-face ((t (:foreground "orange red")))) - (diff-added-face ((t (nil)))) - (diff-changed-face ((t (nil)))) - (diff-context-face ((t (:foreground "grey70")))) - (diff-file-header-face ((t (:bold t :background "grey60" :weight bold)))) - (diff-function-face ((t (:foreground "grey70")))) - (diff-header-face ((t (:background "grey45")))) - (diff-hunk-header-face ((t (:background "grey45")))) - (diff-index-face ((t (:bold t :weight bold :background "grey60")))) - (diff-nonexistent-face ((t (:bold t :weight bold :background "grey60")))) - (diff-removed-face ((t (nil)))) - (fixed-pitch ((t (:family "fixed")))) - (font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold)))) - (font-latex-italic-face ((t (:italic t :foreground "OliveDrab" :slant italic)))) - (font-latex-math-face ((t (:foreground "burlywood")))) - (font-latex-sedate-face ((t (:foreground "LightGray")))) - (font-latex-string-face ((t (:foreground "LightSalmon")))) - (font-latex-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) - (font-lock-builtin-face ((t (:foreground "LightCoral")))) - (font-lock-comment-face ((t (:italic t :foreground "CadetBlue" :slant italic)))) - (font-lock-constant-face ((t (:foreground "gold")))) - (font-lock-doc-face ((t (:foreground "BlanchedAlmond")))) - (font-lock-doc-string-face ((t (:foreground "BlanchedAlmond")))) - (font-lock-function-name-face ((t (:bold t :foreground "goldenrod" :weight bold)))) - (font-lock-keyword-face ((t (:bold t :foreground "DeepSkyBlue1" :weight bold)))) - (font-lock-preprocessor-face ((t (:foreground "gold")))) - (font-lock-reference-face ((t (:foreground "LightCoral")))) - (font-lock-string-face ((t (:foreground "burlywood")))) - (font-lock-type-face ((t (:foreground "CadetBlue1")))) - (font-lock-variable-name-face ((t (:foreground "SeaGreen2")))) - (font-lock-warning-face ((t (:foreground "yellow")))) - (fringe ((t (:background "#405060")))) - (header-line ((t (:box (:line-width 2 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) - (highlight ((t (:background "darkgreen")))) - (holiday-face ((t (:foreground "green")))) - (info-header-node ((t (:foreground "DeepSkyBlue1")))) - (info-header-xref ((t (:bold t :weight bold :foreground "SeaGreen2")))) - (info-menu-5 ((t (:foreground "wheat")))) - (info-menu-header ((t (:bold t :family "helv" :weight bold)))) - (info-node ((t (:foreground "DeepSkyBlue1")))) - (info-xref ((t (:bold t :foreground "SeaGreen2" :weight bold)))) - (isearch ((t (:background "palevioletred2" :foreground "brown4")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) - (italic ((t (:italic t :slant italic)))) - (menu ((t (:background "gray" :foreground "black" :family "helvetica")))) - (modeline ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button))))) - (modeline-buffer-id ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button))))) - (modeline-mousable ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button))))) - (modeline-mousable-minor-mode ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button))))) - (mouse ((t (:background "white")))) - (region ((t (:background "DarkCyan")))) - (scroll-bar ((t (:background "gray" :foreground "#506070")))) - (secondary-selection ((t (:background "yellow" :foreground "gray10")))) - (show-paren-match-face ((t (:bold t :foreground "yellow" :weight bold)))) - (show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold)))) - (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) - (tooltip ((t (:background "lightyellow" :foreground "black")))) - (trailing-whitespace ((t (:background "#102e4e")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv")))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-field-face ((t (:background "dim gray")))) - (widget-inactive-face ((t (:foreground "light gray")))) - (widget-single-line-field-face ((t (:background "dim gray"))))))) - -(defun color-theme-kingsajz () - "Color theme by Olgierd \"Kingsajz\" Ziolko, created 2001-12-04. -Another theme with wheat on DarkSlatGrey. Based on Subtle Hacker. -Used on Emacs 21.1 @ WinMe. Not tested on any other systems. - -Some faces uses Andale mono font (nice fixed-width font). -It is available at: http://www.microsoft.com/typography/downloads/andale32.exe - -Hail Eris! All hail Discordia!" - (interactive) - (color-theme-install - '(color-theme-kingsajz - ((background-color . "darkslategrey") - (background-mode . dark) - (border-color . "black") - (cursor-color . "LightGray") - (foreground-color . "wheat") - (mouse-color . "Grey")) - ((apropos-keybinding-face . underline) - (apropos-label-face face italic mouse-face highlight) - (apropos-match-face . secondary-selection) - (apropos-property-face . bold-italic) - (apropos-symbol-face . info-xref) - (display-time-mail-face . mode-line) - (gnus-article-button-face . bold) - (gnus-article-mouse-face . highlight) - (gnus-carpal-button-face . bold) - (gnus-carpal-header-face . bold-italic) - (gnus-cite-attribution-face . gnus-cite-attribution-face) - (gnus-mouse-face . highlight) - (gnus-selected-tree-face . modeline) - (gnus-signature-face . gnus-signature-face) - (gnus-summary-selected-face . gnus-summary-selected-face) - (gnus-treat-display-xface . head) - (help-highlight-face . underline) - (list-matching-lines-face . bold) - (view-highlight-face . highlight) - (widget-mouse-face . highlight)) - (default ((t (:stipple nil :background "darkslategrey" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono")))) - (bbdb-field-name ((t (:foreground "green")))) - (bg:erc-color-face0 ((t (:background "White")))) - (bg:erc-color-face1 ((t (:background "black")))) - (bg:erc-color-face10 ((t (:background "lightblue1")))) - (bg:erc-color-face11 ((t (:background "cyan")))) - (bg:erc-color-face12 ((t (:background "blue")))) - (bg:erc-color-face13 ((t (:background "deeppink")))) - (bg:erc-color-face14 ((t (:background "gray50")))) - (bg:erc-color-face15 ((t (:background "gray90")))) - (bg:erc-color-face2 ((t (:background "blue4")))) - (bg:erc-color-face3 ((t (:background "green4")))) - (bg:erc-color-face4 ((t (:background "red")))) - (bg:erc-color-face5 ((t (:background "brown")))) - (bg:erc-color-face6 ((t (:background "purple")))) - (bg:erc-color-face7 ((t (:background "orange")))) - (bg:erc-color-face8 ((t (:background "yellow")))) - (bg:erc-color-face9 ((t (:background "green")))) - (blue ((t (:foreground "cyan")))) - (bold ((t (:bold t :foreground "OrangeRed" :weight bold :family "Arial")))) - (bold-italic ((t (:italic t :bold t :slant italic :weight bold :family "Arial")))) - (border ((t (:background "black")))) - (calendar-today-face ((t (:underline t)))) - (comint-highlight-input ((t (:bold t :weight bold)))) - (comint-highlight-prompt ((t (:foreground "cyan")))) - (cperl-array-face ((t (:foreground "Yellow")))) - (cperl-hash-face ((t (:foreground "White")))) - (cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) - (cursor ((t (:background "LightGray")))) - (custom-button-face ((t (:foreground "MediumSlateBlue" :underline t)))) - (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-comment-face ((t (:background "dim gray")))) - (custom-comment-tag-face ((t (:foreground "gray80")))) - (custom-documentation-face ((t (:foreground "Grey")))) - (custom-face-tag-face ((t (:bold t :family "Arial" :weight bold :height 1.2)))) - (custom-group-tag-face ((t (:foreground "MediumAquamarine")))) - (custom-group-tag-face-1 ((t (:bold t :family "Arial" :foreground "pink" :weight bold :height 1.2)))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "Coral")))) - (custom-variable-button-face ((t (:underline t)))) - (custom-variable-tag-face ((t (:foreground "Aquamarine")))) - (date ((t (:foreground "green")))) - (diary-face ((t (:bold t :foreground "IndianRed" :weight bold)))) - (dired-face-directory ((t (:bold t :foreground "sky blue" :weight bold)))) - (dired-face-executable ((t (:foreground "green yellow")))) - (dired-face-flagged ((t (:foreground "tomato")))) - (dired-face-marked ((t (:foreground "light salmon")))) - (dired-face-permissions ((t (:foreground "aquamarine")))) - (erc-action-face ((t (:bold t :weight bold)))) - (erc-bold-face ((t (:bold t :weight bold)))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (:foreground "pale green")))) - (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold)))) - (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold)))) - (erc-host-danger-face ((t (:foreground "red")))) - (erc-input-face ((t (:foreground "light blue")))) - (erc-inverse-face ((t (:background "steel blue")))) - (erc-notice-face ((t (:foreground "light salmon")))) - (erc-pal-face ((t (:foreground "pale green")))) - (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold)))) - (erc-underline-face ((t (:underline t)))) - (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed" :weight bold)))) - (eshell-ls-backup-face ((t (:foreground "Grey")))) - (eshell-ls-clutter-face ((t (:bold t :foreground "DimGray" :weight bold)))) - (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue" :weight bold)))) - (eshell-ls-executable-face ((t (:bold t :foreground "Coral" :weight bold)))) - (eshell-ls-missing-face ((t (:bold t :foreground "black" :weight bold)))) - (eshell-ls-picture-face ((t (:foreground "Violet")))) - (eshell-ls-product-face ((t (:foreground "LightSalmon")))) - (eshell-ls-readonly-face ((t (:foreground "Aquamarine")))) - (eshell-ls-special-face ((t (:bold t :foreground "Gold" :weight bold)))) - (eshell-ls-symlink-face ((t (:bold t :foreground "White" :weight bold)))) - (eshell-ls-text-face ((t (:foreground "medium aquamarine")))) - (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine" :weight bold)))) - (eshell-ls-unreadable-face ((t (:foreground "DimGray")))) - (eshell-prompt-face ((t (:foreground "powder blue")))) - (face-1 ((t (:stipple nil :foreground "royal blue" :family "andale mono")))) - (face-2 ((t (:stipple nil :foreground "DeepSkyBlue1" :overline nil :underline nil :slant normal :family "outline-andale mono")))) - (face-3 ((t (:stipple nil :foreground "NavajoWhite3")))) - (fg:erc-color-face0 ((t (:foreground "white")))) - (fg:erc-color-face1 ((t (:foreground "beige")))) - (fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) - (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) - (fg:erc-color-face12 ((t (:foreground "light yellow")))) - (fg:erc-color-face13 ((t (:foreground "yellow")))) - (fg:erc-color-face14 ((t (:foreground "light goldenrod")))) - (fg:erc-color-face15 ((t (:foreground "lime green")))) - (fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) - (fg:erc-color-face3 ((t (:foreground "light cyan")))) - (fg:erc-color-face4 ((t (:foreground "powder blue")))) - (fg:erc-color-face5 ((t (:foreground "sky blue")))) - (fg:erc-color-face6 ((t (:foreground "dark sea green")))) - (fg:erc-color-face7 ((t (:foreground "pale green")))) - (fg:erc-color-face8 ((t (:foreground "medium spring green")))) - (fg:erc-color-face9 ((t (:foreground "khaki")))) - (fixed-pitch ((t (:family "courier")))) - (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) - (font-lock-comment-face ((t (:foreground "White")))) - (font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) - (font-lock-doc-face ((t (:italic t :slant italic :foreground "LightSalmon")))) - (font-lock-doc-string-face ((t (:foreground "LightSalmon")))) - (font-lock-function-name-face ((t (:bold t :foreground "MediumSlateBlue" :weight bold)))) - (font-lock-keyword-face ((t (:foreground "Salmon")))) - (font-lock-preprocessor-face ((t (:foreground "Salmon")))) - (font-lock-reference-face ((t (:foreground "pale green")))) - (font-lock-string-face ((t (:italic t :foreground "LightSalmon" :slant italic)))) - (font-lock-type-face ((t (:bold t :foreground "YellowGreen" :weight bold)))) - (font-lock-variable-name-face ((t (:italic t :bold t :foreground "Aquamarine" :slant italic :weight bold)))) - (font-lock-warning-face ((t (:bold t :foreground "IndianRed" :weight bold)))) - (fringe ((t (:background "darkslategrey")))) - (gnus-cite-attribution-face ((t (:family "arial")))) - (gnus-cite-face-1 ((t (:foreground "DarkGoldenrod3")))) - (gnus-cite-face-10 ((t (nil)))) - (gnus-cite-face-11 ((t (nil)))) - (gnus-cite-face-2 ((t (:foreground "IndianRed3")))) - (gnus-cite-face-3 ((t (:foreground "tomato")))) - (gnus-cite-face-4 ((t (:foreground "yellow green")))) - (gnus-cite-face-5 ((t (:foreground "SteelBlue3")))) - (gnus-cite-face-6 ((t (:foreground "Azure3")))) - (gnus-cite-face-7 ((t (:foreground "Azure4")))) - (gnus-cite-face-8 ((t (:foreground "SpringGreen4")))) - (gnus-cite-face-9 ((t (:foreground "SlateGray4")))) - (gnus-emphasis-bold ((t (:bold t :foreground "greenyellow" :weight bold :family "Arial")))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "OrangeRed1" :slant italic :weight bold :family "arial")))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "khaki")))) - (gnus-emphasis-italic ((t (:italic t :bold t :foreground "orange" :slant italic :weight bold :family "Arial")))) - (gnus-emphasis-underline ((t (:foreground "greenyellow" :underline t)))) - (gnus-emphasis-underline-bold ((t (:bold t :foreground "khaki" :underline t :weight bold :family "Arial")))) - (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold :family "Arial")))) - (gnus-emphasis-underline-italic ((t (:italic t :foreground "orange" :underline t :slant italic :family "Arial")))) - (gnus-group-mail-1-empty-face ((t (:foreground "Salmon4")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "firebrick1" :weight bold)))) - (gnus-group-mail-2-empty-face ((t (:foreground "turquoise4")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) - (gnus-group-mail-3-empty-face ((t (:foreground "LightCyan4")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "LightCyan1" :weight bold)))) - (gnus-group-mail-low-empty-face ((t (:foreground "SteelBlue4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "SteelBlue2" :weight bold)))) - (gnus-group-news-1-empty-face ((t (:foreground "Salmon4")))) - (gnus-group-news-1-face ((t (:bold t :foreground "FireBrick1" :weight bold)))) - (gnus-group-news-2-empty-face ((t (:foreground "darkorange3")))) - (gnus-group-news-2-face ((t (:bold t :foreground "dark orange" :weight bold)))) - (gnus-group-news-3-empty-face ((t (:foreground "turquoise4")))) - (gnus-group-news-3-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) - (gnus-group-news-4-empty-face ((t (:foreground "SpringGreen4")))) - (gnus-group-news-4-face ((t (:bold t :foreground "SpringGreen2" :weight bold)))) - (gnus-group-news-5-empty-face ((t (:foreground "OliveDrab4")))) - (gnus-group-news-5-face ((t (:bold t :foreground "OliveDrab2" :weight bold)))) - (gnus-group-news-6-empty-face ((t (:foreground "DarkGoldenrod4")))) - (gnus-group-news-6-face ((t (:bold t :foreground "DarkGoldenrod3" :weight bold)))) - (gnus-group-news-low-empty-face ((t (:foreground "wheat4")))) - (gnus-group-news-low-face ((t (:bold t :foreground "tan4" :weight bold)))) - (gnus-header-content-face ((t (:foreground "LightSkyBlue3")))) - (gnus-header-from-face ((t (:bold t :foreground "light cyan" :weight bold)))) - (gnus-header-name-face ((t (:bold t :foreground "DodgerBlue1" :weight bold)))) - (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3" :slant italic :weight bold)))) - (gnus-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold)))) - (gnus-signature-face ((t (:italic t :foreground "salmon" :slant italic)))) - (gnus-splash-face ((t (:foreground "Firebrick1")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "MistyRose4" :weight bold)))) - (gnus-summary-high-read-face ((t (:bold t :foreground "tomato3" :weight bold)))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral" :weight bold)))) - (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "red1" :slant italic :weight bold)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "DarkSeaGreen4" :slant italic)))) - (gnus-summary-low-read-face ((t (:foreground "SeaGreen4")))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "Green4" :slant italic)))) - (gnus-summary-low-unread-face ((t (:italic t :foreground "green3" :slant italic)))) - (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "khaki4")))) - (gnus-summary-normal-ticked-face ((t (:foreground "khaki3")))) - (gnus-summary-normal-unread-face ((t (:foreground "khaki")))) - (gnus-summary-selected-face ((t (:foreground "gold" :underline t)))) - (green ((t (:foreground "green")))) - (gui-button-face ((t (:foreground "red" :background "black")))) - (gui-element ((t (:bold t :background "#ffffff" :foreground "#000000" :weight bold)))) - (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) - (highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) - (highline-face ((t (:background "SeaGreen")))) - (holiday-face ((t (:background "DimGray")))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:bold t :foreground "DodgerBlue1" :underline t :weight bold)))) - (info-xref ((t (:bold t :foreground "DodgerBlue3" :weight bold)))) - (isearch ((t (:background "sea green" :foreground "black")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) - (italic ((t (:italic t :foreground "chocolate3" :slant italic)))) - (menu ((t (nil)))) - (message-cited-text-face ((t (:foreground "White")))) - (message-header-cc-face ((t (:foreground "light cyan")))) - (message-header-name-face ((t (:foreground "DodgerBlue1")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3" :slant italic :weight bold)))) - (message-header-other-face ((t (:foreground "LightSkyBlue3")))) - (message-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold)))) - (message-header-to-face ((t (:bold t :foreground "light cyan" :weight bold)))) - (message-header-xheader-face ((t (:foreground "DodgerBlue3")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:background "cornflower blue" :foreground "chocolate")))) - (modeline ((t (:background "dark olive green" :foreground "wheat" :box (:line-width -1 :style released-button))))) - (modeline-buffer-id ((t (:bold t :background "dark olive green" :foreground "beige" :weight bold :family "arial")))) - (modeline-mousable ((t (:bold t :background "dark olive green" :foreground "yellow green" :weight bold :family "arial")))) - (modeline-mousable-minor-mode ((t (:bold t :background "dark olive green" :foreground "wheat" :weight bold :family "arial")))) - (mouse ((t (:background "Grey")))) - (paren-blink-off ((t (:foreground "brown")))) - (region ((t (:background "dark cyan" :foreground "cyan")))) - (ruler-mode-column-number-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "black")))) - (ruler-mode-current-column-face ((t (:bold t :box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :width normal :family "outline-andale mono" :foreground "yellow" :weight bold)))) - (ruler-mode-default-face ((t (:family "outline-andale mono" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :inverse-video nil :stipple nil :background "grey76" :foreground "grey64" :box (:color "grey76" :line-width 1 :style released-button))))) - (ruler-mode-fill-column-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "red")))) - (ruler-mode-margins-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :foreground "grey64" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :background "grey64")))) - (ruler-mode-tab-stop-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "steelblue")))) - (scroll-bar ((t (nil)))) - (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) - (show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue" :weight bold)))) - (show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) - (swbuff-current-buffer-face ((t (:bold t :foreground "red" :weight bold)))) - (text-cursor ((t (:background "Red" :foreground "white")))) - (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "Arial")))) - (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1" :weight bold)))) - (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3" :weight bold)))) - (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat")))) - (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige")))) - (widget-button-face ((t (:bold t :foreground "green" :weight bold :family "courier")))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-field-face ((t (:foreground "LightBlue")))) - (widget-inactive-face ((t (:foreground "DimGray")))) - (widget-single-line-field-face ((t (:foreground "LightBlue")))) - (woman-bold-face ((t (:bold t :weight bold :family "Arial")))) - (woman-italic-face ((t (:italic t :foreground "beige" :slant italic :family "Arial")))) - (woman-unknown-face ((t (:foreground "LightSalmon")))) - (zmacs-region ((t (:background "dark cyan" :foreground "cyan"))))))) - -(defun color-theme-comidia () - "Color theme by Marcelo Dias de Toledo, created 2001-12-17. -Steel blue on black." - (interactive) - (color-theme-install - '(color-theme-comidia - ((background-color . "Black") - (background-mode . dark) - (border-color . "black") - (cursor-color . "SteelBlue") - (foreground-color . "SteelBlue") - (mouse-color . "SteelBlue")) - ((display-time-mail-face . mode-line) - (gnus-mouse-face . highlight) - (gnus-summary-selected-face . gnus-summary-selected-face) - (help-highlight-face . underline) - (ispell-highlight-face . highlight) - (list-matching-lines-face . bold) - (view-highlight-face . highlight) - (widget-mouse-face . highlight)) - (default ((t (:stipple nil :background "Black" :foreground "SteelBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width semi-condensed :family "misc-fixed")))) - (bg:erc-color-face0 ((t (:background "White")))) - (bg:erc-color-face1 ((t (:background "black")))) - (bg:erc-color-face10 ((t (:background "lightblue1")))) - (bg:erc-color-face11 ((t (:background "cyan")))) - (bg:erc-color-face12 ((t (:background "blue")))) - (bg:erc-color-face13 ((t (:background "deeppink")))) - (bg:erc-color-face14 ((t (:background "gray50")))) - (bg:erc-color-face15 ((t (:background "gray90")))) - (bg:erc-color-face2 ((t (:background "blue4")))) - (bg:erc-color-face3 ((t (:background "green4")))) - (bg:erc-color-face4 ((t (:background "red")))) - (bg:erc-color-face5 ((t (:background "brown")))) - (bg:erc-color-face6 ((t (:background "purple")))) - (bg:erc-color-face7 ((t (:background "orange")))) - (bg:erc-color-face8 ((t (:background "yellow")))) - (bg:erc-color-face9 ((t (:background "green")))) - (bold ((t (:bold t :weight bold)))) - (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (border ((t (:background "black")))) - (comint-highlight-input ((t (:bold t :weight bold)))) - (comint-highlight-prompt ((t (:foreground "cyan")))) - (cursor ((t (:background "SteelBlue")))) - (erc-action-face ((t (:bold t :weight bold)))) - (erc-bold-face ((t (:bold t :weight bold)))) - (erc-dangerous-host-face ((t (:foreground "red")))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (:foreground "IndianRed")))) - (erc-error-face ((t (:background "Red" :foreground "White")))) - (erc-fool-face ((t (:foreground "dim gray")))) - (erc-input-face ((t (:foreground "brown")))) - (erc-inverse-face ((t (:background "Black" :foreground "White")))) - (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold)))) - (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold)))) - (erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold)))) - (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold)))) - (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) - (erc-underline-face ((t (:underline t)))) - (fg:erc-color-face0 ((t (:foreground "White")))) - (fg:erc-color-face1 ((t (:foreground "black")))) - (fg:erc-color-face10 ((t (:foreground "lightblue1")))) - (fg:erc-color-face11 ((t (:foreground "cyan")))) - (fg:erc-color-face12 ((t (:foreground "blue")))) - (fg:erc-color-face13 ((t (:foreground "deeppink")))) - (fg:erc-color-face14 ((t (:foreground "gray50")))) - (fg:erc-color-face15 ((t (:foreground "gray90")))) - (fg:erc-color-face2 ((t (:foreground "blue4")))) - (fg:erc-color-face3 ((t (:foreground "green4")))) - (fg:erc-color-face4 ((t (:foreground "red")))) - (fg:erc-color-face5 ((t (:foreground "brown")))) - (fg:erc-color-face6 ((t (:foreground "purple")))) - (fg:erc-color-face7 ((t (:foreground "orange")))) - (fg:erc-color-face8 ((t (:foreground "yellow")))) - (fg:erc-color-face9 ((t (:foreground "green")))) - (fixed-pitch ((t (:family "courier")))) - (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) - (font-lock-comment-face ((t (:foreground "chocolate1")))) - (font-lock-constant-face ((t (:foreground "Aquamarine")))) - (font-lock-doc-face ((t (:foreground "LightSalmon")))) - (font-lock-doc-string-face ((t (:foreground "LightSalmon")))) - (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) - (font-lock-keyword-face ((t (:foreground "Cyan")))) - (font-lock-preprocessor-face ((t (:foreground "Aquamarine")))) - (font-lock-reference-face ((t (:foreground "LightSteelBlue")))) - (font-lock-string-face ((t (:foreground "LightSalmon")))) - (font-lock-type-face ((t (:foreground "PaleGreen")))) - (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) - (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) - (fringe ((t (:background "grey10")))) - (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold)))) - (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) - (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold)))) - (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold)))) - (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) - (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) - (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) - (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t :weight bold)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t :weight bold)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t :weight bold)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t :weight bold)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold)))) - (gnus-splash-face ((t (:foreground "Brown")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) - (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) - (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) - (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic)))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic)))) - (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) - (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (header-line ((t (:family "neep" :width condensed :box (:line-width 1 :style none) :background "grey20" :foreground "grey90" :box nil)))) - (highlight ((t (:background "darkolivegreen")))) - (isearch ((t (:background "palevioletred2" :foreground "brown4")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) - (italic ((t (:italic t :slant italic)))) - (menu ((t (nil)))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold)))) - (message-header-name-face ((t (:foreground "DarkGreen")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold)))) - (message-header-other-face ((t (:foreground "#b00000")))) - (message-header-subject-face ((t (:foreground "green3")))) - (message-header-to-face ((t (:bold t :foreground "green2" :weight bold)))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "blue3")))) - (modeline ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep")))) - (modeline-buffer-id ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep")))) - (modeline-mousable-minor-mode ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep")))) - (modeline-mousable ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep")))) - (mouse ((t (:background "SteelBlue")))) - (primary-selection ((t (:background "blue3")))) - (region ((t (:background "blue3")))) - (scroll-bar ((t (:background "grey75")))) - (secondary-selection ((t (:background "SkyBlue4")))) - (speedbar-button-face ((t (:foreground "green3")))) - (speedbar-directory-face ((t (:foreground "light blue")))) - (speedbar-file-face ((t (:foreground "cyan")))) - (speedbar-highlight-face ((t (:background "sea green")))) - (speedbar-selected-face ((t (:foreground "red" :underline t)))) - (speedbar-tag-face ((t (:foreground "yellow")))) - (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) - (tooltip ((t (:background "lightyellow" :foreground "black")))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv")))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-field-face ((t (:background "dim gray")))) - (widget-inactive-face ((t (:foreground "light gray")))) - (widget-single-line-field-face ((t (:background "dim gray")))) - (zmacs-region ((t (:background "blue3"))))))) - -(defun color-theme-katester () - "Color theme by walterh@rocketmail.com, created 2001-12-12. -A pastelly-mac like color-theme." - (interactive) - (color-theme-standard) - (let ((color-theme-is-cumulative t)) - (color-theme-install - '(color-theme-katester - ((background-color . "ivory") - (cursor-color . "slateblue") - (foreground-color . "black") - (mouse-color . "slateblue")) - (default ((t ((:background "ivory" :foreground "black"))))) - (bold ((t (:bold t)))) - (font-lock-string-face ((t (:foreground "maroon")))) - (font-lock-keyword-face ((t (:foreground "blue")))) - (font-lock-constant-face ((t (:foreground "darkblue")))) - (font-lock-type-face ((t (:foreground "black")))) - (font-lock-variable-name-face ((t (:foreground "black")))) - (font-lock-function-name-face ((t (:bold t :underline t)))) - (font-lock-comment-face ((t (:background "seashell")))) - (highlight ((t (:background "lavender")))) - (italic ((t (:italic t)))) - (modeline ((t (:background "moccasin" :foreground "black")))) - (region ((t (:background "lavender" )))) - (underline ((t (:underline t)))))))) - -(defun color-theme-arjen () - "Color theme by awiersma, created 2001-08-27." - (interactive) - (color-theme-install - '(color-theme-arjen - ((background-color . "black") - (background-mode . dark) - (border-color . "black") - (cursor-color . "yellow") - (foreground-color . "White") - (mouse-color . "sienna1")) - ((buffers-tab-face . buffers-tab) - (cperl-here-face . font-lock-string-face) - (cperl-invalid-face quote underline) - (cperl-pod-face . font-lock-comment-face) - (cperl-pod-head-face . font-lock-variable-name-face) - (vc-mode-face . highlight)) - (default ((t (:background "black" :foreground "white")))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t)))) - (bold-italic ((t (:bold t)))) - (border-glyph ((t (nil)))) - (buffers-tab ((t (:background "black" :foreground "white")))) - (calendar-today-face ((t (:underline t)))) - (cperl-array-face ((t (:foreground "darkseagreen")))) - (cperl-hash-face ((t (:foreground "darkseagreen")))) - (cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) - (custom-button-face ((t (nil)))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:underline t :foreground "light blue")))) - (custom-group-tag-face-1 ((t (:underline t :foreground "pink")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "lime green")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t :foreground "light blue")))) - (diary-face ((t (:foreground "IndianRed")))) - (erc-action-face ((t (:bold t)))) - (erc-bold-face ((t (:bold t)))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (:foreground "sandybrown")))) - (erc-error-face ((t (:bold t :foreground "IndianRed")))) - (erc-input-face ((t (:foreground "Beige")))) - (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey")))) - (erc-notice-face ((t (:foreground "MediumAquamarine")))) - (erc-pal-face ((t (:foreground "pale green")))) - (erc-prompt-face ((t (:foreground "MediumAquamarine")))) - (erc-underline-face ((t (:underline t)))) - (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) - (eshell-ls-backup-face ((t (:foreground "Grey")))) - (eshell-ls-clutter-face ((t (:foreground "DimGray")))) - (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue")))) - (eshell-ls-executable-face ((t (:foreground "Coral")))) - (eshell-ls-missing-face ((t (:foreground "black")))) - (eshell-ls-picture-face ((t (:foreground "Violet")))) - (eshell-ls-product-face ((t (:foreground "sandybrown")))) - (eshell-ls-readonly-face ((t (:foreground "Aquamarine")))) - (eshell-ls-special-face ((t (:foreground "Gold")))) - (eshell-ls-symlink-face ((t (:foreground "White")))) - (eshell-ls-unreadable-face ((t (:foreground "DimGray")))) - (eshell-prompt-face ((t (:foreground "MediumAquamarine")))) - (fl-comment-face ((t (:foreground "pink")))) - (fl-doc-string-face ((t (:foreground "purple")))) - (fl-function-name-face ((t (:foreground "red")))) - (fl-keyword-face ((t (:foreground "cadetblue")))) - (fl-string-face ((t (:foreground "green")))) - (fl-type-face ((t (:foreground "yellow")))) - (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) - (font-lock-comment-face ((t (:foreground "IndianRed")))) - (font-lock-constant-face ((t (:foreground "Aquamarine")))) - (font-lock-doc-string-face ((t (:foreground "DarkOrange")))) - (font-lock-function-name-face ((t (:foreground "YellowGreen")))) - (font-lock-keyword-face ((t (:foreground "PaleYellow")))) - (font-lock-preprocessor-face ((t (:foreground "Aquamarine")))) - (font-lock-reference-face ((t (:foreground "SlateBlue")))) - (font-lock-string-face ((t (:foreground "Orange")))) - (font-lock-type-face ((t (:foreground "Green")))) - (font-lock-variable-name-face ((t (:foreground "darkseagreen")))) - (font-lock-warning-face ((t (:bold t :foreground "Pink")))) - (qt-classes-face ((t (:foreground "Red")))) - (gnus-cite-attribution-face ((t (nil)))) - (gnus-cite-face-1 ((t (:bold nil :foreground "deep sky blue")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:bold nil :foreground "cadetblue")))) - (gnus-cite-face-3 ((t (:bold nil :foreground "gold")))) - (gnus-cite-face-4 ((t (:foreground "light pink")))) - (gnus-cite-face-5 ((t (:foreground "pale green")))) - (gnus-cite-face-6 ((t (:bold nil :foreground "chocolate")))) - (gnus-cite-face-7 ((t (:foreground "orange")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold nil)))) - (gnus-emphasis-bold-italic ((t (:bold nil)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (nil)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:underline t :bold nil)))) - (gnus-emphasis-underline-bold-italic ((t (:underline t :bold nil)))) - (gnus-emphasis-underline-italic ((t (:underline t)))) - (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) - (gnus-group-mail-1-face ((t (:bold nil :foreground "aquamarine1")))) - (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) - (gnus-group-mail-2-face ((t (:bold nil :foreground "aquamarine2")))) - (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) - (gnus-group-mail-3-face ((t (:bold nil :foreground "aquamarine3")))) - (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) - (gnus-group-mail-low-face ((t (:bold nil :foreground "aquamarine4")))) - (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) - (gnus-group-news-1-face ((t (:bold nil :foreground "PaleTurquoise")))) - (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) - (gnus-group-news-2-face ((t (:bold nil :foreground "turquoise")))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold nil)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold nil)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold nil)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold nil)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) - (gnus-group-news-low-face ((t (:bold nil :foreground "DarkTurquoise")))) - (gnus-header-content-face ((t (:foreground "forest green")))) - (gnus-header-from-face ((t (:bold nil :foreground "spring green")))) - (gnus-header-name-face ((t (:foreground "deep sky blue")))) - (gnus-header-newsgroups-face ((t (:bold nil :foreground "purple")))) - (gnus-header-subject-face ((t (:bold nil :foreground "orange")))) - (gnus-signature-face ((t (:bold nil :foreground "khaki")))) - (gnus-splash-face ((t (:foreground "Brown")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold nil :foreground "SkyBlue")))) - (gnus-summary-high-read-face ((t (:bold nil :foreground "PaleGreen")))) - (gnus-summary-high-ticked-face ((t (:bold nil :foreground "pink")))) - (gnus-summary-high-unread-face ((t (:bold nil)))) - (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue")))) - (gnus-summary-low-read-face ((t (:foreground "PaleGreen")))) - (gnus-summary-low-ticked-face ((t (:foreground "pink")))) - (gnus-summary-low-unread-face ((t (nil)))) - (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (green ((t (:foreground "green")))) - (gui-button-face ((t (:background "grey75" :foreground "black")))) - (gui-element ((t (:background "#D4D0C8" :foreground "black")))) - (highlight ((t (:background "darkolivegreen")))) - (highline-face ((t (:background "SeaGreen")))) - (holiday-face ((t (:background "DimGray")))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:underline t :bold t :foreground "DodgerBlue1")))) - (info-xref ((t (:underline t :foreground "DodgerBlue1")))) - (isearch ((t (:background "blue")))) - (isearch-secondary ((t (:foreground "red3")))) - (italic ((t (nil)))) - (left-margin ((t (nil)))) - (list-mode-item-selected ((t (:background "gray68" :foreground "white")))) - (message-cited-text-face ((t (:bold t :foreground "green")))) - (message-header-cc-face ((t (:bold t :foreground "green4")))) - (message-header-name-face ((t (:bold t :foreground "orange")))) - (message-header-newsgroups-face ((t (:bold t :foreground "violet")))) - (message-header-other-face ((t (:bold t :foreground "chocolate")))) - (message-header-subject-face ((t (:bold t :foreground "yellow")))) - (message-header-to-face ((t (:bold t :foreground "cadetblue")))) - (message-header-xheader-face ((t (:bold t :foreground "light blue")))) - (message-mml-face ((t (:bold t :foreground "Green3")))) - (message-separator-face ((t (:foreground "blue3")))) - (modeline ((t (:background "DarkRed" :foreground "white" :box (:line-width 1 :style released-button))))) - (modeline-buffer-id ((t (:background "DarkRed" :foreground "white")))) - (modeline-mousable ((t (:background "DarkRed" :foreground "white")))) - (modeline-mousable-minor-mode ((t (:background "DarkRed" :foreground "white")))) - (p4-depot-added-face ((t (:foreground "blue")))) - (p4-depot-deleted-face ((t (:foreground "red")))) - (p4-depot-unmapped-face ((t (:foreground "grey30")))) - (p4-diff-change-face ((t (:foreground "dark green")))) - (p4-diff-del-face ((t (:foreground "red")))) - (p4-diff-file-face ((t (:background "gray90")))) - (p4-diff-head-face ((t (:background "gray95")))) - (p4-diff-ins-face ((t (:foreground "blue")))) - (pointer ((t (nil)))) - (primary-selection ((t (:background "blue")))) - (red ((t (:foreground "red")))) - (region ((t (:background "blue")))) - (right-margin ((t (nil)))) - (secondary-selection ((t (:background "darkslateblue")))) - (show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue")))) - (show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) - (text-cursor ((t (:background "yellow" :foreground "black")))) - (toolbar ((t (nil)))) - (underline ((nil (:underline nil)))) - (vertical-divider ((t (nil)))) - (widget ((t (nil)))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-field-face ((t (:background "dim gray")))) - (widget-inactive-face ((t (:foreground "light gray")))) - (widget-single-line-field-face ((t (:background "dim gray")))) - (woman-bold-face ((t (:bold t)))) - (woman-italic-face ((t (:foreground "beige")))) - (woman-unknown-face ((t (:foreground "LightSalmon")))) - (yellow ((t (:foreground "yellow")))) - (zmacs-region ((t (:background "snow" :foreground "blue"))))))) - -(defun color-theme-tty-dark () - "Color theme by Oivvio Polite, created 2002-02-01. Good for tty display." - (interactive) - (color-theme-install - '(color-theme-tty-dark - ((background-color . "black") - (background-mode . dark) - (border-color . "blue") - (cursor-color . "red") - (foreground-color . "white") - (mouse-color . "black")) - ((ispell-highlight-face . highlight) - (list-matching-lines-face . bold) - (tinyreplace-:face . highlight) - (view-highlight-face . highlight)) - (default ((t (nil)))) - (bold ((t (:underline t :background "black" :foreground "white")))) - (bold-italic ((t (:underline t :foreground "white")))) - (calendar-today-face ((t (:underline t)))) - (diary-face ((t (:foreground "red")))) - (font-lock-builtin-face ((t (:foreground "blue")))) - (font-lock-comment-face ((t (:foreground "cyan")))) - (font-lock-constant-face ((t (:foreground "magenta")))) - (font-lock-function-name-face ((t (:foreground "cyan")))) - (font-lock-keyword-face ((t (:foreground "red")))) - (font-lock-string-face ((t (:foreground "green")))) - (font-lock-type-face ((t (:foreground "yellow")))) - (font-lock-variable-name-face ((t (:foreground "blue")))) - (font-lock-warning-face ((t (:bold t :foreground "magenta")))) - (highlight ((t (:background "blue" :foreground "yellow")))) - (holiday-face ((t (:background "cyan")))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:italic t :bold t)))) - (info-xref ((t (:bold t)))) - (italic ((t (:underline t :background "red")))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:bold t :foreground "green")))) - (message-header-name-face ((t (:foreground "green")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) - (message-header-other-face ((t (:foreground "#b00000")))) - (message-header-subject-face ((t (:foreground "green")))) - (message-header-to-face ((t (:bold t :foreground "green")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:foreground "green")))) - (message-separator-face ((t (:foreground "blue")))) - - (modeline ((t (:background "white" :foreground "blue")))) - (modeline-buffer-id ((t (:background "white" :foreground "red")))) - (modeline-mousable ((t (:background "white" :foreground "magenta")))) - (modeline-mousable-minor-mode ((t (:background "white" :foreground "yellow")))) - (region ((t (:background "white" :foreground "black")))) - (zmacs-region ((t (:background "cyan" :foreground "black")))) - (secondary-selection ((t (:background "blue")))) - (show-paren-match-face ((t (:background "red")))) - (show-paren-mismatch-face ((t (:background "magenta" :foreground "white")))) - (underline ((t (:underline t))))))) - -(defun color-theme-aliceblue () - "Color theme by Girish Bharadwaj, created 2002-03-27. -Includes comint prompt, custom, font-lock, isearch, -jde, senator, speedbar, and widget." - (interactive) - (color-theme-install - '(color-theme-aliceblue - ((background-color . "AliceBlue") - (background-mode . light) - (border-color . "black") - (cursor-color . "black") - (foreground-color . "DarkSlateGray4") - (mouse-color . "black")) - ((help-highlight-face . underline) - (list-matching-lines-face . bold) - (semantic-which-function-use-color . t) - (senator-eldoc-use-color . t) - (view-highlight-face . highlight) - (widget-mouse-face . highlight)) - (default ((t (:stipple nil :background "AliceBlue" :foreground "DarkSlateGray4" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new")))) - (bold ((t (:bold t :weight bold)))) - (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (border ((t (:background "black")))) - (comint-highlight-input ((t (:bold t :weight bold)))) - (comint-highlight-prompt ((t (:foreground "dark blue")))) - (cursor ((t (:background "black")))) - (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) - (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-comment-face ((t (:background "gray85")))) - (custom-comment-tag-face ((t (:foreground "blue4")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) - (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) - (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2)))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "dark green")))) - (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) - (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2)))) - (fixed-pitch ((t (:family "courier")))) - (font-lock-builtin-face ((t (:foreground "Orchid")))) - (font-lock-comment-face ((t (:italic t :foreground "Firebrick" :slant oblique)))) - (font-lock-constant-face ((t (:foreground "CadetBlue")))) - (font-lock-function-name-face ((t (:bold t :foreground "Blue" :weight extra-bold :family "outline-verdana")))) - (font-lock-keyword-face ((t (:bold t :foreground "Purple" :weight semi-bold :family "outline-verdana")))) - (font-lock-preprocessor-face ((t (:foreground "CadetBlue")))) - (font-lock-reference-face ((t (:foreground "Orchid")))) - (font-lock-string-face ((t (:foreground "RosyBrown")))) - (font-lock-type-face ((t (:italic t :foreground "ForestGreen" :slant italic)))) - (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod" :width condensed)))) - (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) - (fringe ((t (:background "DarkSlateBlue")))) - (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil)))) - (highlight ((t (:background "darkseagreen2")))) - (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) - (italic ((t (:italic t :slant italic)))) - (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) - (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) - (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) - (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) - (jde-java-font-lock-api-face ((t (:foreground "dark goldenrod")))) - (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) - (jde-java-font-lock-code-face ((t (nil)))) - (jde-java-font-lock-constant-face ((t (:foreground "CadetBlue")))) - (jde-java-font-lock-doc-tag-face ((t (:foreground "green4")))) - (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) - (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal)))) - (jde-java-font-lock-modifier-face ((t (:foreground "Orchid")))) - (jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) - (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) - (jde-java-font-lock-package-face ((t (:foreground "blue3")))) - (jde-java-font-lock-pre-face ((t (nil)))) - (jde-java-font-lock-underline-face ((t (:underline t)))) - (menu ((t (nil)))) - (modeline ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) - (modeline-buffer-id ((t (:background "grey75" :foreground "black")))) - (modeline-mousable ((t (:background "grey75" :foreground "black")))) - (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black")))) - (mouse ((t (:background "black")))) - (primary-selection ((t (:background "lightgoldenrod2")))) - (region ((t (:background "lightgoldenrod2")))) - (scroll-bar ((t (nil)))) - (secondary-selection ((t (:background "yellow")))) - (semantic-dirty-token-face ((t (:background "lightyellow")))) - (semantic-unmatched-syntax-face ((t (:underline "red")))) - (senator-intangible-face ((t (:foreground "gray25")))) - (senator-momentary-highlight-face ((t (:background "gray70")))) - (senator-read-only-face ((t (:background "#CCBBBB")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (speedbar-button-face ((t (:foreground "green4")))) - (speedbar-directory-face ((t (:foreground "blue4")))) - (speedbar-file-face ((t (:foreground "cyan4")))) - (speedbar-highlight-face ((t (:background "green")))) - (speedbar-selected-face ((t (:foreground "red" :underline t)))) - (speedbar-tag-face ((t (:foreground "brown")))) - (template-message-face ((t (:bold t :weight bold)))) - (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv")))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "gray85")))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv")))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "gray85")))) - (zmacs-region ((t (:background "lightgoldenrod2"))))))) - -(defun color-theme-black-on-gray () - "Color theme by sbhojwani, created 2002-04-03. -Includes ecb, font-lock, paren, semantic, and widget faces. -Some of the font-lock faces are disabled, ie. they look just -like the default face. This is for people that don't like -the look of \"angry fruit salad\" when editing." - (interactive) - (color-theme-install - '(color-theme-black-on-gray - ((background-color . "white") - (background-mode . light) - (border-color . "blue") - (foreground-color . "black")) - ((buffers-tab-face . buffers-tab) - (ecb-directories-general-face . ecb-default-general-face) - (ecb-directory-face . ecb-default-highlight-face) - (ecb-history-face . ecb-default-highlight-face) - (ecb-history-general-face . ecb-default-general-face) - (ecb-method-face . ecb-default-highlight-face) - (ecb-methods-general-face . ecb-default-general-face) - (ecb-source-face . ecb-default-highlight-face) - (ecb-source-in-directories-buffer-face . ecb-source-in-directories-buffer-face) - (ecb-sources-general-face . ecb-default-general-face) - (ecb-token-header-face . ecb-token-header-face)) - (default ((t (nil)))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t :size "10pt")))) - (bold-italic ((t (:italic t :bold t :size "10pt")))) - (border-glyph ((t (:size "11pt")))) - (buffers-tab ((t (:background "gray75")))) - (display-time-mail-balloon-enhance-face ((t (:background "orange")))) - (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) - (display-time-time-balloon-face ((t (:foreground "red")))) - (ecb-bucket-token-face ((t (:bold t :size "10pt")))) - (ecb-default-general-face ((t (nil)))) - (ecb-default-highlight-face ((t (:background "cornflower blue" :foreground "yellow")))) - (ecb-directories-general-face ((t (nil)))) - (ecb-directory-face ((t (:background "cornflower blue" :foreground "yellow")))) - (ecb-history-face ((t (:background "cornflower blue" :foreground "yellow")))) - (ecb-history-general-face ((t (nil)))) - (ecb-method-face ((t (:background "cornflower blue" :foreground "yellow")))) - (ecb-methods-general-face ((t (nil)))) - (ecb-source-face ((t (:background "cornflower blue" :foreground "yellow")))) - (ecb-source-in-directories-buffer-face ((t (:foreground "medium blue")))) - (ecb-sources-general-face ((t (nil)))) - (ecb-token-header-face ((t (:background "SeaGreen1")))) - (ecb-type-token-class-face ((t (:bold t :size "10pt")))) - (ecb-type-token-enum-face ((t (:bold t :size "10pt")))) - (ecb-type-token-group-face ((t (:bold t :size "10pt" :foreground "dimgray")))) - (ecb-type-token-interface-face ((t (:bold t :size "10pt")))) - (ecb-type-token-struct-face ((t (:bold t :size "10pt")))) - (ecb-type-token-typedef-face ((t (:bold t :size "10pt")))) - (font-lock-builtin-face ((t (:foreground "red3")))) - (font-lock-constant-face ((t (:foreground "blue3")))) - (font-lock-comment-face ((t (:foreground "blue")))) - (font-lock-doc-face ((t (:foreground "green4")))) - (font-lock-doc-string-face ((t (:foreground "green4")))) - (font-lock-function-name-face ((t (nil)))) - (font-lock-keyword-face ((t (nil)))) - (font-lock-preprocessor-face ((t (:foreground "blue3")))) - (font-lock-reference-face ((t (:foreground "red3")))) - (font-lock-string-face ((t (nil)))) - (font-lock-type-face ((t (nil)))) - (font-lock-variable-name-face ((t (nil)))) - (font-lock-warning-face ((t (nil)))) - (green ((t (:foreground "green")))) - (gui-button-face ((t (:background "grey75")))) - (gui-element ((t (:size "8pt" :background "gray75")))) - (highlight ((t (:background "darkseagreen2")))) - (isearch ((t (:background "paleturquoise")))) - (isearch-secondary ((t (:foreground "red3")))) - (italic ((t (:size "10pt")))) - (left-margin ((t (nil)))) - (list-mode-item-selected ((t (:background "gray68")))) - (modeline ((t (:background "gray75")))) - (modeline-buffer-id ((t (:background "gray75" :foreground "blue4")))) - (modeline-mousable ((t (:background "gray75" :foreground "firebrick")))) - (modeline-mousable-minor-mode ((t (:background "gray75" :foreground "green4")))) - (paren-blink-off ((t (:foreground "gray")))) - (paren-match ((t (:background "darkseagreen2")))) - (paren-mismatch ((t (nil)))) - (pointer ((t (nil)))) - (primary-selection ((t (:background "gray65")))) - (red ((t (:foreground "red")))) - (region ((t (:background "gray65")))) - (right-margin ((t (nil)))) - (secondary-selection ((t (:background "paleturquoise")))) - (semantic-dirty-token-face ((t (nil)))) - (semantic-unmatched-syntax-face ((t (nil)))) - (text-cursor ((t (:background "red" :foreground "gray")))) - (toolbar ((t (:background "gray75")))) - (underline ((t (:underline t)))) - (vertical-divider ((t (:background "gray75")))) - (widget ((t (:size "8pt" :background "gray75")))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (nil)))) - (yellow ((t (:foreground "yellow")))) - (zmacs-region ((t (:background "gray65"))))))) - -(defun color-theme-dark-blue2 () - "Color theme by Chris McMahan, created 2002-04-12. -Includes antlr, bbdb, change-log, comint, cperl, custom cvs, diff, -dired, display-time, ebrowse, ecb, ediff, erc, eshell, fl, font-lock, -gnus, hi, highlight, html-helper, hyper-apropos, info, isearch, jde, -message, mmm, paren, semantic, senator, sgml, smerge, speedbar, -strokes, term, vhdl, viper, vm, widget, xref, xsl, xxml. Yes, it is -a large theme." - (interactive) - (color-theme-install - '(color-theme-dark-blue2 - ((background-color . "#233b5a") - (background-mode . dark) - (background-toolbar-color . "#cf3ccf3ccf3c") - (border-color . "black") - (bottom-toolbar-shadow-color . "#79e77df779e7") - (cursor-color . "Yellow") - (foreground-color . "#fff8dc") - (mouse-color . "Grey") - (top-toolbar-shadow-color . "#fffffbeeffff") - (viper-saved-cursor-color-in-replace-mode . "Red3")) - ((blank-space-face . blank-space-face) - (blank-tab-face . blank-tab-face) - (cperl-invalid-face . underline) - (ecb-directories-general-face . ecb-directories-general-face) - (ecb-directory-face . ecb-directory-face) - (ecb-history-face . ecb-history-face) - (ecb-history-general-face . ecb-history-general-face) - (ecb-method-face . ecb-method-face) - (ecb-methods-general-face . ecb-methods-general-face) - (ecb-source-face . ecb-source-face) - (ecb-source-in-directories-buffer-face . ecb-sources-face) - (ecb-sources-general-face . ecb-sources-general-face) - (ecb-token-header-face . ecb-token-header-face) - (gnus-article-button-face . bold) - (gnus-article-mouse-face . highlight) - (gnus-cite-attribution-face . gnus-cite-attribution-face) - (gnus-signature-face . gnus-signature-face) - (gnus-summary-selected-face . gnus-summary-selected-face) - (help-highlight-face . underline) - (highline-face . highline-face) - (highline-vertical-face . highline-vertical-face) - (list-matching-lines-face . bold) - (ps-zebra-color . 0.95) - (senator-eldoc-use-color . t) - (sgml-set-face . t) - (tags-tag-face . default) - (view-highlight-face . highlight) - (vm-highlight-url-face . bold-italic) - (vm-highlighted-header-face . bold) - (vm-mime-button-face . gui-button-face) - (vm-summary-highlight-face . bold) - (widget-mouse-face . highlight)) - (default ((t (:stipple nil :background "#233b5a" :foreground "#fff8dc" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida console")))) - (Info-title-1-face ((t (:bold t :weight bold :height 1.728 :family "helv")))) - (Info-title-2-face ((t (:bold t :weight bold :height 1.44 :family "helv")))) - (Info-title-3-face ((t (:bold t :weight bold :height 1.2 :family "helv")))) - (Info-title-4-face ((t (:bold t :weight bold :family "helv")))) - (antlr-font-lock-keyword-face ((t (:bold t :foreground "Gray85" :weight bold)))) - (antlr-font-lock-literal-face ((t (:bold t :foreground "Gray85" :weight bold)))) - (antlr-font-lock-ruledef-face ((t (:bold t :foreground "Gray85" :weight bold)))) - (antlr-font-lock-ruleref-face ((t (:foreground "Gray85")))) - (antlr-font-lock-tokendef-face ((t (:bold t :foreground "Gray85" :weight bold)))) - (antlr-font-lock-tokenref-face ((t (:foreground "Gray85")))) - (bbdb-company ((t (:italic t :slant italic)))) - (bbdb-field-name ((t (:bold t :weight bold)))) - (bbdb-field-value ((t (nil)))) - (bbdb-name ((t (:underline t)))) - (bg:erc-color-face0 ((t (:background "White")))) - (bg:erc-color-face1 ((t (:background "black")))) - (bg:erc-color-face10 ((t (:background "lightblue1")))) - (bg:erc-color-face11 ((t (:background "cyan")))) - (bg:erc-color-face12 ((t (:background "blue")))) - (bg:erc-color-face13 ((t (:background "deeppink")))) - (bg:erc-color-face14 ((t (:background "gray50")))) - (bg:erc-color-face15 ((t (:background "gray90")))) - (bg:erc-color-face2 ((t (:background "blue4")))) - (bg:erc-color-face3 ((t (:background "green4")))) - (bg:erc-color-face4 ((t (:background "red")))) - (bg:erc-color-face5 ((t (:background "brown")))) - (bg:erc-color-face6 ((t (:background "purple")))) - (bg:erc-color-face7 ((t (:background "orange")))) - (bg:erc-color-face8 ((t (:background "yellow")))) - (bg:erc-color-face9 ((t (:background "green")))) - (blank-space-face ((t (:background "LightGray")))) - (blank-tab-face ((t (:background "Wheat")))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t :foreground "cyan" :weight bold)))) - (bold-italic ((t (:italic t :bold t :foreground "cyan2" :slant italic :weight bold)))) - (border ((t (:background "black")))) - (border-glyph ((t (nil)))) - (buffers-tab ((t (:background "gray30" :foreground "LightSkyBlue")))) - (calendar-today-face ((t (:underline t)))) - (change-log-acknowledgement-face ((t (:foreground "firebrick")))) - (change-log-conditionals-face ((t (:background "sienna" :foreground "khaki")))) - (change-log-date-face ((t (:foreground "gold")))) - (change-log-email-face ((t (:foreground "khaki" :underline t)))) - (change-log-file-face ((t (:bold t :foreground "lemon chiffon" :weight bold)))) - (change-log-function-face ((t (:background "sienna" :foreground "khaki")))) - (change-log-list-face ((t (:foreground "wheat")))) - (change-log-name-face ((t (:bold t :foreground "light goldenrod" :weight bold)))) - (comint-highlight-input ((t (:bold t :weight bold)))) - (comint-highlight-prompt ((t (:foreground "cyan")))) - (comint-input-face ((t (:foreground "deepskyblue")))) - (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold)))) - (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold)))) - (cperl-invalid-face ((t (:foreground "white")))) - (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) - (cursor ((t (:background "Yellow")))) - (custom-button-face ((t (:bold t :weight bold)))) - (custom-button-pressed-face ((t (:background "lightgrey" :foreground "gray30")))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-comment-face ((t (:foreground "white")))) - (custom-comment-tag-face ((t (:foreground "white")))) - (custom-documentation-face ((t (:foreground "light blue")))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold)))) - (custom-group-tag-face-1 ((t (:foreground "gray85" :underline t)))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "gray30" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "gray85")))) - (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) - (custom-variable-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold)))) - (cvs-filename-face ((t (:foreground "white")))) - (cvs-handled-face ((t (:foreground "pink")))) - (cvs-header-face ((t (:foreground "green")))) - (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold)))) - (cvs-msg-face ((t (:foreground "gray85")))) - (cvs-need-action-face ((t (:foreground "yellow")))) - (cvs-unknown-face ((t (:foreground "grey")))) - (cyan ((t (:foreground "cyan")))) - (diary-face ((t (:bold t :foreground "gray85" :weight bold)))) - (diff-added-face ((t (nil)))) - (diff-changed-face ((t (nil)))) - (diff-context-face ((t (:foreground "grey50")))) - (diff-file-header-face ((t (:bold t :background "grey70" :weight bold)))) - (diff-function-face ((t (:foreground "grey50")))) - (diff-header-face ((t (:foreground "lemon chiffon")))) - (diff-hunk-header-face ((t (:background "grey85")))) - (diff-index-face ((t (:bold t :background "grey70" :weight bold)))) - (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold)))) - (diff-removed-face ((t (nil)))) - (dired-face-boring ((t (:foreground "Gray65")))) - (dired-face-directory ((t (:bold t :weight bold)))) - (dired-face-executable ((t (:foreground "gray85")))) - (dired-face-flagged ((t (:background "LightSlateGray")))) - (dired-face-header ((t (:background "grey75" :foreground "gray30")))) - (dired-face-marked ((t (:background "PaleVioletRed")))) - (dired-face-permissions ((t (:background "grey75" :foreground "gray30")))) - (dired-face-setuid ((t (:foreground "gray85")))) - (dired-face-socket ((t (:foreground "gray85")))) - (dired-face-symlink ((t (:foreground "cyan")))) - (display-time-mail-balloon-enhance-face ((t (:background "orange")))) - (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) - (display-time-time-balloon-face ((t (:foreground "gray85")))) - (ebrowse-default-face ((t (nil)))) - (ebrowse-file-name-face ((t (:italic t :slant italic)))) - (ebrowse-member-attribute-face ((t (:foreground "red")))) - (ebrowse-member-class-face ((t (:foreground "Gray85")))) - (ebrowse-progress-face ((t (:background "blue")))) - (ebrowse-root-class-face ((t (:bold t :foreground "Gray85" :weight bold)))) - (ebrowse-tree-mark-face ((t (:foreground "Gray85")))) - (ecb-bucket-token-face ((t (:bold t :weight bold)))) - (ecb-default-general-face ((t (:height 1.0)))) - (ecb-default-highlight-face ((t (:background "magenta" :height 1.0)))) - (ecb-directories-general-face ((t (:height 0.9)))) - (ecb-directory-face ((t (:background "Cyan4")))) - (ecb-history-face ((t (:background "Cyan4")))) - (ecb-history-general-face ((t (:height 0.9)))) - (ecb-method-face ((t (:background "Cyan4" :slant normal :weight normal)))) - (ecb-methods-general-face ((t (:slant normal)))) - (ecb-source-face ((t (:background "Cyan4")))) - (ecb-source-in-directories-buffer-face ((t (:foreground "LightBlue1")))) - (ecb-sources-face ((t (:foreground "LightBlue1")))) - (ecb-sources-general-face ((t (:height 0.9)))) - (ecb-token-header-face ((t (:background "Steelblue4")))) - (ecb-type-token-class-face ((t (:bold t :weight bold)))) - (ecb-type-token-enum-face ((t (:bold t :weight bold)))) - (ecb-type-token-group-face ((t (:bold t :foreground "dim gray" :weight bold)))) - (ecb-type-token-interface-face ((t (:bold t :weight bold)))) - (ecb-type-token-struct-face ((t (:bold t :weight bold)))) - (ecb-type-token-typedef-face ((t (:bold t :weight bold)))) - (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) - (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Gray30")))) - (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) - (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) - (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Gray30")))) - (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Gray30")))) - (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) - (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Gray30")))) - (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Gray30")))) - (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Gray30")))) - (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) - (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Gray30")))) - (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Gray30")))) - (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) - (erc-action-face ((t (:bold t :weight bold)))) - (erc-bold-face ((t (:bold t :weight bold)))) - (erc-dangerous-host-face ((t (:foreground "red")))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (:foreground "pale green")))) - (erc-error-face ((t (:bold t :foreground "gray85" :weight bold)))) - (erc-fool-face ((t (:foreground "Gray85")))) - (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold)))) - (erc-input-face ((t (:foreground "light blue")))) - (erc-inverse-face ((t (:background "Black" :foreground "White")))) - (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold)))) - (erc-notice-face ((t (:foreground "light salmon")))) - (erc-pal-face ((t (:foreground "pale green")))) - (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold)))) - (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) - (erc-underline-face ((t (:underline t)))) - (eshell-ls-archive-face ((t (:bold t :weight bold)))) - (eshell-ls-backup-face ((t (:foreground "gray85")))) - (eshell-ls-clutter-face ((t (:bold t :foreground "gray85" :weight bold)))) - (eshell-ls-directory-face ((t (:bold t :foreground "Cyan" :weight bold)))) - (eshell-ls-executable-face ((t (:bold t :weight bold)))) - (eshell-ls-missing-face ((t (:bold t :weight bold)))) - (eshell-ls-picture-face ((t (:foreground "gray85")))) - (eshell-ls-product-face ((t (:foreground "gray85")))) - (eshell-ls-readonly-face ((t (:foreground "gray70")))) - (eshell-ls-special-face ((t (:bold t :weight bold)))) - (eshell-ls-symlink-face ((t (:bold t :weight bold)))) - (eshell-ls-text-face ((t (:foreground "gray85")))) - (eshell-ls-todo-face ((t (:bold t :weight bold)))) - (eshell-ls-unreadable-face ((t (:foreground "gray85")))) - (eshell-prompt-face ((t (:bold t :foreground "Yellow" :weight bold)))) - (eshell-test-failed-face ((t (:bold t :weight bold)))) - (eshell-test-ok-face ((t (:bold t :weight bold)))) - (excerpt ((t (:italic t :slant italic)))) - (ff-paths-non-existant-file-face ((t (:bold t :foreground "gray85" :weight bold)))) - (fg:black ((t (:foreground "black")))) - (fg:erc-color-face0 ((t (:foreground "White")))) - (fg:erc-color-face1 ((t (:foreground "black")))) - (fg:erc-color-face10 ((t (:foreground "lightblue1")))) - (fg:erc-color-face11 ((t (:foreground "cyan")))) - (fg:erc-color-face12 ((t (:foreground "blue")))) - (fg:erc-color-face13 ((t (:foreground "deeppink")))) - (fg:erc-color-face14 ((t (:foreground "gray50")))) - (fg:erc-color-face15 ((t (:foreground "gray90")))) - (fg:erc-color-face2 ((t (:foreground "blue4")))) - (fg:erc-color-face3 ((t (:foreground "green4")))) - (fg:erc-color-face4 ((t (:foreground "red")))) - (fg:erc-color-face5 ((t (:foreground "brown")))) - (fg:erc-color-face6 ((t (:foreground "purple")))) - (fg:erc-color-face7 ((t (:foreground "orange")))) - (fg:erc-color-face8 ((t (:foreground "yellow")))) - (fg:erc-color-face9 ((t (:foreground "green")))) - (fixed ((t (:bold t :weight bold)))) - (fixed-pitch ((t (:family "outline-lucida console")))) - (fl-comment-face ((t (:foreground "gray85")))) - (fl-function-name-face ((t (:foreground "green")))) - (fl-keyword-face ((t (:foreground "LightGreen")))) - (fl-string-face ((t (:foreground "light coral")))) - (fl-type-face ((t (:foreground "cyan")))) - (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) - (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) - (font-latex-bold-face ((t (nil)))) - (font-latex-italic-face ((t (nil)))) - (font-latex-math-face ((t (nil)))) - (font-latex-sedate-face ((t (:foreground "Gray85")))) - (font-latex-string-face ((t (:foreground "orange")))) - (font-latex-warning-face ((t (:foreground "gold")))) - (font-lock-builtin-face ((t (:bold t :foreground "LightSteelBlue" :weight bold)))) - (font-lock-comment-face ((t (:italic t :foreground "medium aquamarine" :slant italic)))) - (font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) - (font-lock-doc-face ((t (:bold t :weight bold)))) - (font-lock-doc-string-face ((t (:bold t :foreground "aquamarine" :weight bold)))) - (font-lock-exit-face ((t (:foreground "green")))) - (font-lock-function-name-face ((t (:italic t :bold t :foreground "LightSkyBlue" :slant italic :weight bold)))) - (font-lock-keyword-face ((t (:bold t :foreground "Cyan" :weight bold)))) - (font-lock-preprocessor-face ((t (:foreground "Gray85")))) - (font-lock-reference-face ((t (:foreground "cyan")))) - (font-lock-string-face ((t (:italic t :foreground "aquamarine" :slant italic)))) - (font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) - (font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightGoldenrod" :slant italic :weight bold)))) - (font-lock-warning-face ((t (:bold t :foreground "Salmon" :weight bold)))) - (fringe ((t (:background "#3c5473")))) - (gnus-cite-attribution-face ((t (:italic t :bold t :foreground "beige" :underline t :slant italic :weight bold)))) - (gnus-cite-face-1 ((t (:foreground "gold")))) - (gnus-cite-face-10 ((t (:foreground "coral")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "wheat")))) - (gnus-cite-face-3 ((t (:foreground "light pink")))) - (gnus-cite-face-4 ((t (:foreground "khaki")))) - (gnus-cite-face-5 ((t (:foreground "pale green")))) - (gnus-cite-face-6 ((t (:foreground "beige")))) - (gnus-cite-face-7 ((t (:foreground "orange")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t :foreground "light gray" :weight bold)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "cyan" :slant italic :weight bold)))) - (gnus-emphasis-highlight-words ((t (:background "gray30" :foreground "gold")))) - (gnus-emphasis-italic ((t (:italic t :foreground "cyan" :slant italic)))) - (gnus-emphasis-underline ((t (:foreground "white" :underline t)))) - (gnus-emphasis-underline-bold ((t (:bold t :foreground "white" :underline t :weight bold)))) - (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :foreground "white" :underline t :slant italic :weight bold)))) - (gnus-emphasis-underline-italic ((t (:italic t :foreground "white" :underline t :slant italic)))) - (gnus-filterhist-face-1 ((t (nil)))) - (gnus-group-mail-1-empty-face ((t (:foreground "Magenta")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "Magenta" :weight bold)))) - (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) - (gnus-group-mail-3-empty-face ((t (:foreground "Cyan")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "Cyan" :weight bold)))) - (gnus-group-mail-low-empty-face ((t (:foreground "Wheat")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "Gray85" :weight bold)))) - (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) - (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) - (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) - (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) - (gnus-group-news-3-empty-face ((t (:foreground "wheat")))) - (gnus-group-news-3-face ((t (:bold t :foreground "Wheat" :weight bold)))) - (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine")))) - (gnus-group-news-4-face ((t (:bold t :weight bold)))) - (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine")))) - (gnus-group-news-5-face ((t (:bold t :weight bold)))) - (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine")))) - (gnus-group-news-6-face ((t (:bold t :weight bold)))) - (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) - (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) - (gnus-header-content-face ((t (:italic t :foreground "Wheat" :slant italic)))) - (gnus-header-from-face ((t (:bold t :foreground "light yellow" :weight bold)))) - (gnus-header-name-face ((t (:bold t :foreground "Wheat" :weight bold)))) - (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold)))) - (gnus-header-subject-face ((t (:bold t :foreground "Gold" :weight bold)))) - (gnus-picons-face ((t (:background "white" :foreground "gray30")))) - (gnus-picons-xbm-face ((t (:background "white" :foreground "gray30")))) - (gnus-signature-face ((t (:italic t :foreground "white" :slant italic)))) - (gnus-splash ((t (:foreground "Brown")))) - (gnus-splash-face ((t (:foreground "orange")))) - (gnus-summary-cancelled-face ((t (:background "gray30" :foreground "orange")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) - (gnus-summary-high-read-face ((t (:bold t :foreground "gray85" :weight bold)))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral" :weight bold)))) - (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) - (gnus-summary-low-read-face ((t (:italic t :foreground "gray85" :slant italic)))) - (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "coral" :slant italic :weight bold)))) - (gnus-summary-low-unread-face ((t (:italic t :foreground "white" :slant italic)))) - (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "gray70")))) - (gnus-summary-normal-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) - (gnus-summary-normal-unread-face ((t (:bold t :foreground "gray85" :weight bold)))) - (gnus-summary-selected-face ((t (:foreground "white" :underline t)))) - (gnus-x-face ((t (:background "white" :foreground "gray30")))) - (green ((t (:foreground "green")))) - (gui-button-face ((t (:background "grey75" :foreground "gray30")))) - (gui-element ((t (:background "Gray80")))) - (header-line ((t (:background "grey20" :foreground "grey90")))) - (hi-black-b ((t (:bold t :weight bold)))) - (hi-black-hb ((t (:bold t :weight bold :height 1.67 :family "helv")))) - (hi-blue ((t (:background "light blue")))) - (hi-blue-b ((t (:bold t :foreground "blue" :weight bold)))) - (hi-green ((t (:background "green")))) - (hi-green-b ((t (:bold t :foreground "green" :weight bold)))) - (hi-pink ((t (:background "pink")))) - (hi-red-b ((t (:bold t :foreground "red" :weight bold)))) - (hi-yellow ((t (:background "yellow")))) - (highlight ((t (:background "SkyBlue3")))) - (highlight-changes-delete-face ((t (:foreground "gray85" :underline t)))) - (highlight-changes-face ((t (:foreground "gray85")))) - (highline-face ((t (:background "#3c5473")))) - (highline-vertical-face ((t (:background "lightcyan")))) - (holiday-face ((t (:background "pink" :foreground "gray30")))) - (html-helper-bold-face ((t (:bold t :weight bold)))) - (html-helper-bold-italic-face ((t (nil)))) - (html-helper-builtin-face ((t (:foreground "gray85" :underline t)))) - (html-helper-italic-face ((t (:bold t :foreground "yellow" :weight bold)))) - (html-helper-underline-face ((t (:underline t)))) - (html-tag-face ((t (:bold t :weight bold)))) - (hyper-apropos-documentation ((t (:foreground "white")))) - (hyper-apropos-heading ((t (:bold t :weight bold)))) - (hyper-apropos-hyperlink ((t (:foreground "sky blue")))) - (hyper-apropos-major-heading ((t (:bold t :weight bold)))) - (hyper-apropos-section-heading ((t (:bold t :weight bold)))) - (hyper-apropos-warning ((t (:bold t :foreground "gray85" :weight bold)))) - (ibuffer-marked-face ((t (:foreground "gray85")))) - (idlwave-help-link-face ((t (:foreground "Blue")))) - (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black")))) - (info-header-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) - (info-header-xref ((t (:bold t :foreground "magenta4" :weight bold)))) - (info-menu-5 ((t (:underline t)))) - (info-menu-6 ((t (nil)))) - (info-menu-header ((t (:bold t :weight bold :family "helv")))) - (info-node ((t (:italic t :bold t :slant italic :weight bold)))) - (info-xref ((t (:bold t :weight bold)))) - (isearch ((t (:background "LightSeaGreen")))) - (isearch-lazy-highlight-face ((t (:background "cyan4")))) - (isearch-secondary ((t (:foreground "red3")))) - (italic ((t (:italic t :bold t :slant italic :weight bold)))) - (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) - (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) - (jde-java-font-lock-api-face ((t (:foreground "LightBlue")))) - (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) - (jde-java-font-lock-code-face ((t (nil)))) - (jde-java-font-lock-constant-face ((t (:foreground "LightBlue")))) - (jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue")))) - (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) - (jde-java-font-lock-link-face ((t (:foreground "cyan3" :underline t)))) - (jde-java-font-lock-modifier-face ((t (:foreground "LightBlue")))) - (jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) - (jde-java-font-lock-operator-face ((t (:foreground "cyan3")))) - (jde-java-font-lock-package-face ((t (:foreground "LightBlue")))) - (jde-java-font-lock-pre-face ((t (nil)))) - (jde-java-font-lock-underline-face ((t (:underline t)))) - (lazy-highlight-face ((t (:bold t :foreground "yellow" :weight bold)))) - (left-margin ((t (nil)))) - (linemenu-face ((t (:background "gray30")))) - (list-mode-item-selected ((t (:background "gray68")))) - (log-view-file-face ((t (:bold t :background "grey70" :weight bold)))) - (log-view-message-face ((t (:background "grey85")))) - (magenta ((t (:foreground "gray85")))) - (makefile-space-face ((t (:background "hotpink" :foreground "white")))) - (man-bold ((t (:bold t :weight bold)))) - (man-heading ((t (:bold t :weight bold)))) - (man-italic ((t (:foreground "yellow")))) - (man-xref ((t (:underline t)))) - (menu ((t (:background "wheat" :foreground "gray30")))) - (message-cited-text ((t (:foreground "orange")))) - (message-cited-text-face ((t (:foreground "medium aquamarine")))) - (message-header-cc-face ((t (:bold t :foreground "gray85" :weight bold)))) - (message-header-contents ((t (:foreground "white")))) - (message-header-name-face ((t (:foreground "gray85")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold)))) - (message-header-other-face ((t (:foreground "gray85")))) - (message-header-subject-face ((t (:bold t :foreground "green3" :weight bold)))) - (message-header-to-face ((t (:bold t :foreground "green2" :weight bold)))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-headers ((t (:bold t :foreground "orange" :weight bold)))) - (message-highlighted-header-contents ((t (:bold t :weight bold)))) - (message-mml-face ((t (:bold t :foreground "gray85" :weight bold)))) - (message-separator-face ((t (:foreground "gray85")))) - (message-url ((t (:bold t :foreground "pink" :weight bold)))) - (mmm-default-submode-face ((t (:background "#c0c0c5")))) - (mmm-face ((t (:background "black" :foreground "green")))) - (modeline ((t (:background "#3c5473" :foreground "lightgray" :box (:line-width -1 :style released-button :family "helv"))))) - (modeline-buffer-id ((t (:background "white" :foreground "DeepSkyBlue3" :slant normal :weight normal :width normal :family "outline-verdana")))) - (modeline-mousable ((t (:background "white" :foreground "DeepSkyBlue3")))) - (modeline-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3")))) - (mouse ((t (:background "Grey")))) - (my-summary-highlight-face ((t (:background "PaleTurquoise4" :foreground "White")))) - (my-url-face ((t (:foreground "LightBlue")))) - (nil ((t (nil)))) - (paren-blink-off ((t (:foreground "gray80")))) - (paren-face-match ((t (:background "turquoise")))) - (paren-face-mismatch ((t (:background "purple" :foreground "white")))) - (paren-face-no-match ((t (:background "yellow" :foreground "gray30")))) - (paren-match ((t (:background "darkseagreen2")))) - (paren-mismatch ((t (:background "RosyBrown" :foreground "gray30")))) - (paren-mismatch-face ((t (:bold t :background "white" :foreground "red" :weight bold)))) - (paren-no-match-face ((t (:bold t :background "white" :foreground "red" :weight bold)))) - (pointer ((t (nil)))) - (primary-selection ((t (:background "gray40")))) - (reb-match-0 ((t (:background "lightblue")))) - (reb-match-1 ((t (:background "aquamarine")))) - (reb-match-2 ((t (:background "springgreen")))) - (reb-match-3 ((t (:background "yellow")))) - (red ((t (:foreground "red")))) - (region ((t (:background "Cyan4")))) - (right-margin ((t (nil)))) - (scroll-bar ((t (:background "grey75")))) - (secondary-selection ((t (:background "gray60")))) - (semantic-dirty-token-face ((t (:background "gray10")))) - (semantic-intangible-face ((t (:foreground "gray25")))) - (semantic-read-only-face ((t (:background "gray25")))) - (semantic-unmatched-syntax-face ((t (:underline "red")))) - (senator-intangible-face ((t (:foreground "gray75")))) - (senator-momentary-highlight-face ((t (:background "gray70")))) - (senator-read-only-face ((t (:background "#664444")))) - (sgml-comment-face ((t (:foreground "dark turquoise")))) - (sgml-doctype-face ((t (:foreground "turquoise")))) - (sgml-end-tag-face ((t (:foreground "aquamarine")))) - (sgml-entity-face ((t (:foreground "gray85")))) - (sgml-ignored-face ((t (:background "gray60" :foreground "gray40")))) - (sgml-ms-end-face ((t (:foreground "green")))) - (sgml-ms-start-face ((t (:foreground "yellow")))) - (sgml-pi-face ((t (:foreground "lime green")))) - (sgml-sgml-face ((t (:foreground "brown")))) - (sgml-short-ref-face ((t (:foreground "deep sky blue")))) - (sgml-start-tag-face ((t (:foreground "aquamarine")))) - (sh-heredoc-face ((t (:foreground "tan")))) - (shell-option-face ((t (:foreground "gray85")))) - (shell-output-2-face ((t (:foreground "gray85")))) - (shell-output-3-face ((t (:foreground "gray85")))) - (shell-output-face ((t (:bold t :weight bold)))) - (shell-prompt-face ((t (:foreground "yellow")))) - (show-paren-match-face ((t (:bold t :background "turquoise" :weight bold)))) - (show-paren-mismatch-face ((t (:bold t :background "RosyBrown" :foreground "white" :weight bold)))) - (show-tabs-space-face ((t (:foreground "yellow")))) - (show-tabs-tab-face ((t (:foreground "red")))) - (smerge-base-face ((t (:foreground "red")))) - (smerge-markers-face ((t (:background "grey85")))) - (smerge-mine-face ((t (:foreground "Gray85")))) - (smerge-other-face ((t (:foreground "darkgreen")))) - (speedbar-button-face ((t (:bold t :weight bold)))) - (speedbar-directory-face ((t (:bold t :weight bold)))) - (speedbar-file-face ((t (:bold t :weight bold)))) - (speedbar-highlight-face ((t (:background "sea green")))) - (speedbar-selected-face ((t (:underline t)))) - (speedbar-tag-face ((t (:foreground "yellow")))) - (strokes-char-face ((t (:background "lightgray")))) - (swbuff-current-buffer-face ((t (:bold t :foreground "gray85" :weight bold)))) - (template-message-face ((t (:bold t :weight bold)))) - (term-black ((t (:foreground "black")))) - (term-blackbg ((t (:background "black")))) - (term-blue ((t (:foreground "blue")))) - (term-bluebg ((t (:background "blue")))) - (term-bold ((t (:bold t :weight bold)))) - (term-cyan ((t (:foreground "cyan")))) - (term-cyanbg ((t (:background "cyan")))) - (term-default ((t (:background "gray80" :foreground "gray30" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida console")))) - (term-default-bg ((t (nil)))) - (term-default-bg-inv ((t (nil)))) - (term-default-fg ((t (nil)))) - (term-default-fg-inv ((t (nil)))) - (term-green ((t (:foreground "green")))) - (term-greenbg ((t (:background "green")))) - (term-invisible ((t (nil)))) - (term-invisible-inv ((t (nil)))) - (term-magenta ((t (:foreground "magenta")))) - (term-magentabg ((t (:background "magenta")))) - (term-red ((t (:foreground "red")))) - (term-redbg ((t (:background "red")))) - (term-underline ((t (:underline t)))) - (term-white ((t (:foreground "white")))) - (term-whitebg ((t (:background "white")))) - (term-yellow ((t (:foreground "yellow")))) - (term-yellowbg ((t (:background "yellow")))) - (tex-math-face ((t (:foreground "RosyBrown")))) - (texinfo-heading-face ((t (:foreground "Blue")))) - (text-cursor ((t (:background "Red3" :foreground "gray80")))) - (tool-bar ((t (:background "grey75" :foreground "black")))) - (toolbar ((t (:background "Gray80")))) - (tooltip ((t (:background "lightyellow" :foreground "black")))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv")))) - (vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat")))) - (vcursor ((t (:background "cyan" :foreground "blue" :underline t)))) - (vertical-divider ((t (:background "Gray80")))) - (vhdl-font-lock-attribute-face ((t (:foreground "gray85")))) - (vhdl-font-lock-directive-face ((t (:foreground "gray85")))) - (vhdl-font-lock-enumvalue-face ((t (:foreground "gray85")))) - (vhdl-font-lock-function-face ((t (:foreground "gray85")))) - (vhdl-font-lock-prompt-face ((t (:bold t :foreground "gray85" :weight bold)))) - (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "gray85" :weight bold)))) - (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) - (vhdl-speedbar-architecture-face ((t (:foreground "gray85")))) - (vhdl-speedbar-architecture-selected-face ((t (:foreground "gray85" :underline t)))) - (vhdl-speedbar-configuration-face ((t (:foreground "gray85")))) - (vhdl-speedbar-configuration-selected-face ((t (:foreground "gray85" :underline t)))) - (vhdl-speedbar-entity-face ((t (:foreground "gray85")))) - (vhdl-speedbar-entity-selected-face ((t (:foreground "gray85" :underline t)))) - (vhdl-speedbar-instantiation-face ((t (:foreground "gray85")))) - (vhdl-speedbar-instantiation-selected-face ((t (:foreground "gray85" :underline t)))) - (vhdl-speedbar-package-face ((t (:foreground "gray85")))) - (vhdl-speedbar-package-selected-face ((t (:foreground "gray85" :underline t)))) - (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) - (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) - (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-search-face ((t (:background "khaki" :foreground "Black")))) - (vm-header-content-face ((t (:italic t :foreground "wheat" :slant italic)))) - (vm-header-from-face ((t (:italic t :foreground "wheat" :slant italic)))) - (vm-header-name-face ((t (:foreground "cyan")))) - (vm-header-subject-face ((t (:foreground "cyan")))) - (vm-header-to-face ((t (:italic t :foreground "cyan" :slant italic)))) - (vm-message-cited-face ((t (:foreground "Gray80")))) - (vm-monochrome-image ((t (:background "white" :foreground "gray30")))) - (vm-summary-face-1 ((t (:foreground "MediumAquamarine")))) - (vm-summary-face-2 ((t (:foreground "MediumAquamarine")))) - (vm-summary-face-3 ((t (:foreground "MediumAquamarine")))) - (vm-summary-face-4 ((t (:foreground "MediumAquamarine")))) - (vm-summary-highlight-face ((t (:foreground "White")))) - (vm-xface ((t (:background "white" :foreground "gray30")))) - (vmpc-pre-sig-face ((t (:foreground "gray85")))) - (vmpc-sig-face ((t (:foreground "gray85")))) - (vvb-face ((t (:background "pink" :foreground "gray30")))) - (w3m-anchor-face ((t (:bold t :foreground "gray85" :weight bold)))) - (w3m-arrived-anchor-face ((t (:bold t :foreground "gray85" :weight bold)))) - (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat")))) - (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige")))) - (white ((t (:foreground "white")))) - (widget ((t (nil)))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "gray85")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85" :foreground "gray30")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "dim gray" :foreground "white")))) - (woman-addition-face ((t (:foreground "orange")))) - (woman-bold-face ((t (:bold t :weight bold)))) - (woman-italic-face ((t (:foreground "beige")))) - (woman-unknown-face ((t (:foreground "LightSalmon")))) - (x-face ((t (:background "white" :foreground "gray30")))) - (xrdb-option-name-face ((t (:foreground "gray85")))) - (xref-keyword-face ((t (:foreground "gray85")))) - (xref-list-default-face ((t (nil)))) - (xref-list-pilot-face ((t (:foreground "gray85")))) - (xref-list-symbol-face ((t (:foreground "navy")))) - (xsl-fo-alternate-face ((t (:foreground "Yellow")))) - (xsl-fo-main-face ((t (:foreground "PaleGreen")))) - (xsl-other-element-face ((t (:foreground "Coral")))) - (xsl-xslt-alternate-face ((t (:foreground "LightGray")))) - (xsl-xslt-main-face ((t (:foreground "Wheat")))) - (xxml-emph-1-face ((t (:background "lightyellow")))) - (xxml-emph-2-face ((t (:background "lightyellow")))) - (xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine")))) - (xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue")))) - (xxml-header-3-face ((t (:background "seashell1")))) - (xxml-header-4-face ((t (:background "seashell1")))) - (xxml-interaction-face ((t (:background "lightcyan")))) - (xxml-rug-face ((t (:background "cyan")))) - (xxml-sparkle-face ((t (:background "yellow")))) - (xxml-unbreakable-space-face ((t (:foreground "grey" :underline t)))) - (yellow ((t (:foreground "yellow")))) - (zmacs-region ((t (:background "Cyan4"))))))) - -(defun color-theme-blue-mood () - "Color theme by Nelson Loyola, created 2002-04-15. -Includes cperl, custom, font-lock, p4, speedbar, widget." - (interactive) - (color-theme-install - '(color-theme-blue-mood - ((background-color . "DodgerBlue4") - (background-mode . dark) - (background-toolbar-color . "#bfbfbfbfbfbf") - (border-color . "Blue") - (border-color . "#000000000000") - (bottom-toolbar-shadow-color . "#6c6c68686868") - (cursor-color . "DarkGoldenrod1") - (foreground-color . "white smoke") - (mouse-color . "black") - (top-toolbar-shadow-color . "#e5e5e0e0e1e1")) - ((vc-annotate-very-old-color . "#0046FF")) - (default ((t (nil)))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t)))) - (bold-italic ((t (nil)))) - (border-glyph ((t (nil)))) - (cmode-bracket-face ((t (:bold t)))) - (cperl-array-face ((t (:bold t :foreground "wheat")))) - (cperl-hash-face ((t (:bold t :foreground "chartreuse")))) - (custom-button-face ((t (nil)))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:underline t :foreground "blue")))) - (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:bold t :foreground "cyan")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t :foreground "blue")))) - (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) - (font-lock-builtin-face ((t (:bold t :foreground "wheat")))) - (font-lock-comment-face ((t (:bold t :foreground "gray72")))) - (font-lock-constant-face ((t (:bold t :foreground "cyan3")))) - (font-lock-doc-string-face ((t (:foreground "#00C000")))) - (font-lock-function-name-face ((t (:bold t :foreground "chartreuse")))) - (font-lock-keyword-face ((t (:bold t :foreground "gold1")))) - (font-lock-other-emphasized-face ((t (:bold t :foreground "gold1")))) - (font-lock-other-type-face ((t (:bold t :foreground "gold1")))) - (font-lock-preprocessor-face ((t (:foreground "plum")))) - (font-lock-reference-face ((t (:bold t :foreground "orangered")))) - (font-lock-string-face ((t (:foreground "tomato")))) - (font-lock-type-face ((t (:bold t :foreground "gold1")))) - (font-lock-variable-name-face ((t (:foreground "light yellow")))) - (font-lock-warning-face ((t (:foreground "tomato")))) - (green ((t (:foreground "green")))) - (gui-button-face ((t (:background "grey75" :foreground "black")))) - (gui-element ((t (:size "nil" :background "#e7e3d6" :foreground" #000000")))) - (highlight ((t (:background "red" :foreground "yellow")))) - (isearch ((t (:bold t :background "pale turquoise" :foreground "blue")))) - (italic ((t (nil)))) - (lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) - (left-margin ((t (nil)))) - (list-mode-item-selected ((t (:bold t :background "gray68" :foreground "yellow")))) - (modeline ((t (:background "goldenrod" :foreground "darkblue")))) - (modeline-buffer-id ((t (:background "goldenrod" :foreground "darkblue")))) - (modeline-mousable ((t (:background "goldenrod" :foreground "darkblue")))) - (modeline-mousable-minor-mode ((t (:background "goldenrod" :foreground "darkblue")))) - (my-tab-face ((t (:background "SlateBlue1")))) - (p4-depot-added-face ((t (:foreground "steelblue1")))) - (p4-depot-deleted-face ((t (:foreground "red")))) - (p4-depot-unmapped-face ((t (:foreground "grey90")))) - (p4-diff-change-face ((t (:foreground "dark green")))) - (p4-diff-del-face ((t (:bold t :foreground "salmon")))) - (p4-diff-file-face ((t (:background "blue")))) - (p4-diff-head-face ((t (:background "blue")))) - (p4-diff-ins-face ((t (:foreground "steelblue1")))) - (paren-blink-off ((t (:foreground "DodgerBlue4")))) - (paren-match ((t (:background "red" :foreground "yellow")))) - (paren-mismatch ((t (:background "DeepPink")))) - (pointer ((t (:background "white")))) - (primary-selection ((t (:bold t :background "medium sea green")))) - (red ((t (:foreground "red")))) - (region ((t (:background "red" :foreground "yellow")))) - (right-margin ((t (nil)))) - (secondary-selection ((t (:background "gray91" :foreground "sienna3")))) - (show-paren-match-face ((t (:background "cyan3" :foreground "blue")))) - (show-paren-mismatch-face ((t (:background "red" :foreground "blue")))) - (show-trailing-whitespace ((t (:background "red" :foreground "blue")))) - (speedbar-button-face ((t (:foreground "white")))) - (speedbar-directory-face ((t (:foreground "gray")))) - (speedbar-file-face ((t (:foreground "gold1")))) - (speedbar-highlight-face ((t (:background "lightslateblue" :foreground "gold1")))) - (speedbar-selected-face ((t (:underline t :foreground "red")))) - (speedbar-tag-face ((t (:foreground "chartreuse")))) - (text-cursor ((t (:background "DarkGoldenrod1" :foreground "DodgerBlue4")))) - (toolbar ((t (:background "#e7e3d6" :foreground "#000000")))) - (underline ((t (:underline t)))) - (vertical-divider ((t (:background "#e7e3d6" :foreground "#000000")))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "gray85")))) - (yellow ((t (:foreground "yellow")))) - (zmacs-region ((t (:background "white" :foreground "midnightblue"))))))) - -(defun color-theme-euphoria () - "Color theme by oGLOWo, created 2000-04-19. -Green on black theme including font-lock, speedbar, and widget." - (interactive) - (color-theme-install - '(color-theme-euphoria - ((background-color . "black") - (background-mode . dark) - (border-color . "black") - (cursor-color . "yellow") - (foreground-color . "#00ff00") - (mouse-color . "yellow")) - ((help-highlight-face . underline) - (list-matching-lines-face . bold) - (widget-mouse-face . highlight)) - (default ((t (:stipple nil :background "black" :foreground "#00ff00" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "misc-fixed")))) - (bold ((t (:bold t :weight bold)))) - (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (border ((t (:background "black")))) - (comint-highlight-input ((t (:bold t :weight bold)))) - (comint-highlight-prompt ((t (:foreground "cyan")))) - (cursor ((t (:background "yellow")))) - (fixed-pitch ((t (:family "courier")))) - (font-lock-builtin-face ((t (:foreground "magenta")))) - (font-lock-comment-face ((t (:foreground "deeppink")))) - (font-lock-constant-face ((t (:foreground "blue")))) - (font-lock-doc-face ((t (:foreground "cyan")))) - (font-lock-doc-string-face ((t (:foreground "cyan")))) - (font-lock-function-name-face ((t (:foreground "purple")))) - (font-lock-keyword-face ((t (:foreground "red")))) - (font-lock-preprocessor-face ((t (:foreground "blue1")))) - (font-lock-reference-face ((t (nil)))) - (font-lock-string-face ((t (:foreground "cyan")))) - (font-lock-type-face ((t (:foreground "yellow")))) - (font-lock-variable-name-face ((t (:foreground "violet")))) - (font-lock-warning-face ((t (:bold t :foreground "red" :weight bold)))) - (fringe ((t (:background "gray16" :foreground "#00ff00")))) - (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) - (highlight ((t (:background "darkolivegreen")))) - (horizontal-divider ((t (:background "gray16" :foreground "#00ff00")))) - (isearch ((t (:background "palevioletred2" :foreground "brown4")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) - (italic ((t (:italic t :slant italic)))) - (menu ((t (:background "gray16" :foreground "green")))) - (modeline ((t (:background "gray16" :foreground "#00ff00" :box (:line-width -1 :style released-button))))) - (modeline-buffer-id ((t (:background "gray16" :foreground "#00ff00")))) - (modeline-mousable ((t (:background "gray16" :foreground "#00ff00")))) - (modeline-mousable-minor-mode ((t (:background "gray16" :foreground "#00ff00")))) - (mouse ((t (:background "yellow")))) - (primary-selection ((t (:background "#00ff00" :foreground "black")))) - (region ((t (:background "steelblue" :foreground "white")))) - (scroll-bar ((t (:background "gray16" :foreground "#00ff00")))) - (secondary-selection ((t (:background "#00ff00" :foreground "black")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (speedbar-button-face ((t (:foreground "#00ff00")))) - (speedbar-directory-face ((t (:foreground "#00ff00")))) - (speedbar-file-face ((t (:foreground "cyan")))) - (speedbar-highlight-face ((t (:background "#00ff00" :foreground "purple")))) - (speedbar-selected-face ((t (:foreground "deeppink" :underline t)))) - (speedbar-tag-face ((t (:foreground "yellow")))) - (tool-bar ((t (:background "gray16" :foreground "green" :box (:line-width 1 :style released-button))))) - (tooltip ((t (:background "gray16" :foreground "#00ff00")))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv")))) - (vertical-divider ((t (:background "gray16" :foreground "#00ff00")))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-field-face ((t (:background "dim gray")))) - (widget-inactive-face ((t (:foreground "light gray")))) - (widget-single-line-field-face ((t (:background "dim gray")))) - (zmacs-region ((t (:background "steelblue" :foreground "white"))))))) - -(defun color-theme-resolve () - "Color theme by Damien Elmes, created 2002-04-24. -A white smoke on blue color theme." - (interactive) - (color-theme-install - '(color-theme-resolve - ((background-color . "#00457f") - (background-mode . dark) - (border-color . "black") - (cursor-color . "DarkGoldenrod1") - (foreground-color . "white smoke") - (mouse-color . "white")) - ((display-time-mail-face . mode-line) - (help-highlight-face . underline) - (list-matching-lines-face . bold) - (view-highlight-face . highlight) - (widget-mouse-face . highlight)) - (default ((t (:stipple nil :background "#00457f" :foreground "white smoke" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "b&h-lucidatypewriter")))) - (bold ((t (:bold t :foreground "snow2" :weight bold)))) - (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (border ((t (:background "black")))) - (calendar-today-face ((t (:underline t)))) - (comint-highlight-input ((t (:bold t :weight bold)))) - (comint-highlight-prompt ((t (:foreground "cyan")))) - (cperl-array-face ((t (:bold t :foreground "wheat" :weight bold)))) - (cperl-hash-face ((t (:bold t :foreground "chartreuse" :weight bold)))) - (cursor ((t (:background "DarkGoldenrod1")))) - (diary-face ((t (:foreground "yellow")))) - (erc-input-face ((t (:foreground "lightblue2")))) - (erc-notice-face ((t (:foreground "lightyellow3")))) - (fixed-pitch ((t (:family "courier")))) - (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen" :weight bold)))) - (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen" :slant italic)))) - (font-latex-math-face ((t (:foreground "burlywood")))) - (font-latex-sedate-face ((t (:foreground "LightGray")))) - (font-latex-string-face ((t (:foreground "RosyBrown")))) - (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold)))) - (font-lock-builtin-face ((t (:foreground "wheat")))) - (font-lock-comment-face ((t (:foreground "light steel blue")))) - (font-lock-constant-face ((t (:foreground "seashell3")))) - (font-lock-doc-face ((t (:foreground "plum")))) - (font-lock-doc-string-face ((t (:foreground "#008000")))) - (font-lock-function-name-face ((t (:foreground "thistle1")))) - (font-lock-keyword-face ((t (:foreground "wheat")))) - (font-lock-other-emphasized-face ((t (:bold t :foreground "gold1" :weight bold)))) - (font-lock-other-type-face ((t (:bold t :foreground "gold1" :weight bold)))) - (font-lock-preprocessor-face ((t (:foreground "#800080")))) - (font-lock-reference-face ((t (:foreground "wheat")))) - (font-lock-string-face ((t (:foreground "plum")))) - (font-lock-type-face ((t (:foreground "lawn green")))) - (font-lock-variable-name-face ((t (:foreground "light yellow")))) - (font-lock-warning-face ((t (:foreground "plum")))) - (fringe ((t (:background "#000000")))) - (gnus-cite-attribution-face ((t (:italic t :slant italic)))) - (gnus-cite-face-1 ((t (:foreground "light blue")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "light cyan")))) - (gnus-cite-face-3 ((t (:foreground "light yellow")))) - (gnus-cite-face-4 ((t (:foreground "light pink")))) - (gnus-cite-face-5 ((t (:foreground "pale green")))) - (gnus-cite-face-6 ((t (:foreground "beige")))) - (gnus-cite-face-7 ((t (:foreground "orange")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t :weight bold)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t :slant italic)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) - (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) - (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) - (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold)))) - (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) - (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold)))) - (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold)))) - (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) - (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) - (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) - (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t :weight bold)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t :weight bold)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t :weight bold)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t :weight bold)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold)))) - (gnus-header-content-face ((t (:italic t :foreground "snow2" :slant italic)))) - (gnus-header-from-face ((t (:foreground "spring green")))) - (gnus-header-name-face ((t (:bold t :foreground "snow2" :weight bold)))) - (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic)))) - (gnus-header-subject-face ((t (:bold t :foreground "peach puff" :weight bold)))) - (gnus-signature-face ((t (:italic t :slant italic)))) - (gnus-splash-face ((t (:foreground "Brown")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) - (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) - (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) - (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic)))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic)))) - (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) - (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (header-line ((t (:background "grey20" :foreground "grey90")))) - (highlight ((t (:background "gray91" :foreground "firebrick")))) - (highline-face ((t (:background "paleturquoise" :foreground "black")))) - (holiday-face ((t (:background "chocolate4")))) - (isearch ((t (:background "palevioletred2" :foreground "brown4")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) - (italic ((t (:italic t :slant italic)))) - (menu ((t (nil)))) - (message-cited-text-face ((t (:foreground "seashell3")))) - (message-header-cc-face ((t (:bold t :foreground "snow2" :weight bold)))) - (message-header-name-face ((t (:bold t :foreground "snow1" :weight bold)))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold)))) - (message-header-other-face ((t (:foreground "snow2")))) - (message-header-subject-face ((t (:bold t :foreground "snow2" :weight bold)))) - (message-header-to-face ((t (:bold t :foreground "snow2" :weight bold)))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "misty rose")))) - (modeline ((t (:foreground "white" :background "#001040" :box (:line-width -1 :style released-button))))) - (modeline-buffer-id ((t (:foreground "white" :background "#001040")))) - (modeline-mousable ((t (:foreground "white" :background "#001040")))) - (modeline-mousable-minor-mode ((t (:foreground "white" :background "#001040")))) - (mouse ((t (:background "white")))) - (my-tab-face ((t (:background "SlateBlue1")))) - (p4-diff-del-face ((t (:bold t :foreground "salmon" :weight bold)))) - (primary-selection ((t (:background "gray91" :foreground "DodgerBlue4")))) - (region ((t (:background "gray91" :foreground "DodgerBlue4")))) - (scroll-bar ((t (:background "grey75")))) - (secondary-selection ((t (:background "gray91" :foreground "sienna3")))) - (show-paren-match-face ((t (:background "cyan3" :foreground "blue")))) - (show-paren-mismatch-face ((t (:background "red" :foreground "blue")))) - (tool-bar ((t (:background "grey75" :foreground "black")))) - (tooltip ((t (:background "lightyellow" :foreground "black")))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv")))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "steel blue")))) - (widget-inactive-face ((t (:foreground "grey")))) - (widget-single-line-field-face ((t (:background "gray85")))) - (zmacs-region ((t (:background "gray91" :foreground "DodgerBlue4"))))))) - -(defun color-theme-xp () - "Color theme by Girish Bharadwaj, created 2002-04-25. -Includes custom, erc, font-lock, jde, semantic, speedbar, widget." - (interactive) - (color-theme-install - '(color-theme-xp - ((background-color . "lightyellow2") - (background-mode . light) - (border-color . "black") - (cursor-color . "black") - (foreground-color . "gray20") - (mouse-color . "black")) - ((help-highlight-face . underline) - (list-matching-lines-face . bold) - (semantic-which-function-use-color . t) - (senator-eldoc-use-color . t) - (view-highlight-face . highlight) - (widget-mouse-face . highlight)) - (default ((t (:stipple nil :background "lightyellow2" :foreground "gray20" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new")))) - (bg:erc-color-face0 ((t (:background "White")))) - (bg:erc-color-face1 ((t (:background "black")))) - (bg:erc-color-face10 ((t (:background "lightblue1")))) - (bg:erc-color-face11 ((t (:background "cyan")))) - (bg:erc-color-face12 ((t (:background "blue")))) - (bg:erc-color-face13 ((t (:background "deeppink")))) - (bg:erc-color-face14 ((t (:background "gray50")))) - (bg:erc-color-face15 ((t (:background "gray90")))) - (bg:erc-color-face2 ((t (:background "blue4")))) - (bg:erc-color-face3 ((t (:background "green4")))) - (bg:erc-color-face4 ((t (:background "red")))) - (bg:erc-color-face5 ((t (:background "brown")))) - (bg:erc-color-face6 ((t (:background "purple")))) - (bg:erc-color-face7 ((t (:background "orange")))) - (bg:erc-color-face8 ((t (:background "yellow")))) - (bg:erc-color-face9 ((t (:background "green")))) - (bold ((t (:bold t :weight bold)))) - (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (border ((t (:background "black")))) - (button ((t (:underline t)))) - (comint-highlight-input ((t (:bold t :weight bold)))) - (comint-highlight-prompt ((t (:foreground "dark blue")))) - (cursor ((t (:background "black")))) - (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) - (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-comment-face ((t (:background "gray85")))) - (custom-comment-tag-face ((t (:foreground "blue4")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) - (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) - (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2)))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "dark green")))) - (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) - (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2)))) - (erc-action-face ((t (:bold t :weight bold)))) - (erc-bold-face ((t (:bold t :weight bold)))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (:foreground "IndianRed")))) - (erc-error-face ((t (:background "Red" :foreground "White")))) - (erc-input-face ((t (:foreground "brown")))) - (erc-inverse-face ((t (:background "Black" :foreground "White")))) - (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold)))) - (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold)))) - (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) - (erc-underline-face ((t (:underline t)))) - (fg:erc-color-face0 ((t (:foreground "White")))) - (fg:erc-color-face1 ((t (:foreground "black")))) - (fg:erc-color-face10 ((t (:foreground "lightblue1")))) - (fg:erc-color-face11 ((t (:foreground "cyan")))) - (fg:erc-color-face12 ((t (:foreground "blue")))) - (fg:erc-color-face13 ((t (:foreground "deeppink")))) - (fg:erc-color-face14 ((t (:foreground "gray50")))) - (fg:erc-color-face15 ((t (:foreground "gray90")))) - (fg:erc-color-face2 ((t (:foreground "blue4")))) - (fg:erc-color-face3 ((t (:foreground "green4")))) - (fg:erc-color-face4 ((t (:foreground "red")))) - (fg:erc-color-face5 ((t (:foreground "brown")))) - (fg:erc-color-face6 ((t (:foreground "purple")))) - (fg:erc-color-face7 ((t (:foreground "orange")))) - (fg:erc-color-face8 ((t (:foreground "yellow")))) - (fg:erc-color-face9 ((t (:foreground "green")))) - (fixed-pitch ((t (:family "courier")))) - (font-lock-builtin-face ((t (:foreground "magenta3" :underline t :height 0.9)))) - (font-lock-comment-face ((t (:italic t :foreground "gray60" :slant oblique :height 0.9)))) - (font-lock-constant-face ((t (:bold t :foreground "medium purple" :weight bold :height 0.9)))) - (font-lock-function-name-face ((t (:bold t :foreground "black" :weight bold)))) - (font-lock-keyword-face ((t (:bold t :foreground "blue" :weight bold)))) - (font-lock-string-face ((t (:foreground "red" :height 0.9)))) - (font-lock-type-face ((t (:foreground "Royalblue")))) - (font-lock-variable-name-face ((t (:bold t :foreground "maroon" :weight bold :height 0.9)))) - (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) - (fringe ((t (:background "dodgerblue")))) - (header-line ((t (:underline "red" :overline "red" :background "grey90" :foreground "grey20" :box nil)))) - (highlight ((t (:background "darkseagreen2")))) - (isearch ((t (:background "magenta2" :foreground "lightskyblue1")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) - (italic ((t (:italic t :slant italic)))) - (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) - (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) - (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) - (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) - (jde-java-font-lock-api-face ((t (:foreground "dark goldenrod")))) - (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) - (jde-java-font-lock-code-face ((t (nil)))) - (jde-java-font-lock-constant-face ((t (:foreground "CadetBlue")))) - (jde-java-font-lock-doc-tag-face ((t (:foreground "green4")))) - (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) - (jde-java-font-lock-link-face ((t (:foreground "cadetblue" :underline t :slant normal)))) - (jde-java-font-lock-modifier-face ((t (:foreground "Orchid")))) - (jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) - (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) - (jde-java-font-lock-package-face ((t (:foreground "blue3")))) - (jde-java-font-lock-pre-face ((t (nil)))) - (jde-java-font-lock-underline-face ((t (:underline t)))) - (menu ((t (nil)))) - (minibuffer-prompt ((t (:foreground "dark blue")))) - (modeline ((t (:background "dodgerblue" :foreground "black" :overline "red" :underline "red")))) - (modeline-buffer-id ((t (:background "dodgerblue" :foreground "black")))) - (modeline-mousable ((t (:background "dodgerblue" :foreground "black")))) - (modeline-mousable-minor-mode ((t (:background "dodgerblue" :foreground "black")))) - (mode-line-inactive ((t (:italic t :underline "red" :overline "red" :background "white" :foreground "cadetblue" :box (:line-width -1 :color "grey75") :slant oblique :weight light)))) - (mouse ((t (:background "black")))) - (primary-selection ((t (:background "lightgoldenrod2")))) - (region ((t (:background "lightgoldenrod2")))) - (scroll-bar ((t (nil)))) - (secondary-selection ((t (:background "yellow")))) - (semantic-dirty-token-face ((t (:background "lightyellow")))) - (semantic-unmatched-syntax-face ((t (:underline "red")))) - (senator-intangible-face ((t (:foreground "gray25")))) - (senator-momentary-highlight-face ((t (:background "gray70")))) - (senator-read-only-face ((t (:background "#CCBBBB")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (speedbar-button-face ((t (:foreground "green4")))) - (speedbar-directory-face ((t (:foreground "blue4")))) - (speedbar-file-face ((t (:foreground "cyan4")))) - (speedbar-highlight-face ((t (:background "green")))) - (speedbar-selected-face ((t (:foreground "red" :underline t)))) - (speedbar-tag-face ((t (:foreground "brown")))) - (template-message-face ((t (:bold t :weight bold)))) - (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) - (tooltip ((t (:background "lightyellow" :foreground "black")))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv")))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "gray85")))) - (zmacs-region ((t (:background "lightgoldenrod2"))))))) - -(defun color-theme-gray30 () - "Color theme by Girish Bharadwaj, created 2002-04-22." - (interactive) - (color-theme-install - '(color-theme-gray30 - ((background-color . "grey30") - (background-mode . dark) - (border-color . "black") - (cursor-color . "black") - (foreground-color . "gainsboro") - (mouse-color . "black")) - ((help-highlight-face . underline) - (list-matching-lines-face . bold) - (semantic-which-function-use-color . t) - (senator-eldoc-use-color . t) - (widget-mouse-face . highlight)) - (default ((t (:stipple nil :background "grey30" :foreground "gainsboro" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new")))) - (bg:erc-color-face0 ((t (:background "White")))) - (bg:erc-color-face1 ((t (:background "black")))) - (bg:erc-color-face10 ((t (:background "lightblue1")))) - (bg:erc-color-face11 ((t (:background "cyan")))) - (bg:erc-color-face12 ((t (:background "blue")))) - (bg:erc-color-face13 ((t (:background "deeppink")))) - (bg:erc-color-face14 ((t (:background "gray50")))) - (bg:erc-color-face15 ((t (:background "gray90")))) - (bg:erc-color-face2 ((t (:background "blue4")))) - (bg:erc-color-face3 ((t (:background "green4")))) - (bg:erc-color-face4 ((t (:background "red")))) - (bg:erc-color-face5 ((t (:background "brown")))) - (bg:erc-color-face6 ((t (:background "purple")))) - (bg:erc-color-face7 ((t (:background "orange")))) - (bg:erc-color-face8 ((t (:background "yellow")))) - (bg:erc-color-face9 ((t (:background "green")))) - (bold ((t (:bold t :weight bold)))) - (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (border ((t (:background "black")))) - (button ((t (:underline t)))) - (comint-highlight-input ((t (:bold t :weight bold)))) - (comint-highlight-prompt ((t (:foreground "cyan")))) - (cursor ((t (:background "black")))) - (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) - (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-comment-face ((t (:background "dim gray")))) - (custom-comment-tag-face ((t (:foreground "gray80")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) - (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2)))) - (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2)))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "lime green")))) - (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) - (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2)))) - (erc-action-face ((t (:bold t :weight bold)))) - (erc-bold-face ((t (:bold t :weight bold)))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (:foreground "IndianRed")))) - (erc-error-face ((t (:background "Red" :foreground "White")))) - (erc-input-face ((t (:foreground "brown")))) - (erc-inverse-face ((t (:background "Black" :foreground "White")))) - (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold)))) - (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold)))) - (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) - (erc-underline-face ((t (:underline t)))) - (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) - (eshell-ls-backup-face ((t (:foreground "LightSalmon")))) - (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) - (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) - (eshell-ls-executable-face ((t (:bold t :foreground "Green" :weight bold)))) - (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) - (eshell-ls-product-face ((t (:foreground "LightSalmon")))) - (eshell-ls-readonly-face ((t (:foreground "Pink")))) - (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) - (eshell-ls-symlink-face ((t (:bold t :foreground "Cyan" :weight bold)))) - (eshell-ls-unreadable-face ((t (:foreground "DarkGrey")))) - (fg:erc-color-face0 ((t (:foreground "White")))) - (fg:erc-color-face1 ((t (:foreground "black")))) - (fg:erc-color-face10 ((t (:foreground "lightblue1")))) - (fg:erc-color-face11 ((t (:foreground "cyan")))) - (fg:erc-color-face12 ((t (:foreground "blue")))) - (fg:erc-color-face13 ((t (:foreground "deeppink")))) - (fg:erc-color-face14 ((t (:foreground "gray50")))) - (fg:erc-color-face15 ((t (:foreground "gray90")))) - (fg:erc-color-face2 ((t (:foreground "blue4")))) - (fg:erc-color-face3 ((t (:foreground "green4")))) - (fg:erc-color-face4 ((t (:foreground "red")))) - (fg:erc-color-face5 ((t (:foreground "brown")))) - (fg:erc-color-face6 ((t (:foreground "purple")))) - (fg:erc-color-face7 ((t (:foreground "orange")))) - (fg:erc-color-face8 ((t (:foreground "yellow")))) - (fg:erc-color-face9 ((t (:foreground "green")))) - (fixed-pitch ((t (:family "courier")))) - (font-lock-builtin-face ((t (:foreground "LightSkyBlue" :underline t)))) - (font-lock-comment-face ((t (:italic t :foreground "lightgreen" :slant oblique)))) - (font-lock-constant-face ((t (:foreground "Aquamarine")))) - (font-lock-function-name-face ((t (:bold t :foreground "DodgerBlue" :weight bold :height 1.05)))) - (font-lock-keyword-face ((t (:foreground "LightPink" :height 1.05)))) - (font-lock-string-face ((t (:foreground "LightSalmon")))) - (font-lock-type-face ((t (:foreground "yellow" :height 1.05)))) - (font-lock-variable-name-face ((t (:foreground "gold")))) - (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) - (fringe ((t (:background "grey10")))) - (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) - (highlight ((t (:background "darkolivegreen")))) - (isearch ((t (:background "palevioletred2" :foreground "brown4")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) - (italic ((t (:italic t :slant italic)))) - (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) - (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) - (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) - (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) - (jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) - (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) - (jde-java-font-lock-code-face ((t (nil)))) - (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) - (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) - (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) - (jde-java-font-lock-link-face ((t (:foreground "cadetblue" :underline t :slant normal)))) - (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) - (jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) - (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) - (jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) - (jde-java-font-lock-pre-face ((t (nil)))) - (jde-java-font-lock-underline-face ((t (:underline t)))) - (menu ((t (nil)))) - (minibuffer-prompt ((t (:foreground "cyan")))) - (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) - (mode-line-inactive ((t (:background "grey30" :foreground "grey80" :box (:line-width -1 :color "grey40" :style nil) :weight light)))) - (mouse ((t (:background "black")))) - (primary-selection ((t (:background "blue3")))) - (region ((t (:background "blue3")))) - (scroll-bar ((t (nil)))) - (secondary-selection ((t (:background "SkyBlue4")))) - (semantic-dirty-token-face ((t (:background "lightyellow")))) - (semantic-unmatched-syntax-face ((t (:underline "red")))) - (senator-intangible-face ((t (:foreground "gray75")))) - (senator-momentary-highlight-face ((t (:background "gray30")))) - (senator-read-only-face ((t (:background "#664444")))) - (show-paren-match-face ((t (:background "steelblue3")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (speedbar-button-face ((t (:foreground "green3")))) - (speedbar-directory-face ((t (:foreground "light blue")))) - (speedbar-file-face ((t (:foreground "cyan")))) - (speedbar-highlight-face ((t (:background "sea green")))) - (speedbar-selected-face ((t (:foreground "red" :underline t)))) - (speedbar-tag-face ((t (:foreground "yellow")))) - (template-message-face ((t (:bold t :weight bold)))) - (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) - (tooltip ((t (:background "lightyellow" :foreground "black")))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv")))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-field-face ((t (:background "dim gray")))) - (widget-inactive-face ((t (:foreground "light gray")))) - (widget-single-line-field-face ((t (:background "dim gray")))) - (zmacs-region ((t (:background "blue3"))))))) - -(defun color-theme-dark-green () - "Color theme by ces93, created 2002-03-30." - (interactive) - (color-theme-install - '(color-theme-dark-green - ((background-mode . light) - (background-toolbar-color . "#e79ddf7ddf7d") - (border-color . "#000000000000") - (bottom-toolbar-shadow-color . "#8e3886178617") - (top-toolbar-shadow-color . "#ffffffffffff")) - nil - (default ((t (nil)))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (border-glyph ((t (nil)))) - (fringe ((t (nil)))) - (green ((t (:foreground "green")))) - (gui-button-face ((t (:background "grey75" :foreground "black")))) - (gui-element ((t (:background "#ffffff" :foreground "#000000")))) - (highlight ((t (:background "gray" :foreground "darkred")))) - (isearch ((t (:background "LightSlateGray" :foreground "red")))) - (italic ((t (:italic t)))) - (left-margin ((t (nil)))) - (list-mode-item-selected ((t (:background "gray68")))) - (mode-line ((t (:background "LightSlateGray" :foreground "black")))) - (modeline ((t (:background "LightSlateGray" :foreground "black")))) - (modeline-buffer-id ((t (:background "LightSlateGray" :foreground "blue4")))) - (modeline-mousable ((t (:background "LightSlateGray" :foreground "firebrick")))) - (modeline-mousable-minor-mode ((t (:background "LightSlateGray" :foreground "green4")))) - (pointer ((t (:background "#ffffff" :foreground "#000000")))) - (primary-selection ((t (:background "gray65")))) - (red ((t (:foreground "red")))) - (region ((t (:background "gray65")))) - (right-margin ((t (nil)))) - (rpm-spec-dir-face ((t (:foreground "green")))) - (rpm-spec-doc-face ((t (:foreground "magenta")))) - (rpm-spec-ghost-face ((t (:foreground "red")))) - (rpm-spec-macro-face ((t (:foreground "purple")))) - (rpm-spec-package-face ((t (:foreground "red")))) - (rpm-spec-tag-face ((t (:foreground "blue")))) - (secondary-selection ((t (:background "paleturquoise")))) - (text-cursor ((t (:background "Red3" :foreground "DarkSlateGray")))) - (tool-bar ((t (nil)))) - (toolbar ((t (:background "#ffffff" :foreground "#000000")))) - (underline ((t (:underline t)))) - (vertical-divider ((t (:background "#ffffff" :foreground "#000000")))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (yellow ((t (:foreground "yellow")))) - (zmacs-region ((t (:background "darkorange" :foreground "black"))))))) - -(defun color-theme-whateveryouwant () - "Color theme by Fabien Penso, created 2002-05-02." - (interactive) - (color-theme-install - '(color-theme-whateveryouwant - ((background-color . "white") - (background-mode . light) - (border-color . "black") - (cursor-color . "black") - (foreground-color . "black") - (mouse-color . "black")) - ((cperl-here-face . font-lock-string-face) - (cperl-invalid-face . underline) - (cperl-pod-face . font-lock-comment-face) - (cperl-pod-head-face . font-lock-variable-name-face) - (display-time-mail-face . mode-line) - (gnus-article-button-face . bold) - (gnus-article-mouse-face . highlight) - (gnus-carpal-button-face . bold) - (gnus-carpal-header-face . bold-italic) - (gnus-cite-attribution-face . gnus-cite-attribution-face) - (gnus-mouse-face . highlight) - (gnus-selected-tree-face . modeline) - (gnus-signature-face . gnus-signature-face) - (gnus-summary-selected-face . gnus-summary-selected-face) - (gnus-treat-display-xface . head) - (help-highlight-face . underline) - (ispell-highlight-face . flyspell-incorrect-face) - (list-matching-lines-face . bold) - (sgml-set-face . t) - (view-highlight-face . highlight) - (widget-mouse-face . highlight) - (x-face-mouse-face . highlight)) - (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new")))) - (Info-title-1-face ((t (:bold t :weight bold :height 1.728 :family "helv")))) - (Info-title-2-face ((t (:bold t :weight bold :height 1.44 :family "helv")))) - (Info-title-3-face ((t (:bold t :weight bold :height 1.2 :family "helv")))) - (Info-title-4-face ((t (:bold t :weight bold :family "helv")))) - (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold)))) - (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold)))) - (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold)))) - (antlr-font-lock-ruleref-face ((t (:foreground "blue4")))) - (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold)))) - (antlr-font-lock-tokenref-face ((t (:foreground "orange4")))) - (bbdb-company ((t (:italic t :slant italic)))) - (bbdb-field-name ((t (:bold t :foreground "gray40" :weight bold)))) - (bbdb-field-value ((t (nil)))) - (bbdb-name ((t (:underline t)))) - (bold ((t (:bold t :foreground "gray40" :weight bold)))) - (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (border ((t (:background "black")))) - (calendar-today-face ((t (:underline t)))) - (change-log-acknowledgement-face ((t (:foreground "Firebrick")))) - (change-log-conditionals-face ((t (:foreground "DarkGoldenrod")))) - (change-log-date-face ((t (:foreground "RosyBrown")))) - (change-log-email-face ((t (:foreground "DarkGoldenrod")))) - (change-log-file-face ((t (:foreground "Blue")))) - (change-log-function-face ((t (:foreground "DarkGoldenrod")))) - (change-log-list-face ((t (:foreground "Purple")))) - (change-log-name-face ((t (:foreground "CadetBlue")))) - (comint-highlight-input ((t (:bold t :weight bold)))) - (comint-highlight-prompt ((t (:foreground "dark blue")))) - (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold)))) - (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold)))) - (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) - (cursor ((t (:background "black")))) - (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) - (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-comment-face ((t (:background "gray85")))) - (custom-comment-tag-face ((t (:foreground "blue4")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:bold t :weight bold :height 1.2 :family "helv")))) - (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) - (custom-group-tag-face-1 ((t (:bold t :foreground "red" :weight bold :height 1.2 :family "helv")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "dark green")))) - (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) - (custom-variable-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2 :family "helv")))) - (cvs-filename-face ((t (:foreground "blue4")))) - (cvs-handled-face ((t (:foreground "pink")))) - (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold)))) - (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold)))) - (cvs-msg-face ((t (:italic t :slant italic)))) - (cvs-need-action-face ((t (:foreground "orange")))) - (cvs-unknown-face ((t (:foreground "red")))) - (diary-face ((t (:foreground "red")))) - (diff-added-face ((t (nil)))) - (diff-changed-face ((t (nil)))) - (diff-context-face ((t (:foreground "grey50")))) - (diff-file-header-face ((t (:bold t :background "grey70" :weight bold)))) - (diff-function-face ((t (:foreground "grey50")))) - (diff-header-face ((t (:background "grey85")))) - (diff-hunk-header-face ((t (:background "grey85")))) - (diff-index-face ((t (:bold t :background "grey70" :weight bold)))) - (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold)))) - (diff-removed-face ((t (nil)))) - (dired-face-boring ((t (:foreground "RosyBrown")))) - (dired-face-directory ((t (:foreground "Blue")))) - (dired-face-executable ((t (nil)))) - (dired-face-flagged ((t (:bold t :foreground "Red" :weight bold)))) - (dired-face-marked ((t (:bold t :foreground "Red" :weight bold)))) - (dired-face-permissions ((t (nil)))) - (dired-face-setuid ((t (nil)))) - (dired-face-socket ((t (nil)))) - (dired-face-symlink ((t (:foreground "Purple")))) - (ebrowse-default-face ((t (nil)))) - (ebrowse-file-name-face ((t (:italic t :slant italic)))) - (ebrowse-member-attribute-face ((t (:foreground "red")))) - (ebrowse-member-class-face ((t (:foreground "purple")))) - (ebrowse-progress-face ((t (:background "blue")))) - (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold)))) - (ebrowse-tree-mark-face ((t (:foreground "red")))) - (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) - (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) - (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) - (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) - (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) - (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) - (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) - (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) - (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) - (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) - (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) - (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) - (erc-action-face ((t (:bold t :weight bold)))) - (erc-bold-face ((t (:bold t :weight bold)))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (:foreground "LightSalmon")))) - (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold)))) - (erc-input-face ((t (:foreground "Beige")))) - (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey")))) - (erc-notice-face ((t (:foreground "MediumAquamarine")))) - (erc-pal-face ((t (:foreground "pale green")))) - (erc-prompt-face ((t (:foreground "MediumAquamarine")))) - (erc-underline-face ((t (:underline t)))) - (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) - (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) - (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) - (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold)))) - (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) - (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) - (eshell-ls-picture-face ((t (:foreground "Violet")))) - (eshell-ls-product-face ((t (:foreground "OrangeRed")))) - (eshell-ls-readonly-face ((t (:foreground "Brown")))) - (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) - (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold)))) - (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) - (eshell-prompt-face ((t (:bold t :foreground "#aa0000" :weight bold :width condensed :family "neep-alt")))) - (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) - (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold)))) - (excerpt ((t (:italic t :slant italic)))) - (fixed ((t (:bold t :weight bold)))) - (fixed-pitch ((t (:family "courier")))) - (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) - (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) - (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen" :weight bold)))) - (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen" :slant italic)))) - (font-latex-math-face ((t (:foreground "SaddleBrown")))) - (font-latex-sedate-face ((t (:foreground "DimGray")))) - (font-latex-string-face ((t (:foreground "RosyBrown")))) - (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold)))) - (font-lock-builtin-face ((t (:foreground "dodgerblue3")))) - (font-lock-comment-face ((t (:foreground "#cc0000" :width semi-condensed :family "helvetica")))) - (font-lock-constant-face ((t (:foreground "CadetBlue")))) - (font-lock-doc-face ((t (:foreground "RosyBrown")))) - (font-lock-doc-string-face ((t (:foreground "RosyBrown")))) - (font-lock-function-name-face ((t (:bold t :foreground "navy" :weight bold :height 100)))) - (font-lock-keyword-face ((t (:bold t :foreground "red4" :weight bold)))) - (font-lock-preprocessor-face ((t (:foreground "CadetBlue")))) - (font-lock-reference-face ((t (:foreground "Orchid")))) - (font-lock-string-face ((t (:foreground "navy")))) - (font-lock-type-face ((t (:bold t :foreground "black" :weight bold)))) - (font-lock-variable-name-face ((t (:foreground "black")))) - (font-lock-warning-face ((t (:foreground "orange2")))) - (fringe ((t (:background "white")))) - (gnus-cite-attribution-face ((t (:italic t :slant italic)))) - (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "firebrick")))) - (gnus-cite-face-3 ((t (:foreground "dark green")))) - (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) - (gnus-cite-face-5 ((t (:foreground "dark khaki")))) - (gnus-cite-face-6 ((t (:foreground "dark violet")))) - (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t :weight bold)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t :slant italic)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) - (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) - (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) - (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold)))) - (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold)))) - (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold)))) - (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold)))) - (gnus-group-news-1-empty-face ((t (:foreground "red" :weight normal :height 120 :family "courier")))) - (gnus-group-news-1-face ((t (:foreground "red" :weight normal :height 120 :family "courier")))) - (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) - (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold)))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t :weight bold)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t :weight bold)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t :weight bold)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t :weight bold)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) - (gnus-header-content-face ((t (:foreground "goldenrod" :slant normal :family "helvetica")))) - (gnus-header-from-face ((t (:bold t :foreground "grey75" :weight bold :height 140 :family "helvetica")))) - (gnus-header-name-face ((t (:foreground "grey75" :height 120 :family "helvetica")))) - (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic)))) - (gnus-header-subject-face ((t (:bold t :foreground "firebrick" :weight bold :height 160 :family "helvetica")))) - (gnus-picon-face ((t (:background "white" :foreground "black")))) - (gnus-picon-xbm-face ((t (:background "white" :foreground "black")))) - (gnus-signature-face ((t (:italic t :slant italic)))) - (gnus-splash-face ((t (:foreground "Brown")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold)))) - (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold)))) - (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic)))) - (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic)))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic)))) - (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) - (gnus-summary-normal-ancient-face ((t (:foreground "grey65" :height 110 :width condensed :family "neep")))) - (gnus-summary-normal-read-face ((t (:foreground "grey75" :height 110 :width condensed :family "neep")))) - (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick" :weight bold :height 110 :width condensed :family "neep")))) - (gnus-summary-normal-unread-face ((t (:foreground "firebrick" :height 110 :width condensed :family "neep")))) - (gnus-summary-selected-face ((t (:background "gold" :foreground "black" :box (:line-width 1 :color "yellow" :style released-button) :height 140 :width condensed :family "neep")))) - (header-line ((t (:background "grey90" :foreground "grey20" :box nil)))) - (hi-black-b ((t (:bold t :weight bold)))) - (hi-black-hb ((t (:bold t :weight bold :height 1.67 :family "helv")))) - (hi-blue ((t (:background "light blue")))) - (hi-blue-b ((t (:bold t :foreground "blue" :weight bold)))) - (hi-green ((t (:background "green")))) - (hi-green-b ((t (:bold t :foreground "green" :weight bold)))) - (hi-pink ((t (:background "pink")))) - (hi-red-b ((t (:bold t :foreground "red" :weight bold)))) - (hi-yellow ((t (:background "yellow")))) - (highlight ((t (:background "black" :foreground "white")))) - (highlight-changes-delete-face ((t (:foreground "red" :underline t)))) - (highlight-changes-face ((t (:foreground "red")))) - (highline-face ((t (:background "gray80")))) - (holiday-face ((t (:background "pink")))) - (idlwave-help-link-face ((t (:foreground "Blue")))) - (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black")))) - (info-header-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) - (info-header-xref ((t (:bold t :foreground "magenta4" :weight bold)))) - (info-menu-5 ((t (:foreground "red1")))) - (info-menu-header ((t (:bold t :weight bold :family "helv")))) - (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) - (info-xref ((t (:bold t :foreground "magenta4" :weight bold)))) - (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) - (italic ((t (:italic t :slant italic)))) - (log-view-file-face ((t (:bold t :background "grey70" :weight bold)))) - (log-view-message-face ((t (:background "grey85")))) - (makefile-space-face ((t (:background "hotpink")))) - (menu ((t (nil)))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:foreground "grey45" :weight normal :family "helvetica")))) - (message-header-name-face ((t (:foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold)))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold)))) - (message-header-to-face ((t (:bold t :foreground "grey60" :weight bold :height 120 :family "helvetica")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "brown")))) - (mode-line ((t (:background "grey90" :foreground "black" :box (:line-width 1 :style none) :width condensed :family "neep")))) - (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button) :weight bold)))) - (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) - (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) - (mouse ((t (:background "black")))) - (mpg123-face-cur ((t (:background "#004080" :foreground "yellow")))) - (mpg123-face-slider ((t (:background "yellow" :foreground "black")))) - (primary-selection ((t (:background "lightgoldenrod2")))) - (reb-match-0 ((t (:background "lightblue")))) - (reb-match-1 ((t (:background "aquamarine")))) - (reb-match-2 ((t (:background "springgreen")))) - (reb-match-3 ((t (:background "yellow")))) - (region ((t (:background "#aa0000" :foreground "white")))) - (scroll-bar ((t (:background "grey75")))) - (secondary-selection ((t (:background "yellow")))) - (sgml-comment-face ((t (:italic t :foreground "SeaGreen" :slant italic)))) - (sgml-doctype-face ((t (:bold t :foreground "FireBrick" :weight bold)))) - (sgml-end-tag-face ((t (:stipple nil :background "white" :foreground "SlateBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new")))) - (sgml-entity-face ((t (:stipple nil :background "SlateBlue" :foreground "Red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new")))) - (sgml-ignored-face ((t (nil)))) - (sgml-ms-end-face ((t (nil)))) - (sgml-ms-start-face ((t (nil)))) - (sgml-pi-face ((t (:bold t :foreground "gray40" :weight bold)))) - (sgml-sgml-face ((t (:bold t :foreground "gray40" :weight bold)))) - (sgml-short-ref-face ((t (nil)))) - (sgml-shortref-face ((t (:bold t :foreground "gray40" :weight bold)))) - (sgml-start-tag-face ((t (:stipple nil :background "white" :foreground "SlateBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new")))) - (sh-heredoc-face ((t (:foreground "tan")))) - (show-paren-match-face ((t (:background "gray80" :foreground "black")))) - (show-paren-mismatch-face ((t (:background "red" :foreground "yellow")))) - (show-tabs-space-face ((t (:foreground "yellow")))) - (show-tabs-tab-face ((t (:foreground "red")))) - (smerge-base-face ((t (:foreground "red")))) - (smerge-markers-face ((t (:background "grey85")))) - (smerge-mine-face ((t (:foreground "blue")))) - (smerge-other-face ((t (:foreground "darkgreen")))) - (speedbar-button-face ((t (:foreground "green4")))) - (speedbar-directory-face ((t (:foreground "blue4")))) - (speedbar-file-face ((t (:foreground "cyan4")))) - (speedbar-highlight-face ((t (:background "green")))) - (speedbar-selected-face ((t (:foreground "red" :underline t)))) - (speedbar-tag-face ((t (:foreground "brown")))) - (strokes-char-face ((t (:background "lightgray")))) - (term-black ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-blackbg ((t (:stipple nil :background "black" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-blue ((t (:stipple nil :background "white" :foreground "blue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-bluebg ((t (:stipple nil :background "blue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-bold ((t (:bold t :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :family "adobe-courier")))) - (term-cyan ((t (:stipple nil :background "white" :foreground "cyan" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-default-bg ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-default-bg-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-default-fg ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-default-fg-inv ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-green ((t (:stipple nil :background "white" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-greenbg ((t (:stipple nil :background "green" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-invisible ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-invisible-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-magenta ((t (:stipple nil :background "white" :foreground "magenta" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-magentabg ((t (:stipple nil :background "magenta" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-red ((t (:stipple nil :background "white" :foreground "red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-redbg ((t (:stipple nil :background "red" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-underline ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-white ((t (:stipple nil :background "white" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-whitebg ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-yellow ((t (:stipple nil :background "white" :foreground "yellow" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (tex-math-face ((t (:foreground "RosyBrown")))) - (texinfo-heading-face ((t (:foreground "Blue")))) - (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) - (tooltip ((t (:background "lightyellow" :foreground "black")))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:foreground "navy" :underline t)))) - (variable-pitch ((t (:family "helv")))) - (vcursor ((t (:background "cyan" :foreground "blue" :underline t)))) - (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) - (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) - (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) - (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) - (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) - (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold)))) - (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) - (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) - (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) - (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) - (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) - (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) - (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) - (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) - (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) - (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) - (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) - (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) - (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) - (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-search-face ((t (:background "khaki" :foreground "Black")))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "gray85")))) - (woman-addition-face ((t (:foreground "orange")))) - (woman-bold-face ((t (:bold t :foreground "blue" :weight bold)))) - (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic)))) - (woman-unknown-face ((t (:foreground "brown")))) - (zmacs-region ((t (:background "lightgoldenrod2"))))))) - -(defun color-theme-bharadwaj-slate () - "Color theme by Girish Bharadwaj, created 2002-05-06." - (interactive) - (color-theme-install - '(color-theme-bharadwaj-slate - ((background-color . "DarkSlateGray") - (background-mode . dark) - (border-color . "black") - (cursor-color . "khaki") - (foreground-color . "palegreen") - (mouse-color . "black")) - ((display-time-mail-face . mode-line) - (gnus-article-button-face . bold) - (gnus-article-mouse-face . highlight) - (gnus-mouse-face . highlight) - (help-highlight-face . underline) - (ibuffer-deletion-face . font-lock-type-face) - (ibuffer-filter-group-name-face . bold) - (ibuffer-marked-face . font-lock-warning-face) - (ibuffer-title-face . font-lock-type-face) - (list-matching-lines-buffer-name-face . underline) - (list-matching-lines-face . bold) - (semantic-which-function-use-color . t) - (senator-eldoc-use-color . t) - (view-highlight-face . highlight) - (widget-mouse-face . highlight)) - (default ((t (:stipple nil :background "DarkSlateGray" :foreground "palegreen" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida sans typewriter")))) - (bg:erc-color-face0 ((t (:background "White")))) - (bg:erc-color-face1 ((t (:background "black")))) - (bg:erc-color-face10 ((t (:background "lightblue1")))) - (bg:erc-color-face11 ((t (:background "cyan")))) - (bg:erc-color-face12 ((t (:background "blue")))) - (bg:erc-color-face13 ((t (:background "deeppink")))) - (bg:erc-color-face14 ((t (:background "gray50")))) - (bg:erc-color-face15 ((t (:background "gray90")))) - (bg:erc-color-face2 ((t (:background "blue4")))) - (bg:erc-color-face3 ((t (:background "green4")))) - (bg:erc-color-face4 ((t (:background "red")))) - (bg:erc-color-face5 ((t (:background "brown")))) - (bg:erc-color-face6 ((t (:background "purple")))) - (bg:erc-color-face7 ((t (:background "orange")))) - (bg:erc-color-face8 ((t (:background "yellow")))) - (bg:erc-color-face9 ((t (:background "green")))) - (bold ((t (:bold t :weight bold)))) - (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (border ((t (:background "black")))) - (button ((t (:underline t)))) - (comint-highlight-input ((t (:bold t :weight bold)))) - (comint-highlight-prompt ((t (:foreground "cyan")))) - (cursor ((t (:background "khaki")))) - (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) - (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-comment-face ((t (:background "dim gray")))) - (custom-comment-tag-face ((t (:foreground "gray80")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) - (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2)))) - (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2)))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "lime green")))) - (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) - (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2)))) - (erc-action-face ((t (:bold t :box (:line-width 2 :color "grey75") :weight bold)))) - (erc-bold-face ((t (:bold t :weight bold)))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (:foreground "IndianRed")))) - (erc-error-face ((t (:background "Red" :foreground "White")))) - (erc-input-face ((t (:foreground "lightblue")))) - (erc-inverse-face ((t (:background "Black" :foreground "White")))) - (erc-notice-face ((t (:bold t :foreground "dodgerblue" :weight bold)))) - (erc-prompt-face ((t (:bold t :background "black" :foreground "white" :weight bold)))) - (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) - (erc-underline-face ((t (:underline t)))) - (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) - (eshell-ls-backup-face ((t (:foreground "LightSalmon")))) - (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) - (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) - (eshell-ls-executable-face ((t (:bold t :foreground "Green" :weight bold)))) - (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) - (eshell-ls-product-face ((t (:foreground "LightSalmon")))) - (eshell-ls-readonly-face ((t (:foreground "Pink")))) - (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) - (eshell-ls-symlink-face ((t (:bold t :foreground "Cyan" :weight bold)))) - (eshell-ls-unreadable-face ((t (:foreground "DarkGrey")))) - (eshell-prompt-face ((t (:bold t :foreground "Pink" :weight bold)))) - (fg:erc-color-face0 ((t (:foreground "White")))) - (fg:erc-color-face1 ((t (:foreground "black")))) - (fg:erc-color-face10 ((t (:foreground "lightblue1")))) - (fg:erc-color-face11 ((t (:foreground "cyan")))) - (fg:erc-color-face12 ((t (:foreground "blue")))) - (fg:erc-color-face13 ((t (:foreground "deeppink")))) - (fg:erc-color-face14 ((t (:foreground "gray50")))) - (fg:erc-color-face15 ((t (:foreground "gray90")))) - (fg:erc-color-face2 ((t (:foreground "blue4")))) - (fg:erc-color-face3 ((t (:foreground "green4")))) - (fg:erc-color-face4 ((t (:foreground "red")))) - (fg:erc-color-face5 ((t (:foreground "brown")))) - (fg:erc-color-face6 ((t (:foreground "purple")))) - (fg:erc-color-face7 ((t (:foreground "orange")))) - (fg:erc-color-face8 ((t (:foreground "yellow")))) - (fg:erc-color-face9 ((t (:foreground "green")))) - (fixed-pitch ((t (:family "courier")))) - (font-lock-builtin-face ((t (:bold t :foreground "pink" :weight bold :height 1.1)))) - (font-lock-comment-face ((t (:foreground "violet" :height 1.0)))) - (font-lock-constant-face ((t (:bold t :foreground "tomato" :weight bold :height 1.0)))) - (font-lock-function-name-face ((t (:bold t :foreground "DodgerBlue" :weight bold)))) - (font-lock-keyword-face ((t (:bold t :foreground "turquoise" :weight bold)))) - (font-lock-preprocessor-face ((t (:bold t :foreground "tomato" :weight bold :height 1.0)))) - (font-lock-reference-face ((t (:bold t :foreground "pink" :weight bold :height 1.1)))) - (font-lock-string-face ((t (:foreground "red" :height 1.0)))) - (font-lock-type-face ((t (:foreground "lightblue3")))) - (font-lock-variable-name-face ((t (:bold t :foreground "gray" :weight bold :height 1.0)))) - (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) - (fringe ((t (:background "DarkSlateGray")))) - (gnus-cite-attribution-face ((t (:italic t :slant italic)))) - (gnus-cite-face-1 ((t (:foreground "light blue")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "light cyan")))) - (gnus-cite-face-3 ((t (:foreground "light yellow")))) - (gnus-cite-face-4 ((t (:foreground "light pink")))) - (gnus-cite-face-5 ((t (:foreground "pale green")))) - (gnus-cite-face-6 ((t (:foreground "beige")))) - (gnus-cite-face-7 ((t (:foreground "orange")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t :weight bold)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t :slant italic)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) - (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) - (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) - (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold)))) - (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) - (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold)))) - (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold)))) - (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) - (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) - (gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) - (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t :weight bold)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t :weight bold)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t :weight bold)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t :weight bold)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold)))) - (gnus-header-content-face ((t (:italic t :foreground "forest green" :slant italic)))) - (gnus-header-from-face ((t (:foreground "spring green")))) - (gnus-header-name-face ((t (:foreground "SeaGreen")))) - (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic)))) - (gnus-header-subject-face ((t (:foreground "SeaGreen3")))) - (gnus-signature-face ((t (:italic t :slant italic)))) - (gnus-splash-face ((t (:foreground "Brown")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) - (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) - (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) - (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic)))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic)))) - (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) - (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "pink")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (header-line ((t (:underline "blueviolet" :overline "blueviolet" :box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) - (highlight ((t (:background "darkolivegreen")))) - (html-helper-bold-face ((t (:bold t :foreground "wheat" :weight bold)))) - (html-helper-italic-face ((t (:italic t :foreground "spring green" :slant italic)))) - (html-helper-underline-face ((t (:foreground "cornsilk" :underline t)))) - (html-tag-face ((t (:bold t :foreground "deep sky blue" :weight bold)))) - (info-menu-6 ((t (nil)))) - (isearch ((t (:background "palevioletred2" :foreground "brown4")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) - (italic ((t (:italic t :slant italic)))) - (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) - (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) - (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) - (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) - (jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) - (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) - (jde-java-font-lock-code-face ((t (nil)))) - (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) - (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) - (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) - (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal)))) - (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) - (jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) - (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) - (jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) - (jde-java-font-lock-pre-face ((t (nil)))) - (jde-java-font-lock-underline-face ((t (:underline t)))) - (menu ((t (nil)))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold)))) - (message-header-name-face ((t (:foreground "DarkGreen")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold)))) - (message-header-other-face ((t (:foreground "#b00000")))) - (message-header-subject-face ((t (:foreground "green3")))) - (message-header-to-face ((t (:bold t :foreground "green2" :weight bold)))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "blue3")))) - (minibuffer-prompt ((t (:foreground "cyan")))) - (mode-line ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet")))) - (mode-line-inactive ((t (:italic t :underline "blueviolet" :overline "blueviolet" :background "white" :foreground "cadetblue" :box (:line-width -1 :color "grey75") :slant oblique :weight light)))) - (modeline ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet")))) - (modeline-buffer-id ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet")))) - (modeline-mousable ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet")))) - (modeline-mousable-minor-mode ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet")))) - (mouse ((t (:background "black")))) - (primary-selection ((t (:background "dimgray")))) - (region ((t (:background "dimgray")))) - (scroll-bar ((t (nil)))) - (secondary-selection ((t (:background "SkyBlue4")))) - (semantic-dirty-token-face ((t (:background "lightyellow")))) - (semantic-unmatched-syntax-face ((t (:underline "red")))) - (senator-intangible-face ((t (:foreground "gray75")))) - (senator-momentary-highlight-face ((t (:background "gray30")))) - (senator-read-only-face ((t (:background "#664444")))) - (show-paren-match-face ((t (:bold t :foreground "lightblue" :weight bold :height 1.1)))) - (show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold :height 1.1)))) - (show-tabs-space-face ((t (:foreground "yellow")))) - (show-tabs-tab-face ((t (:foreground "red")))) - (speedbar-button-face ((t (:foreground "green3")))) - (speedbar-directory-face ((t (:foreground "light blue")))) - (speedbar-file-face ((t (:foreground "cyan")))) - (speedbar-highlight-face ((t (:background "sea green")))) - (speedbar-selected-face ((t (:foreground "red" :underline t)))) - (speedbar-tag-face ((t (:foreground "yellow")))) - (template-message-face ((t (:bold t :weight bold)))) - (term-black ((t (:foreground "black")))) - (term-blackbg ((t (:background "black")))) - (term-blue ((t (:foreground "blue")))) - (term-bluebg ((t (:background "blue")))) - (term-bold ((t (:bold t :weight bold)))) - (term-cyan ((t (:foreground "cyan")))) - (term-cyanbg ((t (:background "cyan")))) - (term-default ((t (:stipple nil :background "DarkSlateGray" :foreground "palegreen" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida sans typewriter")))) - (term-default-bg ((t (nil)))) - (term-default-bg-inv ((t (nil)))) - (term-default-fg ((t (nil)))) - (term-default-fg-inv ((t (nil)))) - (term-green ((t (:foreground "green")))) - (term-greenbg ((t (:background "green")))) - (term-invisible ((t (nil)))) - (term-invisible-inv ((t (nil)))) - (term-magenta ((t (:foreground "magenta")))) - (term-magentabg ((t (:background "magenta")))) - (term-red ((t (:foreground "red")))) - (term-redbg ((t (:background "red")))) - (term-underline ((t (:underline t)))) - (term-white ((t (:foreground "white")))) - (term-whitebg ((t (:background "white")))) - (term-yellow ((t (:foreground "yellow")))) - (term-yellowbg ((t (:background "yellow")))) - (tool-bar ((t (:background "DarkSlateGray" :foreground "White" :box (:line-width 1 :color "blue"))))) - (tooltip ((t (:background "lightyellow" :foreground "black")))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv")))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-field-face ((t (:background "dim gray")))) - (widget-inactive-face ((t (:foreground "light gray")))) - (widget-single-line-field-face ((t (:background "dim gray")))) - (zmacs-region ((t (:background "dimgray"))))))) - -(defun color-theme-lethe () - "Color theme by Ivica Loncar, created 2002-08-02. -Some additional X resources as suggested by the author: - -Emacs*menubar.Foreground: Yellow -Emacs*menubar.Background: #1a2b3c -Emacs*menubar.topShadowColor: gray -Emacs*menubar.bottomShadowColor: dimgray - -Some fonts I really like (note: this fonts are not highly -available): - -Emacs.default.attributeFont: -letl-*-medium-r-*-*-*-*-*-*-*-*-iso8859-2 -Emacs*menubar*Font: -etl-fixed-medium-r-normal--14-*-*-*-*-*-iso8859-1 - -Mouse fix: - -Emacs*dialog*XmPushButton.translations:#override\n\ - : Arm()\n\ - ,: Activate()\ - Disarm()\n\ - (2+): MultiArm()\n\ - (2+): MultiActivate()\n\ - : Activate()\ - Disarm()\n\ - osfSelect: ArmAndActivate()\n\ - osfActivate: ArmAndActivate()\n\ - osfHelp: Help()\n\ - ~Shift ~Meta ~Alt Return: ArmAndActivate()\n\ - : Enter()\n\ - : Leave()\n - -Bonus: do not use 3D modeline." - (interactive) - (color-theme-install - '(color-theme-lethe - ((background-color . "black") - (background-mode . dark) - (background-toolbar-color . "#000000000000") - (border-color . "#000000000000") - (bottom-toolbar-shadow-color . "red") - (cursor-color . "red") - (foreground-color . "peachpuff") - (mouse-color . "red") - (top-toolbar-shadow-color . "#f5f5f5f5f5f5")) - ((buffers-tab-face . buffers-tab) - (cscope-use-face . t) - (gnus-mouse-face . highlight)) - (default ((t (nil)))) - (bg:erc-color-face0 ((t (:background "White")))) - (bg:erc-color-face1 ((t (nil)))) - (bg:erc-color-face10 ((t (:background "lightblue1")))) - (bg:erc-color-face11 ((t (:background "cyan")))) - (bg:erc-color-face12 ((t (:background "blue")))) - (bg:erc-color-face13 ((t (:background "deeppink")))) - (bg:erc-color-face14 ((t (:background "gray50")))) - (bg:erc-color-face15 ((t (:background "gray90")))) - (bg:erc-color-face2 ((t (:background "blue4")))) - (bg:erc-color-face3 ((t (:background "green4")))) - (bg:erc-color-face4 ((t (:background "red")))) - (bg:erc-color-face5 ((t (:background "brown")))) - (bg:erc-color-face6 ((t (:background "purple")))) - (bg:erc-color-face7 ((t (:background "orange")))) - (bg:erc-color-face8 ((t (:background "yellow")))) - (bg:erc-color-face9 ((t (:background "green")))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (border ((t (nil)))) - (border-glyph ((t (nil)))) - (buffers-tab ((t (:bold t :foreground "red")))) - (button ((t (:underline t)))) - (calendar-today-face ((t (:underline t)))) - (comint-highlight-input ((t (:bold t)))) - (comint-highlight-prompt ((t (:foreground "cyan")))) - (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) - (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red")))) - (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) - (cscope-file-face ((t (:foreground "blue")))) - (cscope-function-face ((t (:foreground "magenta")))) - (cscope-line-face ((t (:foreground "green")))) - (cscope-line-number-face ((t (:foreground "red")))) - (cscope-mouse-face ((t (:background "blue" :foreground "white")))) - (cursor ((t (nil)))) - (custom-button-face ((t (nil)))) - (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black")))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-comment-face ((t (:background "dim gray")))) - (custom-comment-tag-face ((t (:foreground "gray80")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:underline t :foreground "blue")))) - (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "dark green")))) - (custom-variable-button-face ((t (:underline t :bold t)))) - (custom-variable-tag-face ((t (:underline t :foreground "blue")))) - (cyan ((t (:foreground "cyan")))) - (diary-face ((t (:foreground "red")))) - (dired-face-boring ((t (:foreground "Gray65")))) - (dired-face-directory ((t (:bold t)))) - (dired-face-executable ((t (:foreground "SeaGreen")))) - (dired-face-flagged ((t (:background "LightSlateGray")))) - (dired-face-marked ((t (:background "PaleVioletRed")))) - (dired-face-permissions ((t (:background "grey75" :foreground "black")))) - (dired-face-setuid ((t (:foreground "Red")))) - (dired-face-socket ((t (:foreground "magenta")))) - (dired-face-symlink ((t (:foreground "cyan")))) - (display-time-mail-balloon-enhance-face ((t (:background "orange")))) - (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) - (display-time-time-balloon-face ((t (:foreground "red")))) - (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) - (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) - (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) - (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) - (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) - (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) - (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) - (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) - (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) - (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) - (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) - (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) - (erc-action-face ((t (:bold t)))) - (erc-bold-face ((t (:bold t)))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (:foreground "IndianRed")))) - (erc-error-face ((t (:background "Red" :foreground "White")))) - (erc-input-face ((t (:foreground "brown")))) - (erc-inverse-face ((t (:background "Black" :foreground "White")))) - (erc-notice-face ((t (:bold t :foreground "SlateBlue")))) - (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black")))) - (erc-timestamp-face ((t (:bold t :foreground "green")))) - (erc-underline-face ((t (:underline t)))) - (eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) - (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) - (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) - (eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) - (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) - (eshell-ls-missing-face ((t (:bold t :foreground "Red")))) - (eshell-ls-product-face ((t (:foreground "OrangeRed")))) - (eshell-ls-readonly-face ((t (:foreground "Brown")))) - (eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) - (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan")))) - (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) - (eshell-prompt-face ((t (:bold t :foreground "Red")))) - (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) - (eshell-test-ok-face ((t (:bold t :foreground "Green")))) - (excerpt ((t (:italic t)))) - (fg:erc-color-face0 ((t (:foreground "White")))) - (fg:erc-color-face1 ((t (:foreground "black")))) - (fg:erc-color-face10 ((t (:foreground "lightblue1")))) - (fg:erc-color-face11 ((t (:foreground "cyan")))) - (fg:erc-color-face12 ((t (:foreground "blue")))) - (fg:erc-color-face13 ((t (:foreground "deeppink")))) - (fg:erc-color-face14 ((t (:foreground "gray50")))) - (fg:erc-color-face15 ((t (:foreground "gray90")))) - (fg:erc-color-face2 ((t (:foreground "blue4")))) - (fg:erc-color-face3 ((t (:foreground "green4")))) - (fg:erc-color-face4 ((t (:foreground "red")))) - (fg:erc-color-face5 ((t (:foreground "brown")))) - (fg:erc-color-face6 ((t (:foreground "purple")))) - (fg:erc-color-face7 ((t (:foreground "orange")))) - (fg:erc-color-face8 ((t (:foreground "yellow")))) - (fg:erc-color-face9 ((t (:foreground "green")))) - (fixed ((t (:bold t)))) - (fixed-pitch ((t (:size "16")))) - (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) - (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) - (font-lock-builtin-face ((t (:foreground "Orchid")))) - (font-lock-comment-face ((t (:bold t :foreground "cyan")))) - (font-lock-constant-face ((t (:foreground "CadetBlue")))) - (font-lock-doc-face ((t (:bold t :foreground "red")))) - (font-lock-doc-string-face ((t (:bold t :foreground "red")))) - (font-lock-function-name-face ((t (:bold t :foreground "white")))) - (font-lock-keyword-face ((t (:bold t :foreground "yellow")))) - (font-lock-preprocessor-face ((t (:bold t :foreground "blue")))) - (font-lock-reference-face ((t (:foreground "red3")))) - (font-lock-string-face ((t (:bold t :foreground "magenta")))) - (font-lock-type-face ((t (:bold t :foreground "lightgreen")))) - (font-lock-variable-name-face ((t (:bold t :foreground "white")))) - (font-lock-warning-face ((t (:bold t :foreground "Red")))) - (fringe ((t (:background "grey95")))) - (gdb-arrow-face ((t (:bold t :background "yellow" :foreground "red")))) - (gnus-cite-attribution-face ((t (:italic t)))) - (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "firebrick")))) - (gnus-cite-face-3 ((t (:foreground "dark green")))) - (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) - (gnus-cite-face-5 ((t (:foreground "dark khaki")))) - (gnus-cite-face-6 ((t (:foreground "dark violet")))) - (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) - (gnus-emphasis-highlight-words ((t (:foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) - (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) - (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) - (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) - (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) - (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) - (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) - (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) - (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) - (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) - (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) - (gnus-header-from-face ((t (:foreground "red3")))) - (gnus-header-name-face ((t (:foreground "maroon")))) - (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) - (gnus-header-subject-face ((t (:foreground "red4")))) - (gnus-picons-face ((t (:background "white" :foreground "black")))) - (gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) - (gnus-signature-face ((t (:italic t)))) - (gnus-splash-face ((t (:foreground "ForestGreen")))) - (gnus-summary-cancelled-face ((t (:foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) - (gnus-summary-high-unread-face ((t (:bold t)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) - (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) - (gnus-summary-low-unread-face ((t (:italic t)))) - (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (gnus-x-face ((t (:background "white" :foreground "black")))) - (green ((t (:foreground "green")))) - (gui-button-face ((t (:background "grey75" :foreground "black")))) - (gui-element ((t (:size "12" :background "Gray80" :foreground "black")))) - (header-line ((t (:background "grey20" :foreground "grey90")))) - (highlight ((t (:bold t :background "yellow" :foreground "red")))) - (highlight-changes-delete-face ((t (:underline t :foreground "red")))) - (highlight-changes-face ((t (:foreground "red")))) - (highline-face ((t (:background "paleturquoise")))) - (holiday-face ((t (:background "pink")))) - (hyper-apropos-documentation ((t (:foreground "#aaaaaa")))) - (hyper-apropos-heading ((t (:bold t :foreground "#999999")))) - (hyper-apropos-hyperlink ((t (:foreground "Violet")))) - (hyper-apropos-major-heading ((t (:bold t :foreground "#ff0000")))) - (hyper-apropos-section-heading ((t (:italic t :bold t :foreground "#33aa55")))) - (hyper-apropos-warning ((t (:bold t :foreground "red")))) - (info-menu-5 ((t (:underline t)))) - (info-node ((t (:italic t :bold t)))) - (info-xref ((t (:bold t)))) - (isearch ((t (:background "paleturquoise")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) - (isearch-secondary ((t (:foreground "red3")))) - (italic ((t (:italic t)))) - (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) - (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) - (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) - (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) - (jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) - (jde-java-font-lock-bold-face ((t (:bold t)))) - (jde-java-font-lock-code-face ((t (nil)))) - (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) - (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) - (jde-java-font-lock-italic-face ((t (:italic t)))) - (jde-java-font-lock-link-face ((t (:underline t :foreground "cadetblue")))) - (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) - (jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) - (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) - (jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) - (jde-java-font-lock-pre-face ((t (nil)))) - (jde-java-font-lock-underline-face ((t (:underline t)))) - (left-margin ((t (nil)))) - (list-mode-item-selected ((t (:background "gray68")))) - (magenta ((t (:foreground "magenta")))) - (makefile-space-face ((t (:background "hotpink")))) - (menu ((t (nil)))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:foreground "MidnightBlue")))) - (message-header-name-face ((t (:foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-subject-face ((t (:bold t :foreground "navy blue")))) - (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:bold t :foreground "cyan")))) - (message-separator-face ((t (:foreground "brown")))) - (minibuffer-prompt ((t (:foreground "cyan")))) - (mode-line ((t (:background "grey75" :foreground "black")))) - (mode-line-inactive ((t (:background "grey30" :foreground "grey80")))) - (modeline ((t (:bold t :background "red" :foreground "yellow")))) - (modeline-buffer-id ((t (:bold t :background "red" :foreground "yellow")))) - (modeline-mousable ((t (:background "red" :foreground "yellow")))) - (modeline-mousable-minor-mode ((t (:background "red" :foreground "green4")))) - (mouse ((t (nil)))) - (paren-blink-off ((t (:foreground "black")))) - (paren-match ((t (:bold t :background "yellow" :foreground "red")))) - (paren-mismatch ((t (:background "DeepPink")))) - (pointer ((t (nil)))) - (primary-selection ((t (:background "gray65")))) - (red ((t (:foreground "red")))) - (region ((t (:background "gray75")))) - (right-margin ((t (nil)))) - (scroll-bar ((t (nil)))) - (secondary-selection ((t (:background "paleturquoise")))) - (semantic-dirty-token-face ((t (:background "lightyellow")))) - (semantic-unmatched-syntax-face ((t (nil)))) - (senator-intangible-face ((t (:foreground "gray75")))) - (senator-momentary-highlight-face ((t (:background "gray30")))) - (senator-read-only-face ((t (:background "#664444")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (speedbar-button-face ((t (:foreground "green4")))) - (speedbar-directory-face ((t (:foreground "blue4")))) - (speedbar-file-face ((t (:foreground "cyan4")))) - (speedbar-highlight-face ((t (:background "green")))) - (speedbar-selected-face ((t (:underline t :foreground "red")))) - (speedbar-tag-face ((t (:foreground "brown")))) - (template-message-face ((t (:bold t)))) - (term-black ((t (:foreground "black")))) - (term-blackbg ((t (nil)))) - (term-blue ((t (:foreground "blue")))) - (term-blue-bold-face ((t (:bold t :foreground "blue")))) - (term-blue-face ((t (:foreground "blue")))) - (term-blue-inv-face ((t (:background "blue")))) - (term-blue-ul-face ((t (:underline t :foreground "blue")))) - (term-bluebg ((t (:background "blue")))) - (term-bold ((t (:bold t)))) - (term-cyan ((t (:foreground "cyan")))) - (term-cyan-bold-face ((t (:bold t :foreground "cyan")))) - (term-cyan-face ((t (:foreground "cyan")))) - (term-cyan-inv-face ((t (:background "cyan")))) - (term-cyan-ul-face ((t (:underline t :foreground "cyan")))) - (term-cyanbg ((t (:background "cyan")))) - (term-default-bg ((t (nil)))) - (term-default-bg-inv ((t (nil)))) - (term-default-bold-face ((t (:bold t)))) - (term-default-face ((t (nil)))) - (term-default-fg ((t (nil)))) - (term-default-fg-inv ((t (nil)))) - (term-default-inv-face ((t (:background "peachpuff" :foreground "black")))) - (term-default-ul-face ((t (:underline t)))) - (term-green ((t (:foreground "green")))) - (term-green-bold-face ((t (:bold t :foreground "green")))) - (term-green-face ((t (:foreground "green")))) - (term-green-inv-face ((t (:background "green")))) - (term-green-ul-face ((t (:underline t :foreground "green")))) - (term-greenbg ((t (:background "green")))) - (term-invisible ((t (nil)))) - (term-invisible-inv ((t (nil)))) - (term-magenta ((t (:foreground "magenta")))) - (term-magenta-bold-face ((t (:bold t :foreground "magenta")))) - (term-magenta-face ((t (:foreground "magenta")))) - (term-magenta-inv-face ((t (:background "magenta")))) - (term-magenta-ul-face ((t (:underline t :foreground "magenta")))) - (term-magentabg ((t (:background "magenta")))) - (term-red ((t (:foreground "red")))) - (term-red-bold-face ((t (:bold t :foreground "red")))) - (term-red-face ((t (:foreground "red")))) - (term-red-inv-face ((t (:background "red")))) - (term-red-ul-face ((t (:underline t :foreground "red")))) - (term-redbg ((t (:background "red")))) - (term-underline ((t (:underline t)))) - (term-white ((t (:foreground "white")))) - (term-white-bold-face ((t (:bold t :foreground "white")))) - (term-white-face ((t (:foreground "white")))) - (term-white-inv-face ((t (nil)))) - (term-white-ul-face ((t (:underline t :foreground "white")))) - (term-whitebg ((t (:background "white")))) - (term-yellow ((t (:foreground "yellow")))) - (term-yellow-bold-face ((t (:bold t :foreground "yellow")))) - (term-yellow-face ((t (:foreground "yellow")))) - (term-yellow-inv-face ((t (:background "yellow")))) - (term-yellow-ul-face ((t (:underline t :foreground "yellow")))) - (term-yellowbg ((t (:background "yellow")))) - (text-cursor ((t (:background "red" :foreground "black")))) - (tool-bar ((t (:background "grey75" :foreground "black")))) - (toolbar ((t (:background "Gray80" :foreground "black")))) - (tooltip ((t (:background "lightyellow" :foreground "black")))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (nil)))) - (vcursor ((t (:underline t :background "cyan" :foreground "blue")))) - (vertical-divider ((t (:background "Gray80" :foreground "black")))) - (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) - (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) - (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) - (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) - (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) - (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) - (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) - (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) - (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) - (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) - (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) - (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) - (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) - (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) - (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) - (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) - (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) - (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) - (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) - (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-search-face ((t (:background "khaki" :foreground "Black")))) - (white ((t (:foreground "white")))) - (widget ((t (:size "12" :background "Gray80" :foreground "black")))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (nil)))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "gray85")))) - (x-face ((t (:bold t :background "wheat" :foreground "black")))) - (xrdb-option-name-face ((t (:bold t :foreground "yellow")))) - (xrdb-option-value-face ((t (:bold t :foreground "magenta")))) - (yellow ((t (:foreground "yellow")))) - (zmacs-region ((t (:background "white" :foreground "black"))))))) - -(defun color-theme-shaman () - "Color theme by shaman, created 2002-11-11." - (interactive) - (color-theme-install - '(color-theme-shaman - ((background-color . "#456345") - (background-mode . dark) - (background-toolbar-color . "#cf3ccf3ccf3c") - (border-color . "#000000000000") - (bottom-toolbar-shadow-color . "#79e77df779e7") - (foreground-color . "White") - (top-toolbar-shadow-color . "#f7defbeef7de")) - ((buffers-tab-face . buffers-tab)) - (default ((t (nil)))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t :size "12")))) - (bold-italic ((t (:italic t :bold t :size "12")))) - (border-glyph ((t (nil)))) - (buffers-tab ((t (:background "Gray80" :foreground "black")))) - (font-lock-builtin-face ((t (:foreground "cadetblue2")))) - (font-lock-comment-face ((t (:foreground "gray80")))) - (font-lock-constant-face ((t (:foreground "steelblue1")))) - (font-lock-doc-face ((t (:foreground "light coral")))) - (font-lock-doc-string-face ((t (:foreground "light coral")))) - (font-lock-function-name-face ((t (:foreground "aquamarine")))) - (font-lock-keyword-face ((t (:foreground "cyan")))) - (font-lock-preprocessor-face ((t (:foreground "steelblue1")))) - (font-lock-reference-face ((t (:foreground "cadetblue2")))) - (font-lock-string-face ((t (:foreground "tan")))) - (font-lock-type-face ((t (:foreground "wheat")))) - (font-lock-variable-name-face ((t (:foreground "cyan3")))) - (font-lock-warning-face ((t (:bold t :size "12" :foreground "Pink")))) - (fringe ((t (nil)))) - (gnus-x-face ((t (:background "white" :foreground "black")))) - (green ((t (:foreground "green")))) - (gui-button-face ((t (:background "grey75" :foreground "black")))) - (gui-element ((t (:size "12" :background "Gray80" :foreground "black")))) - (highlight ((t (:background "darkseagreen2")))) - (isearch ((t (:background "paleturquoise")))) - (isearch-secondary ((t (:foreground "red3")))) - (italic ((t (:italic t :size "12")))) - (left-margin ((t (nil)))) - (list-mode-item-selected ((t (:background "gray68")))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:bold t :foreground "green4")))) - (message-header-name-face ((t (:foreground "DarkGreen")))) - (message-header-newsgroups-face ((t (:bold t :foreground "yellow")))) - (message-header-other-face ((t (:foreground "#b00000")))) - (message-header-subject-face ((t (:foreground "green3")))) - (message-header-to-face ((t (:bold t :foreground "green2")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "blue3")))) - (mode-line ((t (:background "Gray80" :foreground "black")))) - (modeline ((t (:background "Gray80" :foreground "black")))) - (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4")))) - (modeline-mousable ((t (:background "Gray80" :foreground "firebrick")))) - (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4")))) - (pointer ((t (:foreground "White")))) - (primary-selection ((t (:background "gray65")))) - (red ((t (:foreground "red")))) - (region ((t (:background "gray65")))) - (right-margin ((t (nil)))) - (rpm-spec-dir-face ((t (:foreground "green")))) - (rpm-spec-doc-face ((t (:foreground "magenta")))) - (rpm-spec-ghost-face ((t (:foreground "red")))) - (rpm-spec-macro-face ((t (:foreground "yellow")))) - (rpm-spec-package-face ((t (:foreground "red")))) - (rpm-spec-tag-face ((t (:foreground "blue")))) - (rpm-spec-var-face ((t (:foreground "maroon")))) - (secondary-selection ((t (:background "paleturquoise")))) - (text-cursor ((t (:background "Pink" :foreground "Black")))) - (tool-bar ((t (nil)))) - (toolbar ((t (:background "Gray80" :foreground "black")))) - (underline ((t (:underline t)))) - (vertical-divider ((t (:background "Gray80" :foreground "black")))) - (widget ((t (:size "12" :background "Gray80" :foreground "black")))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-field-face ((t (:background "dim gray")))) - (widget-inactive-face ((t (:foreground "light gray")))) - (yellow ((t (:foreground "yellow")))) - (zmacs-region ((t (:background "gray65"))))))) - -(defun color-theme-emacs-nw () - "Follow emacs21's color-theme, with -nw getting 100% compatibility. - -Alex's `color-theme-emacs-21' follows emacs21's theme, but in the -current scheme of things, that means that when it works on X, it won't -work in -nw perfectly. The modeline and menuline will have same -colors as the rest of emacs, which can be particularly disturbing when -there are multiple windows. - -OTOH, `color-theme-emacs-nw' follows emacs21's theme but the goal is -100% -nw compatibility, and in X; we shall try for decent color -scheme, and as much compability default emacs21's X as possble. -Bugs to deego@gnufans.org. - -TODO: Try to make this theme relative to color-theme-emacs-21 rather -than absolute, viz: call that first and then tweak minor stuff." - (interactive) - (color-theme-install - '(color-theme-emacs-nw - ((background-color . "white") - (background-mode . light) - (border-color . "black") - (cursor-color . "black") - (foreground-color . "black") - (mouse-color . "black")) - ((Man-overstrike-face . bold) - (Man-underline-face . underline) - (cperl-here-face . font-lock-string-face) - (cperl-invalid-face . underline) - (cperl-pod-face . font-lock-comment-face) - (cperl-pod-head-face . font-lock-variable-name-face) - (gnus-article-button-face . bold) - (gnus-article-mouse-face . highlight) - (gnus-cite-attribution-face . gnus-cite-attribution-face) - (gnus-mouse-face . highlight) - (gnus-signature-face . gnus-signature-face) - (gnus-summary-selected-face . gnus-summary-selected-face) - (help-highlight-face . underline) - (idlwave-class-arrow-face . bold) - (idlwave-shell-breakpoint-face . idlwave-shell-bp-face) - (idlwave-shell-expression-face . secondary-selection) - (idlwave-shell-stop-line-face . highlight) - (ispell-highlight-face . highlight) - (list-matching-lines-face . bold) - (view-highlight-face . highlight) - (viper-insert-state-cursor-color . "Green") - (viper-replace-overlay-cursor-color . "Red") - (widget-mouse-face . highlight)) - (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) - (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) - (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) - (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) - (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold)))) - (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold)))) - (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold)))) - (antlr-font-lock-ruleref-face ((t (:foreground "blue4")))) - (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold)))) - (antlr-font-lock-tokenref-face ((t (:foreground "orange4")))) - (bold ((t (:bold t :weight bold)))) - (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (border ((t (:background "black")))) - (calendar-today-face ((t (:underline t)))) - (change-log-acknowledgement-face ((t (:foreground "Firebrick")))) - (change-log-conditionals-face ((t (:foreground "DarkGoldenrod")))) - (change-log-date-face ((t (:foreground "RosyBrown")))) - (change-log-email-face ((t (:foreground "DarkGoldenrod")))) - (change-log-file-face ((t (:foreground "Blue")))) - (change-log-function-face ((t (:foreground "DarkGoldenrod")))) - (change-log-list-face ((t (:foreground "Purple")))) - (change-log-name-face ((t (:foreground "CadetBlue")))) - (comint-highlight-input ((t (:bold t :weight bold)))) - (comint-highlight-prompt ((t (:foreground "dark blue")))) - (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold)))) - (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold)))) - (cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) - (cursor ((t (:background "black")))) - (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) - (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-comment-face ((t (:background "gray85")))) - (custom-comment-tag-face ((t (:foreground "blue4")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) - (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) - (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2)))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "dark green")))) - (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) - (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2)))) - (cvs-filename-face ((t (:foreground "blue4")))) - (cvs-handled-face ((t (:foreground "pink")))) - (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold)))) - (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold)))) - (cvs-msg-face ((t (:italic t :slant italic)))) - (cvs-need-action-face ((t (:foreground "orange")))) - (cvs-unknown-face ((t (:foreground "red")))) - (diary-face ((t (:foreground "red")))) - (diff-added-face ((t (nil)))) - (diff-changed-face ((t (nil)))) - (diff-context-face ((t (:foreground "grey50")))) - (diff-file-header-face ((t (:bold t :background "grey70" :weight bold)))) - (diff-function-face ((t (:foreground "grey50")))) - (diff-header-face ((t (:background "grey85")))) - (diff-hunk-header-face ((t (:background "grey85")))) - (diff-index-face ((t (:bold t :weight bold :background "grey70")))) - (diff-nonexistent-face ((t (:bold t :weight bold :background "grey70")))) - (diff-removed-face ((t (nil)))) - (dired-face-boring ((t (:foreground "RosyBrown")))) - (dired-face-directory ((t (:foreground "Blue")))) - (dired-face-executable ((t (nil)))) - (dired-face-flagged ((t (:foreground "Red" :weight bold)))) - (dired-face-marked ((t (:foreground "Red" :weight bold)))) - (dired-face-permissions ((t (nil)))) - (dired-face-setuid ((t (nil)))) - (dired-face-socket ((t (nil)))) - (dired-face-symlink ((t (:foreground "Purple")))) - (ebrowse-default-face ((t (nil)))) - (ebrowse-file-name-face ((t (:italic t :slant italic)))) - (ebrowse-member-attribute-face ((t (:foreground "red")))) - (ebrowse-member-class-face ((t (:foreground "purple")))) - (ebrowse-progress-face ((t (:background "blue")))) - (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold)))) - (ebrowse-tree-mark-face ((t (:foreground "red")))) - (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) - (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) - (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) - (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) - (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) - (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) - (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) - (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) - (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) - (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) - (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) - (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) - (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) - (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) - (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) - (eshell-ls-backup-face ((t (:foreground "OrangeRed")))) - (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) - (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold)))) - (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) - (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) - (eshell-ls-product-face ((t (:foreground "OrangeRed")))) - (eshell-ls-readonly-face ((t (:foreground "Brown")))) - (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) - (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold)))) - (eshell-ls-unreadable-face ((t (:foreground "Grey30")))) - (eshell-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) - (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) - (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold)))) - (excerpt ((t (:italic t :slant italic)))) - (fixed ((t (:bold t :weight bold)))) - (fixed-pitch ((t (:family "courier")))) - (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) - (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) - (font-lock-builtin-face ((t (:foreground "Orchid")))) - (font-lock-comment-face ((t (:foreground "Firebrick")))) - (font-lock-constant-face ((t (:foreground "CadetBlue")))) - (font-lock-doc-face ((t (:foreground "RosyBrown")))) - (font-lock-doc-string-face ((t (:foreground "RosyBrown")))) - (font-lock-function-name-face ((t (:foreground "Blue")))) - (font-lock-keyword-face ((t (:foreground "Purple")))) - (font-lock-preprocessor-face ((t (:foreground "CadetBlue")))) - (font-lock-reference-face ((t (:foreground "Orchid")))) - (font-lock-string-face ((t (:foreground "RosyBrown")))) - (font-lock-type-face ((t (:foreground "ForestGreen")))) - (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) - (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) - (fringe ((t (:background "grey95")))) - (gnus-cite-attribution-face ((t (:italic t :slant italic)))) - (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "firebrick")))) - (gnus-cite-face-3 ((t (:foreground "dark green")))) - (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) - (gnus-cite-face-5 ((t (:foreground "dark khaki")))) - (gnus-cite-face-6 ((t (:foreground "dark violet")))) - (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t :weight bold)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t :slant italic)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) - (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) - (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) - (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold)))) - (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold)))) - (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold)))) - (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold)))) - (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) - (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) - (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) - (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold)))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t :weight bold)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t :weight bold)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t :weight bold)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t :weight bold)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) - (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic)))) - (gnus-header-from-face ((t (:foreground "red3")))) - (gnus-header-name-face ((t (:foreground "maroon")))) - (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic)))) - (gnus-header-subject-face ((t (:foreground "red4")))) - (gnus-signature-face ((t (:italic t :slant italic)))) - (gnus-splash-face ((t (:foreground "Brown")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold)))) - (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold)))) - (gnus-summary-high-unread-face ((t (:bold t :weight bold)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic)))) - (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic)))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic)))) - (gnus-summary-low-unread-face ((t (:italic t :slant italic)))) - (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil)))) - (hi-black-b ((t (:bold t :weight bold)))) - (hi-black-hb ((t (:bold t :family "helv" :weight bold :height 1.67)))) - (hi-blue ((t (:background "light blue")))) - (hi-blue-b ((t (:bold t :foreground "blue" :weight bold)))) - (hi-green ((t (:background "green")))) - (hi-green-b ((t (:bold t :foreground "green" :weight bold)))) - (hi-pink ((t (:background "pink")))) - (hi-red-b ((t (:bold t :foreground "red" :weight bold)))) - (hi-yellow ((t (:background "yellow")))) - (highlight ((t (:background "darkseagreen2")))) - (highlight-changes-delete-face ((t (:foreground "red" :underline t)))) - (highlight-changes-face ((t (:foreground "red")))) - (holiday-face ((t (:background "pink")))) - (idlwave-help-link-face ((t (:foreground "Blue")))) - (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black")))) - (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "brown")))) - (info-header-xref ((t (:bold t :weight bold :foreground "magenta4")))) - (info-menu-5 ((t (:foreground "red1")))) - (info-menu-header ((t (:bold t :family "helv" :weight bold)))) - (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) - (info-xref ((t (:bold t :foreground "magenta4" :weight bold)))) - (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) - (italic ((t (:italic t :slant italic)))) - (log-view-file-face ((t (:bold t :background "grey70" :weight bold)))) - (log-view-message-face ((t (:background "grey85")))) - (makefile-space-face ((t (:background "hotpink")))) - (menu ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button))))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:foreground "MidnightBlue")))) - (message-header-name-face ((t (:foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold)))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold)))) - (message-header-to-face ((t (:bold t :foreground "MidnightBlue" :weight bold)))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "brown")))) - (mode-line ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button))))) - (modeline ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button))))) - (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) - (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) - (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) - (mouse ((t (:background "black")))) - (primary-selection ((t (:background "lightgoldenrod2")))) - (reb-match-0 ((t (:background "lightblue")))) - (reb-match-1 ((t (:background "aquamarine")))) - (reb-match-2 ((t (:background "springgreen")))) - (reb-match-3 ((t (:background "yellow")))) - (region ((t (:background "lightgoldenrod2")))) - (scroll-bar ((t (:background "grey75")))) - (secondary-selection ((t (:background "yellow")))) - (sh-heredoc-face ((t (:foreground "tan")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (show-tabs-space-face ((t (:foreground "yellow")))) - (show-tabs-tab-face ((t (:foreground "red")))) - (smerge-base-face ((t (:foreground "red")))) - (smerge-markers-face ((t (:background "grey85")))) - (smerge-mine-face ((t (:foreground "blue")))) - (smerge-other-face ((t (:foreground "darkgreen")))) - (speedbar-button-face ((t (:foreground "green4")))) - (speedbar-directory-face ((t (:foreground "blue4")))) - (speedbar-file-face ((t (:foreground "cyan4")))) - (speedbar-highlight-face ((t (:background "green")))) - (speedbar-selected-face ((t (:foreground "red" :underline t)))) - (speedbar-tag-face ((t (:foreground "brown")))) - (strokes-char-face ((t (:background "lightgray")))) - (term-black ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-blackbg ((t (:stipple nil :background "black" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-blue ((t (:stipple nil :background "white" :foreground "blue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-bluebg ((t (:stipple nil :background "blue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-bold ((t (:bold t :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :family "adobe-courier")))) - (term-cyan ((t (:stipple nil :background "white" :foreground "cyan" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-default-bg ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-default-bg-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-default-fg ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-default-fg-inv ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-green ((t (:stipple nil :background "white" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-greenbg ((t (:stipple nil :background "green" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-invisible ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-invisible-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-magenta ((t (:stipple nil :background "white" :foreground "magenta" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-magentabg ((t (:stipple nil :background "magenta" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-red ((t (:stipple nil :background "white" :foreground "red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-redbg ((t (:stipple nil :background "red" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-underline ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-white ((t (:stipple nil :background "white" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-whitebg ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-yellow ((t (:stipple nil :background "white" :foreground "yellow" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier")))) - (tex-math-face ((t (:foreground "RosyBrown")))) - (texinfo-heading-face ((t (:foreground "Blue")))) - (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) - (tooltip ((t (:background "lightyellow" :foreground "black")))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv")))) - (vcursor ((t (:background "cyan" :foreground "blue" :underline t)))) - (vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) - (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) - (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) - (vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) - (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) - (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold)))) - (vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) - (vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) - (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) - (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) - (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) - (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) - (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) - (vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) - (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) - (vhdl-speedbar-package-face ((t (:foreground "Grey50")))) - (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) - (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) - (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) - (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) - (viper-search-face ((t (:background "khaki" :foreground "Black")))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "gray85")))) - (woman-addition-face ((t (:foreground "orange")))) - (woman-bold-face ((t (:bold t :foreground "blue" :weight bold)))) - (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic)))) - (woman-unknown-face ((t (:foreground "brown")))) - (zmacs-region ((t (:background "lightgoldenrod2"))))))) - -(defun color-theme-late-night () - "Color theme by Alex Schroeder, created 2003-08-07. -This theme is for use late at night, with only little light in the room. -The goal was to make something as dark and subtle as the text console in -its default 80x25 state -- dark grey on black." - (interactive) - (let ((color-theme-is-cumulative t)) - (color-theme-dark-erc) - (color-theme-dark-gnus) - ;; (color-theme-dark-diff) - ;; (color-theme-dark-eshell) - (color-theme-dark-info) - (color-theme-dark-font-lock) - (color-theme-install - '(color-theme-late-night - ((background-color . "#000") - (background-mode . dark) - (background-toolbar-color . "#000") - (border-color . "#000") - (bottom-toolbar-shadow-color . "#000") - (cursor-color . "#888") - (foreground-color . "#666") - (top-toolbar-shadow-color . "#111")) - (default ((t (nil)))) - (bold ((t (:bold t)))) - (button ((t (:bold t)))) - (custom-button-face ((t (:bold t :foreground "#999")))) - (fringe ((t (:background "#111" :foreground "#444")))) - (header-line ((t (:background "#333" :foreground "#000")))) - (highlight ((t (:background "dark slate blue" :foreground "light blue")))) - (holiday-face ((t (:background "#000" :foreground "#777")))) - (isearch ((t (:foreground "pink" :background "red")))) - (isearch-lazy-highlight-face ((t (:foreground "red")))) - (italic ((t (:bold t)))) - (menu ((t (:background "#111" :foreground "#444")))) - (minibuffer-prompt ((t (:foreground "555")))) - (modeline ((t (:background "#111" :foreground "#444")))) - (mode-line-inactive ((t (:background "#000" :foreground "#444")))) - (modeline-buffer-id ((t (:background "#000" :foreground "#555")))) - (modeline-mousable ((t (:background "#000" :foreground "#555")))) - (modeline-mousable-minor-mode ((t (:background "#000" :foreground "#555")))) - (region ((t (:background "dark cyan" :foreground "cyan")))) - (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) - (show-paren-match-face ((t (:foreground "white" :background "light slate blue")))) - (show-paren-mismatch-face ((t (:foreground "white" :background "red")))) - (tool-bar ((t (:background "#111" :foreground "#777")))) - (tooltip ((t (:background "#333" :foreground "#777")))) - (underline ((t (:bold t)))) - (variable-pitch ((t (nil)))) - (widget-button-face ((t (:bold t :foreground "#888")))) - (widget-field-face ((t (:bold t :foreground "#999")))))))) - -(defun color-theme-clarity () - "White on black color theme by Richard Wellum, created 2003-01-16." - (interactive) - (color-theme-install - '(color-theme-clarity - ((background-color . "black") - (background-mode . dark) - (border-color . "white") - (cursor-color . "yellow") - (foreground-color . "white") - (mouse-color . "white")) - ((CUA-mode-global-mark-cursor-color . "cyan") - (CUA-mode-normal-cursor-color . "yellow") - (CUA-mode-overwrite-cursor-color . "red") - (CUA-mode-read-only-cursor-color . "green") - (help-highlight-face . underline) - (ibuffer-dired-buffer-face . font-lock-function-name-face) - (ibuffer-help-buffer-face . font-lock-comment-face) - (ibuffer-hidden-buffer-face . font-lock-warning-face) - (ibuffer-occur-match-face . font-lock-warning-face) - (ibuffer-read-only-buffer-face . font-lock-type-face) - (ibuffer-special-buffer-face . font-lock-keyword-face) - (ibuffer-title-face . font-lock-type-face) - (list-matching-lines-face . bold) - (ps-line-number-color . "black") - (ps-zebra-color . 0.95) - (tags-tag-face . default) - (view-highlight-face . highlight) - (widget-mouse-face . highlight)) - (default ((t (nil)))) - (CUA-global-mark-face ((t (:background "cyan" :foreground "black")))) - (CUA-rectangle-face ((t (:background "maroon" :foreground "white")))) - (CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white")))) - (bold ((t (:bold t :weight bold)))) - (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (border ((t (:background "white")))) - (clearcase-dired-checkedout-face ((t (:foreground "red")))) - (comint-highlight-input ((t (:bold t :weight bold)))) - (comint-highlight-prompt ((t (:foreground "cyan")))) - (cursor ((t (:background "yellow")))) - (fixed-pitch ((t (:family "courier")))) - (flash-paren-face-off ((t (nil)))) - (flash-paren-face-on ((t (nil)))) - (flash-paren-face-region ((t (nil)))) - (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) - (font-lock-comment-face ((t (:foreground "OrangeRed")))) - (font-lock-constant-face ((t (:foreground "Aquamarine")))) - (font-lock-doc-face ((t (:foreground "LightSalmon")))) - (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) - (font-lock-keyword-face ((t (:foreground "Cyan")))) - (font-lock-string-face ((t (:foreground "LightSalmon")))) - (font-lock-type-face ((t (:foreground "PaleGreen")))) - (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) - (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) - (fringe ((t (:background "grey10")))) - (header-line ((t (:box (:line-width -1 :style released-button) :foreground "grey20" :background "grey90" :box nil)))) - (highlight ((t (:background "darkolivegreen")))) - (ibuffer-deletion-face ((t (:foreground "red")))) - (ibuffer-marked-face ((t (:foreground "green")))) - (isearch ((t (:background "palevioletred2" :foreground "brown4")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) - (italic ((t (:italic t :slant italic)))) - (menu ((t (nil)))) - (mode-line ((t (:foreground "yellow" :background "darkslateblue" :box (:line-width -1 :style released-button))))) - (mouse ((t (:background "white")))) - (region ((t (:background "blue")))) - (scroll-bar ((t (nil)))) - (secondary-selection ((t (:background "darkslateblue")))) - (show-block-face1 ((t (:background "gray10")))) - (show-block-face2 ((t (:background "gray15")))) - (show-block-face3 ((t (:background "gray20")))) - (show-block-face4 ((t (:background "gray25")))) - (show-block-face5 ((t (:background "gray30")))) - (show-block-face6 ((t (:background "gray35")))) - (show-block-face7 ((t (:background "gray40")))) - (show-block-face8 ((t (:background "gray45")))) - (show-block-face9 ((t (:background "gray50")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) - (tooltip ((t (:background "lightyellow" :foreground "black")))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv")))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-field-face ((t (:background "dim gray")))) - (widget-inactive-face ((t (:foreground "light gray")))) - (widget-single-line-field-face ((t (:background "dim gray"))))))) - -(defun color-theme-andreas () - "Color theme by Andreas Busch, created 2003-02-06." - (interactive) - (color-theme-install - '(color-theme-andreas - ((background-mode . light) - (background-color . "white") - (background-toolbar-color . "#cccccccccccc") - (border-color . "#000000000000") - (bottom-toolbar-shadow-color . "#7a7a7a7a7a7a") - (foreground-color . "black") - (top-toolbar-shadow-color . "#f5f5f5f5f5f5")) - ((gnus-mouse-face . highlight) - (ispell-highlight-face . highlight)) - (default ((t (nil)))) - (OrangeRed ((t (nil)))) - (blue ((t (:foreground "blue")))) - (bold ((t (:bold t)))) - (bold-italic ((t (:italic t :bold t)))) - (border-glyph ((t (nil)))) - (calendar-today-face ((t (:underline t)))) - (color-mode-face-@ ((t (:foreground "orange")))) - (color-mode-face-a ((t (:foreground "blue")))) - (color-mode-face-b ((t (:foreground "red")))) - (color-mode-face-c ((t (:foreground "green3")))) - (color-mode-face-d ((t (:background "red" :foreground "white")))) - (color-mode-face-e ((t (:background "orange" :foreground "blue")))) - (color-mode-face-f ((t (:background "blue" :foreground "yellow")))) - (color-mode-face-g ((t (:background "lightblue" :foreground "brown")))) - (color-mode-face-h ((t (:background "brown" :foreground "white")))) - (custom-button-face ((t (:bold t)))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:underline t :foreground "blue")))) - (custom-group-tag-face-1 ((t (:underline t :foreground "red")))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "dark green")))) - (custom-variable-button-face ((t (:underline t :bold t :background "gray90")))) - (custom-variable-tag-face ((t (:underline t :background "gray95" :foreground "blue")))) - (diary-face ((t (:foreground "red")))) - (display-time-mail-balloon-enhance-face ((t (:background "orange")))) - (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) - (display-time-time-balloon-face ((t (:foreground "red")))) - (emacs-wiki-bad-link-face ((t (:bold t :foreground "red")))) - (emacs-wiki-link-face ((t (:bold t :foreground "green")))) - (font-lock-comment-face ((t (:foreground "orange1")))) - (font-lock-doc-string-face ((t (:foreground "green4")))) - (font-lock-function-name-face ((t (:foreground "blue3")))) - (font-lock-keyword-face ((t (:foreground "red1")))) - (font-lock-preprocessor-face ((t (:foreground "blue3")))) - (font-lock-reference-face ((t (:foreground "red3")))) - (font-lock-string-face ((t (:foreground "green4")))) - (font-lock-type-face ((t (:foreground "#6920ac")))) - (font-lock-variable-name-face ((t (:foreground "blue3")))) - (font-lock-warning-face ((t (:bold t :foreground "Red")))) - (gnu-cite-face-3 ((t (nil)))) - (gnu-cite-face-4 ((t (nil)))) - (gnus-cite-attribution-face ((t (:underline t)))) - (gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) - (gnus-cite-face-10 ((t (:foreground "medium purple")))) - (gnus-cite-face-11 ((t (:foreground "turquoise")))) - (gnus-cite-face-2 ((t (:foreground "firebrick")))) - (gnus-cite-face-3 ((t (:foreground "dark green")))) - (gnus-cite-face-4 ((t (:foreground "OrangeRed")))) - (gnus-cite-face-5 ((t (:foreground "dark khaki")))) - (gnus-cite-face-6 ((t (:foreground "dark violet")))) - (gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) - (gnus-cite-face-8 ((t (:foreground "magenta")))) - (gnus-cite-face-9 ((t (:foreground "violet")))) - (gnus-emphasis-bold ((t (:bold t)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t)))) - (gnus-emphasis-italic ((t (:italic t)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:underline t :bold t)))) - (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) - (gnus-emphasis-underline-italic ((t (:underline t :italic t)))) - (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) - (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) - (gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) - (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) - (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) - (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) - (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) - (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t)))) - (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) - (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-header-content-face ((t (:italic t :foreground "indianred4")))) - (gnus-header-from-face ((t (:bold t :foreground "red3")))) - (gnus-header-name-face ((t (:foreground "maroon")))) - (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue")))) - (gnus-header-subject-face ((t (:bold t :foreground "red4")))) - (gnus-splash-face ((t (:foreground "red")))) - (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) - (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "DarkRed")))) - (gnus-summary-high-unread-face ((t (:bold t)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) - (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) - (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) - (gnus-summary-low-unread-face ((t (:italic t)))) - (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) - (gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) - (gnus-summary-normal-ticked-face ((t (:foreground "Red")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (gnus-x-face ((t (nil)))) - (green ((t (:foreground "green")))) - (gui-button-face ((t (:background "grey75")))) - (gui-element ((t (:background "Gray80")))) - (highlight ((t (nil)))) - (holiday-face ((t (:background "pink")))) - (hyper-apropos-documentation ((t (:foreground "darkred")))) - (hyper-apropos-heading ((t (:bold t)))) - (hyper-apropos-hyperlink ((t (:foreground "blue4")))) - (hyper-apropos-major-heading ((t (:bold t)))) - (hyper-apropos-section-heading ((t (:italic t :bold t)))) - (hyper-apropos-warning ((t (:bold t :foreground "red")))) - (info-node ((t (:italic t :bold t)))) - (info-xref ((t (:bold t)))) - (isearch ((t (:background "yellow" :foreground "red")))) - (italic ((t (:italic t)))) - (kai-gnus-cite-face-1 ((t (:foreground "LightCyan4")))) - (kai-gnus-cite-face-2 ((t (:foreground "LightSkyBlue2")))) - (kai-gnus-cite-face-3 ((t (:foreground "DodgerBlue3")))) - (kai-gnus-group-mail-face ((t (:foreground "darkslategrey")))) - (kai-gnus-group-nonempty-mail-face ((t (:foreground "DarkRed")))) - (kai-gnus-group-starred-face ((t (:foreground "grey50")))) - (left-margin ((t (nil)))) - (list-mode-item-selected ((t (:background "gray68")))) - (message-cited-text ((t (:italic t)))) - (message-cited-text-face ((t (:foreground "red")))) - (message-header-cc-face ((t (:foreground "MidnightBlue")))) - (message-header-contents ((t (:italic t)))) - (message-header-name-face ((t (:foreground "cornflower blue")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) - (message-header-other-face ((t (:foreground "steel blue")))) - (message-header-subject-face ((t (:bold t :foreground "navy blue")))) - (message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) - (message-header-xheader-face ((t (:foreground "blue")))) - (message-headers ((t (:bold t)))) - (message-highlighted-header-contents ((t (:italic t :bold t)))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "brown")))) - (modeline ((t (:background "Gray75" :foreground "Black")))) - (modeline-buffer-id ((t (:background "Gray75" :foreground "blue4")))) - (modeline-mousable ((t (:background "Gray75" :foreground "firebrick")))) - (modeline-mousable-minor-mode ((t (:background "Gray75" :foreground "green4")))) - (paren-blink-off ((t (:foreground "gray80")))) - (paren-match ((t (:background "red" :foreground "white")))) - (paren-mismatch ((t (:background "DeepPink")))) - (pointer ((t (:foreground "blue")))) - (primary-selection ((t (:background "gray65")))) - (red ((t (:foreground "red")))) - (region ((t (:background "gray75")))) - (right-margin ((t (nil)))) - (secondary-selection ((t (:background "paleturquoise")))) - (text-cursor ((t (:background "red" :foreground "LightYellow1")))) - (toolbar ((t (:background "Gray80")))) - (underline ((t (:underline t)))) - (vertical-divider ((t (:background "Gray80")))) - (widget-button-face ((t (:bold t)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (x-face ((t (:background "white")))) - (yellow ((t (:foreground "yellow")))) - (zmacs-region ((t (:background "gray65" :foreground "yellow"))))))) - -(defun color-theme-charcoal-black () - "Color theme by Lars Chr. Hausmann, created 2003-03-24." - (interactive) - (color-theme-install - '(color-theme-charcoal-black - ((background-color . "Grey15") - (background-mode . dark) - (border-color . "Grey") - (cursor-color . "Grey") - (foreground-color . "Grey") - (mouse-color . "Grey")) - ((display-time-mail-face . mode-line) - (gnus-article-button-face . bold) - (gnus-article-mouse-face . highlight) - (gnus-mouse-face . highlight) - (gnus-server-agent-face . gnus-server-agent-face) - (gnus-server-closed-face . gnus-server-closed-face) - (gnus-server-denied-face . gnus-server-denied-face) - (gnus-server-offline-face . gnus-server-offline-face) - (gnus-server-opened-face . gnus-server-opened-face) - (gnus-signature-face . gnus-signature-face) - (gnus-summary-selected-face . gnus-summary-selected-face) - (help-highlight-face . underline) - (list-matching-lines-face . bold) - (mime-button-face . bold) - (mime-button-mouse-face . highlight) - (sgml-set-face . t) - (tags-tag-face . default) - (view-highlight-face . highlight) - (widget-mouse-face . highlight)) - (default ((t (:stipple nil :background "Grey15" :foreground "Grey" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 87 :width semi-condensed :family "misc-fixed")))) - (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) - (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) - (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) - (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) - (bg:erc-color-face0 ((t (nil)))) - (bg:erc-color-face1 ((t (nil)))) - (bg:erc-color-face10 ((t (nil)))) - (bg:erc-color-face11 ((t (nil)))) - (bg:erc-color-face12 ((t (nil)))) - (bg:erc-color-face13 ((t (nil)))) - (bg:erc-color-face14 ((t (nil)))) - (bg:erc-color-face15 ((t (nil)))) - (bg:erc-color-face2 ((t (nil)))) - (bg:erc-color-face3 ((t (nil)))) - (bg:erc-color-face4 ((t (nil)))) - (bg:erc-color-face5 ((t (nil)))) - (bg:erc-color-face6 ((t (nil)))) - (bg:erc-color-face7 ((t (nil)))) - (bg:erc-color-face8 ((t (nil)))) - (bg:erc-color-face9 ((t (nil)))) - (bold ((t (:bold t :weight bold)))) - (bold-italic ((t (:bold t :foreground "beige" :weight bold)))) - (border ((t (:background "Grey")))) - (calendar-today-face ((t (:underline t)))) - (comint-highlight-input ((t (:bold t :weight bold)))) - (comint-highlight-prompt ((t (:foreground "cyan")))) - (cperl-array-face ((t (:bold t :foreground "light salmon" :weight bold)))) - (cperl-hash-face ((t (:italic t :bold t :foreground "beige" :slant italic :weight bold)))) - (cperl-nonoverridable-face ((t (:foreground "aquamarine")))) - (cursor ((t (:background "Grey")))) - (custom-button-face ((t (:foreground "gainsboro")))) - (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-comment-face ((t (:background "dim gray")))) - (custom-comment-tag-face ((t (:foreground "gray80")))) - (custom-documentation-face ((t (:foreground "light blue")))) - (custom-face-tag-face ((t (:underline t)))) - (custom-group-tag-face ((t (:bold t :foreground "pale turquoise" :weight bold)))) - (custom-group-tag-face-1 ((t (:foreground "pale turquoise" :underline t)))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "light salmon")))) - (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) - (custom-variable-tag-face ((t (:bold t :foreground "turquoise" :weight bold)))) - (diary-face ((t (:foreground "red")))) - (dired-face-directory ((t (:bold t :foreground "sky blue" :weight bold)))) - (dired-face-executable ((t (:foreground "green yellow")))) - (dired-face-flagged ((t (:foreground "tomato")))) - (dired-face-marked ((t (:foreground "light salmon")))) - (dired-face-permissions ((t (:foreground "aquamarine")))) - (erc-action-face ((t (nil)))) - (erc-bold-face ((t (:bold t :weight bold)))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (:foreground "pale green")))) - (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold)))) - (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold)))) - (erc-input-face ((t (:foreground "light blue")))) - (erc-inverse-face ((t (:background "steel blue")))) - (erc-notice-face ((t (:foreground "light salmon")))) - (erc-pal-face ((t (:foreground "pale green")))) - (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold)))) - (eshell-ls-archive-face ((t (:bold t :foreground "medium purple" :weight bold)))) - (eshell-ls-backup-face ((t (:foreground "dim gray")))) - (eshell-ls-clutter-face ((t (:foreground "dim gray")))) - (eshell-ls-directory-face ((t (:bold t :foreground "medium slate blue" :weight bold)))) - (eshell-ls-executable-face ((t (:bold t :foreground "aquamarine" :weight bold)))) - (eshell-ls-missing-face ((t (:foreground "black")))) - (eshell-ls-picture-face ((t (:foreground "violet")))) - (eshell-ls-product-face ((t (:foreground "light steel blue")))) - (eshell-ls-readonly-face ((t (:foreground "aquamarine")))) - (eshell-ls-special-face ((t (:foreground "gold")))) - (eshell-ls-symlink-face ((t (:foreground "white")))) - (eshell-ls-unreadable-face ((t (:foreground "dim gray")))) - (eshell-prompt-face ((t (:bold t :foreground "light sky blue" :weight bold)))) - (excerpt ((t (:italic t :slant italic)))) - (fg:erc-color-face0 ((t (:foreground "white")))) - (fg:erc-color-face1 ((t (:foreground "beige")))) - (fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) - (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) - (fg:erc-color-face12 ((t (:foreground "light yellow")))) - (fg:erc-color-face13 ((t (:foreground "yellow")))) - (fg:erc-color-face14 ((t (:foreground "light goldenrod")))) - (fg:erc-color-face15 ((t (:foreground "lime green")))) - (fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) - (fg:erc-color-face3 ((t (:foreground "light cyan")))) - (fg:erc-color-face4 ((t (:foreground "powder blue")))) - (fg:erc-color-face5 ((t (:foreground "sky blue")))) - (fg:erc-color-face6 ((t (:foreground "dark sea green")))) - (fg:erc-color-face7 ((t (:foreground "pale green")))) - (fg:erc-color-face8 ((t (:foreground "medium spring green")))) - (fg:erc-color-face9 ((t (:foreground "khaki")))) - (fixed ((t (:bold t :weight bold)))) - (fixed-pitch ((t (:family "courier")))) - (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) - (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) - (font-lock-builtin-face ((t (:foreground "aquamarine")))) - (font-lock-comment-face ((t (:foreground "light blue")))) - (font-lock-constant-face ((t (:foreground "pale green")))) - (font-lock-doc-face ((t (:foreground "light sky blue")))) - (font-lock-doc-string-face ((t (:foreground "sky blue")))) - (font-lock-function-name-face ((t (:bold t :foreground "aquamarine" :weight bold)))) - (font-lock-keyword-face ((t (:bold t :foreground "pale turquoise" :weight bold)))) - (font-lock-reference-face ((t (:foreground "pale green")))) - (font-lock-string-face ((t (:foreground "light sky blue")))) - (font-lock-type-face ((t (:bold t :foreground "sky blue" :weight bold)))) - (font-lock-variable-name-face ((t (:bold t :foreground "turquoise" :weight bold)))) - (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) - (fringe ((t (:background "Grey15")))) - (gnus-cite-face-1 ((t (:foreground "LightSalmon")))) - (gnus-cite-face-2 ((t (:foreground "Khaki")))) - (gnus-cite-face-3 ((t (:foreground "Coral")))) - (gnus-cite-face-4 ((t (:foreground "yellow green")))) - (gnus-cite-face-5 ((t (:foreground "dark khaki")))) - (gnus-cite-face-6 ((t (:foreground "bisque")))) - (gnus-cite-face-7 ((t (:foreground "peru")))) - (gnus-cite-face-8 ((t (:foreground "light coral")))) - (gnus-cite-face-9 ((t (:foreground "plum")))) - (gnus-emphasis-bold ((t (:bold t :weight bold)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) - (gnus-emphasis-italic ((t (:italic t :slant italic)))) - (gnus-emphasis-strikethru ((t (nil)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) - (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) - (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) - (gnus-group-mail-1-empty-face ((t (:foreground "White")))) - (gnus-group-mail-1-face ((t (:bold t :foreground "White" :weight bold)))) - (gnus-group-mail-2-empty-face ((t (:foreground "light cyan")))) - (gnus-group-mail-2-face ((t (:bold t :foreground "light cyan" :weight bold)))) - (gnus-group-mail-3-empty-face ((t (:foreground "LightBlue")))) - (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue" :weight bold)))) - (gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine")))) - (gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) - (gnus-group-news-1-empty-face ((t (:foreground "White")))) - (gnus-group-news-1-face ((t (:bold t :foreground "White" :weight bold)))) - (gnus-group-news-2-empty-face ((t (:foreground "light cyan")))) - (gnus-group-news-2-face ((t (:bold t :foreground "light cyan" :weight bold)))) - (gnus-group-news-3-empty-face ((t (:foreground "LightBlue")))) - (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue" :weight bold)))) - (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine")))) - (gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) - (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine")))) - (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) - (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine")))) - (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) - (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) - (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) - (gnus-header-content-face ((t (:foreground "LightSkyBlue3")))) - (gnus-header-from-face ((t (:bold t :foreground "light cyan" :weight bold)))) - (gnus-header-name-face ((t (:bold t :foreground "LightBlue" :weight bold)))) - (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MediumAquamarine" :slant italic :weight bold)))) - (gnus-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold)))) - (gnus-server-agent-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) - (gnus-server-closed-face ((t (:italic t :foreground "Light Steel Blue" :slant italic)))) - (gnus-server-denied-face ((t (:bold t :foreground "Pink" :weight bold)))) - (gnus-server-offline-face ((t (:bold t :foreground "Yellow" :weight bold)))) - (gnus-server-opened-face ((t (:bold t :foreground "Green1" :weight bold)))) - (gnus-signature-face ((t (:foreground "Grey")))) - (gnus-splash-face ((t (:foreground "ForestGreen")))) - (gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow")))) - (gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) - (gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) - (gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon" :weight bold)))) - (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "beige" :slant italic :weight bold)))) - (gnus-summary-low-ancient-face ((t (:italic t :foreground "DimGray" :slant italic)))) - (gnus-summary-low-read-face ((t (:foreground "slate gray")))) - (gnus-summary-low-ticked-face ((t (:foreground "Pink")))) - (gnus-summary-low-unread-face ((t (:foreground "LightGray")))) - (gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine")))) - (gnus-summary-normal-read-face ((t (:foreground "Aquamarine")))) - (gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon")))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:underline t)))) - (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) - (highlight ((t (:background "dark slate blue" :foreground "light blue")))) - (highline-face ((t (:background "DeepSkyBlue4")))) - (holiday-face ((t (:background "pink")))) - (info-header-node ((t (:bold t :weight bold)))) - (info-header-xref ((t (:bold t :weight bold :foreground "sky blue")))) - (info-menu-5 ((t (:underline t)))) - (info-menu-header ((t (:bold t :family "helv" :weight bold)))) - (info-node ((t (:bold t :weight bold)))) - (info-xref ((t (:bold t :foreground "sky blue" :weight bold)))) - (isearch ((t (:background "slate blue")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) - (italic ((t (:foreground "sky blue")))) - (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) - (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) - (jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) - (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) - (jde-java-font-lock-code-face ((t (nil)))) - (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) - (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) - (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) - (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal)))) - (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) - (jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) - (jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) - (jde-java-font-lock-pre-face ((t (nil)))) - (jde-java-font-lock-underline-face ((t (:underline t)))) - (makefile-space-face ((t (:background "hotpink")))) - (menu ((t (:background "MidnightBlue" :foreground "Grey")))) - (message-cited-text-face ((t (:foreground "LightSalmon")))) - (message-header-cc-face ((t (:foreground "light cyan")))) - (message-header-name-face ((t (:foreground "LightBlue")))) - (message-header-newsgroups-face ((t (:italic t :bold t :foreground "MediumAquamarine" :slant italic :weight bold)))) - (message-header-other-face ((t (:foreground "MediumAquamarine")))) - (message-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold)))) - (message-header-to-face ((t (:bold t :foreground "light cyan" :weight bold)))) - (message-header-xheader-face ((t (:foreground "MediumAquamarine")))) - (message-mml-face ((t (:foreground "ForestGreen")))) - (message-separator-face ((t (:foreground "chocolate")))) - (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) - (mouse ((t (:background "Grey")))) - (region ((t (:background "DarkSlateBlue")))) - (scroll-bar ((t (:background "grey75")))) - (secondary-selection ((t (:background "steel blue")))) - (semantic-dirty-token-face ((t (:background "gray10")))) - (semantic-unmatched-syntax-face ((t (:underline "red")))) - (show-paren-match-face ((t (:background "light slate blue" :foreground "white")))) - (show-paren-mismatch-face ((t (:background "red" :foreground "white")))) - (speedbar-button-face ((t (:foreground "seashell2")))) - (speedbar-directory-face ((t (:foreground "seashell3")))) - (speedbar-file-face ((t (:foreground "seashell4")))) - (speedbar-highlight-face ((t (:background "dark slate blue" :foreground "wheat")))) - (speedbar-selected-face ((t (:foreground "seashell1" :underline t)))) - (speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray")))) - (speedbar-tag-face ((t (:foreground "antique white")))) - (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) - (tooltip ((t (:background "lightyellow" :foreground "black")))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv")))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "light blue")))) - (widget-field-face ((t (:background "RoyalBlue4" :foreground "wheat")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "slate blue" :foreground "wheat")))) - (woman-bold-face ((t (:bold t :foreground "sky blue" :weight bold)))) - (woman-italic-face ((t (:foreground "deep sky blue")))) - (woman-unknown-face ((t (:foreground "LightSalmon")))) - (zmacs-region ((t (:background "DarkSlateBlue"))))))) - -(defun color-theme-vim-colors () - "Color theme by Michael Soulier, created 2003-03-26." - (interactive) - (color-theme-install - '(color-theme-vim-colors - ((background-color . "#ffffff") - (background-mode . light) - (border-color . "black") - (cursor-color . "#000000") - (foreground-color . "#000000") - (mouse-color . "#000000")) - ((Man-overstrike-face . bold) - (Man-underline-face . underline) - (apropos-keybinding-face . underline) - (apropos-label-face . italic) - (apropos-match-face . secondary-selection) - (apropos-property-face . bold-italic) - (apropos-symbol-face . bold) - (cperl-here-face . font-lock-string-face) - (cperl-invalid-face quote underline) - (cperl-pod-face . font-lock-comment-face) - (cperl-pod-head-face . font-lock-variable-name-face) - (help-highlight-face . underline) - (ispell-highlight-face . highlight) - (list-matching-lines-face . bold) - (rpm-spec-dir-face . rpm-spec-dir-face) - (rpm-spec-doc-face . rpm-spec-doc-face) - (rpm-spec-ghost-face . rpm-spec-ghost-face) - (rpm-spec-macro-face . rpm-spec-macro-face) - (rpm-spec-package-face . rpm-spec-package-face) - (rpm-spec-tag-face . rpm-spec-tag-face) - (tags-tag-face . default) - (view-highlight-face . highlight) - (widget-mouse-face . highlight)) - (default ((t (:background "#ffffff" :foreground "#000000")))) - (Info-title-1-face ((t (nil)))) - (Info-title-2-face ((t (nil)))) - (Info-title-3-face ((t (nil)))) - (Info-title-4-face ((t (:bold (bold extra-bold ultra-bold))))) - (bold ((t (:bold (bold extra-bold ultra-bold))))) - (bold-italic ((t (:italic (italic oblique) :bold (bold extra-bold ultra-bold))))) - (border ((t (:background "black")))) - (comint-highlight-input ((t (:bold (bold extra-bold ultra-bold))))) - (comint-highlight-prompt ((t (:foreground "dark blue")))) - (cperl-array-face ((t (:foreground "brown")))) - (cperl-hash-face ((t (:foreground "red")))) - (cperl-nonoverridable-face ((t (:foreground "#008b8b")))) - (cursor ((t (:background "#000000")))) - (fixed-pitch ((t (nil)))) - (font-lock-builtin-face ((t (:foreground "purple")))) - (font-lock-comment-face ((t (:foreground "blue")))) - (font-lock-constant-face ((t (:foreground "green4")))) - (font-lock-doc-face ((t (:background "#f2f2f2")))) - (font-lock-function-name-face ((t (:foreground "#008b8b")))) - (font-lock-keyword-face ((t (:bold (bold extra-bold ultra-bold) :foreground "#a52a2a")))) - (font-lock-string-face ((t (:background "#f2f2f2" :foreground "#ff00ff")))) - (font-lock-type-face ((t (:foreground "ForestGreen")))) - (font-lock-variable-name-face ((t (:foreground "#008b8b")))) - (font-lock-warning-face ((t (:bold (bold extra-bold ultra-bold) :foreground "Red")))) - (fringe ((t (:background "#e5e5e5")))) - (header-line ((t (:background "grey90" :foreground "grey20")))) - (highlight ((t (:background "darkseagreen2")))) - (info-header-node ((t (nil)))) - (info-header-xref ((t (nil)))) - (info-menu-5 ((t (:foreground "red1")))) - (info-menu-header ((t (:bold (bold extra-bold ultra-bold))))) - (info-node ((t (:italic (italic oblique) :bold (bold extra-bold ultra-bold) :foreground "brown")))) - (info-xref ((t (:bold (bold extra-bold ultra-bold) :foreground "magenta4")))) - (isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) - (italic ((t (:italic (italic oblique))))) - (menu ((t (nil)))) - (mode-line ((t (:background "grey75" :foreground "black")))) - (mouse ((t (:background "#000000")))) - (region ((t (:background "lightgoldenrod2")))) - (rpm-spec-dir-face ((t (:foreground "green")))) - (rpm-spec-doc-face ((t (:foreground "magenta")))) - (rpm-spec-ghost-face ((t (:foreground "red")))) - (rpm-spec-macro-face ((t (:foreground "purple")))) - (rpm-spec-package-face ((t (:foreground "red")))) - (rpm-spec-tag-face ((t (:foreground "blue")))) - (scroll-bar ((t (:background "grey75" :foreground "#000000")))) - (secondary-selection ((t (:background "yellow")))) - (sh-heredoc-face ((t (:foreground "tan")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (tool-bar ((t (:background "grey75" :foreground "black")))) - (tooltip ((t (:background "lightyellow" :foreground "black")))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (nil)))) - (widget-button-face ((t (:bold (bold extra-bold ultra-bold))))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "gray85"))))))) - -(defun color-theme-calm-forest () - "Color theme by Artur Hefczyc, created 2003-04-18." - (interactive) - (color-theme-install - '(color-theme-calm-forest - ((background-color . "gray12") - (background-mode . dark) - (border-color . "black") - (cursor-color . "orange") - (foreground-color . "green") - (mouse-color . "yellow")) - ((help-highlight-face . underline) - (list-matching-lines-face . bold) - (senator-eldoc-use-color . t) - (view-highlight-face . highlight) - (widget-mouse-face . highlight)) - (default ((t (:stipple nil :background "gray12" :foreground "green" :inverse-video nil :box nil -:strike-through nil :overline nil :underline nil :slant normal :weight normal :height 98 :width -normal :family "outline-courier new")))) - (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) - (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) - (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) - (Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) - (bold ((t (:bold t :weight bold)))) - (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (border ((t (:background "black")))) - (comint-highlight-input ((t (:bold t :weight bold)))) - (comint-highlight-prompt ((t (:foreground "cyan")))) - (cparen-around-andor-face ((t (:bold t :foreground "maroon" :weight bold)))) - (cparen-around-begin-face ((t (:foreground "maroon")))) - (cparen-around-conditional-face ((t (:bold t :foreground "RoyalBlue" :weight bold)))) - (cparen-around-define-face ((t (:bold t :foreground "Blue" :weight bold)))) - (cparen-around-lambda-face ((t (:foreground "LightSeaGreen")))) - (cparen-around-letdo-face ((t (:bold t :foreground "LightSeaGreen" :weight bold)))) - (cparen-around-quote-face ((t (:foreground "SaddleBrown")))) - (cparen-around-set!-face ((t (:foreground "OrangeRed")))) - (cparen-around-syntax-rules-face ((t (:foreground "Magenta")))) - (cparen-around-vector-face ((t (:foreground "chocolate")))) - (cparen-binding-face ((t (:foreground "ForestGreen")))) - (cparen-binding-list-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) - (cparen-conditional-clause-face ((t (:foreground "RoyalBlue")))) - (cparen-normal-paren-face ((t (:foreground "grey50")))) - (cursor ((t (:background "orange")))) - (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style -released-button))))) - (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width -2 :style pressed-button))))) - (custom-changed-face ((t (:background "blue" :foreground "white")))) - (custom-comment-face ((t (:background "dim gray")))) - (custom-comment-tag-face ((t (:foreground "gray80")))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) - (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2)))) - (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height -1.2)))) - (custom-invalid-face ((t (:background "red" :foreground "yellow")))) - (custom-modified-face ((t (:background "blue" :foreground "white")))) - (custom-rogue-face ((t (:background "black" :foreground "pink")))) - (custom-saved-face ((t (:underline t)))) - (custom-set-face ((t (:background "white" :foreground "blue")))) - (custom-state-face ((t (:foreground "lime green")))) - (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) - (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold -:height 1.2)))) - (eieio-custom-slot-tag-face ((t (:foreground "light blue")))) - (extra-whitespace-face ((t (:background "pale green")))) - (fixed-pitch ((t (:family "courier")))) - (font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold)))) - (font-latex-italic-face ((t (:italic t :foreground "OliveDrab" :slant italic)))) - (font-latex-math-face ((t (:foreground "burlywood")))) - (font-latex-sedate-face ((t (:foreground "LightGray")))) - (font-latex-string-face ((t (:foreground "RosyBrown")))) - (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold)))) - (font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) - (font-lock-comment-face ((t (:foreground "chocolate1")))) - (font-lock-constant-face ((t (:foreground "Aquamarine")))) - (font-lock-doc-face ((t (:foreground "LightSalmon")))) - (font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) - (font-lock-keyword-face ((t (:foreground "Cyan")))) - (font-lock-string-face ((t (:foreground "LightSalmon")))) - (font-lock-type-face ((t (:foreground "PaleGreen")))) - (font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) - (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) - (fringe ((t (:background "grey10")))) - (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground -"grey90" :box nil)))) - (highlight ((t (:background "darkolivegreen")))) - (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "white")))) - (info-header-xref ((t (:bold t :weight bold :foreground "cyan")))) - (info-menu-5 ((t (:foreground "red1")))) - (info-menu-header ((t (:bold t :family "helv" :weight bold)))) - (info-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold)))) - (info-xref ((t (:bold t :foreground "cyan" :weight bold)))) - (isearch ((t (:background "palevioletred2" :foreground "brown4")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) - (italic ((t (:italic t :slant italic)))) - (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) - (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) - (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) - (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) - (jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) - (jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) - (jde-java-font-lock-code-face ((t (nil)))) - (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) - (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) - (jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) - (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal)))) - (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) - (jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) - (jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) - (jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) - (jde-java-font-lock-pre-face ((t (nil)))) - (jde-java-font-lock-underline-face ((t (:underline t)))) - (menu ((t (nil)))) - (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style -released-button))))) - (mouse ((t (:background "yellow")))) - (region ((t (:background "blue3")))) - (scroll-bar ((t (nil)))) - (secondary-selection ((t (:background "SkyBlue4")))) - (semantic-dirty-token-face ((t (:background "gray10")))) - (semantic-unmatched-syntax-face ((t (:underline "red")))) - (senator-intangible-face ((t (:foreground "gray75")))) - (senator-momentary-highlight-face ((t (:background "gray30")))) - (senator-read-only-face ((t (:background "#664444")))) - (show-paren-match-face ((t (:background "turquoise")))) - (show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) - (speedbar-button-face ((t (:foreground "green3")))) - (speedbar-directory-face ((t (:foreground "light blue")))) - (speedbar-file-face ((t (:foreground "cyan")))) - (speedbar-highlight-face ((t (:background "sea green")))) - (speedbar-selected-face ((t (:foreground "red" :underline t)))) - (speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray")))) - (speedbar-tag-face ((t (:foreground "yellow")))) - (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style -released-button))))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv")))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "lime green")))) - (widget-field-face ((t (:background "dim gray")))) - (widget-inactive-face ((t (:foreground "light gray")))) - (widget-single-line-field-face ((t (:background "dim gray"))))))) - -(defun color-theme-lawrence () - "Color theme by lawrence mitchell . -Mainly shades of green. -Contains faces for erc, gnus, most of jde." - (interactive) - (color-theme-install - '(color-theme-lawrence - ((background-color . "black") - (background-mode . dark) - (border-color . "black") - (cursor-color . "green") - (foreground-color . "#00CC00") - (mouse-color . "black")) - ((erc-button-face . bold) - (erc-button-mouse-face . highlight) - (gnus-article-button-face . bold) - (gnus-article-mouse-face . highlight) - (gnus-cite-attribution-face . gnus-cite-attribution-face) - (gnus-mouse-face . highlight) - (gnus-server-agent-face . gnus-server-agent-face) - (gnus-server-closed-face . gnus-server-closed-face) - (gnus-server-denied-face . gnus-server-denied-face) - (gnus-server-offline-face . gnus-server-offline-face) - (gnus-server-opened-face . gnus-server-opened-face) - (gnus-signature-face . gnus-signature-face) - (gnus-summary-selected-face . gnus-summary-selected-face) - (gnus-treat-display-face . head) - (gnus-treat-display-xface . head) - (list-matching-lines-buffer-name-face . underline) - (list-matching-lines-face . bold) - (paren-match-face . paren-face-match) - (paren-mismatch-face . paren-face-mismatch) - (paren-no-match-face . paren-face-no-match) - (sgml-set-face . t) - (tags-tag-face . default) - (view-highlight-face . highlight) - (widget-mouse-face . highlight)) - (default ((t (nil)))) - (Buffer-menu-buffer-face ((t (:bold t :weight bold)))) - (bg:erc-color-face0 ((t (:background "White")))) - (bg:erc-color-face1 ((t (:background "black")))) - (bg:erc-color-face10 ((t (:background "lightblue1")))) - (bg:erc-color-face11 ((t (:background "cyan")))) - (bg:erc-color-face12 ((t (:background "blue")))) - (bg:erc-color-face13 ((t (:background "deeppink")))) - (bg:erc-color-face14 ((t (:background "gray50")))) - (bg:erc-color-face15 ((t (:background "gray90")))) - (bg:erc-color-face2 ((t (:background "blue4")))) - (bg:erc-color-face3 ((t (:background "green4")))) - (bg:erc-color-face4 ((t (:background "red")))) - (bg:erc-color-face5 ((t (:background "brown")))) - (bg:erc-color-face6 ((t (:background "purple")))) - (bg:erc-color-face7 ((t (:background "orange")))) - (bg:erc-color-face8 ((t (:background "yellow")))) - (bg:erc-color-face9 ((t (:background "green")))) - (bold ((t (:bold t :foreground "#00CC00" :background "black")))) - (bold-italic ((t (:italic t :bold t :slant oblique :weight semi-bold)))) - (border ((t (:background "black")))) - (button ((t (:underline t)))) - (comint-highlight-input ((t (nil)))) - (comint-highlight-prompt ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) - (cursor ((t (:background "green")))) - (custom-button-face ((t (:bold t :foreground "#00CC00" :background "black")))) - (custom-button-pressed-face ((t (nil)))) - (custom-changed-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) - (custom-comment-face ((t (nil)))) - (custom-comment-tag-face ((t (nil)))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (nil)))) - (custom-group-tag-face ((t (nil)))) - (custom-group-tag-face-1 ((t (nil)))) - (custom-invalid-face ((t (:foreground "#00CC00" :background "black" :strike-through t)))) - (custom-modified-face ((t (nil)))) - (custom-rogue-face ((t (nil)))) - (custom-saved-face ((t (nil)))) - (custom-set-face ((t (nil)))) - (custom-state-face ((t (nil)))) - (custom-variable-button-face ((t (nil)))) - (custom-variable-tag-face ((t (nil)))) - (erc-action-face ((t (:bold t :weight semi-bold)))) - (erc-bold-face ((t (:bold t :weight bold)))) - (erc-current-nick-face ((t (:bold t :foreground "LightSeaGreen" :weight semi-bold)))) - (erc-dangerous-host-face ((t (:foreground "red")))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (:foreground "IndianRed")))) - (erc-error-face ((t (:bold t :weight semi-bold :background "darkblue" :foreground "#00CC00")))) - (erc-fool-face ((t (:foreground "dim gray")))) - (erc-input-face ((t (:foreground "springgreen")))) - (erc-inverse-face ((t (:bold t :background "Darkgreen" :foreground "Black" :weight semi-bold)))) - (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold)))) - (erc-nick-default-face ((t (:bold t :weight semi-bold)))) - (erc-nick-msg-face ((t (:bold t :foreground "springgreen" :weight semi-bold)))) - (erc-notice-face ((t (:foreground "seagreen" :weight normal)))) - (erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold)))) - (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight semi-bold)))) - (erc-timestamp-face ((t (:foreground "seagreen" :weight normal)))) - (erc-underline-face ((t (:underline t)))) - (fg:erc-color-face0 ((t (:foreground "White")))) - (fg:erc-color-face1 ((t (:foreground "black")))) - (fg:erc-color-face10 ((t (:foreground "lightblue1")))) - (fg:erc-color-face11 ((t (:foreground "cyan")))) - (fg:erc-color-face12 ((t (:foreground "blue")))) - (fg:erc-color-face13 ((t (:foreground "deeppink")))) - (fg:erc-color-face14 ((t (:foreground "gray50")))) - (fg:erc-color-face15 ((t (:foreground "gray90")))) - (fg:erc-color-face2 ((t (:foreground "blue4")))) - (fg:erc-color-face3 ((t (:foreground "green4")))) - (fg:erc-color-face4 ((t (:foreground "red")))) - (fg:erc-color-face5 ((t (:foreground "brown")))) - (fg:erc-color-face6 ((t (:foreground "purple")))) - (fg:erc-color-face7 ((t (:foreground "orange")))) - (fg:erc-color-face8 ((t (:foreground "yellow")))) - (fg:erc-color-face9 ((t (:foreground "green")))) - (fixed-pitch ((t (nil)))) - (font-latex-string-face ((t (:bold t :weight semi-bold :foreground "seagreen" :background "black")))) - (font-latex-warning-face ((t (:bold t :weight semi-bold :background "darkblue" :foreground "#00CC00")))) - (font-lock-builtin-face ((t (:foreground "seagreen1")))) - (font-lock-comment-face ((t (:background "black" :foreground "medium spring green")))) - (font-lock-constant-face ((t (nil)))) - (font-lock-doc-face ((t (:bold t :background "black" :foreground "seagreen" :weight semi-bold)))) - (font-lock-function-name-face ((t (:bold t :foreground "#00CC00" :background "black")))) - (font-lock-keyword-face ((t (:bold t :background "black" :foreground "green" :underline t :weight semi-bold)))) - (font-lock-preprocessor-face ((t (:foreground "#00ccdd")))) - (font-lock-string-face ((t (:bold t :background "black" :foreground "seagreen" :weight semi-bold)))) - (font-lock-type-face ((t (nil)))) - (font-lock-variable-name-face ((t (nil)))) - (font-lock-warning-face ((t (:bold t :foreground "#00CC00" :background "darkblue" :weight semi-bold)))) - (fringe ((t (:foreground "#00CC00" :background "#151515")))) - (gnus-cite-attribution-face ((t (:italic t :foreground "#00CC00" :background "black" :slant italic)))) - (gnus-cite-face-1 ((t (:background "black" :foreground "springgreen")))) - (gnus-cite-face-10 ((t (nil)))) - (gnus-cite-face-11 ((t (nil)))) - (gnus-cite-face-2 ((t (:background "black" :foreground "lightseagreen")))) - (gnus-cite-face-3 ((t (:background "black" :foreground "darkseagreen")))) - (gnus-cite-face-4 ((t (:background "black" :foreground "forestgreen")))) - (gnus-cite-face-5 ((t (:background "black" :foreground "springgreen")))) - (gnus-cite-face-6 ((t (:background "black" :foreground "springgreen")))) - (gnus-cite-face-7 ((t (:background "black" :foreground "springgreen")))) - (gnus-cite-face-8 ((t (:background "black" :foreground "springgreen")))) - (gnus-cite-face-9 ((t (:background "black" :foreground "springgreen")))) - (gnus-emphasis-bold ((t (:bold t :weight semi-bold)))) - (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight semi-bold)))) - (gnus-emphasis-highlight-words ((t (:bold t :foreground "#00CC00" :background "black" :underline t :weight bold)))) - (gnus-emphasis-italic ((t (:italic t :slant italic)))) - (gnus-emphasis-strikethru ((t (nil)))) - (gnus-emphasis-underline ((t (:underline t)))) - (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight semi-bold)))) - (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight semi-bold)))) - (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) - (gnus-group-mail-1-empty-face ((t (nil)))) - (gnus-group-mail-1-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) - (gnus-group-mail-2-empty-face ((t (nil)))) - (gnus-group-mail-2-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) - (gnus-group-mail-3-empty-face ((t (nil)))) - (gnus-group-mail-3-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) - (gnus-group-mail-low-empty-face ((t (nil)))) - (gnus-group-mail-low-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) - (gnus-group-news-1-empty-face ((t (nil)))) - (gnus-group-news-1-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) - (gnus-group-news-2-empty-face ((t (nil)))) - (gnus-group-news-2-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) - (gnus-group-news-low-empty-face ((t (nil)))) - (gnus-group-news-low-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) - (gnus-header-content-face ((t (:background "black" :foreground "springgreen")))) - (gnus-header-from-face ((t (nil)))) - (gnus-header-name-face ((t (nil)))) - (gnus-header-newsgroups-face ((t (nil)))) - (gnus-header-subject-face ((t (nil)))) - (gnus-server-agent-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) - (gnus-server-closed-face ((t (:italic t :foreground "Light Steel Blue" :slant italic)))) - (gnus-server-denied-face ((t (:bold t :foreground "Pink" :weight semi-bold)))) - (gnus-server-offline-face ((t (:bold t :foreground "Yellow" :weight bold)))) - (gnus-server-opened-face ((t (:bold t :foreground "Green1" :weight semi-bold)))) - (gnus-signature-face ((t (:background "black" :foreground "springgreen" :slant normal)))) - (gnus-splash-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) - (gnus-summary-cancelled-face ((t (:foreground "#00CC00" :background "black" :strike-through t)))) - (gnus-summary-high-ancient-face ((t (nil)))) - (gnus-summary-high-read-face ((t (nil)))) - (gnus-summary-high-ticked-face ((t (:background "black" :foreground "seagreen")))) - (gnus-summary-high-undownloaded-face ((t (:bold t :foreground "LightGray" :weight bold)))) - (gnus-summary-high-unread-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) - (gnus-summary-low-ancient-face ((t (nil)))) - (gnus-summary-low-read-face ((t (nil)))) - (gnus-summary-low-ticked-face ((t (nil)))) - (gnus-summary-low-undownloaded-face ((t (:italic t :foreground "LightGray" :slant italic :weight normal)))) - (gnus-summary-low-unread-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) - (gnus-summary-normal-ancient-face ((t (nil)))) - (gnus-summary-normal-read-face ((t (nil)))) - (gnus-summary-normal-ticked-face ((t (:bold t :foreground "#00CC00" :background "black")))) - (gnus-summary-normal-undownloaded-face ((t (:foreground "LightGray" :weight normal)))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (:background "#101010")))) - (gnus-x-face ((t (:background "white" :foreground "black")))) - (header-line ((t (nil)))) - (highlight ((t (:foreground "#00CC00" :background "darkgreen")))) - (ido-first-match-face ((t (:bold t :weight bold)))) - (ido-indicator-face ((t (:background "red" :foreground "yellow" :width condensed)))) - (ido-only-match-face ((t (:foreground "ForestGreen")))) - (ido-subdir-face ((t (:foreground "red")))) - (isearch ((t (:background "seagreen" :foreground "black")))) - (isearch-lazy-highlight-face ((t (:background "darkseagreen" :foreground "black")))) - (italic ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) - (menu ((t (:bold t :background "black" :foreground "green" :box (:line-width -1 :color "#606060") :weight semi-bold)))) - (message-cited-text-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) - (message-header-cc-face ((t (nil)))) - (message-header-name-face ((t (nil)))) - (message-header-newsgroups-face ((t (:bold t :foreground "#00CC00" :background "black")))) - (message-header-other-face ((t (:bold t :foreground "#00CC00" :background "black")))) - (message-header-subject-face ((t (:bold t :foreground "#00CC00" :background "black")))) - (message-header-to-face ((t (:bold t :foreground "#00CC00" :background "black")))) - (message-header-xheader-face ((t (nil)))) - (message-mml-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) - (message-separator-face ((t (nil)))) - (minibuffer-prompt ((t (:background "black" :foreground "seagreen")))) - (mode-line ((t (:bold t :background "#404040" :foreground "green" :box (:line-width -1 :color "#606060") :weight semi-bold)))) - (mode-line-inactive ((t (:bold t :weight semi-bold :box (:line-width -1 :color "#606060") :foreground "green" :background "#101010")))) - (mouse ((t (:background "black")))) - (paren-face ((t (:background "black" :foreground "darkgreen")))) - (paren-face-match ((t (:background "black" :foreground "springgreen")))) - (paren-face-mismatch ((t (:foreground "#00CC00" :background "black" :strike-through t)))) - (paren-face-no-match ((t (:background "black" :foreground "red")))) - (region ((t (:background "seagreen" :foreground "black")))) - (scroll-bar ((t (nil)))) - (secondary-selection ((t (:background "darkseagreen" :foreground "black")))) - (semantic-dirty-token-face ((t (:background "gray10")))) - (semantic-unmatched-syntax-face ((t (:underline "red")))) - (sgml-end-tag-face ((t (:foreground "seagreen")))) - (sgml-start-tag-face ((t (:foreground "seagreen")))) - (tabbar-button-face ((t (:background "black" :foreground "#00cc00" :box (:line-width 2 :color "black" :style released-button))))) - (tabbar-default-face ((t (:background "black" :foreground "#00cc00")))) - (tabbar-selected-face ((t (:background "black" :foreground "springgreen" :box (:line-width 2 :color "black" :style released-button))))) - (tabbar-separator-face ((t (:foreground "#00cc00" :background "black")))) - (tabbar-unselected-face ((t (:background "black" :foreground "seagreen" :box (:line-width 2 :color "black" :style pressed-button))))) - (tool-bar ((t (:box (:line-width 1 :style released-button))))) - (tooltip ((t (nil)))) - (trailing-whitespace ((t (:background "lightseagreen" :foreground "black")))) - (underline ((t (:foreground "#00CC00" :background "black" :underline t)))) - (variable-pitch ((t (:underline nil :foreground "#00CC00" :background "black")))) - (widget-button-face ((t (:bold t :foreground "#00CC00" :background "black")))) - (widget-button-pressed-face ((t (nil)))) - (widget-documentation-face ((t (nil)))) - (widget-field-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) - (widget-inactive-face ((t (nil)))) - (widget-single-line-field-face ((t (nil))))))) - -(defun color-theme-matrix () - "Color theme by walterh@rocketmail.com, created 2003-10-16." - (interactive) - (color-theme-install - '(color-theme-matrix - ((background-color . "black") - (background-mode . dark) - (background-toolbar-color . "bisque") - (border-color . "orange") - (bottom-toolbar-shadow-color . "#909099999999") - (cursor-color . "#7eff00") - (foreground-color . "#7eff00") - (mouse-color . "#7eff00") - (top-toolbar-shadow-color . "#ffffffffffff")) - ((help-highlight-face . underline) - (list-matching-lines-face . bold) - (rmail-highlight-face . font-lock-function-name-face) - (view-highlight-face . highlight) - (widget-mouse-face . highlight)) - (default ((t (:stipple nil :background "black" :foreground -"#7eff00" :inverse-video nil :box nil :strike-through nil :overline nil -:underline nil :slant normal :weight normal :height 90 :width normal -:family "outline-courier new")))) - (Buffer-menu-buffer-face ((t (nil)))) - (CUA-global-mark-face ((t (nil)))) - (CUA-rectangle-face ((t (nil)))) - (CUA-rectangle-noselect-face ((t (nil)))) - (Info-title-1-face ((t (nil)))) - (Info-title-2-face ((t (nil)))) - (Info-title-3-face ((t (nil)))) - (Info-title-4-face ((t (nil)))) - (antlr-font-lock-keyword-face ((t (nil)))) - (antlr-font-lock-literal-face ((t (nil)))) - (antlr-font-lock-ruledef-face ((t (nil)))) - (antlr-font-lock-ruleref-face ((t (nil)))) - (antlr-font-lock-tokendef-face ((t (nil)))) - (antlr-font-lock-tokenref-face ((t (nil)))) - (bbdb-company ((t (nil)))) - (bbdb-field-name ((t (nil)))) - (bbdb-field-value ((t (nil)))) - (bbdb-name ((t (nil)))) - (bg:erc-color-face0 ((t (nil)))) - (bg:erc-color-face1 ((t (nil)))) - (bg:erc-color-face10 ((t (nil)))) - (bg:erc-color-face11 ((t (nil)))) - (bg:erc-color-face12 ((t (nil)))) - (bg:erc-color-face13 ((t (nil)))) - (bg:erc-color-face14 ((t (nil)))) - (bg:erc-color-face15 ((t (nil)))) - (bg:erc-color-face2 ((t (nil)))) - (bg:erc-color-face3 ((t (nil)))) - (bg:erc-color-face4 ((t (nil)))) - (bg:erc-color-face5 ((t (nil)))) - (bg:erc-color-face6 ((t (nil)))) - (bg:erc-color-face7 ((t (nil)))) - (bg:erc-color-face8 ((t (nil)))) - (bg:erc-color-face9 ((t (nil)))) - (blank-space-face ((t (nil)))) - (blank-tab-face ((t (nil)))) - (blue ((t (nil)))) - (bold ((t (:bold t :weight bold)))) - (bold-italic ((t (:bold t :weight bold)))) - (border ((t (:background "orange")))) - (border-glyph ((t (nil)))) - (buffers-tab ((t (nil)))) - (button ((t (nil)))) - (calendar-today-face ((t (nil)))) - (change-log-acknowledgement-face ((t (nil)))) - (change-log-conditionals-face ((t (nil)))) - (change-log-date-face ((t (nil)))) - (change-log-email-face ((t (nil)))) - (change-log-file-face ((t (nil)))) - (change-log-function-face ((t (nil)))) - (change-log-list-face ((t (nil)))) - (change-log-name-face ((t (nil)))) - (clearcase-dired-checkedout-face ((t (nil)))) - (comint-highlight-input ((t (nil)))) - (comint-highlight-prompt ((t (nil)))) - (cparen-around-andor-face ((t (nil)))) - (cparen-around-begin-face ((t (nil)))) - (cparen-around-conditional-face ((t (nil)))) - (cparen-around-define-face ((t (nil)))) - (cparen-around-lambda-face ((t (nil)))) - (cparen-around-letdo-face ((t (nil)))) - (cparen-around-quote-face ((t (nil)))) - (cparen-around-set!-face ((t (nil)))) - (cparen-around-syntax-rules-face ((t (nil)))) - (cparen-around-vector-face ((t (nil)))) - (cparen-binding-face ((t (nil)))) - (cparen-binding-list-face ((t (nil)))) - (cparen-conditional-clause-face ((t (nil)))) - (cparen-normal-paren-face ((t (nil)))) - (cperl-array-face ((t (nil)))) - (cperl-hash-face ((t (nil)))) - (cperl-invalid-face ((t (nil)))) - (cperl-nonoverridable-face ((t (nil)))) - (cursor ((t (:background "#7eff00" :foreground "black")))) - (custom-button-face ((t (nil)))) - (custom-button-pressed-face ((t (nil)))) - (custom-changed-face ((t (nil)))) - (custom-comment-face ((t (nil)))) - (custom-comment-tag-face ((t (nil)))) - (custom-documentation-face ((t (nil)))) - (custom-face-tag-face ((t (nil)))) - (custom-group-tag-face ((t (nil)))) - (custom-group-tag-face-1 ((t (nil)))) - (custom-invalid-face ((t (nil)))) - (custom-modified-face ((t (nil)))) - (custom-rogue-face ((t (nil)))) - (custom-saved-face ((t (nil)))) - (custom-set-face ((t (nil)))) - (custom-state-face ((t (nil)))) - (custom-variable-button-face ((t (nil)))) - (custom-variable-tag-face ((t (nil)))) - (cvs-filename-face ((t (nil)))) - (cvs-handled-face ((t (nil)))) - (cvs-header-face ((t (nil)))) - (cvs-marked-face ((t (nil)))) - (cvs-msg-face ((t (nil)))) - (cvs-need-action-face ((t (nil)))) - (cvs-unknown-face ((t (nil)))) - (cyan ((t (nil)))) - (diary-face ((t (nil)))) - (diff-added-face ((t (nil)))) - (diff-changed-face ((t (nil)))) - (diff-context-face ((t (nil)))) - (diff-file-header-face ((t (nil)))) - (diff-function-face ((t (nil)))) - (diff-header-face ((t (nil)))) - (diff-hunk-header-face ((t (nil)))) - (diff-index-face ((t (nil)))) - (diff-nonexistent-face ((t (nil)))) - (diff-removed-face ((t (nil)))) - (dired-face-boring ((t (nil)))) - (dired-face-directory ((t (nil)))) - (dired-face-executable ((t (nil)))) - (dired-face-flagged ((t (nil)))) - (dired-face-header ((t (nil)))) - (dired-face-marked ((t (nil)))) - (dired-face-permissions ((t (nil)))) - (dired-face-setuid ((t (nil)))) - (dired-face-socket ((t (nil)))) - (dired-face-symlink ((t (nil)))) - (display-time-mail-balloon-enhance-face ((t (nil)))) - (display-time-mail-balloon-gnus-group-face ((t (nil)))) - (display-time-time-balloon-face ((t (nil)))) - (ebrowse-default-face ((t (nil)))) - (ebrowse-file-name-face ((t (nil)))) - (ebrowse-member-attribute-face ((t (nil)))) - (ebrowse-member-class-face ((t (nil)))) - (ebrowse-progress-face ((t (nil)))) - (ebrowse-root-class-face ((t (nil)))) - (ebrowse-tree-mark-face ((t (nil)))) - (ecb-sources-face ((t (nil)))) - (edb-inter-field-face ((t (nil)))) - (edb-normal-summary-face ((t (nil)))) - (ediff-current-diff-face-A ((t (nil)))) - (ediff-current-diff-face-Ancestor ((t (nil)))) - (ediff-current-diff-face-B ((t (nil)))) - (ediff-current-diff-face-C ((t (nil)))) - (ediff-even-diff-face-A ((t (nil)))) - (ediff-even-diff-face-Ancestor ((t (nil)))) - (ediff-even-diff-face-B ((t (nil)))) - (ediff-even-diff-face-C ((t (nil)))) - (ediff-fine-diff-face-A ((t (nil)))) - (ediff-fine-diff-face-Ancestor ((t (nil)))) - (ediff-fine-diff-face-B ((t (nil)))) - (ediff-fine-diff-face-C ((t (nil)))) - (ediff-odd-diff-face-A ((t (nil)))) - (ediff-odd-diff-face-Ancestor ((t (nil)))) - (ediff-odd-diff-face-B ((t (nil)))) - (ediff-odd-diff-face-C ((t (nil)))) - (eieio-custom-slot-tag-face ((t (nil)))) - (emacs-wiki-bad-link-face ((t (nil)))) - (emacs-wiki-link-face ((t (nil)))) - (erc-action-face ((t (nil)))) - (erc-bold-face ((t (nil)))) - (erc-current-nick-face ((t (nil)))) - (erc-dangerous-host-face ((t (nil)))) - (erc-default-face ((t (nil)))) - (erc-direct-msg-face ((t (nil)))) - (erc-error-face ((t (nil)))) - (erc-fool-face ((t (nil)))) - (erc-highlight-face ((t (nil)))) - (erc-input-face ((t (nil)))) - (erc-inverse-face ((t (nil)))) - (erc-keyword-face ((t (nil)))) - (erc-nick-default-face ((t (nil)))) - (erc-nick-msg-face ((t (nil)))) - (erc-notice-face ((t (nil)))) - (erc-pal-face ((t (nil)))) - (erc-prompt-face ((t (nil)))) - (erc-timestamp-face ((t (nil)))) - (erc-underline-face ((t (nil)))) - (eshell-ls-archive-face ((t (nil)))) - (eshell-ls-backup-face ((t (nil)))) - (eshell-ls-clutter-face ((t (nil)))) - (eshell-ls-directory-face ((t (nil)))) - (eshell-ls-executable-face ((t (nil)))) - (eshell-ls-missing-face ((t (nil)))) - (eshell-ls-picture-face ((t (nil)))) - (eshell-ls-product-face ((t (nil)))) - (eshell-ls-readonly-face ((t (nil)))) - (eshell-ls-special-face ((t (nil)))) - (eshell-ls-symlink-face ((t (nil)))) - (eshell-ls-text-face ((t (nil)))) - (eshell-ls-todo-face ((t (nil)))) - (eshell-ls-unreadable-face ((t (nil)))) - (eshell-prompt-face ((t (nil)))) - (eshell-test-failed-face ((t (nil)))) - (eshell-test-ok-face ((t (nil)))) - (excerpt ((t (nil)))) - (extra-whitespace-face ((t (nil)))) - (ff-paths-non-existant-file-face ((t (nil)))) - (fg:black ((t (nil)))) - (fg:erc-color-face0 ((t (nil)))) - (fg:erc-color-face1 ((t (nil)))) - (fg:erc-color-face10 ((t (nil)))) - (fg:erc-color-face11 ((t (nil)))) - (fg:erc-color-face12 ((t (nil)))) - (fg:erc-color-face13 ((t (nil)))) - (fg:erc-color-face14 ((t (nil)))) - (fg:erc-color-face15 ((t (nil)))) - (fg:erc-color-face2 ((t (nil)))) - (fg:erc-color-face3 ((t (nil)))) - (fg:erc-color-face4 ((t (nil)))) - (fg:erc-color-face5 ((t (nil)))) - (fg:erc-color-face6 ((t (nil)))) - (fg:erc-color-face7 ((t (nil)))) - (fg:erc-color-face8 ((t (nil)))) - (fg:erc-color-face9 ((t (nil)))) - (fixed ((t (nil)))) - (fixed-pitch ((t (nil)))) - (fl-comment-face ((t (nil)))) - (fl-function-name-face ((t (nil)))) - (fl-keyword-face ((t (nil)))) - (fl-string-face ((t (nil)))) - (fl-type-face ((t (nil)))) - (flash-paren-face-off ((t (nil)))) - (flash-paren-face-on ((t (nil)))) - (flash-paren-face-region ((t (nil)))) - (flyspell-duplicate-face ((t (nil)))) - (flyspell-incorrect-face ((t (nil)))) - (font-latex-bold-face ((t (nil)))) - (font-latex-italic-face ((t (nil)))) - (font-latex-math-face ((t (nil)))) - (font-latex-sedate-face ((t (nil)))) - (font-latex-string-face ((t (nil)))) - (font-latex-warning-face ((t (nil)))) - (font-lock-builtin-face ((t (:foreground "pink2")))) - (font-lock-comment-face ((t (:italic t :background "black" :slant -italic)))) - (font-lock-constant-face ((t (:foreground "magenta")))) - (font-lock-doc-face ((t (nil)))) - (font-lock-doc-string-face ((t (nil)))) - (font-lock-exit-face ((t (nil)))) - (font-lock-function-name-face ((t (:bold t :underline t :weight -bold)))) - (font-lock-keyword-face ((t (:foreground "yellow1")))) - (font-lock-other-emphasized-face ((t (nil)))) - (font-lock-other-type-face ((t (nil)))) - (font-lock-preprocessor-face ((t (nil)))) - (font-lock-reference-face ((t (nil)))) - (font-lock-special-comment-face ((t (nil)))) - (font-lock-special-keyword-face ((t (nil)))) - (font-lock-string-face ((t (:foreground "yellow2")))) - (font-lock-type-face ((t (:foreground "LightYellow1")))) - (font-lock-variable-name-face ((t (:foreground "light green")))) - (font-lock-warning-face ((t (nil)))) - (fringe ((t (nil)))) - (gnus-cite-attribution-face ((t (nil)))) - (gnus-cite-face-1 ((t (nil)))) - (gnus-cite-face-10 ((t (nil)))) - (gnus-cite-face-11 ((t (nil)))) - (gnus-cite-face-2 ((t (nil)))) - (gnus-cite-face-3 ((t (nil)))) - (gnus-cite-face-4 ((t (nil)))) - (gnus-cite-face-5 ((t (nil)))) - (gnus-cite-face-6 ((t (nil)))) - (gnus-cite-face-7 ((t (nil)))) - (gnus-cite-face-8 ((t (nil)))) - (gnus-cite-face-9 ((t (nil)))) - (gnus-emphasis-bold ((t (nil)))) - (gnus-emphasis-bold-italic ((t (nil)))) - (gnus-emphasis-highlight-words ((t (nil)))) - (gnus-emphasis-italic ((t (nil)))) - (gnus-emphasis-strikethru ((t (nil)))) - (gnus-emphasis-underline ((t (nil)))) - (gnus-emphasis-underline-bold ((t (nil)))) - (gnus-emphasis-underline-bold-italic ((t (nil)))) - (gnus-emphasis-underline-italic ((t (nil)))) - (gnus-filterhist-face-1 ((t (nil)))) - (gnus-group-mail-1-empty-face ((t (nil)))) - (gnus-group-mail-1-face ((t (nil)))) - (gnus-group-mail-2-empty-face ((t (nil)))) - (gnus-group-mail-2-face ((t (nil)))) - (gnus-group-mail-3-empty-face ((t (nil)))) - (gnus-group-mail-3-face ((t (nil)))) - (gnus-group-mail-low-empty-face ((t (nil)))) - (gnus-group-mail-low-face ((t (nil)))) - (gnus-group-news-1-empty-face ((t (nil)))) - (gnus-group-news-1-face ((t (nil)))) - (gnus-group-news-2-empty-face ((t (nil)))) - (gnus-group-news-2-face ((t (nil)))) - (gnus-group-news-3-empty-face ((t (nil)))) - (gnus-group-news-3-face ((t (nil)))) - (gnus-group-news-4-empty-face ((t (nil)))) - (gnus-group-news-4-face ((t (nil)))) - (gnus-group-news-5-empty-face ((t (nil)))) - (gnus-group-news-5-face ((t (nil)))) - (gnus-group-news-6-empty-face ((t (nil)))) - (gnus-group-news-6-face ((t (nil)))) - (gnus-group-news-low-empty-face ((t (nil)))) - (gnus-group-news-low-face ((t (nil)))) - (gnus-header-content-face ((t (nil)))) - (gnus-header-from-face ((t (nil)))) - (gnus-header-name-face ((t (nil)))) - (gnus-header-newsgroups-face ((t (nil)))) - (gnus-header-subject-face ((t (nil)))) - (gnus-picon-face ((t (nil)))) - (gnus-picon-xbm-face ((t (nil)))) - (gnus-picons-face ((t (nil)))) - (gnus-picons-xbm-face ((t (nil)))) - (gnus-server-agent-face ((t (nil)))) - (gnus-server-closed-face ((t (nil)))) - (gnus-server-denied-face ((t (nil)))) - (gnus-server-offline-face ((t (nil)))) - (gnus-server-opened-face ((t (nil)))) - (gnus-signature-face ((t (nil)))) - (gnus-splash ((t (nil)))) - (gnus-splash-face ((t (nil)))) - (gnus-summary-cancelled-face ((t (nil)))) - (gnus-summary-high-ancient-face ((t (nil)))) - (gnus-summary-high-read-face ((t (nil)))) - (gnus-summary-high-ticked-face ((t (nil)))) - (gnus-summary-high-undownloaded-face ((t (nil)))) - (gnus-summary-high-unread-face ((t (nil)))) - (gnus-summary-low-ancient-face ((t (nil)))) - (gnus-summary-low-read-face ((t (nil)))) - (gnus-summary-low-ticked-face ((t (nil)))) - (gnus-summary-low-undownloaded-face ((t (nil)))) - (gnus-summary-low-unread-face ((t (nil)))) - (gnus-summary-normal-ancient-face ((t (nil)))) - (gnus-summary-normal-read-face ((t (nil)))) - (gnus-summary-normal-ticked-face ((t (nil)))) - (gnus-summary-normal-undownloaded-face ((t (nil)))) - (gnus-summary-normal-unread-face ((t (nil)))) - (gnus-summary-selected-face ((t (nil)))) - (gnus-x-face ((t (nil)))) - (green ((t (nil)))) - (gui-button-face ((t (nil)))) - (gui-element ((t (nil)))) - (header-line ((t (nil)))) - (hi-black-b ((t (nil)))) - (hi-black-hb ((t (nil)))) - (hi-blue ((t (nil)))) - (hi-blue-b ((t (nil)))) - (hi-green ((t (nil)))) - (hi-green-b ((t (nil)))) - (hi-pink ((t (nil)))) - (hi-red-b ((t (nil)))) - (hi-yellow ((t (nil)))) - (highlight ((t (:background "#7eff00" :foreground "black")))) - (highlight-changes-delete-face ((t (nil)))) - (highlight-changes-face ((t (nil)))) - (highline-face ((t (nil)))) - (holiday-face ((t (nil)))) - (html-helper-bold-face ((t (nil)))) - (html-helper-bold-italic-face ((t (nil)))) - (html-helper-builtin-face ((t (nil)))) - (html-helper-italic-face ((t (nil)))) - (html-helper-underline-face ((t (nil)))) - (html-tag-face ((t (nil)))) - (hyper-apropos-documentation ((t (nil)))) - (hyper-apropos-heading ((t (nil)))) - (hyper-apropos-hyperlink ((t (nil)))) - (hyper-apropos-major-heading ((t (nil)))) - (hyper-apropos-section-heading ((t (nil)))) - (hyper-apropos-warning ((t (nil)))) - (ibuffer-deletion-face ((t (nil)))) - (ibuffer-marked-face ((t (nil)))) - (idlwave-help-link-face ((t (nil)))) - (idlwave-shell-bp-face ((t (nil)))) - (ido-first-match-face ((t (nil)))) - (ido-indicator-face ((t (nil)))) - (ido-only-match-face ((t (nil)))) - (ido-subdir-face ((t (nil)))) - (info-header-node ((t (nil)))) - (info-header-xref ((t (nil)))) - (info-menu-5 ((t (nil)))) - (info-menu-6 ((t (nil)))) - (info-menu-header ((t (nil)))) - (info-node ((t (nil)))) - (info-xref ((t (nil)))) - (isearch ((t (nil)))) - (isearch-lazy-highlight-face ((t (nil)))) - (isearch-secondary ((t (nil)))) - (italic ((t (:underline t)))) - (jde-bug-breakpoint-cursor ((t (nil)))) - (jde-bug-breakpoint-marker ((t (nil)))) - (jde-db-active-breakpoint-face ((t (nil)))) - (jde-db-requested-breakpoint-face ((t (nil)))) - (jde-db-spec-breakpoint-face ((t (nil)))) - (jde-java-font-lock-api-face ((t (nil)))) - (jde-java-font-lock-bold-face ((t (nil)))) - (jde-java-font-lock-code-face ((t (nil)))) - (jde-java-font-lock-constant-face ((t (nil)))) - (jde-java-font-lock-doc-tag-face ((t (nil)))) - (jde-java-font-lock-italic-face ((t (nil)))) - (jde-java-font-lock-link-face ((t (nil)))) - (jde-java-font-lock-modifier-face ((t (nil)))) - (jde-java-font-lock-number-face ((t (nil)))) - (jde-java-font-lock-operator-face ((t (nil)))) - (jde-java-font-lock-package-face ((t (nil)))) - (jde-java-font-lock-pre-face ((t (nil)))) - (jde-java-font-lock-underline-face ((t (nil)))) - (lazy-highlight-face ((t (nil)))) - (left-margin ((t (nil)))) - (linemenu-face ((t (nil)))) - (list-mode-item-selected ((t (nil)))) - (log-view-file-face ((t (nil)))) - (log-view-message-face ((t (nil)))) - (magenta ((t (nil)))) - (makefile-space-face ((t (nil)))) - (man-bold ((t (nil)))) - (man-heading ((t (nil)))) - (man-italic ((t (nil)))) - (man-xref ((t (nil)))) - (menu ((t (nil)))) - (message-cited-text ((t (nil)))) - (message-cited-text-face ((t (nil)))) - (message-header-cc-face ((t (nil)))) - (message-header-contents ((t (nil)))) - (message-header-name-face ((t (nil)))) - (message-header-newsgroups-face ((t (nil)))) - (message-header-other-face ((t (nil)))) - (message-header-subject-face ((t (nil)))) - (message-header-to-face ((t (nil)))) - (message-header-xheader-face ((t (nil)))) - (message-headers ((t (nil)))) - (message-highlighted-header-contents ((t (nil)))) - (message-mml-face ((t (nil)))) - (message-separator-face ((t (nil)))) - (message-url ((t (nil)))) - (minibuffer-prompt ((t (nil)))) - (mmm-face ((t (nil)))) - (mode-line ((t (:bold t :background "gray" :foreground "black" -:weight bold)))) - (mode-line-inactive ((t (nil)))) - (modeline-buffer-id ((t (:background "orange" :foreground -"black")))) - (modeline-mousable ((t (:background "orange" :foreground -"black")))) - (modeline-mousable-minor-mode ((t (:background "orange" -:foreground "black")))) - (mouse ((t (nil)))) - (mpg123-face-cur ((t (nil)))) - (mpg123-face-slider ((t (nil)))) - (my-tab-face ((t (nil)))) - (nil ((t (nil)))) - (overlay-empty-face ((t (nil)))) - (p4-diff-del-face ((t (nil)))) - (paren-blink-off ((t (nil)))) - (paren-face ((t (nil)))) - (paren-face-match ((t (nil)))) - (paren-face-mismatch ((t (nil)))) - (paren-face-no-match ((t (nil)))) - (paren-match ((t (nil)))) - (paren-mismatch ((t (nil)))) - (paren-mismatch-face ((t (nil)))) - (paren-no-match-face ((t (nil)))) - (pointer ((t (nil)))) - (primary-selection ((t (nil)))) - (reb-match-0 ((t (nil)))) - (reb-match-1 ((t (nil)))) - (reb-match-2 ((t (nil)))) - (reb-match-3 ((t (nil)))) - (red ((t (nil)))) - (region ((t (:background "#7eff00" :foreground "black")))) - (right-margin ((t (nil)))) - (rpm-spec-dir-face ((t (nil)))) - (rpm-spec-doc-face ((t (nil)))) - (rpm-spec-ghost-face ((t (nil)))) - (rpm-spec-macro-face ((t (nil)))) - (rpm-spec-package-face ((t (nil)))) - (rpm-spec-tag-face ((t (nil)))) - (rpm-spec-var-face ((t (nil)))) - (scroll-bar ((t (nil)))) - (secondary-selection ((t (:background "orange" :foreground -"black")))) - (semantic-dirty-token-face ((t (nil)))) - (semantic-intangible-face ((t (nil)))) - (semantic-read-only-face ((t (nil)))) - (semantic-unmatched-syntax-face ((t (nil)))) - (senator-intangible-face ((t (nil)))) - (senator-momentary-highlight-face ((t (nil)))) - (senator-read-only-face ((t (nil)))) - (sgml-comment-face ((t (nil)))) - (sgml-doctype-face ((t (nil)))) - (sgml-end-tag-face ((t (nil)))) - (sgml-entity-face ((t (nil)))) - (sgml-ignored-face ((t (nil)))) - (sgml-ms-end-face ((t (nil)))) - (sgml-ms-start-face ((t (nil)))) - (sgml-pi-face ((t (nil)))) - (sgml-sgml-face ((t (nil)))) - (sgml-short-ref-face ((t (nil)))) - (sgml-shortref-face ((t (nil)))) - (sgml-start-tag-face ((t (nil)))) - (sh-heredoc-face ((t (nil)))) - (shell-option-face ((t (nil)))) - (shell-output-2-face ((t (nil)))) - (shell-output-3-face ((t (nil)))) - (shell-output-face ((t (nil)))) - (shell-prompt-face ((t (nil)))) - (show-block-face1 ((t (nil)))) - (show-block-face2 ((t (nil)))) - (show-block-face3 ((t (nil)))) - (show-block-face4 ((t (nil)))) - (show-block-face5 ((t (nil)))) - (show-block-face6 ((t (nil)))) - (show-block-face7 ((t (nil)))) - (show-block-face8 ((t (nil)))) - (show-block-face9 ((t (nil)))) - (show-paren-match-face ((t (:background "orange" :foreground -"black")))) - (show-paren-mismatch-face ((t (:underline t)))) - (show-tabs-space-face ((t (nil)))) - (show-tabs-tab-face ((t (nil)))) - (smerge-base-face ((t (nil)))) - (smerge-markers-face ((t (nil)))) - (smerge-mine-face ((t (nil)))) - (smerge-other-face ((t (nil)))) - (speedbar-button-face ((t (nil)))) - (speedbar-directory-face ((t (nil)))) - (speedbar-file-face ((t (nil)))) - (speedbar-highlight-face ((t (nil)))) - (speedbar-selected-face ((t (nil)))) - (speedbar-separator-face ((t (nil)))) - (speedbar-tag-face ((t (nil)))) - (strokes-char-face ((t (nil)))) - (swbuff-current-buffer-face ((t (nil)))) - (tabbar-button-face ((t (nil)))) - (tabbar-default-face ((t (nil)))) - (tabbar-selected-face ((t (nil)))) - (tabbar-separator-face ((t (nil)))) - (tabbar-unselected-face ((t (nil)))) - (template-message-face ((t (nil)))) - (term-black ((t (nil)))) - (term-blackbg ((t (nil)))) - (term-blue ((t (nil)))) - (term-blue-bold-face ((t (nil)))) - (term-blue-face ((t (nil)))) - (term-blue-inv-face ((t (nil)))) - (term-blue-ul-face ((t (nil)))) - (term-bluebg ((t (nil)))) - (term-bold ((t (nil)))) - (term-cyan ((t (nil)))) - (term-cyan-bold-face ((t (nil)))) - (term-cyan-face ((t (nil)))) - (term-cyan-inv-face ((t (nil)))) - (term-cyan-ul-face ((t (nil)))) - (term-cyanbg ((t (nil)))) - (term-default ((t (nil)))) - (term-default-bg ((t (nil)))) - (term-default-bg-inv ((t (nil)))) - (term-default-bold-face ((t (nil)))) - (term-default-face ((t (nil)))) - (term-default-fg ((t (nil)))) - (term-default-fg-inv ((t (nil)))) - (term-default-inv-face ((t (nil)))) - (term-default-ul-face ((t (nil)))) - (term-green ((t (nil)))) - (term-green-bold-face ((t (nil)))) - (term-green-face ((t (nil)))) - (term-green-inv-face ((t (nil)))) - (term-green-ul-face ((t (nil)))) - (term-greenbg ((t (nil)))) - (term-invisible ((t (nil)))) - (term-invisible-inv ((t (nil)))) - (term-magenta ((t (nil)))) - (term-magenta-bold-face ((t (nil)))) - (term-magenta-face ((t (nil)))) - (term-magenta-inv-face ((t (nil)))) - (term-magenta-ul-face ((t (nil)))) - (term-magentabg ((t (nil)))) - (term-red ((t (nil)))) - (term-red-bold-face ((t (nil)))) - (term-red-face ((t (nil)))) - (term-red-inv-face ((t (nil)))) - (term-red-ul-face ((t (nil)))) - (term-redbg ((t (nil)))) - (term-underline ((t (nil)))) - (term-white ((t (nil)))) - (term-white-bold-face ((t (nil)))) - (term-white-face ((t (nil)))) - (term-white-inv-face ((t (nil)))) - (term-white-ul-face ((t (nil)))) - (term-whitebg ((t (nil)))) - (term-yellow ((t (nil)))) - (term-yellow-bold-face ((t (nil)))) - (term-yellow-face ((t (nil)))) - (term-yellow-inv-face ((t (nil)))) - (term-yellow-ul-face ((t (nil)))) - (term-yellowbg ((t (nil)))) - (tex-math-face ((t (nil)))) - (texinfo-heading-face ((t (nil)))) - (text-cursor ((t (nil)))) - (tool-bar ((t (nil)))) - (tooltip ((t (nil)))) - (trailing-whitespace ((t (nil)))) - (underline ((t (:underline t)))) - (variable-pitch ((t (nil)))) - (vc-annotate-face-0046FF ((t (nil)))) - (vcursor ((t (nil)))) - (vertical-divider ((t (nil)))) - (vhdl-font-lock-attribute-face ((t (nil)))) - (vhdl-font-lock-directive-face ((t (nil)))) - (vhdl-font-lock-enumvalue-face ((t (nil)))) - (vhdl-font-lock-function-face ((t (nil)))) - (vhdl-font-lock-generic-/constant-face ((t (nil)))) - (vhdl-font-lock-prompt-face ((t (nil)))) - (vhdl-font-lock-reserved-words-face ((t (nil)))) - (vhdl-font-lock-translate-off-face ((t (nil)))) - (vhdl-font-lock-type-face ((t (nil)))) - (vhdl-font-lock-variable-face ((t (nil)))) - (vhdl-speedbar-architecture-face ((t (nil)))) - (vhdl-speedbar-architecture-selected-face ((t (nil)))) - (vhdl-speedbar-configuration-face ((t (nil)))) - (vhdl-speedbar-configuration-selected-face ((t (nil)))) - (vhdl-speedbar-entity-face ((t (nil)))) - (vhdl-speedbar-entity-selected-face ((t (nil)))) - (vhdl-speedbar-instantiation-face ((t (nil)))) - (vhdl-speedbar-instantiation-selected-face ((t (nil)))) - (vhdl-speedbar-package-face ((t (nil)))) - (vhdl-speedbar-package-selected-face ((t (nil)))) - (vhdl-speedbar-subprogram-face ((t (nil)))) - (viper-minibuffer-emacs-face ((t (nil)))) - (viper-minibuffer-insert-face ((t (nil)))) - (viper-minibuffer-vi-face ((t (nil)))) - (viper-replace-overlay-face ((t (nil)))) - (viper-search-face ((t (nil)))) - (vm-xface ((t (nil)))) - (vmpc-pre-sig-face ((t (nil)))) - (vmpc-sig-face ((t (nil)))) - (w3m-anchor-face ((t (nil)))) - (w3m-arrived-anchor-face ((t (nil)))) - (w3m-header-line-location-content-face ((t (nil)))) - (w3m-header-line-location-title-face ((t (nil)))) - (white ((t (nil)))) - (widget ((t (nil)))) - (widget-button-face ((t (nil)))) - (widget-button-pressed-face ((t (nil)))) - (widget-documentation-face ((t (nil)))) - (widget-field-face ((t (nil)))) - (widget-inactive-face ((t (nil)))) - (widget-single-line-field-face ((t (nil)))) - (woman-addition-face ((t (nil)))) - (woman-bold-face ((t (nil)))) - (woman-italic-face ((t (nil)))) - (woman-unknown-face ((t (nil)))) - (x-face ((t (nil)))) - (xrdb-option-name-face ((t (nil)))) - (xref-keyword-face ((t (nil)))) - (xref-list-default-face ((t (nil)))) - (xref-list-pilot-face ((t (nil)))) - (xref-list-symbol-face ((t (nil)))) - (yellow ((t (nil)))) - (zmacs-region ((t (nil))))))) - -(defun color-theme-feng-shui () - "Color theme by walterh@rocketmail.com (www.xanadb.com), created - 2003-10-16. Evolved from color-theme-katester" - (interactive) - (color-theme-install - '(color-theme-feng-shui - ((background-color . "ivory") - (background-mode . light) - (border-color . "black") - (cursor-color . "slateblue") - (foreground-color . "black") - (mouse-color . "slateblue")) - ((help-highlight-face . underline) - (list-matching-lines-face . bold) - (view-highlight-face . highlight) - (widget-mouse-face . highlight)) - (default ((t (:stipple nil :background "ivory" :foreground "black" -:inverse-video nil :box nil :strike-through nil :overline nil -:underline nil :slant normal :weight normal :height 90 :width normal -:family "outline-courier new")))) - (bold ((t (:bold t :weight bold)))) - (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) - (border ((t (:background "black")))) - (cursor ((t (:background "slateblue" :foreground "black")))) - (fixed-pitch ((t (:family "courier")))) - (font-lock-builtin-face ((t (:foreground "black")))) - (font-lock-comment-face ((t (:italic t :background "seashell" -:slant italic)))) - (font-lock-constant-face ((t (:foreground "darkblue")))) - (font-lock-doc-face ((t (:background "lemonChiffon")))) - (font-lock-function-name-face ((t (:bold t :underline t :weight -bold)))) - (font-lock-keyword-face ((t (:foreground "blue")))) - (font-lock-string-face ((t (:background "lemonChiffon")))) - (font-lock-type-face ((t (:foreground "black")))) - (font-lock-variable-name-face ((t (:foreground "black")))) - (font-lock-warning-face ((t (:bold t :foreground "Red" :weight -bold)))) - (fringe ((t (:background "grey95")))) - (header-line ((t (:bold t :weight bold :underline t :background -"grey90" :foreground "grey20" :box nil)))) - (highlight ((t (:background "mistyRose" :foreground "black")))) - (isearch ((t (:background "magenta4" :foreground -"lightskyblue1")))) - (isearch-lazy-highlight-face ((t (:background "paleturquoise")))) - (italic ((t (:italic t :slant italic)))) - (menu ((t (nil)))) - (mode-line ((t (:bold t :background "mistyRose" :foreground "navy" -:underline t :weight bold)))) - (mouse ((t (:background "slateblue")))) - (region ((t (:background "lavender" :foreground "black")))) - (scroll-bar ((t (nil)))) - (secondary-selection ((t (:background "yellow")))) - (tool-bar ((t (:background "grey75" :foreground "black" :box -(:line-width 1 :style released-button))))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv")))) - (widget-button-face ((t (:bold t :weight bold)))) - (widget-button-pressed-face ((t (:foreground "red")))) - (widget-documentation-face ((t (:foreground "dark green")))) - (widget-field-face ((t (:background "gray85")))) - (widget-inactive-face ((t (:foreground "dim gray")))) - (widget-single-line-field-face ((t (:background "gray85"))))))) - -(provide 'color-theme) - -;;; color-theme.el ends here diff --git a/emacs.d/vendor/js2.el b/emacs.d/vendor/js2.el deleted file mode 100644 index a624bcb8ef..0000000000 --- a/emacs.d/vendor/js2.el +++ /dev/null @@ -1,11659 +0,0 @@ -;;; js2.el -- an improved JavaScript editing mode -;;; -;;; This file was auto-generated on Mon Jun 16 01:46:45 2008 from files: -;;; js2-vars.el -;;; js2-util.el -;;; js2-scan.el -;;; js2-messages.el -;;; js2-ast.el -;;; js2-highlight.el -;;; js2-browse.el -;;; js2-parse.el -;;; js2-indent.el -;;; js2-mode.el - -;;; js2-mode.el --- an improved JavaScript editing mode - -;; Author: Steve Yegge (steve.yegge@gmail.com) -;; Version: 20080616 -;; Keywords: javascript languages - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2 of -;; the License, or (at your option) any later version. - -;; This program is distributed in the hope that it will be -;; useful, but WITHOUT ANY WARRANTY; without even the implied -;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -;; PURPOSE. See the GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public -;; License along with this program; if not, write to the Free -;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, -;; MA 02111-1307 USA - -;;; Commentary: - -;; This JavaScript editing mode supports: -;; -;; - the full JavaScript language through version 1.7 -;; - support for most Rhino and SpiderMonkey extensions from 1.5 to 1.7 -;; - accurate syntax highlighting using a recursive-descent parser -;; - syntax-error and strict-mode warning reporting -;; - "bouncing" line indentation to choose among alternate indentation points -;; - smart line-wrapping within comments (Emacs 22+) and strings -;; - code folding: -;; - show some or all function bodies as {...} -;; - show some or all block comments as /*...*/ -;; - context-sensitive menu bar and popup menus -;; - code browsing using the `imenu' package -;; - typing helpers (e.g. inserting matching braces/parens) -;; - many customization options -;; -;; It is only compatible with GNU Emacs versions 21 and higher (not XEmacs). -;; -;; Installation: -;; -;; - put `js2.el' somewhere in your emacs load path -;; - M-x byte-compile-file RET RET -;; Note: it will refuse to run unless byte-compiled -;; - add these lines to your .emacs file: -;; (autoload 'js2-mode "js2" nil t) -;; (add-to-list 'auto-mode-alist '("\\.js$" . js2-mode)) -;; -;; To customize how it works: -;; M-x customize-group RET js2-mode RET -;; -;; The variable `js2-mode-version' is a date stamp. When you upgrade -;; to a newer version, you must byte-compile the file again. -;; -;; Notes: -;; -;; This mode is different in many ways from standard Emacs language editing -;; modes, inasmuch as it attempts to be more like an IDE. If this drives -;; you crazy, it IS possible to customize it to be more like other Emacs -;; editing modes. Please customize the group `js2-mode' to see all of the -;; configuration options. -;; -;; Some of the functionality does not work in Emacs 21 -- upgrading to -;; Emacs 22 or higher will get you better results. If you byte-compiled -;; js2.el with Emacs 21, you should re-compile it for Emacs 22. -;; -;; Unlike cc-engine based language modes, js2-mode's line-indentation is not -;; customizable. It is a surprising amount of work to support customizable -;; indentation. The current compromise is that the tab key lets you cycle among -;; various likely indentation points, similar to the behavior of python-mode. -;; -;; This mode does not yet work with "multi-mode" modes such as mmm-mode -;; and mumamo, although it could possibly be made to do so with some effort. -;; This means that js2-mode is currently only useful for editing JavaScript -;; files, and not for editing JavaScript within - - - - -
- - -
- - - - -
-

Getting started

-

Here’s how to get rolling:

- -
    -
  1. -

    Use script/generate to create your models and controllers

    -

    To see all available options, run it without parameters.

    -
    2. - -
  2. -

    Set up a default route and remove or rename this file

    -

    Routes are set up in config/routes.rb.

    -
    3. - -
  3. -

    Create your database

    -

    Run rake db:migrate to create your database. If you're not using SQLite (the default), edit config/database.yml with your username and password.

    -
    4. -
-
-
- - -
- - \ No newline at end of file diff --git a/emacs.d/vendor/rinari/test/rails-app/public/javascripts/application.js b/emacs.d/vendor/rinari/test/rails-app/public/javascripts/application.js deleted file mode 100644 index fe4577696b..0000000000 --- a/emacs.d/vendor/rinari/test/rails-app/public/javascripts/application.js +++ /dev/null @@ -1,2 +0,0 @@ -// Place your application-specific JavaScript functions and classes here -// This file is automatically included by javascript_include_tag :defaults diff --git a/emacs.d/vendor/rinari/test/rails-app/public/javascripts/controls.js b/emacs.d/vendor/rinari/test/rails-app/public/javascripts/controls.js deleted file mode 100644 index 5aaf0bb2b7..0000000000 --- a/emacs.d/vendor/rinari/test/rails-app/public/javascripts/controls.js +++ /dev/null @@ -1,963 +0,0 @@ -// Copyright (c) 2005-2008 Thomas Fuchs (http://script.aculo.us, http://mir.aculo.us) -// (c) 2005-2007 Ivan Krstic (http://blogs.law.harvard.edu/ivan) -// (c) 2005-2007 Jon Tirsen (http://www.tirsen.com) -// Contributors: -// Richard Livsey -// Rahul Bhargava -// Rob Wills -// -// script.aculo.us is freely distributable under the terms of an MIT-style license. -// For details, see the script.aculo.us web site: http://script.aculo.us/ - -// Autocompleter.Base handles all the autocompletion functionality -// that's independent of the data source for autocompletion. This -// includes drawing the autocompletion menu, observing keyboard -// and mouse events, and similar. -// -// Specific autocompleters need to provide, at the very least, -// a getUpdatedChoices function that will be invoked every time -// the text inside the monitored textbox changes. This method -// should get the text for which to provide autocompletion by -// invoking this.getToken(), NOT by directly accessing -// this.element.value. This is to allow incremental tokenized -// autocompletion. Specific auto-completion logic (AJAX, etc) -// belongs in getUpdatedChoices. -// -// Tokenized incremental autocompletion is enabled automatically -// when an autocompleter is instantiated with the 'tokens' option -// in the options parameter, e.g.: -// new Ajax.Autocompleter('id','upd', '/url/', { tokens: ',' }); -// will incrementally autocomplete with a comma as the token. -// Additionally, ',' in the above example can be replaced with -// a token array, e.g. { tokens: [',', '\n'] } which -// enables autocompletion on multiple tokens. This is most -// useful when one of the tokens is \n (a newline), as it -// allows smart autocompletion after linebreaks. - -if(typeof Effect == 'undefined') - throw("controls.js requires including script.aculo.us' effects.js library"); - -var Autocompleter = { } -Autocompleter.Base = Class.create({ - baseInitialize: function(element, update, options) { - element = $(element) - this.element = element; - this.update = $(update); - this.hasFocus = false; - this.changed = false; - this.active = false; - this.index = 0; - this.entryCount = 0; - this.oldElementValue = this.element.value; - - if(this.setOptions) - this.setOptions(options); - else - this.options = options || { }; - - this.options.paramName = this.options.paramName || this.element.name; - this.options.tokens = this.options.tokens || []; - this.options.frequency = this.options.frequency || 0.4; - this.options.minChars = this.options.minChars || 1; - this.options.onShow = this.options.onShow || - function(element, update){ - if(!update.style.position || update.style.position=='absolute') { - update.style.position = 'absolute'; - Position.clone(element, update, { - setHeight: false, - offsetTop: element.offsetHeight - }); - } - Effect.Appear(update,{duration:0.15}); - }; - this.options.onHide = this.options.onHide || - function(element, update){ new Effect.Fade(update,{duration:0.15}) }; - - if(typeof(this.options.tokens) == 'string') - this.options.tokens = new Array(this.options.tokens); - // Force carriage returns as token delimiters anyway - if (!this.options.tokens.include('\n')) - this.options.tokens.push('\n'); - - this.observer = null; - - this.element.setAttribute('autocomplete','off'); - - Element.hide(this.update); - - Event.observe(this.element, 'blur', this.onBlur.bindAsEventListener(this)); - Event.observe(this.element, 'keydown', this.onKeyPress.bindAsEventListener(this)); - }, - - show: function() { - if(Element.getStyle(this.update, 'display')=='none') this.options.onShow(this.element, this.update); - if(!this.iefix && - (Prototype.Browser.IE) && - (Element.getStyle(this.update, 'position')=='absolute')) { - new Insertion.After(this.update, - ''); - this.iefix = $(this.update.id+'_iefix'); - } - if(this.iefix) setTimeout(this.fixIEOverlapping.bind(this), 50); - }, - - fixIEOverlapping: function() { - Position.clone(this.update, this.iefix, {setTop:(!this.update.style.height)}); - this.iefix.style.zIndex = 1; - this.update.style.zIndex = 2; - Element.show(this.iefix); - }, - - hide: function() { - this.stopIndicator(); - if(Element.getStyle(this.update, 'display')!='none') this.options.onHide(this.element, this.update); - if(this.iefix) Element.hide(this.iefix); - }, - - startIndicator: function() { - if(this.options.indicator) Element.show(this.options.indicator); - }, - - stopIndicator: function() { - if(this.options.indicator) Element.hide(this.options.indicator); - }, - - onKeyPress: function(event) { - if(this.active) - switch(event.keyCode) { - case Event.KEY_TAB: - case Event.KEY_RETURN: - this.selectEntry(); - Event.stop(event); - case Event.KEY_ESC: - this.hide(); - this.active = false; - Event.stop(event); - return; - case Event.KEY_LEFT: - case Event.KEY_RIGHT: - return; - case Event.KEY_UP: - this.markPrevious(); - this.render(); - Event.stop(event); - return; - case Event.KEY_DOWN: - this.markNext(); - this.render(); - Event.stop(event); - return; - } - else - if(event.keyCode==Event.KEY_TAB || event.keyCode==Event.KEY_RETURN || - (Prototype.Browser.WebKit > 0 && event.keyCode == 0)) return; - - this.changed = true; - this.hasFocus = true; - - if(this.observer) clearTimeout(this.observer); - this.observer = - setTimeout(this.onObserverEvent.bind(this), this.options.frequency*1000); - }, - - activate: function() { - this.changed = false; - this.hasFocus = true; - this.getUpdatedChoices(); - }, - - onHover: function(event) { - var element = Event.findElement(event, 'LI'); - if(this.index != element.autocompleteIndex) - { - this.index = element.autocompleteIndex; - this.render(); - } - Event.stop(event); - }, - - onClick: function(event) { - var element = Event.findElement(event, 'LI'); - this.index = element.autocompleteIndex; - this.selectEntry(); - this.hide(); - }, - - onBlur: function(event) { - // needed to make click events working - setTimeout(this.hide.bind(this), 250); - this.hasFocus = false; - this.active = false; - }, - - render: function() { - if(this.entryCount > 0) { - for (var i = 0; i < this.entryCount; i++) - this.index==i ? - Element.addClassName(this.getEntry(i),"selected") : - Element.removeClassName(this.getEntry(i),"selected"); - if(this.hasFocus) { - this.show(); - this.active = true; - } - } else { - this.active = false; - this.hide(); - } - }, - - markPrevious: function() { - if(this.index > 0) this.index-- - else this.index = this.entryCount-1; - this.getEntry(this.index).scrollIntoView(true); - }, - - markNext: function() { - if(this.index < this.entryCount-1) this.index++ - else this.index = 0; - this.getEntry(this.index).scrollIntoView(false); - }, - - getEntry: function(index) { - return this.update.firstChild.childNodes[index]; - }, - - getCurrentEntry: function() { - return this.getEntry(this.index); - }, - - selectEntry: function() { - this.active = false; - this.updateElement(this.getCurrentEntry()); - }, - - updateElement: function(selectedElement) { - if (this.options.updateElement) { - this.options.updateElement(selectedElement); - return; - } - var value = ''; - if (this.options.select) { - var nodes = $(selectedElement).select('.' + this.options.select) || []; - if(nodes.length>0) value = Element.collectTextNodes(nodes[0], this.options.select); - } else - value = Element.collectTextNodesIgnoreClass(selectedElement, 'informal'); - - var bounds = this.getTokenBounds(); - if (bounds[0] != -1) { - var newValue = this.element.value.substr(0, bounds[0]); - var whitespace = this.element.value.substr(bounds[0]).match(/^\s+/); - if (whitespace) - newValue += whitespace[0]; - this.element.value = newValue + value + this.element.value.substr(bounds[1]); - } else { - this.element.value = value; - } - this.oldElementValue = this.element.value; - this.element.focus(); - - if (this.options.afterUpdateElement) - this.options.afterUpdateElement(this.element, selectedElement); - }, - - updateChoices: function(choices) { - if(!this.changed && this.hasFocus) { - this.update.innerHTML = choices; - Element.cleanWhitespace(this.update); - Element.cleanWhitespace(this.update.down()); - - if(this.update.firstChild && this.update.down().childNodes) { - this.entryCount = - this.update.down().childNodes.length; - for (var i = 0; i < this.entryCount; i++) { - var entry = this.getEntry(i); - entry.autocompleteIndex = i; - this.addObservers(entry); - } - } else { - this.entryCount = 0; - } - - this.stopIndicator(); - this.index = 0; - - if(this.entryCount==1 && this.options.autoSelect) { - this.selectEntry(); - this.hide(); - } else { - this.render(); - } - } - }, - - addObservers: function(element) { - Event.observe(element, "mouseover", this.onHover.bindAsEventListener(this)); - Event.observe(element, "click", this.onClick.bindAsEventListener(this)); - }, - - onObserverEvent: function() { - this.changed = false; - this.tokenBounds = null; - if(this.getToken().length>=this.options.minChars) { - this.getUpdatedChoices(); - } else { - this.active = false; - this.hide(); - } - this.oldElementValue = this.element.value; - }, - - getToken: function() { - var bounds = this.getTokenBounds(); - return this.element.value.substring(bounds[0], bounds[1]).strip(); - }, - - getTokenBounds: function() { - if (null != this.tokenBounds) return this.tokenBounds; - var value = this.element.value; - if (value.strip().empty()) return [-1, 0]; - var diff = arguments.callee.getFirstDifferencePos(value, this.oldElementValue); - var offset = (diff == this.oldElementValue.length ? 1 : 0); - var prevTokenPos = -1, nextTokenPos = value.length; - var tp; - for (var index = 0, l = this.options.tokens.length; index < l; ++index) { - tp = value.lastIndexOf(this.options.tokens[index], diff + offset - 1); - if (tp > prevTokenPos) prevTokenPos = tp; - tp = value.indexOf(this.options.tokens[index], diff + offset); - if (-1 != tp && tp < nextTokenPos) nextTokenPos = tp; - } - return (this.tokenBounds = [prevTokenPos + 1, nextTokenPos]); - } -}); - -Autocompleter.Base.prototype.getTokenBounds.getFirstDifferencePos = function(newS, oldS) { - var boundary = Math.min(newS.length, oldS.length); - for (var index = 0; index < boundary; ++index) - if (newS[index] != oldS[index]) - return index; - return boundary; -}; - -Ajax.Autocompleter = Class.create(Autocompleter.Base, { - initialize: function(element, update, url, options) { - this.baseInitialize(element, update, options); - this.options.asynchronous = true; - this.options.onComplete = this.onComplete.bind(this); - this.options.defaultParams = this.options.parameters || null; - this.url = url; - }, - - getUpdatedChoices: function() { - this.startIndicator(); - - var entry = encodeURIComponent(this.options.paramName) + '=' + - encodeURIComponent(this.getToken()); - - this.options.parameters = this.options.callback ? - this.options.callback(this.element, entry) : entry; - - if(this.options.defaultParams) - this.options.parameters += '&' + this.options.defaultParams; - - new Ajax.Request(this.url, this.options); - }, - - onComplete: function(request) { - this.updateChoices(request.responseText); - } -}); - -// The local array autocompleter. Used when you'd prefer to -// inject an array of autocompletion options into the page, rather -// than sending out Ajax queries, which can be quite slow sometimes. -// -// The constructor takes four parameters. The first two are, as usual, -// the id of the monitored textbox, and id of the autocompletion menu. -// The third is the array you want to autocomplete from, and the fourth -// is the options block. -// -// Extra local autocompletion options: -// - choices - How many autocompletion choices to offer -// -// - partialSearch - If false, the autocompleter will match entered -// text only at the beginning of strings in the -// autocomplete array. Defaults to true, which will -// match text at the beginning of any *word* in the -// strings in the autocomplete array. If you want to -// search anywhere in the string, additionally set -// the option fullSearch to true (default: off). -// -// - fullSsearch - Search anywhere in autocomplete array strings. -// -// - partialChars - How many characters to enter before triggering -// a partial match (unlike minChars, which defines -// how many characters are required to do any match -// at all). Defaults to 2. -// -// - ignoreCase - Whether to ignore case when autocompleting. -// Defaults to true. -// -// It's possible to pass in a custom function as the 'selector' -// option, if you prefer to write your own autocompletion logic. -// In that case, the other options above will not apply unless -// you support them. - -Autocompleter.Local = Class.create(Autocompleter.Base, { - initialize: function(element, update, array, options) { - this.baseInitialize(element, update, options); - this.options.array = array; - }, - - getUpdatedChoices: function() { - this.updateChoices(this.options.selector(this)); - }, - - setOptions: function(options) { - this.options = Object.extend({ - choices: 10, - partialSearch: true, - partialChars: 2, - ignoreCase: true, - fullSearch: false, - selector: function(instance) { - var ret = []; // Beginning matches - var partial = []; // Inside matches - var entry = instance.getToken(); - var count = 0; - - for (var i = 0; i < instance.options.array.length && - ret.length < instance.options.choices ; i++) { - - var elem = instance.options.array[i]; - var foundPos = instance.options.ignoreCase ? - elem.toLowerCase().indexOf(entry.toLowerCase()) : - elem.indexOf(entry); - - while (foundPos != -1) { - if (foundPos == 0 && elem.length != entry.length) { - ret.push("
  • " + elem.substr(0, entry.length) + "" + - elem.substr(entry.length) + "
    • "); - break; - } else if (entry.length >= instance.options.partialChars && - instance.options.partialSearch && foundPos != -1) { - if (instance.options.fullSearch || /\s/.test(elem.substr(foundPos-1,1))) { - partial.push("
  • " + elem.substr(0, foundPos) + "" + - elem.substr(foundPos, entry.length) + "" + elem.substr( - foundPos + entry.length) + "
    • "); - break; - } - } - - foundPos = instance.options.ignoreCase ? - elem.toLowerCase().indexOf(entry.toLowerCase(), foundPos + 1) : - elem.indexOf(entry, foundPos + 1); - - } - } - if (partial.length) - ret = ret.concat(partial.slice(0, instance.options.choices - ret.length)) - return "
      " + ret.join('') + "
    "; - } - }, options || { }); - } -}); - -// AJAX in-place editor and collection editor -// Full rewrite by Christophe Porteneuve (April 2007). - -// Use this if you notice weird scrolling problems on some browsers, -// the DOM might be a bit confused when this gets called so do this -// waits 1 ms (with setTimeout) until it does the activation -Field.scrollFreeActivate = function(field) { - setTimeout(function() { - Field.activate(field); - }, 1); -} - -Ajax.InPlaceEditor = Class.create({ - initialize: function(element, url, options) { - this.url = url; - this.element = element = $(element); - this.prepareOptions(); - this._controls = { }; - arguments.callee.dealWithDeprecatedOptions(options); // DEPRECATION LAYER!!! - Object.extend(this.options, options || { }); - if (!this.options.formId && this.element.id) { - this.options.formId = this.element.id + '-inplaceeditor'; - if ($(this.options.formId)) - this.options.formId = ''; - } - if (this.options.externalControl) - this.options.externalControl = $(this.options.externalControl); - if (!this.options.externalControl) - this.options.externalControlOnly = false; - this._originalBackground = this.element.getStyle('background-color') || 'transparent'; - this.element.title = this.options.clickToEditText; - this._boundCancelHandler = this.handleFormCancellation.bind(this); - this._boundComplete = (this.options.onComplete || Prototype.emptyFunction).bind(this); - this._boundFailureHandler = this.handleAJAXFailure.bind(this); - this._boundSubmitHandler = this.handleFormSubmission.bind(this); - this._boundWrapperHandler = this.wrapUp.bind(this); - this.registerListeners(); - }, - checkForEscapeOrReturn: function(e) { - if (!this._editing || e.ctrlKey || e.altKey || e.shiftKey) return; - if (Event.KEY_ESC == e.keyCode) - this.handleFormCancellation(e); - else if (Event.KEY_RETURN == e.keyCode) - this.handleFormSubmission(e); - }, - createControl: function(mode, handler, extraClasses) { - var control = this.options[mode + 'Control']; - var text = this.options[mode + 'Text']; - if ('button' == control) { - var btn = document.createElement('input'); - btn.type = 'submit'; - btn.value = text; - btn.className = 'editor_' + mode + '_button'; - if ('cancel' == mode) - btn.onclick = this._boundCancelHandler; - this._form.appendChild(btn); - this._controls[mode] = btn; - } else if ('link' == control) { - var link = document.createElement('a'); - link.href = '#'; - link.appendChild(document.createTextNode(text)); - link.onclick = 'cancel' == mode ? this._boundCancelHandler : this._boundSubmitHandler; - link.className = 'editor_' + mode + '_link'; - if (extraClasses) - link.className += ' ' + extraClasses; - this._form.appendChild(link); - this._controls[mode] = link; - } - }, - createEditField: function() { - var text = (this.options.loadTextURL ? this.options.loadingText : this.getText()); - var fld; - if (1 >= this.options.rows && !/\r|\n/.test(this.getText())) { - fld = document.createElement('input'); - fld.type = 'text'; - var size = this.options.size || this.options.cols || 0; - if (0 < size) fld.size = size; - } else { - fld = document.createElement('textarea'); - fld.rows = (1 >= this.options.rows ? this.options.autoRows : this.options.rows); - fld.cols = this.options.cols || 40; - } - fld.name = this.options.paramName; - fld.value = text; // No HTML breaks conversion anymore - fld.className = 'editor_field'; - if (this.options.submitOnBlur) - fld.onblur = this._boundSubmitHandler; - this._controls.editor = fld; - if (this.options.loadTextURL) - this.loadExternalText(); - this._form.appendChild(this._controls.editor); - }, - createForm: function() { - var ipe = this; - function addText(mode, condition) { - var text = ipe.options['text' + mode + 'Controls']; - if (!text || condition === false) return; - ipe._form.appendChild(document.createTextNode(text)); - }; - this._form = $(document.createElement('form')); - this._form.id = this.options.formId; - this._form.addClassName(this.options.formClassName); - this._form.onsubmit = this._boundSubmitHandler; - this.createEditField(); - if ('textarea' == this._controls.editor.tagName.toLowerCase()) - this._form.appendChild(document.createElement('br')); - if (this.options.onFormCustomization) - this.options.onFormCustomization(this, this._form); - addText('Before', this.options.okControl || this.options.cancelControl); - this.createControl('ok', this._boundSubmitHandler); - addText('Between', this.options.okControl && this.options.cancelControl); - this.createControl('cancel', this._boundCancelHandler, 'editor_cancel'); - addText('After', this.options.okControl || this.options.cancelControl); - }, - destroy: function() { - if (this._oldInnerHTML) - this.element.innerHTML = this._oldInnerHTML; - this.leaveEditMode(); - this.unregisterListeners(); - }, - enterEditMode: function(e) { - if (this._saving || this._editing) return; - this._editing = true; - this.triggerCallback('onEnterEditMode'); - if (this.options.externalControl) - this.options.externalControl.hide(); - this.element.hide(); - this.createForm(); - this.element.parentNode.insertBefore(this._form, this.element); - if (!this.options.loadTextURL) - this.postProcessEditField(); - if (e) Event.stop(e); - }, - enterHover: function(e) { - if (this.options.hoverClassName) - this.element.addClassName(this.options.hoverClassName); - if (this._saving) return; - this.triggerCallback('onEnterHover'); - }, - getText: function() { - return this.element.innerHTML; - }, - handleAJAXFailure: function(transport) { - this.triggerCallback('onFailure', transport); - if (this._oldInnerHTML) { - this.element.innerHTML = this._oldInnerHTML; - this._oldInnerHTML = null; - } - }, - handleFormCancellation: function(e) { - this.wrapUp(); - if (e) Event.stop(e); - }, - handleFormSubmission: function(e) { - var form = this._form; - var value = $F(this._controls.editor); - this.prepareSubmission(); - var params = this.options.callback(form, value) || ''; - if (Object.isString(params)) - params = params.toQueryParams(); - params.editorId = this.element.id; - if (this.options.htmlResponse) { - var options = Object.extend({ evalScripts: true }, this.options.ajaxOptions); - Object.extend(options, { - parameters: params, - onComplete: this._boundWrapperHandler, - onFailure: this._boundFailureHandler - }); - new Ajax.Updater({ success: this.element }, this.url, options); - } else { - var options = Object.extend({ method: 'get' }, this.options.ajaxOptions); - Object.extend(options, { - parameters: params, - onComplete: this._boundWrapperHandler, - onFailure: this._boundFailureHandler - }); - new Ajax.Request(this.url, options); - } - if (e) Event.stop(e); - }, - leaveEditMode: function() { - this.element.removeClassName(this.options.savingClassName); - this.removeForm(); - this.leaveHover(); - this.element.style.backgroundColor = this._originalBackground; - this.element.show(); - if (this.options.externalControl) - this.options.externalControl.show(); - this._saving = false; - this._editing = false; - this._oldInnerHTML = null; - this.triggerCallback('onLeaveEditMode'); - }, - leaveHover: function(e) { - if (this.options.hoverClassName) - this.element.removeClassName(this.options.hoverClassName); - if (this._saving) return; - this.triggerCallback('onLeaveHover'); - }, - loadExternalText: function() { - this._form.addClassName(this.options.loadingClassName); - this._controls.editor.disabled = true; - var options = Object.extend({ method: 'get' }, this.options.ajaxOptions); - Object.extend(options, { - parameters: 'editorId=' + encodeURIComponent(this.element.id), - onComplete: Prototype.emptyFunction, - onSuccess: function(transport) { - this._form.removeClassName(this.options.loadingClassName); - var text = transport.responseText; - if (this.options.stripLoadedTextTags) - text = text.stripTags(); - this._controls.editor.value = text; - this._controls.editor.disabled = false; - this.postProcessEditField(); - }.bind(this), - onFailure: this._boundFailureHandler - }); - new Ajax.Request(this.options.loadTextURL, options); - }, - postProcessEditField: function() { - var fpc = this.options.fieldPostCreation; - if (fpc) - $(this._controls.editor)['focus' == fpc ? 'focus' : 'activate'](); - }, - prepareOptions: function() { - this.options = Object.clone(Ajax.InPlaceEditor.DefaultOptions); - Object.extend(this.options, Ajax.InPlaceEditor.DefaultCallbacks); - [this._extraDefaultOptions].flatten().compact().each(function(defs) { - Object.extend(this.options, defs); - }.bind(this)); - }, - prepareSubmission: function() { - this._saving = true; - this.removeForm(); - this.leaveHover(); - this.showSaving(); - }, - registerListeners: function() { - this._listeners = { }; - var listener; - $H(Ajax.InPlaceEditor.Listeners).each(function(pair) { - listener = this[pair.value].bind(this); - this._listeners[pair.key] = listener; - if (!this.options.externalControlOnly) - this.element.observe(pair.key, listener); - if (this.options.externalControl) - this.options.externalControl.observe(pair.key, listener); - }.bind(this)); - }, - removeForm: function() { - if (!this._form) return; - this._form.remove(); - this._form = null; - this._controls = { }; - }, - showSaving: function() { - this._oldInnerHTML = this.element.innerHTML; - this.element.innerHTML = this.options.savingText; - this.element.addClassName(this.options.savingClassName); - this.element.style.backgroundColor = this._originalBackground; - this.element.show(); - }, - triggerCallback: function(cbName, arg) { - if ('function' == typeof this.options[cbName]) { - this.options[cbName](this, arg); - } - }, - unregisterListeners: function() { - $H(this._listeners).each(function(pair) { - if (!this.options.externalControlOnly) - this.element.stopObserving(pair.key, pair.value); - if (this.options.externalControl) - this.options.externalControl.stopObserving(pair.key, pair.value); - }.bind(this)); - }, - wrapUp: function(transport) { - this.leaveEditMode(); - // Can't use triggerCallback due to backward compatibility: requires - // binding + direct element - this._boundComplete(transport, this.element); - } -}); - -Object.extend(Ajax.InPlaceEditor.prototype, { - dispose: Ajax.InPlaceEditor.prototype.destroy -}); - -Ajax.InPlaceCollectionEditor = Class.create(Ajax.InPlaceEditor, { - initialize: function($super, element, url, options) { - this._extraDefaultOptions = Ajax.InPlaceCollectionEditor.DefaultOptions; - $super(element, url, options); - }, - - createEditField: function() { - var list = document.createElement('select'); - list.name = this.options.paramName; - list.size = 1; - this._controls.editor = list; - this._collection = this.options.collection || []; - if (this.options.loadCollectionURL) - this.loadCollection(); - else - this.checkForExternalText(); - this._form.appendChild(this._controls.editor); - }, - - loadCollection: function() { - this._form.addClassName(this.options.loadingClassName); - this.showLoadingText(this.options.loadingCollectionText); - var options = Object.extend({ method: 'get' }, this.options.ajaxOptions); - Object.extend(options, { - parameters: 'editorId=' + encodeURIComponent(this.element.id), - onComplete: Prototype.emptyFunction, - onSuccess: function(transport) { - var js = transport.responseText.strip(); - if (!/^\[.*\]$/.test(js)) // TODO: improve sanity check - throw 'Server returned an invalid collection representation.'; - this._collection = eval(js); - this.checkForExternalText(); - }.bind(this), - onFailure: this.onFailure - }); - new Ajax.Request(this.options.loadCollectionURL, options); - }, - - showLoadingText: function(text) { - this._controls.editor.disabled = true; - var tempOption = this._controls.editor.firstChild; - if (!tempOption) { - tempOption = document.createElement('option'); - tempOption.value = ''; - this._controls.editor.appendChild(tempOption); - tempOption.selected = true; - } - tempOption.update((text || '').stripScripts().stripTags()); - }, - - checkForExternalText: function() { - this._text = this.getText(); - if (this.options.loadTextURL) - this.loadExternalText(); - else - this.buildOptionList(); - }, - - loadExternalText: function() { - this.showLoadingText(this.options.loadingText); - var options = Object.extend({ method: 'get' }, this.options.ajaxOptions); - Object.extend(options, { - parameters: 'editorId=' + encodeURIComponent(this.element.id), - onComplete: Prototype.emptyFunction, - onSuccess: function(transport) { - this._text = transport.responseText.strip(); - this.buildOptionList(); - }.bind(this), - onFailure: this.onFailure - }); - new Ajax.Request(this.options.loadTextURL, options); - }, - - buildOptionList: function() { - this._form.removeClassName(this.options.loadingClassName); - this._collection = this._collection.map(function(entry) { - return 2 === entry.length ? entry : [entry, entry].flatten(); - }); - var marker = ('value' in this.options) ? this.options.value : this._text; - var textFound = this._collection.any(function(entry) { - return entry[0] == marker; - }.bind(this)); - this._controls.editor.update(''); - var option; - this._collection.each(function(entry, index) { - option = document.createElement('option'); - option.value = entry[0]; - option.selected = textFound ? entry[0] == marker : 0 == index; - option.appendChild(document.createTextNode(entry[1])); - this._controls.editor.appendChild(option); - }.bind(this)); - this._controls.editor.disabled = false; - Field.scrollFreeActivate(this._controls.editor); - } -}); - -//**** DEPRECATION LAYER FOR InPlace[Collection]Editor! **** -//**** This only exists for a while, in order to let **** -//**** users adapt to the new API. Read up on the new **** -//**** API and convert your code to it ASAP! **** - -Ajax.InPlaceEditor.prototype.initialize.dealWithDeprecatedOptions = function(options) { - if (!options) return; - function fallback(name, expr) { - if (name in options || expr === undefined) return; - options[name] = expr; - }; - fallback('cancelControl', (options.cancelLink ? 'link' : (options.cancelButton ? 'button' : - options.cancelLink == options.cancelButton == false ? false : undefined))); - fallback('okControl', (options.okLink ? 'link' : (options.okButton ? 'button' : - options.okLink == options.okButton == false ? false : undefined))); - fallback('highlightColor', options.highlightcolor); - fallback('highlightEndColor', options.highlightendcolor); -}; - -Object.extend(Ajax.InPlaceEditor, { - DefaultOptions: { - ajaxOptions: { }, - autoRows: 3, // Use when multi-line w/ rows == 1 - cancelControl: 'link', // 'link'|'button'|false - cancelText: 'cancel', - clickToEditText: 'Click to edit', - externalControl: null, // id|elt - externalControlOnly: false, - fieldPostCreation: 'activate', // 'activate'|'focus'|false - formClassName: 'inplaceeditor-form', - formId: null, // id|elt - highlightColor: '#ffff99', - highlightEndColor: '#ffffff', - hoverClassName: '', - htmlResponse: true, - loadingClassName: 'inplaceeditor-loading', - loadingText: 'Loading...', - okControl: 'button', // 'link'|'button'|false - okText: 'ok', - paramName: 'value', - rows: 1, // If 1 and multi-line, uses autoRows - savingClassName: 'inplaceeditor-saving', - savingText: 'Saving...', - size: 0, - stripLoadedTextTags: false, - submitOnBlur: false, - textAfterControls: '', - textBeforeControls: '', - textBetweenControls: '' - }, - DefaultCallbacks: { - callback: function(form) { - return Form.serialize(form); - }, - onComplete: function(transport, element) { - // For backward compatibility, this one is bound to the IPE, and passes - // the element directly. It was too often customized, so we don't break it. - new Effect.Highlight(element, { - startcolor: this.options.highlightColor, keepBackgroundImage: true }); - }, - onEnterEditMode: null, - onEnterHover: function(ipe) { - ipe.element.style.backgroundColor = ipe.options.highlightColor; - if (ipe._effect) - ipe._effect.cancel(); - }, - onFailure: function(transport, ipe) { - alert('Error communication with the server: ' + transport.responseText.stripTags()); - }, - onFormCustomization: null, // Takes the IPE and its generated form, after editor, before controls. - onLeaveEditMode: null, - onLeaveHover: function(ipe) { - ipe._effect = new Effect.Highlight(ipe.element, { - startcolor: ipe.options.highlightColor, endcolor: ipe.options.highlightEndColor, - restorecolor: ipe._originalBackground, keepBackgroundImage: true - }); - } - }, - Listeners: { - click: 'enterEditMode', - keydown: 'checkForEscapeOrReturn', - mouseover: 'enterHover', - mouseout: 'leaveHover' - } -}); - -Ajax.InPlaceCollectionEditor.DefaultOptions = { - loadingCollectionText: 'Loading options...' -}; - -// Delayed observer, like Form.Element.Observer, -// but waits for delay after last key input -// Ideal for live-search fields - -Form.Element.DelayedObserver = Class.create({ - initialize: function(element, delay, callback) { - this.delay = delay || 0.5; - this.element = $(element); - this.callback = callback; - this.timer = null; - this.lastValue = $F(this.element); - Event.observe(this.element,'keyup',this.delayedListener.bindAsEventListener(this)); - }, - delayedListener: function(event) { - if(this.lastValue == $F(this.element)) return; - if(this.timer) clearTimeout(this.timer); - this.timer = setTimeout(this.onTimerEvent.bind(this), this.delay * 1000); - this.lastValue = $F(this.element); - }, - onTimerEvent: function() { - this.timer = null; - this.callback(this.element, $F(this.element)); - } -}); diff --git a/emacs.d/vendor/rinari/test/rails-app/public/javascripts/dragdrop.js b/emacs.d/vendor/rinari/test/rails-app/public/javascripts/dragdrop.js deleted file mode 100644 index bf5cfea66c..0000000000 --- a/emacs.d/vendor/rinari/test/rails-app/public/javascripts/dragdrop.js +++ /dev/null @@ -1,972 +0,0 @@ -// Copyright (c) 2005-2008 Thomas Fuchs (http://script.aculo.us, http://mir.aculo.us) -// (c) 2005-2007 Sammi Williams (http://www.oriontransfer.co.nz, sammi@oriontransfer.co.nz) -// -// script.aculo.us is freely distributable under the terms of an MIT-style license. -// For details, see the script.aculo.us web site: http://script.aculo.us/ - -if(Object.isUndefined(Effect)) - throw("dragdrop.js requires including script.aculo.us' effects.js library"); - -var Droppables = { - drops: [], - - remove: function(element) { - this.drops = this.drops.reject(function(d) { return d.element==$(element) }); - }, - - add: function(element) { - element = $(element); - var options = Object.extend({ - greedy: true, - hoverclass: null, - tree: false - }, arguments[1] || { }); - - // cache containers - if(options.containment) { - options._containers = []; - var containment = options.containment; - if(Object.isArray(containment)) { - containment.each( function(c) { options._containers.push($(c)) }); - } else { - options._containers.push($(containment)); - } - } - - if(options.accept) options.accept = [options.accept].flatten(); - - Element.makePositioned(element); // fix IE - options.element = element; - - this.drops.push(options); - }, - - findDeepestChild: function(drops) { - deepest = drops[0]; - - for (i = 1; i < drops.length; ++i) - if (Element.isParent(drops[i].element, deepest.element)) - deepest = drops[i]; - - return deepest; - }, - - isContained: function(element, drop) { - var containmentNode; - if(drop.tree) { - containmentNode = element.treeNode; - } else { - containmentNode = element.parentNode; - } - return drop._containers.detect(function(c) { return containmentNode == c }); - }, - - isAffected: function(point, element, drop) { - return ( - (drop.element!=element) && - ((!drop._containers) || - this.isContained(element, drop)) && - ((!drop.accept) || - (Element.classNames(element).detect( - function(v) { return drop.accept.include(v) } ) )) && - Position.within(drop.element, point[0], point[1]) ); - }, - - deactivate: function(drop) { - if(drop.hoverclass) - Element.removeClassName(drop.element, drop.hoverclass); - this.last_active = null; - }, - - activate: function(drop) { - if(drop.hoverclass) - Element.addClassName(drop.element, drop.hoverclass); - this.last_active = drop; - }, - - show: function(point, element) { - if(!this.drops.length) return; - var drop, affected = []; - - this.drops.each( function(drop) { - if(Droppables.isAffected(point, element, drop)) - affected.push(drop); - }); - - if(affected.length>0) - drop = Droppables.findDeepestChild(affected); - - if(this.last_active && this.last_active != drop) this.deactivate(this.last_active); - if (drop) { - Position.within(drop.element, point[0], point[1]); - if(drop.onHover) - drop.onHover(element, drop.element, Position.overlap(drop.overlap, drop.element)); - - if (drop != this.last_active) Droppables.activate(drop); - } - }, - - fire: function(event, element) { - if(!this.last_active) return; - Position.prepare(); - - if (this.isAffected([Event.pointerX(event), Event.pointerY(event)], element, this.last_active)) - if (this.last_active.onDrop) { - this.last_active.onDrop(element, this.last_active.element, event); - return true; - } - }, - - reset: function() { - if(this.last_active) - this.deactivate(this.last_active); - } -} - -var Draggables = { - drags: [], - observers: [], - - register: function(draggable) { - if(this.drags.length == 0) { - this.eventMouseUp = this.endDrag.bindAsEventListener(this); - this.eventMouseMove = this.updateDrag.bindAsEventListener(this); - this.eventKeypress = this.keyPress.bindAsEventListener(this); - - Event.observe(document, "mouseup", this.eventMouseUp); - Event.observe(document, "mousemove", this.eventMouseMove); - Event.observe(document, "keypress", this.eventKeypress); - } - this.drags.push(draggable); - }, - - unregister: function(draggable) { - this.drags = this.drags.reject(function(d) { return d==draggable }); - if(this.drags.length == 0) { - Event.stopObserving(document, "mouseup", this.eventMouseUp); - Event.stopObserving(document, "mousemove", this.eventMouseMove); - Event.stopObserving(document, "keypress", this.eventKeypress); - } - }, - - activate: function(draggable) { - if(draggable.options.delay) { - this._timeout = setTimeout(function() { - Draggables._timeout = null; - window.focus(); - Draggables.activeDraggable = draggable; - }.bind(this), draggable.options.delay); - } else { - window.focus(); // allows keypress events if window isn't currently focused, fails for Safari - this.activeDraggable = draggable; - } - }, - - deactivate: function() { - this.activeDraggable = null; - }, - - updateDrag: function(event) { - if(!this.activeDraggable) return; - var pointer = [Event.pointerX(event), Event.pointerY(event)]; - // Mozilla-based browsers fire successive mousemove events with - // the same coordinates, prevent needless redrawing (moz bug?) - if(this._lastPointer && (this._lastPointer.inspect() == pointer.inspect())) return; - this._lastPointer = pointer; - - this.activeDraggable.updateDrag(event, pointer); - }, - - endDrag: function(event) { - if(this._timeout) { - clearTimeout(this._timeout); - this._timeout = null; - } - if(!this.activeDraggable) return; - this._lastPointer = null; - this.activeDraggable.endDrag(event); - this.activeDraggable = null; - }, - - keyPress: function(event) { - if(this.activeDraggable) - this.activeDraggable.keyPress(event); - }, - - addObserver: function(observer) { - this.observers.push(observer); - this._cacheObserverCallbacks(); - }, - - removeObserver: function(element) { // element instead of observer fixes mem leaks - this.observers = this.observers.reject( function(o) { return o.element==element }); - this._cacheObserverCallbacks(); - }, - - notify: function(eventName, draggable, event) { // 'onStart', 'onEnd', 'onDrag' - if(this[eventName+'Count'] > 0) - this.observers.each( function(o) { - if(o[eventName]) o[eventName](eventName, draggable, event); - }); - if(draggable.options[eventName]) draggable.options[eventName](draggable, event); - }, - - _cacheObserverCallbacks: function() { - ['onStart','onEnd','onDrag'].each( function(eventName) { - Draggables[eventName+'Count'] = Draggables.observers.select( - function(o) { return o[eventName]; } - ).length; - }); - } -} - -/*--------------------------------------------------------------------------*/ - -var Draggable = Class.create({ - initialize: function(element) { - var defaults = { - handle: false, - reverteffect: function(element, top_offset, left_offset) { - var dur = Math.sqrt(Math.abs(top_offset^2)+Math.abs(left_offset^2))*0.02; - new Effect.Move(element, { x: -left_offset, y: -top_offset, duration: dur, - queue: {scope:'_draggable', position:'end'} - }); - }, - endeffect: function(element) { - var toOpacity = Object.isNumber(element._opacity) ? element._opacity : 1.0; - new Effect.Opacity(element, {duration:0.2, from:0.7, to:toOpacity, - queue: {scope:'_draggable', position:'end'}, - afterFinish: function(){ - Draggable._dragging[element] = false - } - }); - }, - zindex: 1000, - revert: false, - quiet: false, - scroll: false, - scrollSensitivity: 20, - scrollSpeed: 15, - snap: false, // false, or xy or [x,y] or function(x,y){ return [x,y] } - delay: 0 - }; - - if(!arguments[1] || Object.isUndefined(arguments[1].endeffect)) - Object.extend(defaults, { - starteffect: function(element) { - element._opacity = Element.getOpacity(element); - Draggable._dragging[element] = true; - new Effect.Opacity(element, {duration:0.2, from:element._opacity, to:0.7}); - } - }); - - var options = Object.extend(defaults, arguments[1] || { }); - - this.element = $(element); - - if(options.handle && Object.isString(options.handle)) - this.handle = this.element.down('.'+options.handle, 0); - - if(!this.handle) this.handle = $(options.handle); - if(!this.handle) this.handle = this.element; - - if(options.scroll && !options.scroll.scrollTo && !options.scroll.outerHTML) { - options.scroll = $(options.scroll); - this._isScrollChild = Element.childOf(this.element, options.scroll); - } - - Element.makePositioned(this.element); // fix IE - - this.options = options; - this.dragging = false; - - this.eventMouseDown = this.initDrag.bindAsEventListener(this); - Event.observe(this.handle, "mousedown", this.eventMouseDown); - - Draggables.register(this); - }, - - destroy: function() { - Event.stopObserving(this.handle, "mousedown", this.eventMouseDown); - Draggables.unregister(this); - }, - - currentDelta: function() { - return([ - parseInt(Element.getStyle(this.element,'left') || '0'), - parseInt(Element.getStyle(this.element,'top') || '0')]); - }, - - initDrag: function(event) { - if(!Object.isUndefined(Draggable._dragging[this.element]) && - Draggable._dragging[this.element]) return; - if(Event.isLeftClick(event)) { - // abort on form elements, fixes a Firefox issue - var src = Event.element(event); - if((tag_name = src.tagName.toUpperCase()) && ( - tag_name=='INPUT' || - tag_name=='SELECT' || - tag_name=='OPTION' || - tag_name=='BUTTON' || - tag_name=='TEXTAREA')) return; - - var pointer = [Event.pointerX(event), Event.pointerY(event)]; - var pos = Position.cumulativeOffset(this.element); - this.offset = [0,1].map( function(i) { return (pointer[i] - pos[i]) }); - - Draggables.activate(this); - Event.stop(event); - } - }, - - startDrag: function(event) { - this.dragging = true; - if(!this.delta) - this.delta = this.currentDelta(); - - if(this.options.zindex) { - this.originalZ = parseInt(Element.getStyle(this.element,'z-index') || 0); - this.element.style.zIndex = this.options.zindex; - } - - if(this.options.ghosting) { - this._clone = this.element.cloneNode(true); - this.element._originallyAbsolute = (this.element.getStyle('position') == 'absolute'); - if (!this.element._originallyAbsolute) - Position.absolutize(this.element); - this.element.parentNode.insertBefore(this._clone, this.element); - } - - if(this.options.scroll) { - if (this.options.scroll == window) { - var where = this._getWindowScroll(this.options.scroll); - this.originalScrollLeft = where.left; - this.originalScrollTop = where.top; - } else { - this.originalScrollLeft = this.options.scroll.scrollLeft; - this.originalScrollTop = this.options.scroll.scrollTop; - } - } - - Draggables.notify('onStart', this, event); - - if(this.options.starteffect) this.options.starteffect(this.element); - }, - - updateDrag: function(event, pointer) { - if(!this.dragging) this.startDrag(event); - - if(!this.options.quiet){ - Position.prepare(); - Droppables.show(pointer, this.element); - } - - Draggables.notify('onDrag', this, event); - - this.draw(pointer); - if(this.options.change) this.options.change(this); - - if(this.options.scroll) { - this.stopScrolling(); - - var p; - if (this.options.scroll == window) { - with(this._getWindowScroll(this.options.scroll)) { p = [ left, top, left+width, top+height ]; } - } else { - p = Position.page(this.options.scroll); - p[0] += this.options.scroll.scrollLeft + Position.deltaX; - p[1] += this.options.scroll.scrollTop + Position.deltaY; - p.push(p[0]+this.options.scroll.offsetWidth); - p.push(p[1]+this.options.scroll.offsetHeight); - } - var speed = [0,0]; - if(pointer[0] < (p[0]+this.options.scrollSensitivity)) speed[0] = pointer[0]-(p[0]+this.options.scrollSensitivity); - if(pointer[1] < (p[1]+this.options.scrollSensitivity)) speed[1] = pointer[1]-(p[1]+this.options.scrollSensitivity); - if(pointer[0] > (p[2]-this.options.scrollSensitivity)) speed[0] = pointer[0]-(p[2]-this.options.scrollSensitivity); - if(pointer[1] > (p[3]-this.options.scrollSensitivity)) speed[1] = pointer[1]-(p[3]-this.options.scrollSensitivity); - this.startScrolling(speed); - } - - // fix AppleWebKit rendering - if(Prototype.Browser.WebKit) window.scrollBy(0,0); - - Event.stop(event); - }, - - finishDrag: function(event, success) { - this.dragging = false; - - if(this.options.quiet){ - Position.prepare(); - var pointer = [Event.pointerX(event), Event.pointerY(event)]; - Droppables.show(pointer, this.element); - } - - if(this.options.ghosting) { - if (!this.element._originallyAbsolute) - Position.relativize(this.element); - delete this.element._originallyAbsolute; - Element.remove(this._clone); - this._clone = null; - } - - var dropped = false; - if(success) { - dropped = Droppables.fire(event, this.element); - if (!dropped) dropped = false; - } - if(dropped && this.options.onDropped) this.options.onDropped(this.element); - Draggables.notify('onEnd', this, event); - - var revert = this.options.revert; - if(revert && Object.isFunction(revert)) revert = revert(this.element); - - var d = this.currentDelta(); - if(revert && this.options.reverteffect) { - if (dropped == 0 || revert != 'failure') - this.options.reverteffect(this.element, - d[1]-this.delta[1], d[0]-this.delta[0]); - } else { - this.delta = d; - } - - if(this.options.zindex) - this.element.style.zIndex = this.originalZ; - - if(this.options.endeffect) - this.options.endeffect(this.element); - - Draggables.deactivate(this); - Droppables.reset(); - }, - - keyPress: function(event) { - if(event.keyCode!=Event.KEY_ESC) return; - this.finishDrag(event, false); - Event.stop(event); - }, - - endDrag: function(event) { - if(!this.dragging) return; - this.stopScrolling(); - this.finishDrag(event, true); - Event.stop(event); - }, - - draw: function(point) { - var pos = Position.cumulativeOffset(this.element); - if(this.options.ghosting) { - var r = Position.realOffset(this.element); - pos[0] += r[0] - Position.deltaX; pos[1] += r[1] - Position.deltaY; - } - - var d = this.currentDelta(); - pos[0] -= d[0]; pos[1] -= d[1]; - - if(this.options.scroll && (this.options.scroll != window && this._isScrollChild)) { - pos[0] -= this.options.scroll.scrollLeft-this.originalScrollLeft; - pos[1] -= this.options.scroll.scrollTop-this.originalScrollTop; - } - - var p = [0,1].map(function(i){ - return (point[i]-pos[i]-this.offset[i]) - }.bind(this)); - - if(this.options.snap) { - if(Object.isFunction(this.options.snap)) { - p = this.options.snap(p[0],p[1],this); - } else { - if(Object.isArray(this.options.snap)) { - p = p.map( function(v, i) { - return (v/this.options.snap[i]).round()*this.options.snap[i] }.bind(this)) - } else { - p = p.map( function(v) { - return (v/this.options.snap).round()*this.options.snap }.bind(this)) - } - }} - - var style = this.element.style; - if((!this.options.constraint) || (this.options.constraint=='horizontal')) - style.left = p[0] + "px"; - if((!this.options.constraint) || (this.options.constraint=='vertical')) - style.top = p[1] + "px"; - - if(style.visibility=="hidden") style.visibility = ""; // fix gecko rendering - }, - - stopScrolling: function() { - if(this.scrollInterval) { - clearInterval(this.scrollInterval); - this.scrollInterval = null; - Draggables._lastScrollPointer = null; - } - }, - - startScrolling: function(speed) { - if(!(speed[0] || speed[1])) return; - this.scrollSpeed = [speed[0]*this.options.scrollSpeed,speed[1]*this.options.scrollSpeed]; - this.lastScrolled = new Date(); - this.scrollInterval = setInterval(this.scroll.bind(this), 10); - }, - - scroll: function() { - var current = new Date(); - var delta = current - this.lastScrolled; - this.lastScrolled = current; - if(this.options.scroll == window) { - with (this._getWindowScroll(this.options.scroll)) { - if (this.scrollSpeed[0] || this.scrollSpeed[1]) { - var d = delta / 1000; - this.options.scroll.scrollTo( left + d*this.scrollSpeed[0], top + d*this.scrollSpeed[1] ); - } - } - } else { - this.options.scroll.scrollLeft += this.scrollSpeed[0] * delta / 1000; - this.options.scroll.scrollTop += this.scrollSpeed[1] * delta / 1000; - } - - Position.prepare(); - Droppables.show(Draggables._lastPointer, this.element); - Draggables.notify('onDrag', this); - if (this._isScrollChild) { - Draggables._lastScrollPointer = Draggables._lastScrollPointer || $A(Draggables._lastPointer); - Draggables._lastScrollPointer[0] += this.scrollSpeed[0] * delta / 1000; - Draggables._lastScrollPointer[1] += this.scrollSpeed[1] * delta / 1000; - if (Draggables._lastScrollPointer[0] < 0) - Draggables._lastScrollPointer[0] = 0; - if (Draggables._lastScrollPointer[1] < 0) - Draggables._lastScrollPointer[1] = 0; - this.draw(Draggables._lastScrollPointer); - } - - if(this.options.change) this.options.change(this); - }, - - _getWindowScroll: function(w) { - var T, L, W, H; - with (w.document) { - if (w.document.documentElement && documentElement.scrollTop) { - T = documentElement.scrollTop; - L = documentElement.scrollLeft; - } else if (w.document.body) { - T = body.scrollTop; - L = body.scrollLeft; - } - if (w.innerWidth) { - W = w.innerWidth; - H = w.innerHeight; - } else if (w.document.documentElement && documentElement.clientWidth) { - W = documentElement.clientWidth; - H = documentElement.clientHeight; - } else { - W = body.offsetWidth; - H = body.offsetHeight - } - } - return { top: T, left: L, width: W, height: H }; - } -}); - -Draggable._dragging = { }; - -/*--------------------------------------------------------------------------*/ - -var SortableObserver = Class.create({ - initialize: function(element, observer) { - this.element = $(element); - this.observer = observer; - this.lastValue = Sortable.serialize(this.element); - }, - - onStart: function() { - this.lastValue = Sortable.serialize(this.element); - }, - - onEnd: function() { - Sortable.unmark(); - if(this.lastValue != Sortable.serialize(this.element)) - this.observer(this.element) - } -}); - -var Sortable = { - SERIALIZE_RULE: /^[^_\-](?:[A-Za-z0-9\-\_]*)[_](.*)$/, - - sortables: { }, - - _findRootElement: function(element) { - while (element.tagName.toUpperCase() != "BODY") { - if(element.id && Sortable.sortables[element.id]) return element; - element = element.parentNode; - } - }, - - options: function(element) { - element = Sortable._findRootElement($(element)); - if(!element) return; - return Sortable.sortables[element.id]; - }, - - destroy: function(element){ - var s = Sortable.options(element); - - if(s) { - Draggables.removeObserver(s.element); - s.droppables.each(function(d){ Droppables.remove(d) }); - s.draggables.invoke('destroy'); - - delete Sortable.sortables[s.element.id]; - } - }, - - create: function(element) { - element = $(element); - var options = Object.extend({ - element: element, - tag: 'li', // assumes li children, override with tag: 'tagname' - dropOnEmpty: false, - tree: false, - treeTag: 'ul', - overlap: 'vertical', // one of 'vertical', 'horizontal' - constraint: 'vertical', // one of 'vertical', 'horizontal', false - containment: element, // also takes array of elements (or id's); or false - handle: false, // or a CSS class - only: false, - delay: 0, - hoverclass: null, - ghosting: false, - quiet: false, - scroll: false, - scrollSensitivity: 20, - scrollSpeed: 15, - format: this.SERIALIZE_RULE, - - // these take arrays of elements or ids and can be - // used for better initialization performance - elements: false, - handles: false, - - onChange: Prototype.emptyFunction, - onUpdate: Prototype.emptyFunction - }, arguments[1] || { }); - - // clear any old sortable with same element - this.destroy(element); - - // build options for the draggables - var options_for_draggable = { - revert: true, - quiet: options.quiet, - scroll: options.scroll, - scrollSpeed: options.scrollSpeed, - scrollSensitivity: options.scrollSensitivity, - delay: options.delay, - ghosting: options.ghosting, - constraint: options.constraint, - handle: options.handle }; - - if(options.starteffect) - options_for_draggable.starteffect = options.starteffect; - - if(options.reverteffect) - options_for_draggable.reverteffect = options.reverteffect; - else - if(options.ghosting) options_for_draggable.reverteffect = function(element) { - element.style.top = 0; - element.style.left = 0; - }; - - if(options.endeffect) - options_for_draggable.endeffect = options.endeffect; - - if(options.zindex) - options_for_draggable.zindex = options.zindex; - - // build options for the droppables - var options_for_droppable = { - overlap: options.overlap, - containment: options.containment, - tree: options.tree, - hoverclass: options.hoverclass, - onHover: Sortable.onHover - } - - var options_for_tree = { - onHover: Sortable.onEmptyHover, - overlap: options.overlap, - containment: options.containment, - hoverclass: options.hoverclass - } - - // fix for gecko engine - Element.cleanWhitespace(element); - - options.draggables = []; - options.droppables = []; - - // drop on empty handling - if(options.dropOnEmpty || options.tree) { - Droppables.add(element, options_for_tree); - options.droppables.push(element); - } - - (options.elements || this.findElements(element, options) || []).each( function(e,i) { - var handle = options.handles ? $(options.handles[i]) : - (options.handle ? $(e).select('.' + options.handle)[0] : e); - options.draggables.push( - new Draggable(e, Object.extend(options_for_draggable, { handle: handle }))); - Droppables.add(e, options_for_droppable); - if(options.tree) e.treeNode = element; - options.droppables.push(e); - }); - - if(options.tree) { - (Sortable.findTreeElements(element, options) || []).each( function(e) { - Droppables.add(e, options_for_tree); - e.treeNode = element; - options.droppables.push(e); - }); - } - - // keep reference - this.sortables[element.id] = options; - - // for onupdate - Draggables.addObserver(new SortableObserver(element, options.onUpdate)); - - }, - - // return all suitable-for-sortable elements in a guaranteed order - findElements: function(element, options) { - return Element.findChildren( - element, options.only, options.tree ? true : false, options.tag); - }, - - findTreeElements: function(element, options) { - return Element.findChildren( - element, options.only, options.tree ? true : false, options.treeTag); - }, - - onHover: function(element, dropon, overlap) { - if(Element.isParent(dropon, element)) return; - - if(overlap > .33 && overlap < .66 && Sortable.options(dropon).tree) { - return; - } else if(overlap>0.5) { - Sortable.mark(dropon, 'before'); - if(dropon.previousSibling != element) { - var oldParentNode = element.parentNode; - element.style.visibility = "hidden"; // fix gecko rendering - dropon.parentNode.insertBefore(element, dropon); - if(dropon.parentNode!=oldParentNode) - Sortable.options(oldParentNode).onChange(element); - Sortable.options(dropon.parentNode).onChange(element); - } - } else { - Sortable.mark(dropon, 'after'); - var nextElement = dropon.nextSibling || null; - if(nextElement != element) { - var oldParentNode = element.parentNode; - element.style.visibility = "hidden"; // fix gecko rendering - dropon.parentNode.insertBefore(element, nextElement); - if(dropon.parentNode!=oldParentNode) - Sortable.options(oldParentNode).onChange(element); - Sortable.options(dropon.parentNode).onChange(element); - } - } - }, - - onEmptyHover: function(element, dropon, overlap) { - var oldParentNode = element.parentNode; - var droponOptions = Sortable.options(dropon); - - if(!Element.isParent(dropon, element)) { - var index; - - var children = Sortable.findElements(dropon, {tag: droponOptions.tag, only: droponOptions.only}); - var child = null; - - if(children) { - var offset = Element.offsetSize(dropon, droponOptions.overlap) * (1.0 - overlap); - - for (index = 0; index < children.length; index += 1) { - if (offset - Element.offsetSize (children[index], droponOptions.overlap) >= 0) { - offset -= Element.offsetSize (children[index], droponOptions.overlap); - } else if (offset - (Element.offsetSize (children[index], droponOptions.overlap) / 2) >= 0) { - child = index + 1 < children.length ? children[index + 1] : null; - break; - } else { - child = children[index]; - break; - } - } - } - - dropon.insertBefore(element, child); - - Sortable.options(oldParentNode).onChange(element); - droponOptions.onChange(element); - } - }, - - unmark: function() { - if(Sortable._marker) Sortable._marker.hide(); - }, - - mark: function(dropon, position) { - // mark on ghosting only - var sortable = Sortable.options(dropon.parentNode); - if(sortable && !sortable.ghosting) return; - - if(!Sortable._marker) { - Sortable._marker = - ($('dropmarker') || Element.extend(document.createElement('DIV'))). - hide().addClassName('dropmarker').setStyle({position:'absolute'}); - document.getElementsByTagName("body").item(0).appendChild(Sortable._marker); - } - var offsets = Position.cumulativeOffset(dropon); - Sortable._marker.setStyle({left: offsets[0]+'px', top: offsets[1] + 'px'}); - - if(position=='after') - if(sortable.overlap == 'horizontal') - Sortable._marker.setStyle({left: (offsets[0]+dropon.clientWidth) + 'px'}); - else - Sortable._marker.setStyle({top: (offsets[1]+dropon.clientHeight) + 'px'}); - - Sortable._marker.show(); - }, - - _tree: function(element, options, parent) { - var children = Sortable.findElements(element, options) || []; - - for (var i = 0; i < children.length; ++i) { - var match = children[i].id.match(options.format); - - if (!match) continue; - - var child = { - id: encodeURIComponent(match ? match[1] : null), - element: element, - parent: parent, - children: [], - position: parent.children.length, - container: $(children[i]).down(options.treeTag) - } - - /* Get the element containing the children and recurse over it */ - if (child.container) - this._tree(child.container, options, child) - - parent.children.push (child); - } - - return parent; - }, - - tree: function(element) { - element = $(element); - var sortableOptions = this.options(element); - var options = Object.extend({ - tag: sortableOptions.tag, - treeTag: sortableOptions.treeTag, - only: sortableOptions.only, - name: element.id, - format: sortableOptions.format - }, arguments[1] || { }); - - var root = { - id: null, - parent: null, - children: [], - container: element, - position: 0 - } - - return Sortable._tree(element, options, root); - }, - - /* Construct a [i] index for a particular node */ - _constructIndex: function(node) { - var index = ''; - do { - if (node.id) index = '[' + node.position + ']' + index; - } while ((node = node.parent) != null); - return index; - }, - - sequence: function(element) { - element = $(element); - var options = Object.extend(this.options(element), arguments[1] || { }); - - return $(this.findElements(element, options) || []).map( function(item) { - return item.id.match(options.format) ? item.id.match(options.format)[1] : ''; - }); - }, - - setSequence: function(element, new_sequence) { - element = $(element); - var options = Object.extend(this.options(element), arguments[2] || { }); - - var nodeMap = { }; - this.findElements(element, options).each( function(n) { - if (n.id.match(options.format)) - nodeMap[n.id.match(options.format)[1]] = [n, n.parentNode]; - n.parentNode.removeChild(n); - }); - - new_sequence.each(function(ident) { - var n = nodeMap[ident]; - if (n) { - n[1].appendChild(n[0]); - delete nodeMap[ident]; - } - }); - }, - - serialize: function(element) { - element = $(element); - var options = Object.extend(Sortable.options(element), arguments[1] || { }); - var name = encodeURIComponent( - (arguments[1] && arguments[1].name) ? arguments[1].name : element.id); - - if (options.tree) { - return Sortable.tree(element, arguments[1]).children.map( function (item) { - return [name + Sortable._constructIndex(item) + "[id]=" + - encodeURIComponent(item.id)].concat(item.children.map(arguments.callee)); - }).flatten().join('&'); - } else { - return Sortable.sequence(element, arguments[1]).map( function(item) { - return name + "[]=" + encodeURIComponent(item); - }).join('&'); - } - } -} - -// Returns true if child is contained within element -Element.isParent = function(child, element) { - if (!child.parentNode || child == element) return false; - if (child.parentNode == element) return true; - return Element.isParent(child.parentNode, element); -} - -Element.findChildren = function(element, only, recursive, tagName) { - if(!element.hasChildNodes()) return null; - tagName = tagName.toUpperCase(); - if(only) only = [only].flatten(); - var elements = []; - $A(element.childNodes).each( function(e) { - if(e.tagName && e.tagName.toUpperCase()==tagName && - (!only || (Element.classNames(e).detect(function(v) { return only.include(v) })))) - elements.push(e); - if(recursive) { - var grandchildren = Element.findChildren(e, only, recursive, tagName); - if(grandchildren) elements.push(grandchildren); - } - }); - - return (elements.length>0 ? elements.flatten() : []); -} - -Element.offsetSize = function (element, type) { - return element['offset' + ((type=='vertical' || type=='height') ? 'Height' : 'Width')]; -} diff --git a/emacs.d/vendor/rinari/test/rails-app/public/javascripts/effects.js b/emacs.d/vendor/rinari/test/rails-app/public/javascripts/effects.js deleted file mode 100644 index f030b5dbe9..0000000000 --- a/emacs.d/vendor/rinari/test/rails-app/public/javascripts/effects.js +++ /dev/null @@ -1,1120 +0,0 @@ -// Copyright (c) 2005-2008 Thomas Fuchs (http://script.aculo.us, http://mir.aculo.us) -// Contributors: -// Justin Palmer (http://encytemedia.com/) -// Mark Pilgrim (http://diveintomark.org/) -// Martin Bialasinki -// -// script.aculo.us is freely distributable under the terms of an MIT-style license. -// For details, see the script.aculo.us web site: http://script.aculo.us/ - -// converts rgb() and #xxx to #xxxxxx format, -// returns self (or first argument) if not convertable -String.prototype.parseColor = function() { - var color = '#'; - if (this.slice(0,4) == 'rgb(') { - var cols = this.slice(4,this.length-1).split(','); - var i=0; do { color += parseInt(cols[i]).toColorPart() } while (++i<3); - } else { - if (this.slice(0,1) == '#') { - if (this.length==4) for(var i=1;i<4;i++) color += (this.charAt(i) + this.charAt(i)).toLowerCase(); - if (this.length==7) color = this.toLowerCase(); - } - } - return (color.length==7 ? color : (arguments[0] || this)); -}; - -/*--------------------------------------------------------------------------*/ - -Element.collectTextNodes = function(element) { - return $A($(element).childNodes).collect( function(node) { - return (node.nodeType==3 ? node.nodeValue : - (node.hasChildNodes() ? Element.collectTextNodes(node) : '')); - }).flatten().join(''); -}; - -Element.collectTextNodesIgnoreClass = function(element, className) { - return $A($(element).childNodes).collect( function(node) { - return (node.nodeType==3 ? node.nodeValue : - ((node.hasChildNodes() && !Element.hasClassName(node,className)) ? - Element.collectTextNodesIgnoreClass(node, className) : '')); - }).flatten().join(''); -}; - -Element.setContentZoom = function(element, percent) { - element = $(element); - element.setStyle({fontSize: (percent/100) + 'em'}); - if (Prototype.Browser.WebKit) window.scrollBy(0,0); - return element; -}; - -Element.getInlineOpacity = function(element){ - return $(element).style.opacity || ''; -}; - -Element.forceRerendering = function(element) { - try { - element = $(element); - var n = document.createTextNode(' '); - element.appendChild(n); - element.removeChild(n); - } catch(e) { } -}; - -/*--------------------------------------------------------------------------*/ - -var Effect = { - _elementDoesNotExistError: { - name: 'ElementDoesNotExistError', - message: 'The specified DOM element does not exist, but is required for this effect to operate' - }, - Transitions: { - linear: Prototype.K, - sinoidal: function(pos) { - return (-Math.cos(pos*Math.PI)/2) + 0.5; - }, - reverse: function(pos) { - return 1-pos; - }, - flicker: function(pos) { - var pos = ((-Math.cos(pos*Math.PI)/4) + 0.75) + Math.random()/4; - return pos > 1 ? 1 : pos; - }, - wobble: function(pos) { - return (-Math.cos(pos*Math.PI*(9*pos))/2) + 0.5; - }, - pulse: function(pos, pulses) { - pulses = pulses || 5; - return ( - ((pos % (1/pulses)) * pulses).round() == 0 ? - ((pos * pulses * 2) - (pos * pulses * 2).floor()) : - 1 - ((pos * pulses * 2) - (pos * pulses * 2).floor()) - ); - }, - spring: function(pos) { - return 1 - (Math.cos(pos * 4.5 * Math.PI) * Math.exp(-pos * 6)); - }, - none: function(pos) { - return 0; - }, - full: function(pos) { - return 1; - } - }, - DefaultOptions: { - duration: 1.0, // seconds - fps: 100, // 100= assume 66fps max. - sync: false, // true for combining - from: 0.0, - to: 1.0, - delay: 0.0, - queue: 'parallel' - }, - tagifyText: function(element) { - var tagifyStyle = 'position:relative'; - if (Prototype.Browser.IE) tagifyStyle += ';zoom:1'; - - element = $(element); - $A(element.childNodes).each( function(child) { - if (child.nodeType==3) { - child.nodeValue.toArray().each( function(character) { - element.insertBefore( - new Element('span', {style: tagifyStyle}).update( - character == ' ' ? String.fromCharCode(160) : character), - child); - }); - Element.remove(child); - } - }); - }, - multiple: function(element, effect) { - var elements; - if (((typeof element == 'object') || - Object.isFunction(element)) && - (element.length)) - elements = element; - else - elements = $(element).childNodes; - - var options = Object.extend({ - speed: 0.1, - delay: 0.0 - }, arguments[2] || { }); - var masterDelay = options.delay; - - $A(elements).each( function(element, index) { - new effect(element, Object.extend(options, { delay: index * options.speed + masterDelay })); - }); - }, - PAIRS: { - 'slide': ['SlideDown','SlideUp'], - 'blind': ['BlindDown','BlindUp'], - 'appear': ['Appear','Fade'] - }, - toggle: function(element, effect) { - element = $(element); - effect = (effect || 'appear').toLowerCase(); - var options = Object.extend({ - queue: { position:'end', scope:(element.id || 'global'), limit: 1 } - }, arguments[2] || { }); - Effect[element.visible() ? - Effect.PAIRS[effect][1] : Effect.PAIRS[effect][0]](element, options); - } -}; - -Effect.DefaultOptions.transition = Effect.Transitions.sinoidal; - -/* ------------- core effects ------------- */ - -Effect.ScopedQueue = Class.create(Enumerable, { - initialize: function() { - this.effects = []; - this.interval = null; - }, - _each: function(iterator) { - this.effects._each(iterator); - }, - add: function(effect) { - var timestamp = new Date().getTime(); - - var position = Object.isString(effect.options.queue) ? - effect.options.queue : effect.options.queue.position; - - switch(position) { - case 'front': - // move unstarted effects after this effect - this.effects.findAll(function(e){ return e.state=='idle' }).each( function(e) { - e.startOn += effect.finishOn; - e.finishOn += effect.finishOn; - }); - break; - case 'with-last': - timestamp = this.effects.pluck('startOn').max() || timestamp; - break; - case 'end': - // start effect after last queued effect has finished - timestamp = this.effects.pluck('finishOn').max() || timestamp; - break; - } - - effect.startOn += timestamp; - effect.finishOn += timestamp; - - if (!effect.options.queue.limit || (this.effects.length < effect.options.queue.limit)) - this.effects.push(effect); - - if (!this.interval) - this.interval = setInterval(this.loop.bind(this), 15); - }, - remove: function(effect) { - this.effects = this.effects.reject(function(e) { return e==effect }); - if (this.effects.length == 0) { - clearInterval(this.interval); - this.interval = null; - } - }, - loop: function() { - var timePos = new Date().getTime(); - for(var i=0, len=this.effects.length;i= this.startOn) { - if (timePos >= this.finishOn) { - this.render(1.0); - this.cancel(); - this.event('beforeFinish'); - if (this.finish) this.finish(); - this.event('afterFinish'); - return; - } - var pos = (timePos - this.startOn) / this.totalTime, - frame = (pos * this.totalFrames).round(); - if (frame > this.currentFrame) { - this.render(pos); - this.currentFrame = frame; - } - } - }, - cancel: function() { - if (!this.options.sync) - Effect.Queues.get(Object.isString(this.options.queue) ? - 'global' : this.options.queue.scope).remove(this); - this.state = 'finished'; - }, - event: function(eventName) { - if (this.options[eventName + 'Internal']) this.options[eventName + 'Internal'](this); - if (this.options[eventName]) this.options[eventName](this); - }, - inspect: function() { - var data = $H(); - for(property in this) - if (!Object.isFunction(this[property])) data.set(property, this[property]); - return '#'; - } -}); - -Effect.Parallel = Class.create(Effect.Base, { - initialize: function(effects) { - this.effects = effects || []; - this.start(arguments[1]); - }, - update: function(position) { - this.effects.invoke('render', position); - }, - finish: function(position) { - this.effects.each( function(effect) { - effect.render(1.0); - effect.cancel(); - effect.event('beforeFinish'); - if (effect.finish) effect.finish(position); - effect.event('afterFinish'); - }); - } -}); - -Effect.Tween = Class.create(Effect.Base, { - initialize: function(object, from, to) { - object = Object.isString(object) ? $(object) : object; - var args = $A(arguments), method = args.last(), - options = args.length == 5 ? args[3] : null; - this.method = Object.isFunction(method) ? method.bind(object) : - Object.isFunction(object[method]) ? object[method].bind(object) : - function(value) { object[method] = value }; - this.start(Object.extend({ from: from, to: to }, options || { })); - }, - update: function(position) { - this.method(position); - } -}); - -Effect.Event = Class.create(Effect.Base, { - initialize: function() { - this.start(Object.extend({ duration: 0 }, arguments[0] || { })); - }, - update: Prototype.emptyFunction -}); - -Effect.Opacity = Class.create(Effect.Base, { - initialize: function(element) { - this.element = $(element); - if (!this.element) throw(Effect._elementDoesNotExistError); - // make this work on IE on elements without 'layout' - if (Prototype.Browser.IE && (!this.element.currentStyle.hasLayout)) - this.element.setStyle({zoom: 1}); - var options = Object.extend({ - from: this.element.getOpacity() || 0.0, - to: 1.0 - }, arguments[1] || { }); - this.start(options); - }, - update: function(position) { - this.element.setOpacity(position); - } -}); - -Effect.Move = Class.create(Effect.Base, { - initialize: function(element) { - this.element = $(element); - if (!this.element) throw(Effect._elementDoesNotExistError); - var options = Object.extend({ - x: 0, - y: 0, - mode: 'relative' - }, arguments[1] || { }); - this.start(options); - }, - setup: function() { - this.element.makePositioned(); - this.originalLeft = parseFloat(this.element.getStyle('left') || '0'); - this.originalTop = parseFloat(this.element.getStyle('top') || '0'); - if (this.options.mode == 'absolute') { - this.options.x = this.options.x - this.originalLeft; - this.options.y = this.options.y - this.originalTop; - } - }, - update: function(position) { - this.element.setStyle({ - left: (this.options.x * position + this.originalLeft).round() + 'px', - top: (this.options.y * position + this.originalTop).round() + 'px' - }); - } -}); - -// for backwards compatibility -Effect.MoveBy = function(element, toTop, toLeft) { - return new Effect.Move(element, - Object.extend({ x: toLeft, y: toTop }, arguments[3] || { })); -}; - -Effect.Scale = Class.create(Effect.Base, { - initialize: function(element, percent) { - this.element = $(element); - if (!this.element) throw(Effect._elementDoesNotExistError); - var options = Object.extend({ - scaleX: true, - scaleY: true, - scaleContent: true, - scaleFromCenter: false, - scaleMode: 'box', // 'box' or 'contents' or { } with provided values - scaleFrom: 100.0, - scaleTo: percent - }, arguments[2] || { }); - this.start(options); - }, - setup: function() { - this.restoreAfterFinish = this.options.restoreAfterFinish || false; - this.elementPositioning = this.element.getStyle('position'); - - this.originalStyle = { }; - ['top','left','width','height','fontSize'].each( function(k) { - this.originalStyle[k] = this.element.style[k]; - }.bind(this)); - - this.originalTop = this.element.offsetTop; - this.originalLeft = this.element.offsetLeft; - - var fontSize = this.element.getStyle('font-size') || '100%'; - ['em','px','%','pt'].each( function(fontSizeType) { - if (fontSize.indexOf(fontSizeType)>0) { - this.fontSize = parseFloat(fontSize); - this.fontSizeType = fontSizeType; - } - }.bind(this)); - - this.factor = (this.options.scaleTo - this.options.scaleFrom)/100; - - this.dims = null; - if (this.options.scaleMode=='box') - this.dims = [this.element.offsetHeight, this.element.offsetWidth]; - if (/^content/.test(this.options.scaleMode)) - this.dims = [this.element.scrollHeight, this.element.scrollWidth]; - if (!this.dims) - this.dims = [this.options.scaleMode.originalHeight, - this.options.scaleMode.originalWidth]; - }, - update: function(position) { - var currentScale = (this.options.scaleFrom/100.0) + (this.factor * position); - if (this.options.scaleContent && this.fontSize) - this.element.setStyle({fontSize: this.fontSize * currentScale + this.fontSizeType }); - this.setDimensions(this.dims[0] * currentScale, this.dims[1] * currentScale); - }, - finish: function(position) { - if (this.restoreAfterFinish) this.element.setStyle(this.originalStyle); - }, - setDimensions: function(height, width) { - var d = { }; - if (this.options.scaleX) d.width = width.round() + 'px'; - if (this.options.scaleY) d.height = height.round() + 'px'; - if (this.options.scaleFromCenter) { - var topd = (height - this.dims[0])/2; - var leftd = (width - this.dims[1])/2; - if (this.elementPositioning == 'absolute') { - if (this.options.scaleY) d.top = this.originalTop-topd + 'px'; - if (this.options.scaleX) d.left = this.originalLeft-leftd + 'px'; - } else { - if (this.options.scaleY) d.top = -topd + 'px'; - if (this.options.scaleX) d.left = -leftd + 'px'; - } - } - this.element.setStyle(d); - } -}); - -Effect.Highlight = Class.create(Effect.Base, { - initialize: function(element) { - this.element = $(element); - if (!this.element) throw(Effect._elementDoesNotExistError); - var options = Object.extend({ startcolor: '#ffff99' }, arguments[1] || { }); - this.start(options); - }, - setup: function() { - // Prevent executing on elements not in the layout flow - if (this.element.getStyle('display')=='none') { this.cancel(); return; } - // Disable background image during the effect - this.oldStyle = { }; - if (!this.options.keepBackgroundImage) { - this.oldStyle.backgroundImage = this.element.getStyle('background-image'); - this.element.setStyle({backgroundImage: 'none'}); - } - if (!this.options.endcolor) - this.options.endcolor = this.element.getStyle('background-color').parseColor('#ffffff'); - if (!this.options.restorecolor) - this.options.restorecolor = this.element.getStyle('background-color'); - // init color calculations - this._base = $R(0,2).map(function(i){ return parseInt(this.options.startcolor.slice(i*2+1,i*2+3),16) }.bind(this)); - this._delta = $R(0,2).map(function(i){ return parseInt(this.options.endcolor.slice(i*2+1,i*2+3),16)-this._base[i] }.bind(this)); - }, - update: function(position) { - this.element.setStyle({backgroundColor: $R(0,2).inject('#',function(m,v,i){ - return m+((this._base[i]+(this._delta[i]*position)).round().toColorPart()); }.bind(this)) }); - }, - finish: function() { - this.element.setStyle(Object.extend(this.oldStyle, { - backgroundColor: this.options.restorecolor - })); - } -}); - -Effect.ScrollTo = function(element) { - var options = arguments[1] || { }, - scrollOffsets = document.viewport.getScrollOffsets(), - elementOffsets = $(element).cumulativeOffset(), - max = (window.height || document.body.scrollHeight) - document.viewport.getHeight(); - - if (options.offset) elementOffsets[1] += options.offset; - - return new Effect.Tween(null, - scrollOffsets.top, - elementOffsets[1] > max ? max : elementOffsets[1], - options, - function(p){ scrollTo(scrollOffsets.left, p.round()) } - ); -}; - -/* ------------- combination effects ------------- */ - -Effect.Fade = function(element) { - element = $(element); - var oldOpacity = element.getInlineOpacity(); - var options = Object.extend({ - from: element.getOpacity() || 1.0, - to: 0.0, - afterFinishInternal: function(effect) { - if (effect.options.to!=0) return; - effect.element.hide().setStyle({opacity: oldOpacity}); - } - }, arguments[1] || { }); - return new Effect.Opacity(element,options); -}; - -Effect.Appear = function(element) { - element = $(element); - var options = Object.extend({ - from: (element.getStyle('display') == 'none' ? 0.0 : element.getOpacity() || 0.0), - to: 1.0, - // force Safari to render floated elements properly - afterFinishInternal: function(effect) { - effect.element.forceRerendering(); - }, - beforeSetup: function(effect) { - effect.element.setOpacity(effect.options.from).show(); - }}, arguments[1] || { }); - return new Effect.Opacity(element,options); -}; - -Effect.Puff = function(element) { - element = $(element); - var oldStyle = { - opacity: element.getInlineOpacity(), - position: element.getStyle('position'), - top: element.style.top, - left: element.style.left, - width: element.style.width, - height: element.style.height - }; - return new Effect.Parallel( - [ new Effect.Scale(element, 200, - { sync: true, scaleFromCenter: true, scaleContent: true, restoreAfterFinish: true }), - new Effect.Opacity(element, { sync: true, to: 0.0 } ) ], - Object.extend({ duration: 1.0, - beforeSetupInternal: function(effect) { - Position.absolutize(effect.effects[0].element) - }, - afterFinishInternal: function(effect) { - effect.effects[0].element.hide().setStyle(oldStyle); } - }, arguments[1] || { }) - ); -}; - -Effect.BlindUp = function(element) { - element = $(element); - element.makeClipping(); - return new Effect.Scale(element, 0, - Object.extend({ scaleContent: false, - scaleX: false, - restoreAfterFinish: true, - afterFinishInternal: function(effect) { - effect.element.hide().undoClipping(); - } - }, arguments[1] || { }) - ); -}; - -Effect.BlindDown = function(element) { - element = $(element); - var elementDimensions = element.getDimensions(); - return new Effect.Scale(element, 100, Object.extend({ - scaleContent: false, - scaleX: false, - scaleFrom: 0, - scaleMode: {originalHeight: elementDimensions.height, originalWidth: elementDimensions.width}, - restoreAfterFinish: true, - afterSetup: function(effect) { - effect.element.makeClipping().setStyle({height: '0px'}).show(); - }, - afterFinishInternal: function(effect) { - effect.element.undoClipping(); - } - }, arguments[1] || { })); -}; - -Effect.SwitchOff = function(element) { - element = $(element); - var oldOpacity = element.getInlineOpacity(); - return new Effect.Appear(element, Object.extend({ - duration: 0.4, - from: 0, - transition: Effect.Transitions.flicker, - afterFinishInternal: function(effect) { - new Effect.Scale(effect.element, 1, { - duration: 0.3, scaleFromCenter: true, - scaleX: false, scaleContent: false, restoreAfterFinish: true, - beforeSetup: function(effect) { - effect.element.makePositioned().makeClipping(); - }, - afterFinishInternal: function(effect) { - effect.element.hide().undoClipping().undoPositioned().setStyle({opacity: oldOpacity}); - } - }) - } - }, arguments[1] || { })); -}; - -Effect.DropOut = function(element) { - element = $(element); - var oldStyle = { - top: element.getStyle('top'), - left: element.getStyle('left'), - opacity: element.getInlineOpacity() }; - return new Effect.Parallel( - [ new Effect.Move(element, {x: 0, y: 100, sync: true }), - new Effect.Opacity(element, { sync: true, to: 0.0 }) ], - Object.extend( - { duration: 0.5, - beforeSetup: function(effect) { - effect.effects[0].element.makePositioned(); - }, - afterFinishInternal: function(effect) { - effect.effects[0].element.hide().undoPositioned().setStyle(oldStyle); - } - }, arguments[1] || { })); -}; - -Effect.Shake = function(element) { - element = $(element); - var options = Object.extend({ - distance: 20, - duration: 0.5 - }, arguments[1] || {}); - var distance = parseFloat(options.distance); - var split = parseFloat(options.duration) / 10.0; - var oldStyle = { - top: element.getStyle('top'), - left: element.getStyle('left') }; - return new Effect.Move(element, - { x: distance, y: 0, duration: split, afterFinishInternal: function(effect) { - new Effect.Move(effect.element, - { x: -distance*2, y: 0, duration: split*2, afterFinishInternal: function(effect) { - new Effect.Move(effect.element, - { x: distance*2, y: 0, duration: split*2, afterFinishInternal: function(effect) { - new Effect.Move(effect.element, - { x: -distance*2, y: 0, duration: split*2, afterFinishInternal: function(effect) { - new Effect.Move(effect.element, - { x: distance*2, y: 0, duration: split*2, afterFinishInternal: function(effect) { - new Effect.Move(effect.element, - { x: -distance, y: 0, duration: split, afterFinishInternal: function(effect) { - effect.element.undoPositioned().setStyle(oldStyle); - }}) }}) }}) }}) }}) }}); -}; - -Effect.SlideDown = function(element) { - element = $(element).cleanWhitespace(); - // SlideDown need to have the content of the element wrapped in a container element with fixed height! - var oldInnerBottom = element.down().getStyle('bottom'); - var elementDimensions = element.getDimensions(); - return new Effect.Scale(element, 100, Object.extend({ - scaleContent: false, - scaleX: false, - scaleFrom: window.opera ? 0 : 1, - scaleMode: {originalHeight: elementDimensions.height, originalWidth: elementDimensions.width}, - restoreAfterFinish: true, - afterSetup: function(effect) { - effect.element.makePositioned(); - effect.element.down().makePositioned(); - if (window.opera) effect.element.setStyle({top: ''}); - effect.element.makeClipping().setStyle({height: '0px'}).show(); - }, - afterUpdateInternal: function(effect) { - effect.element.down().setStyle({bottom: - (effect.dims[0] - effect.element.clientHeight) + 'px' }); - }, - afterFinishInternal: function(effect) { - effect.element.undoClipping().undoPositioned(); - effect.element.down().undoPositioned().setStyle({bottom: oldInnerBottom}); } - }, arguments[1] || { }) - ); -}; - -Effect.SlideUp = function(element) { - element = $(element).cleanWhitespace(); - var oldInnerBottom = element.down().getStyle('bottom'); - var elementDimensions = element.getDimensions(); - return new Effect.Scale(element, window.opera ? 0 : 1, - Object.extend({ scaleContent: false, - scaleX: false, - scaleMode: 'box', - scaleFrom: 100, - scaleMode: {originalHeight: elementDimensions.height, originalWidth: elementDimensions.width}, - restoreAfterFinish: true, - afterSetup: function(effect) { - effect.element.makePositioned(); - effect.element.down().makePositioned(); - if (window.opera) effect.element.setStyle({top: ''}); - effect.element.makeClipping().show(); - }, - afterUpdateInternal: function(effect) { - effect.element.down().setStyle({bottom: - (effect.dims[0] - effect.element.clientHeight) + 'px' }); - }, - afterFinishInternal: function(effect) { - effect.element.hide().undoClipping().undoPositioned(); - effect.element.down().undoPositioned().setStyle({bottom: oldInnerBottom}); - } - }, arguments[1] || { }) - ); -}; - -// Bug in opera makes the TD containing this element expand for a instance after finish -Effect.Squish = function(element) { - return new Effect.Scale(element, window.opera ? 1 : 0, { - restoreAfterFinish: true, - beforeSetup: function(effect) { - effect.element.makeClipping(); - }, - afterFinishInternal: function(effect) { - effect.element.hide().undoClipping(); - } - }); -}; - -Effect.Grow = function(element) { - element = $(element); - var options = Object.extend({ - direction: 'center', - moveTransition: Effect.Transitions.sinoidal, - scaleTransition: Effect.Transitions.sinoidal, - opacityTransition: Effect.Transitions.full - }, arguments[1] || { }); - var oldStyle = { - top: element.style.top, - left: element.style.left, - height: element.style.height, - width: element.style.width, - opacity: element.getInlineOpacity() }; - - var dims = element.getDimensions(); - var initialMoveX, initialMoveY; - var moveX, moveY; - - switch (options.direction) { - case 'top-left': - initialMoveX = initialMoveY = moveX = moveY = 0; - break; - case 'top-right': - initialMoveX = dims.width; - initialMoveY = moveY = 0; - moveX = -dims.width; - break; - case 'bottom-left': - initialMoveX = moveX = 0; - initialMoveY = dims.height; - moveY = -dims.height; - break; - case 'bottom-right': - initialMoveX = dims.width; - initialMoveY = dims.height; - moveX = -dims.width; - moveY = -dims.height; - break; - case 'center': - initialMoveX = dims.width / 2; - initialMoveY = dims.height / 2; - moveX = -dims.width / 2; - moveY = -dims.height / 2; - break; - } - - return new Effect.Move(element, { - x: initialMoveX, - y: initialMoveY, - duration: 0.01, - beforeSetup: function(effect) { - effect.element.hide().makeClipping().makePositioned(); - }, - afterFinishInternal: function(effect) { - new Effect.Parallel( - [ new Effect.Opacity(effect.element, { sync: true, to: 1.0, from: 0.0, transition: options.opacityTransition }), - new Effect.Move(effect.element, { x: moveX, y: moveY, sync: true, transition: options.moveTransition }), - new Effect.Scale(effect.element, 100, { - scaleMode: { originalHeight: dims.height, originalWidth: dims.width }, - sync: true, scaleFrom: window.opera ? 1 : 0, transition: options.scaleTransition, restoreAfterFinish: true}) - ], Object.extend({ - beforeSetup: function(effect) { - effect.effects[0].element.setStyle({height: '0px'}).show(); - }, - afterFinishInternal: function(effect) { - effect.effects[0].element.undoClipping().undoPositioned().setStyle(oldStyle); - } - }, options) - ) - } - }); -}; - -Effect.Shrink = function(element) { - element = $(element); - var options = Object.extend({ - direction: 'center', - moveTransition: Effect.Transitions.sinoidal, - scaleTransition: Effect.Transitions.sinoidal, - opacityTransition: Effect.Transitions.none - }, arguments[1] || { }); - var oldStyle = { - top: element.style.top, - left: element.style.left, - height: element.style.height, - width: element.style.width, - opacity: element.getInlineOpacity() }; - - var dims = element.getDimensions(); - var moveX, moveY; - - switch (options.direction) { - case 'top-left': - moveX = moveY = 0; - break; - case 'top-right': - moveX = dims.width; - moveY = 0; - break; - case 'bottom-left': - moveX = 0; - moveY = dims.height; - break; - case 'bottom-right': - moveX = dims.width; - moveY = dims.height; - break; - case 'center': - moveX = dims.width / 2; - moveY = dims.height / 2; - break; - } - - return new Effect.Parallel( - [ new Effect.Opacity(element, { sync: true, to: 0.0, from: 1.0, transition: options.opacityTransition }), - new Effect.Scale(element, window.opera ? 1 : 0, { sync: true, transition: options.scaleTransition, restoreAfterFinish: true}), - new Effect.Move(element, { x: moveX, y: moveY, sync: true, transition: options.moveTransition }) - ], Object.extend({ - beforeStartInternal: function(effect) { - effect.effects[0].element.makePositioned().makeClipping(); - }, - afterFinishInternal: function(effect) { - effect.effects[0].element.hide().undoClipping().undoPositioned().setStyle(oldStyle); } - }, options) - ); -}; - -Effect.Pulsate = function(element) { - element = $(element); - var options = arguments[1] || { }; - var oldOpacity = element.getInlineOpacity(); - var transition = options.transition || Effect.Transitions.sinoidal; - var reverser = function(pos){ return transition(1-Effect.Transitions.pulse(pos, options.pulses)) }; - reverser.bind(transition); - return new Effect.Opacity(element, - Object.extend(Object.extend({ duration: 2.0, from: 0, - afterFinishInternal: function(effect) { effect.element.setStyle({opacity: oldOpacity}); } - }, options), {transition: reverser})); -}; - -Effect.Fold = function(element) { - element = $(element); - var oldStyle = { - top: element.style.top, - left: element.style.left, - width: element.style.width, - height: element.style.height }; - element.makeClipping(); - return new Effect.Scale(element, 5, Object.extend({ - scaleContent: false, - scaleX: false, - afterFinishInternal: function(effect) { - new Effect.Scale(element, 1, { - scaleContent: false, - scaleY: false, - afterFinishInternal: function(effect) { - effect.element.hide().undoClipping().setStyle(oldStyle); - } }); - }}, arguments[1] || { })); -}; - -Effect.Morph = Class.create(Effect.Base, { - initialize: function(element) { - this.element = $(element); - if (!this.element) throw(Effect._elementDoesNotExistError); - var options = Object.extend({ - style: { } - }, arguments[1] || { }); - - if (!Object.isString(options.style)) this.style = $H(options.style); - else { - if (options.style.include(':')) - this.style = options.style.parseStyle(); - else { - this.element.addClassName(options.style); - this.style = $H(this.element.getStyles()); - this.element.removeClassName(options.style); - var css = this.element.getStyles(); - this.style = this.style.reject(function(style) { - return style.value == css[style.key]; - }); - options.afterFinishInternal = function(effect) { - effect.element.addClassName(effect.options.style); - effect.transforms.each(function(transform) { - effect.element.style[transform.style] = ''; - }); - } - } - } - this.start(options); - }, - - setup: function(){ - function parseColor(color){ - if (!color || ['rgba(0, 0, 0, 0)','transparent'].include(color)) color = '#ffffff'; - color = color.parseColor(); - return $R(0,2).map(function(i){ - return parseInt( color.slice(i*2+1,i*2+3), 16 ) - }); - } - this.transforms = this.style.map(function(pair){ - var property = pair[0], value = pair[1], unit = null; - - if (value.parseColor('#zzzzzz') != '#zzzzzz') { - value = value.parseColor(); - unit = 'color'; - } else if (property == 'opacity') { - value = parseFloat(value); - if (Prototype.Browser.IE && (!this.element.currentStyle.hasLayout)) - this.element.setStyle({zoom: 1}); - } else if (Element.CSS_LENGTH.test(value)) { - var components = value.match(/^([\+\-]?[0-9\.]+)(.*)$/); - value = parseFloat(components[1]); - unit = (components.length == 3) ? components[2] : null; - } - - var originalValue = this.element.getStyle(property); - return { - style: property.camelize(), - originalValue: unit=='color' ? parseColor(originalValue) : parseFloat(originalValue || 0), - targetValue: unit=='color' ? parseColor(value) : value, - unit: unit - }; - }.bind(this)).reject(function(transform){ - return ( - (transform.originalValue == transform.targetValue) || - ( - transform.unit != 'color' && - (isNaN(transform.originalValue) || isNaN(transform.targetValue)) - ) - ) - }); - }, - update: function(position) { - var style = { }, transform, i = this.transforms.length; - while(i--) - style[(transform = this.transforms[i]).style] = - transform.unit=='color' ? '#'+ - (Math.round(transform.originalValue[0]+ - (transform.targetValue[0]-transform.originalValue[0])*position)).toColorPart() + - (Math.round(transform.originalValue[1]+ - (transform.targetValue[1]-transform.originalValue[1])*position)).toColorPart() + - (Math.round(transform.originalValue[2]+ - (transform.targetValue[2]-transform.originalValue[2])*position)).toColorPart() : - (transform.originalValue + - (transform.targetValue - transform.originalValue) * position).toFixed(3) + - (transform.unit === null ? '' : transform.unit); - this.element.setStyle(style, true); - } -}); - -Effect.Transform = Class.create({ - initialize: function(tracks){ - this.tracks = []; - this.options = arguments[1] || { }; - this.addTracks(tracks); - }, - addTracks: function(tracks){ - tracks.each(function(track){ - track = $H(track); - var data = track.values().first(); - this.tracks.push($H({ - ids: track.keys().first(), - effect: Effect.Morph, - options: { style: data } - })); - }.bind(this)); - return this; - }, - play: function(){ - return new Effect.Parallel( - this.tracks.map(function(track){ - var ids = track.get('ids'), effect = track.get('effect'), options = track.get('options'); - var elements = [$(ids) || $$(ids)].flatten(); - return elements.map(function(e){ return new effect(e, Object.extend({ sync:true }, options)) }); - }).flatten(), - this.options - ); - } -}); - -Element.CSS_PROPERTIES = $w( - 'backgroundColor backgroundPosition borderBottomColor borderBottomStyle ' + - 'borderBottomWidth borderLeftColor borderLeftStyle borderLeftWidth ' + - 'borderRightColor borderRightStyle borderRightWidth borderSpacing ' + - 'borderTopColor borderTopStyle borderTopWidth bottom clip color ' + - 'fontSize fontWeight height left letterSpacing lineHeight ' + - 'marginBottom marginLeft marginRight marginTop markerOffset maxHeight '+ - 'maxWidth minHeight minWidth opacity outlineColor outlineOffset ' + - 'outlineWidth paddingBottom paddingLeft paddingRight paddingTop ' + - 'right textIndent top width wordSpacing zIndex'); - -Element.CSS_LENGTH = /^(([\+\-]?[0-9\.]+)(em|ex|px|in|cm|mm|pt|pc|\%))|0$/; - -String.__parseStyleElement = document.createElement('div'); -String.prototype.parseStyle = function(){ - var style, styleRules = $H(); - if (Prototype.Browser.WebKit) - style = new Element('div',{style:this}).style; - else { - String.__parseStyleElement.innerHTML = '
    '; - style = String.__parseStyleElement.childNodes[0].style; - } - - Element.CSS_PROPERTIES.each(function(property){ - if (style[property]) styleRules.set(property, style[property]); - }); - - if (Prototype.Browser.IE && this.include('opacity')) - styleRules.set('opacity', this.match(/opacity:\s*((?:0|1)?(?:\.\d*)?)/)[1]); - - return styleRules; -}; - -if (document.defaultView && document.defaultView.getComputedStyle) { - Element.getStyles = function(element) { - var css = document.defaultView.getComputedStyle($(element), null); - return Element.CSS_PROPERTIES.inject({ }, function(styles, property) { - styles[property] = css[property]; - return styles; - }); - }; -} else { - Element.getStyles = function(element) { - element = $(element); - var css = element.currentStyle, styles; - styles = Element.CSS_PROPERTIES.inject({ }, function(hash, property) { - hash.set(property, css[property]); - return hash; - }); - if (!styles.opacity) styles.set('opacity', element.getOpacity()); - return styles; - }; -}; - -Effect.Methods = { - morph: function(element, style) { - element = $(element); - new Effect.Morph(element, Object.extend({ style: style }, arguments[2] || { })); - return element; - }, - visualEffect: function(element, effect, options) { - element = $(element) - var s = effect.dasherize().camelize(), klass = s.charAt(0).toUpperCase() + s.substring(1); - new Effect[klass](element, options); - return element; - }, - highlight: function(element, options) { - element = $(element); - new Effect.Highlight(element, options); - return element; - } -}; - -$w('fade appear grow shrink fold blindUp blindDown slideUp slideDown '+ - 'pulsate shake puff squish switchOff dropOut').each( - function(effect) { - Effect.Methods[effect] = function(element, options){ - element = $(element); - Effect[effect.charAt(0).toUpperCase() + effect.substring(1)](element, options); - return element; - } - } -); - -$w('getInlineOpacity forceRerendering setContentZoom collectTextNodes collectTextNodesIgnoreClass getStyles').each( - function(f) { Effect.Methods[f] = Element[f]; } -); - -Element.addMethods(Effect.Methods); diff --git a/emacs.d/vendor/rinari/test/rails-app/public/javascripts/prototype.js b/emacs.d/vendor/rinari/test/rails-app/public/javascripts/prototype.js deleted file mode 100644 index 546f9fe449..0000000000 --- a/emacs.d/vendor/rinari/test/rails-app/public/javascripts/prototype.js +++ /dev/null @@ -1,4225 +0,0 @@ -/* Prototype JavaScript framework, version 1.6.0.1 - * (c) 2005-2007 Sam Stephenson - * - * Prototype is freely distributable under the terms of an MIT-style license. - * For details, see the Prototype web site: http://www.prototypejs.org/ - * - *--------------------------------------------------------------------------*/ - -var Prototype = { - Version: '1.6.0.1', - - Browser: { - IE: !!(window.attachEvent && !window.opera), - Opera: !!window.opera, - WebKit: navigator.userAgent.indexOf('AppleWebKit/') > -1, - Gecko: navigator.userAgent.indexOf('Gecko') > -1 && navigator.userAgent.indexOf('KHTML') == -1, - MobileSafari: !!navigator.userAgent.match(/Apple.*Mobile.*Safari/) - }, - - BrowserFeatures: { - XPath: !!document.evaluate, - ElementExtensions: !!window.HTMLElement, - SpecificElementExtensions: - document.createElement('div').__proto__ && - document.createElement('div').__proto__ !== - document.createElement('form').__proto__ - }, - - ScriptFragment: ']*>([\\S\\s]*?)<\/script>', - JSONFilter: /^\/\*-secure-([\s\S]*)\*\/\s*$/, - - emptyFunction: function() { }, - K: function(x) { return x } -}; - -if (Prototype.Browser.MobileSafari) - Prototype.BrowserFeatures.SpecificElementExtensions = false; - - -/* Based on Alex Arnell's inheritance implementation. */ -var Class = { - create: function() { - var parent = null, properties = $A(arguments); - if (Object.isFunction(properties[0])) - parent = properties.shift(); - - function klass() { - this.initialize.apply(this, arguments); - } - - Object.extend(klass, Class.Methods); - klass.superclass = parent; - klass.subclasses = []; - - if (parent) { - var subclass = function() { }; - subclass.prototype = parent.prototype; - klass.prototype = new subclass; - parent.subclasses.push(klass); - } - - for (var i = 0; i < properties.length; i++) - klass.addMethods(properties[i]); - - if (!klass.prototype.initialize) - klass.prototype.initialize = Prototype.emptyFunction; - - klass.prototype.constructor = klass; - - return klass; - } -}; - -Class.Methods = { - addMethods: function(source) { - var ancestor = this.superclass && this.superclass.prototype; - var properties = Object.keys(source); - - if (!Object.keys({ toString: true }).length) - properties.push("toString", "valueOf"); - - for (var i = 0, length = properties.length; i < length; i++) { - var property = properties[i], value = source[property]; - if (ancestor && Object.isFunction(value) && - value.argumentNames().first() == "$super") { - var method = value, value = Object.extend((function(m) { - return function() { return ancestor[m].apply(this, arguments) }; - })(property).wrap(method), { - valueOf: function() { return method }, - toString: function() { return method.toString() } - }); - } - this.prototype[property] = value; - } - - return this; - } -}; - -var Abstract = { }; - -Object.extend = function(destination, source) { - for (var property in source) - destination[property] = source[property]; - return destination; -}; - -Object.extend(Object, { - inspect: function(object) { - try { - if (Object.isUndefined(object)) return 'undefined'; - if (object === null) return 'null'; - return object.inspect ? object.inspect() : object.toString(); - } catch (e) { - if (e instanceof RangeError) return '...'; - throw e; - } - }, - - toJSON: function(object) { - var type = typeof object; - switch (type) { - case 'undefined': - case 'function': - case 'unknown': return; - case 'boolean': return object.toString(); - } - - if (object === null) return 'null'; - if (object.toJSON) return object.toJSON(); - if (Object.isElement(object)) return; - - var results = []; - for (var property in object) { - var value = Object.toJSON(object[property]); - if (!Object.isUndefined(value)) - results.push(property.toJSON() + ': ' + value); - } - - return '{' + results.join(', ') + '}'; - }, - - toQueryString: function(object) { - return $H(object).toQueryString(); - }, - - toHTML: function(object) { - return object && object.toHTML ? object.toHTML() : String.interpret(object); - }, - - keys: function(object) { - var keys = []; - for (var property in object) - keys.push(property); - return keys; - }, - - values: function(object) { - var values = []; - for (var property in object) - values.push(object[property]); - return values; - }, - - clone: function(object) { - return Object.extend({ }, object); - }, - - isElement: function(object) { - return object && object.nodeType == 1; - }, - - isArray: function(object) { - return object && object.constructor === Array; - }, - - isHash: function(object) { - return object instanceof Hash; - }, - - isFunction: function(object) { - return typeof object == "function"; - }, - - isString: function(object) { - return typeof object == "string"; - }, - - isNumber: function(object) { - return typeof object == "number"; - }, - - isUndefined: function(object) { - return typeof object == "undefined"; - } -}); - -Object.extend(Function.prototype, { - argumentNames: function() { - var names = this.toString().match(/^[\s\(]*function[^(]*\((.*?)\)/)[1].split(",").invoke("strip"); - return names.length == 1 && !names[0] ? [] : names; - }, - - bind: function() { - if (arguments.length < 2 && Object.isUndefined(arguments[0])) return this; - var __method = this, args = $A(arguments), object = args.shift(); - return function() { - return __method.apply(object, args.concat($A(arguments))); - } - }, - - bindAsEventListener: function() { - var __method = this, args = $A(arguments), object = args.shift(); - return function(event) { - return __method.apply(object, [event || window.event].concat(args)); - } - }, - - curry: function() { - if (!arguments.length) return this; - var __method = this, args = $A(arguments); - return function() { - return __method.apply(this, args.concat($A(arguments))); - } - }, - - delay: function() { - var __method = this, args = $A(arguments), timeout = args.shift() * 1000; - return window.setTimeout(function() { - return __method.apply(__method, args); - }, timeout); - }, - - wrap: function(wrapper) { - var __method = this; - return function() { - return wrapper.apply(this, [__method.bind(this)].concat($A(arguments))); - } - }, - - methodize: function() { - if (this._methodized) return this._methodized; - var __method = this; - return this._methodized = function() { - return __method.apply(null, [this].concat($A(arguments))); - }; - } -}); - -Function.prototype.defer = Function.prototype.delay.curry(0.01); - -Date.prototype.toJSON = function() { - return '"' + this.getUTCFullYear() + '-' + - (this.getUTCMonth() + 1).toPaddedString(2) + '-' + - this.getUTCDate().toPaddedString(2) + 'T' + - this.getUTCHours().toPaddedString(2) + ':' + - this.getUTCMinutes().toPaddedString(2) + ':' + - this.getUTCSeconds().toPaddedString(2) + 'Z"'; -}; - -var Try = { - these: function() { - var returnValue; - - for (var i = 0, length = arguments.length; i < length; i++) { - var lambda = arguments[i]; - try { - returnValue = lambda(); - break; - } catch (e) { } - } - - return returnValue; - } -}; - -RegExp.prototype.match = RegExp.prototype.test; - -RegExp.escape = function(str) { - return String(str).replace(/([.*+?^=!:${}()|[\]\/\\])/g, '\\$1'); -}; - -/*--------------------------------------------------------------------------*/ - -var PeriodicalExecuter = Class.create({ - initialize: function(callback, frequency) { - this.callback = callback; - this.frequency = frequency; - this.currentlyExecuting = false; - - this.registerCallback(); - }, - - registerCallback: function() { - this.timer = setInterval(this.onTimerEvent.bind(this), this.frequency * 1000); - }, - - execute: function() { - this.callback(this); - }, - - stop: function() { - if (!this.timer) return; - clearInterval(this.timer); - this.timer = null; - }, - - onTimerEvent: function() { - if (!this.currentlyExecuting) { - try { - this.currentlyExecuting = true; - this.execute(); - } finally { - this.currentlyExecuting = false; - } - } - } -}); -Object.extend(String, { - interpret: function(value) { - return value == null ? '' : String(value); - }, - specialChar: { - '\b': '\\b', - '\t': '\\t', - '\n': '\\n', - '\f': '\\f', - '\r': '\\r', - '\\': '\\\\' - } -}); - -Object.extend(String.prototype, { - gsub: function(pattern, replacement) { - var result = '', source = this, match; - replacement = arguments.callee.prepareReplacement(replacement); - - while (source.length > 0) { - if (match = source.match(pattern)) { - result += source.slice(0, match.index); - result += String.interpret(replacement(match)); - source = source.slice(match.index + match[0].length); - } else { - result += source, source = ''; - } - } - return result; - }, - - sub: function(pattern, replacement, count) { - replacement = this.gsub.prepareReplacement(replacement); - count = Object.isUndefined(count) ? 1 : count; - - return this.gsub(pattern, function(match) { - if (--count < 0) return match[0]; - return replacement(match); - }); - }, - - scan: function(pattern, iterator) { - this.gsub(pattern, iterator); - return String(this); - }, - - truncate: function(length, truncation) { - length = length || 30; - truncation = Object.isUndefined(truncation) ? '...' : truncation; - return this.length > length ? - this.slice(0, length - truncation.length) + truncation : String(this); - }, - - strip: function() { - return this.replace(/^\s+/, '').replace(/\s+$/, ''); - }, - - stripTags: function() { - return this.replace(/<\/?[^>]+>/gi, ''); - }, - - stripScripts: function() { - return this.replace(new RegExp(Prototype.ScriptFragment, 'img'), ''); - }, - - extractScripts: function() { - var matchAll = new RegExp(Prototype.ScriptFragment, 'img'); - var matchOne = new RegExp(Prototype.ScriptFragment, 'im'); - return (this.match(matchAll) || []).map(function(scriptTag) { - return (scriptTag.match(matchOne) || ['', ''])[1]; - }); - }, - - evalScripts: function() { - return this.extractScripts().map(function(script) { return eval(script) }); - }, - - escapeHTML: function() { - var self = arguments.callee; - self.text.data = this; - return self.div.innerHTML; - }, - - unescapeHTML: function() { - var div = new Element('div'); - div.innerHTML = this.stripTags(); - return div.childNodes[0] ? (div.childNodes.length > 1 ? - $A(div.childNodes).inject('', function(memo, node) { return memo+node.nodeValue }) : - div.childNodes[0].nodeValue) : ''; - }, - - toQueryParams: function(separator) { - var match = this.strip().match(/([^?#]*)(#.*)?$/); - if (!match) return { }; - - return match[1].split(separator || '&').inject({ }, function(hash, pair) { - if ((pair = pair.split('='))[0]) { - var key = decodeURIComponent(pair.shift()); - var value = pair.length > 1 ? pair.join('=') : pair[0]; - if (value != undefined) value = decodeURIComponent(value); - - if (key in hash) { - if (!Object.isArray(hash[key])) hash[key] = [hash[key]]; - hash[key].push(value); - } - else hash[key] = value; - } - return hash; - }); - }, - - toArray: function() { - return this.split(''); - }, - - succ: function() { - return this.slice(0, this.length - 1) + - String.fromCharCode(this.charCodeAt(this.length - 1) + 1); - }, - - times: function(count) { - return count < 1 ? '' : new Array(count + 1).join(this); - }, - - camelize: function() { - var parts = this.split('-'), len = parts.length; - if (len == 1) return parts[0]; - - var camelized = this.charAt(0) == '-' - ? parts[0].charAt(0).toUpperCase() + parts[0].substring(1) - : parts[0]; - - for (var i = 1; i < len; i++) - camelized += parts[i].charAt(0).toUpperCase() + parts[i].substring(1); - - return camelized; - }, - - capitalize: function() { - return this.charAt(0).toUpperCase() + this.substring(1).toLowerCase(); - }, - - underscore: function() { - return this.gsub(/::/, '/').gsub(/([A-Z]+)([A-Z][a-z])/,'#{1}_#{2}').gsub(/([a-z\d])([A-Z])/,'#{1}_#{2}').gsub(/-/,'_').toLowerCase(); - }, - - dasherize: function() { - return this.gsub(/_/,'-'); - }, - - inspect: function(useDoubleQuotes) { - var escapedString = this.gsub(/[\x00-\x1f\\]/, function(match) { - var character = String.specialChar[match[0]]; - return character ? character : '\\u00' + match[0].charCodeAt().toPaddedString(2, 16); - }); - if (useDoubleQuotes) return '"' + escapedString.replace(/"/g, '\\"') + '"'; - return "'" + escapedString.replace(/'/g, '\\\'') + "'"; - }, - - toJSON: function() { - return this.inspect(true); - }, - - unfilterJSON: function(filter) { - return this.sub(filter || Prototype.JSONFilter, '#{1}'); - }, - - isJSON: function() { - var str = this; - if (str.blank()) return false; - str = this.replace(/\\./g, '@').replace(/"[^"\\\n\r]*"/g, ''); - return (/^[,:{}\[\]0-9.\-+Eaeflnr-u \n\r\t]*$/).test(str); - }, - - evalJSON: function(sanitize) { - var json = this.unfilterJSON(); - try { - if (!sanitize || json.isJSON()) return eval('(' + json + ')'); - } catch (e) { } - throw new SyntaxError('Badly formed JSON string: ' + this.inspect()); - }, - - include: function(pattern) { - return this.indexOf(pattern) > -1; - }, - - startsWith: function(pattern) { - return this.indexOf(pattern) === 0; - }, - - endsWith: function(pattern) { - var d = this.length - pattern.length; - return d >= 0 && this.lastIndexOf(pattern) === d; - }, - - empty: function() { - return this == ''; - }, - - blank: function() { - return /^\s*$/.test(this); - }, - - interpolate: function(object, pattern) { - return new Template(this, pattern).evaluate(object); - } -}); - -if (Prototype.Browser.WebKit || Prototype.Browser.IE) Object.extend(String.prototype, { - escapeHTML: function() { - return this.replace(/&/g,'&').replace(//g,'>'); - }, - unescapeHTML: function() { - return this.replace(/&/g,'&').replace(/</g,'<').replace(/>/g,'>'); - } -}); - -String.prototype.gsub.prepareReplacement = function(replacement) { - if (Object.isFunction(replacement)) return replacement; - var template = new Template(replacement); - return function(match) { return template.evaluate(match) }; -}; - -String.prototype.parseQuery = String.prototype.toQueryParams; - -Object.extend(String.prototype.escapeHTML, { - div: document.createElement('div'), - text: document.createTextNode('') -}); - -with (String.prototype.escapeHTML) div.appendChild(text); - -var Template = Class.create({ - initialize: function(template, pattern) { - this.template = template.toString(); - this.pattern = pattern || Template.Pattern; - }, - - evaluate: function(object) { - if (Object.isFunction(object.toTemplateReplacements)) - object = object.toTemplateReplacements(); - - return this.template.gsub(this.pattern, function(match) { - if (object == null) return ''; - - var before = match[1] || ''; - if (before == '\\') return match[2]; - - var ctx = object, expr = match[3]; - var pattern = /^([^.[]+|\[((?:.*?[^\\])?)\])(\.|\[|$)/; - match = pattern.exec(expr); - if (match == null) return before; - - while (match != null) { - var comp = match[1].startsWith('[') ? match[2].gsub('\\\\]', ']') : match[1]; - ctx = ctx[comp]; - if (null == ctx || '' == match[3]) break; - expr = expr.substring('[' == match[3] ? match[1].length : match[0].length); - match = pattern.exec(expr); - } - - return before + String.interpret(ctx); - }.bind(this)); - } -}); -Template.Pattern = /(^|.|\r|\n)(#\{(.*?)\})/; - -var $break = { }; - -var Enumerable = { - each: function(iterator, context) { - var index = 0; - iterator = iterator.bind(context); - try { - this._each(function(value) { - iterator(value, index++); - }); - } catch (e) { - if (e != $break) throw e; - } - return this; - }, - - eachSlice: function(number, iterator, context) { - iterator = iterator ? iterator.bind(context) : Prototype.K; - var index = -number, slices = [], array = this.toArray(); - while ((index += number) < array.length) - slices.push(array.slice(index, index+number)); - return slices.collect(iterator, context); - }, - - all: function(iterator, context) { - iterator = iterator ? iterator.bind(context) : Prototype.K; - var result = true; - this.each(function(value, index) { - result = result && !!iterator(value, index); - if (!result) throw $break; - }); - return result; - }, - - any: function(iterator, context) { - iterator = iterator ? iterator.bind(context) : Prototype.K; - var result = false; - this.each(function(value, index) { - if (result = !!iterator(value, index)) - throw $break; - }); - return result; - }, - - collect: function(iterator, context) { - iterator = iterator ? iterator.bind(context) : Prototype.K; - var results = []; - this.each(function(value, index) { - results.push(iterator(value, index)); - }); - return results; - }, - - detect: function(iterator, context) { - iterator = iterator.bind(context); - var result; - this.each(function(value, index) { - if (iterator(value, index)) { - result = value; - throw $break; - } - }); - return result; - }, - - findAll: function(iterator, context) { - iterator = iterator.bind(context); - var results = []; - this.each(function(value, index) { - if (iterator(value, index)) - results.push(value); - }); - return results; - }, - - grep: function(filter, iterator, context) { - iterator = iterator ? iterator.bind(context) : Prototype.K; - var results = []; - - if (Object.isString(filter)) - filter = new RegExp(filter); - - this.each(function(value, index) { - if (filter.match(value)) - results.push(iterator(value, index)); - }); - return results; - }, - - include: function(object) { - if (Object.isFunction(this.indexOf)) - if (this.indexOf(object) != -1) return true; - - var found = false; - this.each(function(value) { - if (value == object) { - found = true; - throw $break; - } - }); - return found; - }, - - inGroupsOf: function(number, fillWith) { - fillWith = Object.isUndefined(fillWith) ? null : fillWith; - return this.eachSlice(number, function(slice) { - while(slice.length < number) slice.push(fillWith); - return slice; - }); - }, - - inject: function(memo, iterator, context) { - iterator = iterator.bind(context); - this.each(function(value, index) { - memo = iterator(memo, value, index); - }); - return memo; - }, - - invoke: function(method) { - var args = $A(arguments).slice(1); - return this.map(function(value) { - return value[method].apply(value, args); - }); - }, - - max: function(iterator, context) { - iterator = iterator ? iterator.bind(context) : Prototype.K; - var result; - this.each(function(value, index) { - value = iterator(value, index); - if (result == null || value >= result) - result = value; - }); - return result; - }, - - min: function(iterator, context) { - iterator = iterator ? iterator.bind(context) : Prototype.K; - var result; - this.each(function(value, index) { - value = iterator(value, index); - if (result == null || value < result) - result = value; - }); - return result; - }, - - partition: function(iterator, context) { - iterator = iterator ? iterator.bind(context) : Prototype.K; - var trues = [], falses = []; - this.each(function(value, index) { - (iterator(value, index) ? - trues : falses).push(value); - }); - return [trues, falses]; - }, - - pluck: function(property) { - var results = []; - this.each(function(value) { - results.push(value[property]); - }); - return results; - }, - - reject: function(iterator, context) { - iterator = iterator.bind(context); - var results = []; - this.each(function(value, index) { - if (!iterator(value, index)) - results.push(value); - }); - return results; - }, - - sortBy: function(iterator, context) { - iterator = iterator.bind(context); - return this.map(function(value, index) { - return {value: value, criteria: iterator(value, index)}; - }).sort(function(left, right) { - var a = left.criteria, b = right.criteria; - return a < b ? -1 : a > b ? 1 : 0; - }).pluck('value'); - }, - - toArray: function() { - return this.map(); - }, - - zip: function() { - var iterator = Prototype.K, args = $A(arguments); - if (Object.isFunction(args.last())) - iterator = args.pop(); - - var collections = [this].concat(args).map($A); - return this.map(function(value, index) { - return iterator(collections.pluck(index)); - }); - }, - - size: function() { - return this.toArray().length; - }, - - inspect: function() { - return '#'; - } -}; - -Object.extend(Enumerable, { - map: Enumerable.collect, - find: Enumerable.detect, - select: Enumerable.findAll, - filter: Enumerable.findAll, - member: Enumerable.include, - entries: Enumerable.toArray, - every: Enumerable.all, - some: Enumerable.any -}); -function $A(iterable) { - if (!iterable) return []; - if (iterable.toArray) return iterable.toArray(); - var length = iterable.length, results = new Array(length); - while (length--) results[length] = iterable[length]; - return results; -} - -if (Prototype.Browser.WebKit) { - function $A(iterable) { - if (!iterable) return []; - if (!(Object.isFunction(iterable) && iterable == '[object NodeList]') && - iterable.toArray) return iterable.toArray(); - var length = iterable.length, results = new Array(length); - while (length--) results[length] = iterable[length]; - return results; - } -} - -Array.from = $A; - -Object.extend(Array.prototype, Enumerable); - -if (!Array.prototype._reverse) Array.prototype._reverse = Array.prototype.reverse; - -Object.extend(Array.prototype, { - _each: function(iterator) { - for (var i = 0, length = this.length; i < length; i++) - iterator(this[i]); - }, - - clear: function() { - this.length = 0; - return this; - }, - - first: function() { - return this[0]; - }, - - last: function() { - return this[this.length - 1]; - }, - - compact: function() { - return this.select(function(value) { - return value != null; - }); - }, - - flatten: function() { - return this.inject([], function(array, value) { - return array.concat(Object.isArray(value) ? - value.flatten() : [value]); - }); - }, - - without: function() { - var values = $A(arguments); - return this.select(function(value) { - return !values.include(value); - }); - }, - - reverse: function(inline) { - return (inline !== false ? this : this.toArray())._reverse(); - }, - - reduce: function() { - return this.length > 1 ? this : this[0]; - }, - - uniq: function(sorted) { - return this.inject([], function(array, value, index) { - if (0 == index || (sorted ? array.last() != value : !array.include(value))) - array.push(value); - return array; - }); - }, - - intersect: function(array) { - return this.uniq().findAll(function(item) { - return array.detect(function(value) { return item === value }); - }); - }, - - clone: function() { - return [].concat(this); - }, - - size: function() { - return this.length; - }, - - inspect: function() { - return '[' + this.map(Object.inspect).join(', ') + ']'; - }, - - toJSON: function() { - var results = []; - this.each(function(object) { - var value = Object.toJSON(object); - if (!Object.isUndefined(value)) results.push(value); - }); - return '[' + results.join(', ') + ']'; - } -}); - -// use native browser JS 1.6 implementation if available -if (Object.isFunction(Array.prototype.forEach)) - Array.prototype._each = Array.prototype.forEach; - -if (!Array.prototype.indexOf) Array.prototype.indexOf = function(item, i) { - i || (i = 0); - var length = this.length; - if (i < 0) i = length + i; - for (; i < length; i++) - if (this[i] === item) return i; - return -1; -}; - -if (!Array.prototype.lastIndexOf) Array.prototype.lastIndexOf = function(item, i) { - i = isNaN(i) ? this.length : (i < 0 ? this.length + i : i) + 1; - var n = this.slice(0, i).reverse().indexOf(item); - return (n < 0) ? n : i - n - 1; -}; - -Array.prototype.toArray = Array.prototype.clone; - -function $w(string) { - if (!Object.isString(string)) return []; - string = string.strip(); - return string ? string.split(/\s+/) : []; -} - -if (Prototype.Browser.Opera){ - Array.prototype.concat = function() { - var array = []; - for (var i = 0, length = this.length; i < length; i++) array.push(this[i]); - for (var i = 0, length = arguments.length; i < length; i++) { - if (Object.isArray(arguments[i])) { - for (var j = 0, arrayLength = arguments[i].length; j < arrayLength; j++) - array.push(arguments[i][j]); - } else { - array.push(arguments[i]); - } - } - return array; - }; -} -Object.extend(Number.prototype, { - toColorPart: function() { - return this.toPaddedString(2, 16); - }, - - succ: function() { - return this + 1; - }, - - times: function(iterator) { - $R(0, this, true).each(iterator); - return this; - }, - - toPaddedString: function(length, radix) { - var string = this.toString(radix || 10); - return '0'.times(length - string.length) + string; - }, - - toJSON: function() { - return isFinite(this) ? this.toString() : 'null'; - } -}); - -$w('abs round ceil floor').each(function(method){ - Number.prototype[method] = Math[method].methodize(); -}); -function $H(object) { - return new Hash(object); -}; - -var Hash = Class.create(Enumerable, (function() { - - function toQueryPair(key, value) { - if (Object.isUndefined(value)) return key; - return key + '=' + encodeURIComponent(String.interpret(value)); - } - - return { - initialize: function(object) { - this._object = Object.isHash(object) ? object.toObject() : Object.clone(object); - }, - - _each: function(iterator) { - for (var key in this._object) { - var value = this._object[key], pair = [key, value]; - pair.key = key; - pair.value = value; - iterator(pair); - } - }, - - set: function(key, value) { - return this._object[key] = value; - }, - - get: function(key) { - return this._object[key]; - }, - - unset: function(key) { - var value = this._object[key]; - delete this._object[key]; - return value; - }, - - toObject: function() { - return Object.clone(this._object); - }, - - keys: function() { - return this.pluck('key'); - }, - - values: function() { - return this.pluck('value'); - }, - - index: function(value) { - var match = this.detect(function(pair) { - return pair.value === value; - }); - return match && match.key; - }, - - merge: function(object) { - return this.clone().update(object); - }, - - update: function(object) { - return new Hash(object).inject(this, function(result, pair) { - result.set(pair.key, pair.value); - return result; - }); - }, - - toQueryString: function() { - return this.map(function(pair) { - var key = encodeURIComponent(pair.key), values = pair.value; - - if (values && typeof values == 'object') { - if (Object.isArray(values)) - return values.map(toQueryPair.curry(key)).join('&'); - } - return toQueryPair(key, values); - }).join('&'); - }, - - inspect: function() { - return '#'; - }, - - toJSON: function() { - return Object.toJSON(this.toObject()); - }, - - clone: function() { - return new Hash(this); - } - } -})()); - -Hash.prototype.toTemplateReplacements = Hash.prototype.toObject; -Hash.from = $H; -var ObjectRange = Class.create(Enumerable, { - initialize: function(start, end, exclusive) { - this.start = start; - this.end = end; - this.exclusive = exclusive; - }, - - _each: function(iterator) { - var value = this.start; - while (this.include(value)) { - iterator(value); - value = value.succ(); - } - }, - - include: function(value) { - if (value < this.start) - return false; - if (this.exclusive) - return value < this.end; - return value <= this.end; - } -}); - -var $R = function(start, end, exclusive) { - return new ObjectRange(start, end, exclusive); -}; - -var Ajax = { - getTransport: function() { - return Try.these( - function() {return new XMLHttpRequest()}, - function() {return new ActiveXObject('Msxml2.XMLHTTP')}, - function() {return new ActiveXObject('Microsoft.XMLHTTP')} - ) || false; - }, - - activeRequestCount: 0 -}; - -Ajax.Responders = { - responders: [], - - _each: function(iterator) { - this.responders._each(iterator); - }, - - register: function(responder) { - if (!this.include(responder)) - this.responders.push(responder); - }, - - unregister: function(responder) { - this.responders = this.responders.without(responder); - }, - - dispatch: function(callback, request, transport, json) { - this.each(function(responder) { - if (Object.isFunction(responder[callback])) { - try { - responder[callback].apply(responder, [request, transport, json]); - } catch (e) { } - } - }); - } -}; - -Object.extend(Ajax.Responders, Enumerable); - -Ajax.Responders.register({ - onCreate: function() { Ajax.activeRequestCount++ }, - onComplete: function() { Ajax.activeRequestCount-- } -}); - -Ajax.Base = Class.create({ - initialize: function(options) { - this.options = { - method: 'post', - asynchronous: true, - contentType: 'application/x-www-form-urlencoded', - encoding: 'UTF-8', - parameters: '', - evalJSON: true, - evalJS: true - }; - Object.extend(this.options, options || { }); - - this.options.method = this.options.method.toLowerCase(); - - if (Object.isString(this.options.parameters)) - this.options.parameters = this.options.parameters.toQueryParams(); - else if (Object.isHash(this.options.parameters)) - this.options.parameters = this.options.parameters.toObject(); - } -}); - -Ajax.Request = Class.create(Ajax.Base, { - _complete: false, - - initialize: function($super, url, options) { - $super(options); - this.transport = Ajax.getTransport(); - this.request(url); - }, - - request: function(url) { - this.url = url; - this.method = this.options.method; - var params = Object.clone(this.options.parameters); - - if (!['get', 'post'].include(this.method)) { - // simulate other verbs over post - params['_method'] = this.method; - this.method = 'post'; - } - - this.parameters = params; - - if (params = Object.toQueryString(params)) { - // when GET, append parameters to URL - if (this.method == 'get') - this.url += (this.url.include('?') ? '&' : '?') + params; - else if (/Konqueror|Safari|KHTML/.test(navigator.userAgent)) - params += '&_='; - } - - try { - var response = new Ajax.Response(this); - if (this.options.onCreate) this.options.onCreate(response); - Ajax.Responders.dispatch('onCreate', this, response); - - this.transport.open(this.method.toUpperCase(), this.url, - this.options.asynchronous); - - if (this.options.asynchronous) this.respondToReadyState.bind(this).defer(1); - - this.transport.onreadystatechange = this.onStateChange.bind(this); - this.setRequestHeaders(); - - this.body = this.method == 'post' ? (this.options.postBody || params) : null; - this.transport.send(this.body); - - /* Force Firefox to handle ready state 4 for synchronous requests */ - if (!this.options.asynchronous && this.transport.overrideMimeType) - this.onStateChange(); - - } - catch (e) { - this.dispatchException(e); - } - }, - - onStateChange: function() { - var readyState = this.transport.readyState; - if (readyState > 1 && !((readyState == 4) && this._complete)) - this.respondToReadyState(this.transport.readyState); - }, - - setRequestHeaders: function() { - var headers = { - 'X-Requested-With': 'XMLHttpRequest', - 'X-Prototype-Version': Prototype.Version, - 'Accept': 'text/javascript, text/html, application/xml, text/xml, */*' - }; - - if (this.method == 'post') { - headers['Content-type'] = this.options.contentType + - (this.options.encoding ? '; charset=' + this.options.encoding : ''); - - /* Force "Connection: close" for older Mozilla browsers to work - * around a bug where XMLHttpRequest sends an incorrect - * Content-length header. See Mozilla Bugzilla #246651. - */ - if (this.transport.overrideMimeType && - (navigator.userAgent.match(/Gecko\/(\d{4})/) || [0,2005])[1] < 2005) - headers['Connection'] = 'close'; - } - - // user-defined headers - if (typeof this.options.requestHeaders == 'object') { - var extras = this.options.requestHeaders; - - if (Object.isFunction(extras.push)) - for (var i = 0, length = extras.length; i < length; i += 2) - headers[extras[i]] = extras[i+1]; - else - $H(extras).each(function(pair) { headers[pair.key] = pair.value }); - } - - for (var name in headers) - this.transport.setRequestHeader(name, headers[name]); - }, - - success: function() { - var status = this.getStatus(); - return !status || (status >= 200 && status < 300); - }, - - getStatus: function() { - try { - return this.transport.status || 0; - } catch (e) { return 0 } - }, - - respondToReadyState: function(readyState) { - var state = Ajax.Request.Events[readyState], response = new Ajax.Response(this); - - if (state == 'Complete') { - try { - this._complete = true; - (this.options['on' + response.status] - || this.options['on' + (this.success() ? 'Success' : 'Failure')] - || Prototype.emptyFunction)(response, response.headerJSON); - } catch (e) { - this.dispatchException(e); - } - - var contentType = response.getHeader('Content-type'); - if (this.options.evalJS == 'force' - || (this.options.evalJS && contentType - && contentType.match(/^\s*(text|application)\/(x-)?(java|ecma)script(;.*)?\s*$/i))) - this.evalResponse(); - } - - try { - (this.options['on' + state] || Prototype.emptyFunction)(response, response.headerJSON); - Ajax.Responders.dispatch('on' + state, this, response, response.headerJSON); - } catch (e) { - this.dispatchException(e); - } - - if (state == 'Complete') { - // avoid memory leak in MSIE: clean up - this.transport.onreadystatechange = Prototype.emptyFunction; - } - }, - - getHeader: function(name) { - try { - return this.transport.getResponseHeader(name); - } catch (e) { return null } - }, - - evalResponse: function() { - try { - return eval((this.transport.responseText || '').unfilterJSON()); - } catch (e) { - this.dispatchException(e); - } - }, - - dispatchException: function(exception) { - (this.options.onException || Prototype.emptyFunction)(this, exception); - Ajax.Responders.dispatch('onException', this, exception); - } -}); - -Ajax.Request.Events = - ['Uninitialized', 'Loading', 'Loaded', 'Interactive', 'Complete']; - -Ajax.Response = Class.create({ - initialize: function(request){ - this.request = request; - var transport = this.transport = request.transport, - readyState = this.readyState = transport.readyState; - - if((readyState > 2 && !Prototype.Browser.IE) || readyState == 4) { - this.status = this.getStatus(); - this.statusText = this.getStatusText(); - this.responseText = String.interpret(transport.responseText); - this.headerJSON = this._getHeaderJSON(); - } - - if(readyState == 4) { - var xml = transport.responseXML; - this.responseXML = Object.isUndefined(xml) ? null : xml; - this.responseJSON = this._getResponseJSON(); - } - }, - - status: 0, - statusText: '', - - getStatus: Ajax.Request.prototype.getStatus, - - getStatusText: function() { - try { - return this.transport.statusText || ''; - } catch (e) { return '' } - }, - - getHeader: Ajax.Request.prototype.getHeader, - - getAllHeaders: function() { - try { - return this.getAllResponseHeaders(); - } catch (e) { return null } - }, - - getResponseHeader: function(name) { - return this.transport.getResponseHeader(name); - }, - - getAllResponseHeaders: function() { - return this.transport.getAllResponseHeaders(); - }, - - _getHeaderJSON: function() { - var json = this.getHeader('X-JSON'); - if (!json) return null; - json = decodeURIComponent(escape(json)); - try { - return json.evalJSON(this.request.options.sanitizeJSON); - } catch (e) { - this.request.dispatchException(e); - } - }, - - _getResponseJSON: function() { - var options = this.request.options; - if (!options.evalJSON || (options.evalJSON != 'force' && - !(this.getHeader('Content-type') || '').include('application/json')) || - this.responseText.blank()) - return null; - try { - return this.responseText.evalJSON(options.sanitizeJSON); - } catch (e) { - this.request.dispatchException(e); - } - } -}); - -Ajax.Updater = Class.create(Ajax.Request, { - initialize: function($super, container, url, options) { - this.container = { - success: (container.success || container), - failure: (container.failure || (container.success ? null : container)) - }; - - options = Object.clone(options); - var onComplete = options.onComplete; - options.onComplete = (function(response, json) { - this.updateContent(response.responseText); - if (Object.isFunction(onComplete)) onComplete(response, json); - }).bind(this); - - $super(url, options); - }, - - updateContent: function(responseText) { - var receiver = this.container[this.success() ? 'success' : 'failure'], - options = this.options; - - if (!options.evalScripts) responseText = responseText.stripScripts(); - - if (receiver = $(receiver)) { - if (options.insertion) { - if (Object.isString(options.insertion)) { - var insertion = { }; insertion[options.insertion] = responseText; - receiver.insert(insertion); - } - else options.insertion(receiver, responseText); - } - else receiver.update(responseText); - } - } -}); - -Ajax.PeriodicalUpdater = Class.create(Ajax.Base, { - initialize: function($super, container, url, options) { - $super(options); - this.onComplete = this.options.onComplete; - - this.frequency = (this.options.frequency || 2); - this.decay = (this.options.decay || 1); - - this.updater = { }; - this.container = container; - this.url = url; - - this.start(); - }, - - start: function() { - this.options.onComplete = this.updateComplete.bind(this); - this.onTimerEvent(); - }, - - stop: function() { - this.updater.options.onComplete = undefined; - clearTimeout(this.timer); - (this.onComplete || Prototype.emptyFunction).apply(this, arguments); - }, - - updateComplete: function(response) { - if (this.options.decay) { - this.decay = (response.responseText == this.lastText ? - this.decay * this.options.decay : 1); - - this.lastText = response.responseText; - } - this.timer = this.onTimerEvent.bind(this).delay(this.decay * this.frequency); - }, - - onTimerEvent: function() { - this.updater = new Ajax.Updater(this.container, this.url, this.options); - } -}); -function $(element) { - if (arguments.length > 1) { - for (var i = 0, elements = [], length = arguments.length; i < length; i++) - elements.push($(arguments[i])); - return elements; - } - if (Object.isString(element)) - element = document.getElementById(element); - return Element.extend(element); -} - -if (Prototype.BrowserFeatures.XPath) { - document._getElementsByXPath = function(expression, parentElement) { - var results = []; - var query = document.evaluate(expression, $(parentElement) || document, - null, XPathResult.ORDERED_NODE_SNAPSHOT_TYPE, null); - for (var i = 0, length = query.snapshotLength; i < length; i++) - results.push(Element.extend(query.snapshotItem(i))); - return results; - }; -} - -/*--------------------------------------------------------------------------*/ - -if (!window.Node) var Node = { }; - -if (!Node.ELEMENT_NODE) { - // DOM level 2 ECMAScript Language Binding - Object.extend(Node, { - ELEMENT_NODE: 1, - ATTRIBUTE_NODE: 2, - TEXT_NODE: 3, - CDATA_SECTION_NODE: 4, - ENTITY_REFERENCE_NODE: 5, - ENTITY_NODE: 6, - PROCESSING_INSTRUCTION_NODE: 7, - COMMENT_NODE: 8, - DOCUMENT_NODE: 9, - DOCUMENT_TYPE_NODE: 10, - DOCUMENT_FRAGMENT_NODE: 11, - NOTATION_NODE: 12 - }); -} - -(function() { - var element = this.Element; - this.Element = function(tagName, attributes) { - attributes = attributes || { }; - tagName = tagName.toLowerCase(); - var cache = Element.cache; - if (Prototype.Browser.IE && attributes.name) { - tagName = '<' + tagName + ' name="' + attributes.name + '">'; - delete attributes.name; - return Element.writeAttribute(document.createElement(tagName), attributes); - } - if (!cache[tagName]) cache[tagName] = Element.extend(document.createElement(tagName)); - return Element.writeAttribute(cache[tagName].cloneNode(false), attributes); - }; - Object.extend(this.Element, element || { }); -}).call(window); - -Element.cache = { }; - -Element.Methods = { - visible: function(element) { - return $(element).style.display != 'none'; - }, - - toggle: function(element) { - element = $(element); - Element[Element.visible(element) ? 'hide' : 'show'](element); - return element; - }, - - hide: function(element) { - $(element).style.display = 'none'; - return element; - }, - - show: function(element) { - $(element).style.display = ''; - return element; - }, - - remove: function(element) { - element = $(element); - element.parentNode.removeChild(element); - return element; - }, - - update: function(element, content) { - element = $(element); - if (content && content.toElement) content = content.toElement(); - if (Object.isElement(content)) return element.update().insert(content); - content = Object.toHTML(content); - element.innerHTML = content.stripScripts(); - content.evalScripts.bind(content).defer(); - return element; - }, - - replace: function(element, content) { - element = $(element); - if (content && content.toElement) content = content.toElement(); - else if (!Object.isElement(content)) { - content = Object.toHTML(content); - var range = element.ownerDocument.createRange(); - range.selectNode(element); - content.evalScripts.bind(content).defer(); - content = range.createContextualFragment(content.stripScripts()); - } - element.parentNode.replaceChild(content, element); - return element; - }, - - insert: function(element, insertions) { - element = $(element); - - if (Object.isString(insertions) || Object.isNumber(insertions) || - Object.isElement(insertions) || (insertions && (insertions.toElement || insertions.toHTML))) - insertions = {bottom:insertions}; - - var content, t, range; - - for (position in insertions) { - content = insertions[position]; - position = position.toLowerCase(); - t = Element._insertionTranslations[position]; - - if (content && content.toElement) content = content.toElement(); - if (Object.isElement(content)) { - t.insert(element, content); - continue; - } - - content = Object.toHTML(content); - - range = element.ownerDocument.createRange(); - t.initializeRange(element, range); - t.insert(element, range.createContextualFragment(content.stripScripts())); - - content.evalScripts.bind(content).defer(); - } - - return element; - }, - - wrap: function(element, wrapper, attributes) { - element = $(element); - if (Object.isElement(wrapper)) - $(wrapper).writeAttribute(attributes || { }); - else if (Object.isString(wrapper)) wrapper = new Element(wrapper, attributes); - else wrapper = new Element('div', wrapper); - if (element.parentNode) - element.parentNode.replaceChild(wrapper, element); - wrapper.appendChild(element); - return wrapper; - }, - - inspect: function(element) { - element = $(element); - var result = '<' + element.tagName.toLowerCase(); - $H({'id': 'id', 'className': 'class'}).each(function(pair) { - var property = pair.first(), attribute = pair.last(); - var value = (element[property] || '').toString(); - if (value) result += ' ' + attribute + '=' + value.inspect(true); - }); - return result + '>'; - }, - - recursivelyCollect: function(element, property) { - element = $(element); - var elements = []; - while (element = element[property]) - if (element.nodeType == 1) - elements.push(Element.extend(element)); - return elements; - }, - - ancestors: function(element) { - return $(element).recursivelyCollect('parentNode'); - }, - - descendants: function(element) { - return $(element).getElementsBySelector("*"); - }, - - firstDescendant: function(element) { - element = $(element).firstChild; - while (element && element.nodeType != 1) element = element.nextSibling; - return $(element); - }, - - immediateDescendants: function(element) { - if (!(element = $(element).firstChild)) return []; - while (element && element.nodeType != 1) element = element.nextSibling; - if (element) return [element].concat($(element).nextSiblings()); - return []; - }, - - previousSiblings: function(element) { - return $(element).recursivelyCollect('previousSibling'); - }, - - nextSiblings: function(element) { - return $(element).recursivelyCollect('nextSibling'); - }, - - siblings: function(element) { - element = $(element); - return element.previousSiblings().reverse().concat(element.nextSiblings()); - }, - - match: function(element, selector) { - if (Object.isString(selector)) - selector = new Selector(selector); - return selector.match($(element)); - }, - - up: function(element, expression, index) { - element = $(element); - if (arguments.length == 1) return $(element.parentNode); - var ancestors = element.ancestors(); - return expression ? Selector.findElement(ancestors, expression, index) : - ancestors[index || 0]; - }, - - down: function(element, expression, index) { - element = $(element); - if (arguments.length == 1) return element.firstDescendant(); - var descendants = element.descendants(); - return expression ? Selector.findElement(descendants, expression, index) : - descendants[index || 0]; - }, - - previous: function(element, expression, index) { - element = $(element); - if (arguments.length == 1) return $(Selector.handlers.previousElementSibling(element)); - var previousSiblings = element.previousSiblings(); - return expression ? Selector.findElement(previousSiblings, expression, index) : - previousSiblings[index || 0]; - }, - - next: function(element, expression, index) { - element = $(element); - if (arguments.length == 1) return $(Selector.handlers.nextElementSibling(element)); - var nextSiblings = element.nextSiblings(); - return expression ? Selector.findElement(nextSiblings, expression, index) : - nextSiblings[index || 0]; - }, - - select: function() { - var args = $A(arguments), element = $(args.shift()); - return Selector.findChildElements(element, args); - }, - - adjacent: function() { - var args = $A(arguments), element = $(args.shift()); - return Selector.findChildElements(element.parentNode, args).without(element); - }, - - identify: function(element) { - element = $(element); - var id = element.readAttribute('id'), self = arguments.callee; - if (id) return id; - do { id = 'anonymous_element_' + self.counter++ } while ($(id)); - element.writeAttribute('id', id); - return id; - }, - - readAttribute: function(element, name) { - element = $(element); - if (Prototype.Browser.IE) { - var t = Element._attributeTranslations.read; - if (t.values[name]) return t.values[name](element, name); - if (t.names[name]) name = t.names[name]; - if (name.include(':')) { - return (!element.attributes || !element.attributes[name]) ? null : - element.attributes[name].value; - } - } - return element.getAttribute(name); - }, - - writeAttribute: function(element, name, value) { - element = $(element); - var attributes = { }, t = Element._attributeTranslations.write; - - if (typeof name == 'object') attributes = name; - else attributes[name] = Object.isUndefined(value) ? true : value; - - for (var attr in attributes) { - name = t.names[attr] || attr; - value = attributes[attr]; - if (t.values[attr]) name = t.values[attr](element, value); - if (value === false || value === null) - element.removeAttribute(name); - else if (value === true) - element.setAttribute(name, name); - else element.setAttribute(name, value); - } - return element; - }, - - getHeight: function(element) { - return $(element).getDimensions().height; - }, - - getWidth: function(element) { - return $(element).getDimensions().width; - }, - - classNames: function(element) { - return new Element.ClassNames(element); - }, - - hasClassName: function(element, className) { - if (!(element = $(element))) return; - var elementClassName = element.className; - return (elementClassName.length > 0 && (elementClassName == className || - new RegExp("(^|\\s)" + className + "(\\s|$)").test(elementClassName))); - }, - - addClassName: function(element, className) { - if (!(element = $(element))) return; - if (!element.hasClassName(className)) - element.className += (element.className ? ' ' : '') + className; - return element; - }, - - removeClassName: function(element, className) { - if (!(element = $(element))) return; - element.className = element.className.replace( - new RegExp("(^|\\s+)" + className + "(\\s+|$)"), ' ').strip(); - return element; - }, - - toggleClassName: function(element, className) { - if (!(element = $(element))) return; - return element[element.hasClassName(className) ? - 'removeClassName' : 'addClassName'](className); - }, - - // removes whitespace-only text node children - cleanWhitespace: function(element) { - element = $(element); - var node = element.firstChild; - while (node) { - var nextNode = node.nextSibling; - if (node.nodeType == 3 && !/\S/.test(node.nodeValue)) - element.removeChild(node); - node = nextNode; - } - return element; - }, - - empty: function(element) { - return $(element).innerHTML.blank(); - }, - - descendantOf: function(element, ancestor) { - element = $(element), ancestor = $(ancestor); - var originalAncestor = ancestor; - - if (element.compareDocumentPosition) - return (element.compareDocumentPosition(ancestor) & 8) === 8; - - if (element.sourceIndex && !Prototype.Browser.Opera) { - var e = element.sourceIndex, a = ancestor.sourceIndex, - nextAncestor = ancestor.nextSibling; - if (!nextAncestor) { - do { ancestor = ancestor.parentNode; } - while (!(nextAncestor = ancestor.nextSibling) && ancestor.parentNode); - } - if (nextAncestor) return (e > a && e < nextAncestor.sourceIndex); - } - - while (element = element.parentNode) - if (element == originalAncestor) return true; - return false; - }, - - scrollTo: function(element) { - element = $(element); - var pos = element.cumulativeOffset(); - window.scrollTo(pos[0], pos[1]); - return element; - }, - - getStyle: function(element, style) { - element = $(element); - style = style == 'float' ? 'cssFloat' : style.camelize(); - var value = element.style[style]; - if (!value) { - var css = document.defaultView.getComputedStyle(element, null); - value = css ? css[style] : null; - } - if (style == 'opacity') return value ? parseFloat(value) : 1.0; - return value == 'auto' ? null : value; - }, - - getOpacity: function(element) { - return $(element).getStyle('opacity'); - }, - - setStyle: function(element, styles) { - element = $(element); - var elementStyle = element.style, match; - if (Object.isString(styles)) { - element.style.cssText += ';' + styles; - return styles.include('opacity') ? - element.setOpacity(styles.match(/opacity:\s*(\d?\.?\d*)/)[1]) : element; - } - for (var property in styles) - if (property == 'opacity') element.setOpacity(styles[property]); - else - elementStyle[(property == 'float' || property == 'cssFloat') ? - (Object.isUndefined(elementStyle.styleFloat) ? 'cssFloat' : 'styleFloat') : - property] = styles[property]; - - return element; - }, - - setOpacity: function(element, value) { - element = $(element); - element.style.opacity = (value == 1 || value === '') ? '' : - (value < 0.00001) ? 0 : value; - return element; - }, - - getDimensions: function(element) { - element = $(element); - var display = $(element).getStyle('display'); - if (display != 'none' && display != null) // Safari bug - return {width: element.offsetWidth, height: element.offsetHeight}; - - // All *Width and *Height properties give 0 on elements with display none, - // so enable the element temporarily - var els = element.style; - var originalVisibility = els.visibility; - var originalPosition = els.position; - var originalDisplay = els.display; - els.visibility = 'hidden'; - els.position = 'absolute'; - els.display = 'block'; - var originalWidth = element.clientWidth; - var originalHeight = element.clientHeight; - els.display = originalDisplay; - els.position = originalPosition; - els.visibility = originalVisibility; - return {width: originalWidth, height: originalHeight}; - }, - - makePositioned: function(element) { - element = $(element); - var pos = Element.getStyle(element, 'position'); - if (pos == 'static' || !pos) { - element._madePositioned = true; - element.style.position = 'relative'; - // Opera returns the offset relative to the positioning context, when an - // element is position relative but top and left have not been defined - if (window.opera) { - element.style.top = 0; - element.style.left = 0; - } - } - return element; - }, - - undoPositioned: function(element) { - element = $(element); - if (element._madePositioned) { - element._madePositioned = undefined; - element.style.position = - element.style.top = - element.style.left = - element.style.bottom = - element.style.right = ''; - } - return element; - }, - - makeClipping: function(element) { - element = $(element); - if (element._overflow) return element; - element._overflow = Element.getStyle(element, 'overflow') || 'auto'; - if (element._overflow !== 'hidden') - element.style.overflow = 'hidden'; - return element; - }, - - undoClipping: function(element) { - element = $(element); - if (!element._overflow) return element; - element.style.overflow = element._overflow == 'auto' ? '' : element._overflow; - element._overflow = null; - return element; - }, - - cumulativeOffset: function(element) { - var valueT = 0, valueL = 0; - do { - valueT += element.offsetTop || 0; - valueL += element.offsetLeft || 0; - element = element.offsetParent; - } while (element); - return Element._returnOffset(valueL, valueT); - }, - - positionedOffset: function(element) { - var valueT = 0, valueL = 0; - do { - valueT += element.offsetTop || 0; - valueL += element.offsetLeft || 0; - element = element.offsetParent; - if (element) { - if (element.tagName == 'BODY') break; - var p = Element.getStyle(element, 'position'); - if (p == 'relative' || p == 'absolute') break; - } - } while (element); - return Element._returnOffset(valueL, valueT); - }, - - absolutize: function(element) { - element = $(element); - if (element.getStyle('position') == 'absolute') return; - // Position.prepare(); // To be done manually by Scripty when it needs it. - - var offsets = element.positionedOffset(); - var top = offsets[1]; - var left = offsets[0]; - var width = element.clientWidth; - var height = element.clientHeight; - - element._originalLeft = left - parseFloat(element.style.left || 0); - element._originalTop = top - parseFloat(element.style.top || 0); - element._originalWidth = element.style.width; - element._originalHeight = element.style.height; - - element.style.position = 'absolute'; - element.style.top = top + 'px'; - element.style.left = left + 'px'; - element.style.width = width + 'px'; - element.style.height = height + 'px'; - return element; - }, - - relativize: function(element) { - element = $(element); - if (element.getStyle('position') == 'relative') return; - // Position.prepare(); // To be done manually by Scripty when it needs it. - - element.style.position = 'relative'; - var top = parseFloat(element.style.top || 0) - (element._originalTop || 0); - var left = parseFloat(element.style.left || 0) - (element._originalLeft || 0); - - element.style.top = top + 'px'; - element.style.left = left + 'px'; - element.style.height = element._originalHeight; - element.style.width = element._originalWidth; - return element; - }, - - cumulativeScrollOffset: function(element) { - var valueT = 0, valueL = 0; - do { - valueT += element.scrollTop || 0; - valueL += element.scrollLeft || 0; - element = element.parentNode; - } while (element); - return Element._returnOffset(valueL, valueT); - }, - - getOffsetParent: function(element) { - if (element.offsetParent) return $(element.offsetParent); - if (element == document.body) return $(element); - - while ((element = element.parentNode) && element != document.body) - if (Element.getStyle(element, 'position') != 'static') - return $(element); - - return $(document.body); - }, - - viewportOffset: function(forElement) { - var valueT = 0, valueL = 0; - - var element = forElement; - do { - valueT += element.offsetTop || 0; - valueL += element.offsetLeft || 0; - - // Safari fix - if (element.offsetParent == document.body && - Element.getStyle(element, 'position') == 'absolute') break; - - } while (element = element.offsetParent); - - element = forElement; - do { - if (!Prototype.Browser.Opera || element.tagName == 'BODY') { - valueT -= element.scrollTop || 0; - valueL -= element.scrollLeft || 0; - } - } while (element = element.parentNode); - - return Element._returnOffset(valueL, valueT); - }, - - clonePosition: function(element, source) { - var options = Object.extend({ - setLeft: true, - setTop: true, - setWidth: true, - setHeight: true, - offsetTop: 0, - offsetLeft: 0 - }, arguments[2] || { }); - - // find page position of source - source = $(source); - var p = source.viewportOffset(); - - // find coordinate system to use - element = $(element); - var delta = [0, 0]; - var parent = null; - // delta [0,0] will do fine with position: fixed elements, - // position:absolute needs offsetParent deltas - if (Element.getStyle(element, 'position') == 'absolute') { - parent = element.getOffsetParent(); - delta = parent.viewportOffset(); - } - - // correct by body offsets (fixes Safari) - if (parent == document.body) { - delta[0] -= document.body.offsetLeft; - delta[1] -= document.body.offsetTop; - } - - // set position - if (options.setLeft) element.style.left = (p[0] - delta[0] + options.offsetLeft) + 'px'; - if (options.setTop) element.style.top = (p[1] - delta[1] + options.offsetTop) + 'px'; - if (options.setWidth) element.style.width = source.offsetWidth + 'px'; - if (options.setHeight) element.style.height = source.offsetHeight + 'px'; - return element; - } -}; - -Element.Methods.identify.counter = 1; - -Object.extend(Element.Methods, { - getElementsBySelector: Element.Methods.select, - childElements: Element.Methods.immediateDescendants -}); - -Element._attributeTranslations = { - write: { - names: { - className: 'class', - htmlFor: 'for' - }, - values: { } - } -}; - - -if (!document.createRange || Prototype.Browser.Opera) { - Element.Methods.insert = function(element, insertions) { - element = $(element); - - if (Object.isString(insertions) || Object.isNumber(insertions) || - Object.isElement(insertions) || (insertions && (insertions.toElement || insertions.toHTML))) - insertions = { bottom: insertions }; - - var t = Element._insertionTranslations, content, position, pos, tagName; - - for (position in insertions) { - content = insertions[position]; - position = position.toLowerCase(); - pos = t[position]; - - if (content && content.toElement) content = content.toElement(); - if (Object.isElement(content)) { - pos.insert(element, content); - continue; - } - - content = Object.toHTML(content); - tagName = ((position == 'before' || position == 'after') - ? element.parentNode : element).tagName.toUpperCase(); - - if (t.tags[tagName]) { - var fragments = Element._getContentFromAnonymousElement(tagName, content.stripScripts()); - if (position == 'top' || position == 'after') fragments.reverse(); - fragments.each(pos.insert.curry(element)); - } - else element.insertAdjacentHTML(pos.adjacency, content.stripScripts()); - - content.evalScripts.bind(content).defer(); - } - - return element; - }; -} - -if (Prototype.Browser.Opera) { - Element.Methods.getStyle = Element.Methods.getStyle.wrap( - function(proceed, element, style) { - switch (style) { - case 'left': case 'top': case 'right': case 'bottom': - if (proceed(element, 'position') === 'static') return null; - case 'height': case 'width': - // returns '0px' for hidden elements; we want it to return null - if (!Element.visible(element)) return null; - - // returns the border-box dimensions rather than the content-box - // dimensions, so we subtract padding and borders from the value - var dim = parseInt(proceed(element, style), 10); - - if (dim !== element['offset' + style.capitalize()]) - return dim + 'px'; - - var properties; - if (style === 'height') { - properties = ['border-top-width', 'padding-top', - 'padding-bottom', 'border-bottom-width']; - } - else { - properties = ['border-left-width', 'padding-left', - 'padding-right', 'border-right-width']; - } - return properties.inject(dim, function(memo, property) { - var val = proceed(element, property); - return val === null ? memo : memo - parseInt(val, 10); - }) + 'px'; - default: return proceed(element, style); - } - } - ); - - Element.Methods.readAttribute = Element.Methods.readAttribute.wrap( - function(proceed, element, attribute) { - if (attribute === 'title') return element.title; - return proceed(element, attribute); - } - ); -} - -else if (Prototype.Browser.IE) { - $w('positionedOffset getOffsetParent viewportOffset').each(function(method) { - Element.Methods[method] = Element.Methods[method].wrap( - function(proceed, element) { - element = $(element); - var position = element.getStyle('position'); - if (position != 'static') return proceed(element); - element.setStyle({ position: 'relative' }); - var value = proceed(element); - element.setStyle({ position: position }); - return value; - } - ); - }); - - Element.Methods.getStyle = function(element, style) { - element = $(element); - style = (style == 'float' || style == 'cssFloat') ? 'styleFloat' : style.camelize(); - var value = element.style[style]; - if (!value && element.currentStyle) value = element.currentStyle[style]; - - if (style == 'opacity') { - if (value = (element.getStyle('filter') || '').match(/alpha\(opacity=(.*)\)/)) - if (value[1]) return parseFloat(value[1]) / 100; - return 1.0; - } - - if (value == 'auto') { - if ((style == 'width' || style == 'height') && (element.getStyle('display') != 'none')) - return element['offset' + style.capitalize()] + 'px'; - return null; - } - return value; - }; - - Element.Methods.setOpacity = function(element, value) { - function stripAlpha(filter){ - return filter.replace(/alpha\([^\)]*\)/gi,''); - } - element = $(element); - var currentStyle = element.currentStyle; - if ((currentStyle && !currentStyle.hasLayout) || - (!currentStyle && element.style.zoom == 'normal')) - element.style.zoom = 1; - - var filter = element.getStyle('filter'), style = element.style; - if (value == 1 || value === '') { - (filter = stripAlpha(filter)) ? - style.filter = filter : style.removeAttribute('filter'); - return element; - } else if (value < 0.00001) value = 0; - style.filter = stripAlpha(filter) + - 'alpha(opacity=' + (value * 100) + ')'; - return element; - }; - - Element._attributeTranslations = { - read: { - names: { - 'class': 'className', - 'for': 'htmlFor' - }, - values: { - _getAttr: function(element, attribute) { - return element.getAttribute(attribute, 2); - }, - _getAttrNode: function(element, attribute) { - var node = element.getAttributeNode(attribute); - return node ? node.value : ""; - }, - _getEv: function(element, attribute) { - attribute = element.getAttribute(attribute); - return attribute ? attribute.toString().slice(23, -2) : null; - }, - _flag: function(element, attribute) { - return $(element).hasAttribute(attribute) ? attribute : null; - }, - style: function(element) { - return element.style.cssText.toLowerCase(); - }, - title: function(element) { - return element.title; - } - } - } - }; - - Element._attributeTranslations.write = { - names: Object.clone(Element._attributeTranslations.read.names), - values: { - checked: function(element, value) { - element.checked = !!value; - }, - - style: function(element, value) { - element.style.cssText = value ? value : ''; - } - } - }; - - Element._attributeTranslations.has = {}; - - $w('colSpan rowSpan vAlign dateTime accessKey tabIndex ' + - 'encType maxLength readOnly longDesc').each(function(attr) { - Element._attributeTranslations.write.names[attr.toLowerCase()] = attr; - Element._attributeTranslations.has[attr.toLowerCase()] = attr; - }); - - (function(v) { - Object.extend(v, { - href: v._getAttr, - src: v._getAttr, - type: v._getAttr, - action: v._getAttrNode, - disabled: v._flag, - checked: v._flag, - readonly: v._flag, - multiple: v._flag, - onload: v._getEv, - onunload: v._getEv, - onclick: v._getEv, - ondblclick: v._getEv, - onmousedown: v._getEv, - onmouseup: v._getEv, - onmouseover: v._getEv, - onmousemove: v._getEv, - onmouseout: v._getEv, - onfocus: v._getEv, - onblur: v._getEv, - onkeypress: v._getEv, - onkeydown: v._getEv, - onkeyup: v._getEv, - onsubmit: v._getEv, - onreset: v._getEv, - onselect: v._getEv, - onchange: v._getEv - }); - })(Element._attributeTranslations.read.values); -} - -else if (Prototype.Browser.Gecko && /rv:1\.8\.0/.test(navigator.userAgent)) { - Element.Methods.setOpacity = function(element, value) { - element = $(element); - element.style.opacity = (value == 1) ? 0.999999 : - (value === '') ? '' : (value < 0.00001) ? 0 : value; - return element; - }; -} - -else if (Prototype.Browser.WebKit) { - Element.Methods.setOpacity = function(element, value) { - element = $(element); - element.style.opacity = (value == 1 || value === '') ? '' : - (value < 0.00001) ? 0 : value; - - if (value == 1) - if(element.tagName == 'IMG' && element.width) { - element.width++; element.width--; - } else try { - var n = document.createTextNode(' '); - element.appendChild(n); - element.removeChild(n); - } catch (e) { } - - return element; - }; - - // Safari returns margins on body which is incorrect if the child is absolutely - // positioned. For performance reasons, redefine Element#cumulativeOffset for - // KHTML/WebKit only. - Element.Methods.cumulativeOffset = function(element) { - var valueT = 0, valueL = 0; - do { - valueT += element.offsetTop || 0; - valueL += element.offsetLeft || 0; - if (element.offsetParent == document.body) - if (Element.getStyle(element, 'position') == 'absolute') break; - - element = element.offsetParent; - } while (element); - - return Element._returnOffset(valueL, valueT); - }; -} - -if (Prototype.Browser.IE || Prototype.Browser.Opera) { - // IE and Opera are missing .innerHTML support for TABLE-related and SELECT elements - Element.Methods.update = function(element, content) { - element = $(element); - - if (content && content.toElement) content = content.toElement(); - if (Object.isElement(content)) return element.update().insert(content); - - content = Object.toHTML(content); - var tagName = element.tagName.toUpperCase(); - - if (tagName in Element._insertionTranslations.tags) { - $A(element.childNodes).each(function(node) { element.removeChild(node) }); - Element._getContentFromAnonymousElement(tagName, content.stripScripts()) - .each(function(node) { element.appendChild(node) }); - } - else element.innerHTML = content.stripScripts(); - - content.evalScripts.bind(content).defer(); - return element; - }; -} - -if (document.createElement('div').outerHTML) { - Element.Methods.replace = function(element, content) { - element = $(element); - - if (content && content.toElement) content = content.toElement(); - if (Object.isElement(content)) { - element.parentNode.replaceChild(content, element); - return element; - } - - content = Object.toHTML(content); - var parent = element.parentNode, tagName = parent.tagName.toUpperCase(); - - if (Element._insertionTranslations.tags[tagName]) { - var nextSibling = element.next(); - var fragments = Element._getContentFromAnonymousElement(tagName, content.stripScripts()); - parent.removeChild(element); - if (nextSibling) - fragments.each(function(node) { parent.insertBefore(node, nextSibling) }); - else - fragments.each(function(node) { parent.appendChild(node) }); - } - else element.outerHTML = content.stripScripts(); - - content.evalScripts.bind(content).defer(); - return element; - }; -} - -Element._returnOffset = function(l, t) { - var result = [l, t]; - result.left = l; - result.top = t; - return result; -}; - -Element._getContentFromAnonymousElement = function(tagName, html) { - var div = new Element('div'), t = Element._insertionTranslations.tags[tagName]; - div.innerHTML = t[0] + html + t[1]; - t[2].times(function() { div = div.firstChild }); - return $A(div.childNodes); -}; - -Element._insertionTranslations = { - before: { - adjacency: 'beforeBegin', - insert: function(element, node) { - element.parentNode.insertBefore(node, element); - }, - initializeRange: function(element, range) { - range.setStartBefore(element); - } - }, - top: { - adjacency: 'afterBegin', - insert: function(element, node) { - element.insertBefore(node, element.firstChild); - }, - initializeRange: function(element, range) { - range.selectNodeContents(element); - range.collapse(true); - } - }, - bottom: { - adjacency: 'beforeEnd', - insert: function(element, node) { - element.appendChild(node); - } - }, - after: { - adjacency: 'afterEnd', - insert: function(element, node) { - element.parentNode.insertBefore(node, element.nextSibling); - }, - initializeRange: function(element, range) { - range.setStartAfter(element); - } - }, - tags: { - TABLE: ['', '
    ', 1], - TBODY: ['', '
    ', 2], - TR: ['', '
    ', 3], - TD: ['
    ', '
    ', 4], - SELECT: ['', 1] - } -}; - -(function() { - this.bottom.initializeRange = this.top.initializeRange; - Object.extend(this.tags, { - THEAD: this.tags.TBODY, - TFOOT: this.tags.TBODY, - TH: this.tags.TD - }); -}).call(Element._insertionTranslations); - -Element.Methods.Simulated = { - hasAttribute: function(element, attribute) { - attribute = Element._attributeTranslations.has[attribute] || attribute; - var node = $(element).getAttributeNode(attribute); - return node && node.specified; - } -}; - -Element.Methods.ByTag = { }; - -Object.extend(Element, Element.Methods); - -if (!Prototype.BrowserFeatures.ElementExtensions && - document.createElement('div').__proto__) { - window.HTMLElement = { }; - window.HTMLElement.prototype = document.createElement('div').__proto__; - Prototype.BrowserFeatures.ElementExtensions = true; -} - -Element.extend = (function() { - if (Prototype.BrowserFeatures.SpecificElementExtensions) - return Prototype.K; - - var Methods = { }, ByTag = Element.Methods.ByTag; - - var extend = Object.extend(function(element) { - if (!element || element._extendedByPrototype || - element.nodeType != 1 || element == window) return element; - - var methods = Object.clone(Methods), - tagName = element.tagName, property, value; - - // extend methods for specific tags - if (ByTag[tagName]) Object.extend(methods, ByTag[tagName]); - - for (property in methods) { - value = methods[property]; - if (Object.isFunction(value) && !(property in element)) - element[property] = value.methodize(); - } - - element._extendedByPrototype = Prototype.emptyFunction; - return element; - - }, { - refresh: function() { - // extend methods for all tags (Safari doesn't need this) - if (!Prototype.BrowserFeatures.ElementExtensions) { - Object.extend(Methods, Element.Methods); - Object.extend(Methods, Element.Methods.Simulated); - } - } - }); - - extend.refresh(); - return extend; -})(); - -Element.hasAttribute = function(element, attribute) { - if (element.hasAttribute) return element.hasAttribute(attribute); - return Element.Methods.Simulated.hasAttribute(element, attribute); -}; - -Element.addMethods = function(methods) { - var F = Prototype.BrowserFeatures, T = Element.Methods.ByTag; - - if (!methods) { - Object.extend(Form, Form.Methods); - Object.extend(Form.Element, Form.Element.Methods); - Object.extend(Element.Methods.ByTag, { - "FORM": Object.clone(Form.Methods), - "INPUT": Object.clone(Form.Element.Methods), - "SELECT": Object.clone(Form.Element.Methods), - "TEXTAREA": Object.clone(Form.Element.Methods) - }); - } - - if (arguments.length == 2) { - var tagName = methods; - methods = arguments[1]; - } - - if (!tagName) Object.extend(Element.Methods, methods || { }); - else { - if (Object.isArray(tagName)) tagName.each(extend); - else extend(tagName); - } - - function extend(tagName) { - tagName = tagName.toUpperCase(); - if (!Element.Methods.ByTag[tagName]) - Element.Methods.ByTag[tagName] = { }; - Object.extend(Element.Methods.ByTag[tagName], methods); - } - - function copy(methods, destination, onlyIfAbsent) { - onlyIfAbsent = onlyIfAbsent || false; - for (var property in methods) { - var value = methods[property]; - if (!Object.isFunction(value)) continue; - if (!onlyIfAbsent || !(property in destination)) - destination[property] = value.methodize(); - } - } - - function findDOMClass(tagName) { - var klass; - var trans = { - "OPTGROUP": "OptGroup", "TEXTAREA": "TextArea", "P": "Paragraph", - "FIELDSET": "FieldSet", "UL": "UList", "OL": "OList", "DL": "DList", - "DIR": "Directory", "H1": "Heading", "H2": "Heading", "H3": "Heading", - "H4": "Heading", "H5": "Heading", "H6": "Heading", "Q": "Quote", - "INS": "Mod", "DEL": "Mod", "A": "Anchor", "IMG": "Image", "CAPTION": - "TableCaption", "COL": "TableCol", "COLGROUP": "TableCol", "THEAD": - "TableSection", "TFOOT": "TableSection", "TBODY": "TableSection", "TR": - "TableRow", "TH": "TableCell", "TD": "TableCell", "FRAMESET": - "FrameSet", "IFRAME": "IFrame" - }; - if (trans[tagName]) klass = 'HTML' + trans[tagName] + 'Element'; - if (window[klass]) return window[klass]; - klass = 'HTML' + tagName + 'Element'; - if (window[klass]) return window[klass]; - klass = 'HTML' + tagName.capitalize() + 'Element'; - if (window[klass]) return window[klass]; - - window[klass] = { }; - window[klass].prototype = document.createElement(tagName).__proto__; - return window[klass]; - } - - if (F.ElementExtensions) { - copy(Element.Methods, HTMLElement.prototype); - copy(Element.Methods.Simulated, HTMLElement.prototype, true); - } - - if (F.SpecificElementExtensions) { - for (var tag in Element.Methods.ByTag) { - var klass = findDOMClass(tag); - if (Object.isUndefined(klass)) continue; - copy(T[tag], klass.prototype); - } - } - - Object.extend(Element, Element.Methods); - delete Element.ByTag; - - if (Element.extend.refresh) Element.extend.refresh(); - Element.cache = { }; -}; - -document.viewport = { - getDimensions: function() { - var dimensions = { }; - var B = Prototype.Browser; - $w('width height').each(function(d) { - var D = d.capitalize(); - dimensions[d] = (B.WebKit && !document.evaluate) ? self['inner' + D] : - (B.Opera) ? document.body['client' + D] : document.documentElement['client' + D]; - }); - return dimensions; - }, - - getWidth: function() { - return this.getDimensions().width; - }, - - getHeight: function() { - return this.getDimensions().height; - }, - - getScrollOffsets: function() { - return Element._returnOffset( - window.pageXOffset || document.documentElement.scrollLeft || document.body.scrollLeft, - window.pageYOffset || document.documentElement.scrollTop || document.body.scrollTop); - } -}; -/* Portions of the Selector class are derived from Jack Slocum’s DomQuery, - * part of YUI-Ext version 0.40, distributed under the terms of an MIT-style - * license. Please see http://www.yui-ext.com/ for more information. */ - -var Selector = Class.create({ - initialize: function(expression) { - this.expression = expression.strip(); - this.compileMatcher(); - }, - - shouldUseXPath: function() { - if (!Prototype.BrowserFeatures.XPath) return false; - - var e = this.expression; - - // Safari 3 chokes on :*-of-type and :empty - if (Prototype.Browser.WebKit && - (e.include("-of-type") || e.include(":empty"))) - return false; - - // XPath can't do namespaced attributes, nor can it read - // the "checked" property from DOM nodes - if ((/(\[[\w-]*?:|:checked)/).test(this.expression)) - return false; - - return true; - }, - - compileMatcher: function() { - if (this.shouldUseXPath()) - return this.compileXPathMatcher(); - - var e = this.expression, ps = Selector.patterns, h = Selector.handlers, - c = Selector.criteria, le, p, m; - - if (Selector._cache[e]) { - this.matcher = Selector._cache[e]; - return; - } - - this.matcher = ["this.matcher = function(root) {", - "var r = root, h = Selector.handlers, c = false, n;"]; - - while (e && le != e && (/\S/).test(e)) { - le = e; - for (var i in ps) { - p = ps[i]; - if (m = e.match(p)) { - this.matcher.push(Object.isFunction(c[i]) ? c[i](m) : - new Template(c[i]).evaluate(m)); - e = e.replace(m[0], ''); - break; - } - } - } - - this.matcher.push("return h.unique(n);\n}"); - eval(this.matcher.join('\n')); - Selector._cache[this.expression] = this.matcher; - }, - - compileXPathMatcher: function() { - var e = this.expression, ps = Selector.patterns, - x = Selector.xpath, le, m; - - if (Selector._cache[e]) { - this.xpath = Selector._cache[e]; return; - } - - this.matcher = ['.//*']; - while (e && le != e && (/\S/).test(e)) { - le = e; - for (var i in ps) { - if (m = e.match(ps[i])) { - this.matcher.push(Object.isFunction(x[i]) ? x[i](m) : - new Template(x[i]).evaluate(m)); - e = e.replace(m[0], ''); - break; - } - } - } - - this.xpath = this.matcher.join(''); - Selector._cache[this.expression] = this.xpath; - }, - - findElements: function(root) { - root = root || document; - if (this.xpath) return document._getElementsByXPath(this.xpath, root); - return this.matcher(root); - }, - - match: function(element) { - this.tokens = []; - - var e = this.expression, ps = Selector.patterns, as = Selector.assertions; - var le, p, m; - - while (e && le !== e && (/\S/).test(e)) { - le = e; - for (var i in ps) { - p = ps[i]; - if (m = e.match(p)) { - // use the Selector.assertions methods unless the selector - // is too complex. - if (as[i]) { - this.tokens.push([i, Object.clone(m)]); - e = e.replace(m[0], ''); - } else { - // reluctantly do a document-wide search - // and look for a match in the array - return this.findElements(document).include(element); - } - } - } - } - - var match = true, name, matches; - for (var i = 0, token; token = this.tokens[i]; i++) { - name = token[0], matches = token[1]; - if (!Selector.assertions[name](element, matches)) { - match = false; break; - } - } - - return match; - }, - - toString: function() { - return this.expression; - }, - - inspect: function() { - return "#"; - } -}); - -Object.extend(Selector, { - _cache: { }, - - xpath: { - descendant: "//*", - child: "/*", - adjacent: "/following-sibling::*[1]", - laterSibling: '/following-sibling::*', - tagName: function(m) { - if (m[1] == '*') return ''; - return "[local-name()='" + m[1].toLowerCase() + - "' or local-name()='" + m[1].toUpperCase() + "']"; - }, - className: "[contains(concat(' ', @class, ' '), ' #{1} ')]", - id: "[@id='#{1}']", - attrPresence: function(m) { - m[1] = m[1].toLowerCase(); - return new Template("[@#{1}]").evaluate(m); - }, - attr: function(m) { - m[1] = m[1].toLowerCase(); - m[3] = m[5] || m[6]; - return new Template(Selector.xpath.operators[m[2]]).evaluate(m); - }, - pseudo: function(m) { - var h = Selector.xpath.pseudos[m[1]]; - if (!h) return ''; - if (Object.isFunction(h)) return h(m); - return new Template(Selector.xpath.pseudos[m[1]]).evaluate(m); - }, - operators: { - '=': "[@#{1}='#{3}']", - '!=': "[@#{1}!='#{3}']", - '^=': "[starts-with(@#{1}, '#{3}')]", - '$=': "[substring(@#{1}, (string-length(@#{1}) - string-length('#{3}') + 1))='#{3}']", - '*=': "[contains(@#{1}, '#{3}')]", - '~=': "[contains(concat(' ', @#{1}, ' '), ' #{3} ')]", - '|=': "[contains(concat('-', @#{1}, '-'), '-#{3}-')]" - }, - pseudos: { - 'first-child': '[not(preceding-sibling::*)]', - 'last-child': '[not(following-sibling::*)]', - 'only-child': '[not(preceding-sibling::* or following-sibling::*)]', - 'empty': "[count(*) = 0 and (count(text()) = 0 or translate(text(), ' \t\r\n', '') = '')]", - 'checked': "[@checked]", - 'disabled': "[@disabled]", - 'enabled': "[not(@disabled)]", - 'not': function(m) { - var e = m[6], p = Selector.patterns, - x = Selector.xpath, le, v; - - var exclusion = []; - while (e && le != e && (/\S/).test(e)) { - le = e; - for (var i in p) { - if (m = e.match(p[i])) { - v = Object.isFunction(x[i]) ? x[i](m) : new Template(x[i]).evaluate(m); - exclusion.push("(" + v.substring(1, v.length - 1) + ")"); - e = e.replace(m[0], ''); - break; - } - } - } - return "[not(" + exclusion.join(" and ") + ")]"; - }, - 'nth-child': function(m) { - return Selector.xpath.pseudos.nth("(count(./preceding-sibling::*) + 1) ", m); - }, - 'nth-last-child': function(m) { - return Selector.xpath.pseudos.nth("(count(./following-sibling::*) + 1) ", m); - }, - 'nth-of-type': function(m) { - return Selector.xpath.pseudos.nth("position() ", m); - }, - 'nth-last-of-type': function(m) { - return Selector.xpath.pseudos.nth("(last() + 1 - position()) ", m); - }, - 'first-of-type': function(m) { - m[6] = "1"; return Selector.xpath.pseudos['nth-of-type'](m); - }, - 'last-of-type': function(m) { - m[6] = "1"; return Selector.xpath.pseudos['nth-last-of-type'](m); - }, - 'only-of-type': function(m) { - var p = Selector.xpath.pseudos; return p['first-of-type'](m) + p['last-of-type'](m); - }, - nth: function(fragment, m) { - var mm, formula = m[6], predicate; - if (formula == 'even') formula = '2n+0'; - if (formula == 'odd') formula = '2n+1'; - if (mm = formula.match(/^(\d+)$/)) // digit only - return '[' + fragment + "= " + mm[1] + ']'; - if (mm = formula.match(/^(-?\d*)?n(([+-])(\d+))?/)) { // an+b - if (mm[1] == "-") mm[1] = -1; - var a = mm[1] ? Number(mm[1]) : 1; - var b = mm[2] ? Number(mm[2]) : 0; - predicate = "[((#{fragment} - #{b}) mod #{a} = 0) and " + - "((#{fragment} - #{b}) div #{a} >= 0)]"; - return new Template(predicate).evaluate({ - fragment: fragment, a: a, b: b }); - } - } - } - }, - - criteria: { - tagName: 'n = h.tagName(n, r, "#{1}", c); c = false;', - className: 'n = h.className(n, r, "#{1}", c); c = false;', - id: 'n = h.id(n, r, "#{1}", c); c = false;', - attrPresence: 'n = h.attrPresence(n, r, "#{1}"); c = false;', - attr: function(m) { - m[3] = (m[5] || m[6]); - return new Template('n = h.attr(n, r, "#{1}", "#{3}", "#{2}"); c = false;').evaluate(m); - }, - pseudo: function(m) { - if (m[6]) m[6] = m[6].replace(/"/g, '\\"'); - return new Template('n = h.pseudo(n, "#{1}", "#{6}", r, c); c = false;').evaluate(m); - }, - descendant: 'c = "descendant";', - child: 'c = "child";', - adjacent: 'c = "adjacent";', - laterSibling: 'c = "laterSibling";' - }, - - patterns: { - // combinators must be listed first - // (and descendant needs to be last combinator) - laterSibling: /^\s*~\s*/, - child: /^\s*>\s*/, - adjacent: /^\s*\+\s*/, - descendant: /^\s/, - - // selectors follow - tagName: /^\s*(\*|[\w\-]+)(\b|$)?/, - id: /^#([\w\-\*]+)(\b|$)/, - className: /^\.([\w\-\*]+)(\b|$)/, - pseudo: /^:((first|last|nth|nth-last|only)(-child|-of-type)|empty|checked|(en|dis)abled|not)(\((.*?)\))?(\b|$|(?=\s)|(?=:))/, - attrPresence: /^\[([\w]+)\]/, - attr: /\[((?:[\w-]*:)?[\w-]+)\s*(?:([!^$*~|]?=)\s*((['"])([^\4]*?)\4|([^'"][^\]]*?)))?\]/ - }, - - // for Selector.match and Element#match - assertions: { - tagName: function(element, matches) { - return matches[1].toUpperCase() == element.tagName.toUpperCase(); - }, - - className: function(element, matches) { - return Element.hasClassName(element, matches[1]); - }, - - id: function(element, matches) { - return element.id === matches[1]; - }, - - attrPresence: function(element, matches) { - return Element.hasAttribute(element, matches[1]); - }, - - attr: function(element, matches) { - var nodeValue = Element.readAttribute(element, matches[1]); - return Selector.operators[matches[2]](nodeValue, matches[3]); - } - }, - - handlers: { - // UTILITY FUNCTIONS - // joins two collections - concat: function(a, b) { - for (var i = 0, node; node = b[i]; i++) - a.push(node); - return a; - }, - - // marks an array of nodes for counting - mark: function(nodes) { - for (var i = 0, node; node = nodes[i]; i++) - node._counted = true; - return nodes; - }, - - unmark: function(nodes) { - for (var i = 0, node; node = nodes[i]; i++) - node._counted = undefined; - return nodes; - }, - - // mark each child node with its position (for nth calls) - // "ofType" flag indicates whether we're indexing for nth-of-type - // rather than nth-child - index: function(parentNode, reverse, ofType) { - parentNode._counted = true; - if (reverse) { - for (var nodes = parentNode.childNodes, i = nodes.length - 1, j = 1; i >= 0; i--) { - var node = nodes[i]; - if (node.nodeType == 1 && (!ofType || node._counted)) node.nodeIndex = j++; - } - } else { - for (var i = 0, j = 1, nodes = parentNode.childNodes; node = nodes[i]; i++) - if (node.nodeType == 1 && (!ofType || node._counted)) node.nodeIndex = j++; - } - }, - - // filters out duplicates and extends all nodes - unique: function(nodes) { - if (nodes.length == 0) return nodes; - var results = [], n; - for (var i = 0, l = nodes.length; i < l; i++) - if (!(n = nodes[i])._counted) { - n._counted = true; - results.push(Element.extend(n)); - } - return Selector.handlers.unmark(results); - }, - - // COMBINATOR FUNCTIONS - descendant: function(nodes) { - var h = Selector.handlers; - for (var i = 0, results = [], node; node = nodes[i]; i++) - h.concat(results, node.getElementsByTagName('*')); - return results; - }, - - child: function(nodes) { - var h = Selector.handlers; - for (var i = 0, results = [], node; node = nodes[i]; i++) { - for (var j = 0, child; child = node.childNodes[j]; j++) - if (child.nodeType == 1 && child.tagName != '!') results.push(child); - } - return results; - }, - - adjacent: function(nodes) { - for (var i = 0, results = [], node; node = nodes[i]; i++) { - var next = this.nextElementSibling(node); - if (next) results.push(next); - } - return results; - }, - - laterSibling: function(nodes) { - var h = Selector.handlers; - for (var i = 0, results = [], node; node = nodes[i]; i++) - h.concat(results, Element.nextSiblings(node)); - return results; - }, - - nextElementSibling: function(node) { - while (node = node.nextSibling) - if (node.nodeType == 1) return node; - return null; - }, - - previousElementSibling: function(node) { - while (node = node.previousSibling) - if (node.nodeType == 1) return node; - return null; - }, - - // TOKEN FUNCTIONS - tagName: function(nodes, root, tagName, combinator) { - tagName = tagName.toUpperCase(); - var results = [], h = Selector.handlers; - if (nodes) { - if (combinator) { - // fastlane for ordinary descendant combinators - if (combinator == "descendant") { - for (var i = 0, node; node = nodes[i]; i++) - h.concat(results, node.getElementsByTagName(tagName)); - return results; - } else nodes = this[combinator](nodes); - if (tagName == "*") return nodes; - } - for (var i = 0, node; node = nodes[i]; i++) - if (node.tagName.toUpperCase() == tagName) results.push(node); - return results; - } else return root.getElementsByTagName(tagName); - }, - - id: function(nodes, root, id, combinator) { - var targetNode = $(id), h = Selector.handlers; - if (!targetNode) return []; - if (!nodes && root == document) return [targetNode]; - if (nodes) { - if (combinator) { - if (combinator == 'child') { - for (var i = 0, node; node = nodes[i]; i++) - if (targetNode.parentNode == node) return [targetNode]; - } else if (combinator == 'descendant') { - for (var i = 0, node; node = nodes[i]; i++) - if (Element.descendantOf(targetNode, node)) return [targetNode]; - } else if (combinator == 'adjacent') { - for (var i = 0, node; node = nodes[i]; i++) - if (Selector.handlers.previousElementSibling(targetNode) == node) - return [targetNode]; - } else nodes = h[combinator](nodes); - } - for (var i = 0, node; node = nodes[i]; i++) - if (node == targetNode) return [targetNode]; - return []; - } - return (targetNode && Element.descendantOf(targetNode, root)) ? [targetNode] : []; - }, - - className: function(nodes, root, className, combinator) { - if (nodes && combinator) nodes = this[combinator](nodes); - return Selector.handlers.byClassName(nodes, root, className); - }, - - byClassName: function(nodes, root, className) { - if (!nodes) nodes = Selector.handlers.descendant([root]); - var needle = ' ' + className + ' '; - for (var i = 0, results = [], node, nodeClassName; node = nodes[i]; i++) { - nodeClassName = node.className; - if (nodeClassName.length == 0) continue; - if (nodeClassName == className || (' ' + nodeClassName + ' ').include(needle)) - results.push(node); - } - return results; - }, - - attrPresence: function(nodes, root, attr) { - if (!nodes) nodes = root.getElementsByTagName("*"); - var results = []; - for (var i = 0, node; node = nodes[i]; i++) - if (Element.hasAttribute(node, attr)) results.push(node); - return results; - }, - - attr: function(nodes, root, attr, value, operator) { - if (!nodes) nodes = root.getElementsByTagName("*"); - var handler = Selector.operators[operator], results = []; - for (var i = 0, node; node = nodes[i]; i++) { - var nodeValue = Element.readAttribute(node, attr); - if (nodeValue === null) continue; - if (handler(nodeValue, value)) results.push(node); - } - return results; - }, - - pseudo: function(nodes, name, value, root, combinator) { - if (nodes && combinator) nodes = this[combinator](nodes); - if (!nodes) nodes = root.getElementsByTagName("*"); - return Selector.pseudos[name](nodes, value, root); - } - }, - - pseudos: { - 'first-child': function(nodes, value, root) { - for (var i = 0, results = [], node; node = nodes[i]; i++) { - if (Selector.handlers.previousElementSibling(node)) continue; - results.push(node); - } - return results; - }, - 'last-child': function(nodes, value, root) { - for (var i = 0, results = [], node; node = nodes[i]; i++) { - if (Selector.handlers.nextElementSibling(node)) continue; - results.push(node); - } - return results; - }, - 'only-child': function(nodes, value, root) { - var h = Selector.handlers; - for (var i = 0, results = [], node; node = nodes[i]; i++) - if (!h.previousElementSibling(node) && !h.nextElementSibling(node)) - results.push(node); - return results; - }, - 'nth-child': function(nodes, formula, root) { - return Selector.pseudos.nth(nodes, formula, root); - }, - 'nth-last-child': function(nodes, formula, root) { - return Selector.pseudos.nth(nodes, formula, root, true); - }, - 'nth-of-type': function(nodes, formula, root) { - return Selector.pseudos.nth(nodes, formula, root, false, true); - }, - 'nth-last-of-type': function(nodes, formula, root) { - return Selector.pseudos.nth(nodes, formula, root, true, true); - }, - 'first-of-type': function(nodes, formula, root) { - return Selector.pseudos.nth(nodes, "1", root, false, true); - }, - 'last-of-type': function(nodes, formula, root) { - return Selector.pseudos.nth(nodes, "1", root, true, true); - }, - 'only-of-type': function(nodes, formula, root) { - var p = Selector.pseudos; - return p['last-of-type'](p['first-of-type'](nodes, formula, root), formula, root); - }, - - // handles the an+b logic - getIndices: function(a, b, total) { - if (a == 0) return b > 0 ? [b] : []; - return $R(1, total).inject([], function(memo, i) { - if (0 == (i - b) % a && (i - b) / a >= 0) memo.push(i); - return memo; - }); - }, - - // handles nth(-last)-child, nth(-last)-of-type, and (first|last)-of-type - nth: function(nodes, formula, root, reverse, ofType) { - if (nodes.length == 0) return []; - if (formula == 'even') formula = '2n+0'; - if (formula == 'odd') formula = '2n+1'; - var h = Selector.handlers, results = [], indexed = [], m; - h.mark(nodes); - for (var i = 0, node; node = nodes[i]; i++) { - if (!node.parentNode._counted) { - h.index(node.parentNode, reverse, ofType); - indexed.push(node.parentNode); - } - } - if (formula.match(/^\d+$/)) { // just a number - formula = Number(formula); - for (var i = 0, node; node = nodes[i]; i++) - if (node.nodeIndex == formula) results.push(node); - } else if (m = formula.match(/^(-?\d*)?n(([+-])(\d+))?/)) { // an+b - if (m[1] == "-") m[1] = -1; - var a = m[1] ? Number(m[1]) : 1; - var b = m[2] ? Number(m[2]) : 0; - var indices = Selector.pseudos.getIndices(a, b, nodes.length); - for (var i = 0, node, l = indices.length; node = nodes[i]; i++) { - for (var j = 0; j < l; j++) - if (node.nodeIndex == indices[j]) results.push(node); - } - } - h.unmark(nodes); - h.unmark(indexed); - return results; - }, - - 'empty': function(nodes, value, root) { - for (var i = 0, results = [], node; node = nodes[i]; i++) { - // IE treats comments as element nodes - if (node.tagName == '!' || (node.firstChild && !node.innerHTML.match(/^\s*$/))) continue; - results.push(node); - } - return results; - }, - - 'not': function(nodes, selector, root) { - var h = Selector.handlers, selectorType, m; - var exclusions = new Selector(selector).findElements(root); - h.mark(exclusions); - for (var i = 0, results = [], node; node = nodes[i]; i++) - if (!node._counted) results.push(node); - h.unmark(exclusions); - return results; - }, - - 'enabled': function(nodes, value, root) { - for (var i = 0, results = [], node; node = nodes[i]; i++) - if (!node.disabled) results.push(node); - return results; - }, - - 'disabled': function(nodes, value, root) { - for (var i = 0, results = [], node; node = nodes[i]; i++) - if (node.disabled) results.push(node); - return results; - }, - - 'checked': function(nodes, value, root) { - for (var i = 0, results = [], node; node = nodes[i]; i++) - if (node.checked) results.push(node); - return results; - } - }, - - operators: { - '=': function(nv, v) { return nv == v; }, - '!=': function(nv, v) { return nv != v; }, - '^=': function(nv, v) { return nv.startsWith(v); }, - '$=': function(nv, v) { return nv.endsWith(v); }, - '*=': function(nv, v) { return nv.include(v); }, - '~=': function(nv, v) { return (' ' + nv + ' ').include(' ' + v + ' '); }, - '|=': function(nv, v) { return ('-' + nv.toUpperCase() + '-').include('-' + v.toUpperCase() + '-'); } - }, - - matchElements: function(elements, expression) { - var matches = new Selector(expression).findElements(), h = Selector.handlers; - h.mark(matches); - for (var i = 0, results = [], element; element = elements[i]; i++) - if (element._counted) results.push(element); - h.unmark(matches); - return results; - }, - - findElement: function(elements, expression, index) { - if (Object.isNumber(expression)) { - index = expression; expression = false; - } - return Selector.matchElements(elements, expression || '*')[index || 0]; - }, - - findChildElements: function(element, expressions) { - var exprs = expressions.join(','); - expressions = []; - exprs.scan(/(([\w#:.~>+()\s-]+|\*|\[.*?\])+)\s*(,|$)/, function(m) { - expressions.push(m[1].strip()); - }); - var results = [], h = Selector.handlers; - for (var i = 0, l = expressions.length, selector; i < l; i++) { - selector = new Selector(expressions[i].strip()); - h.concat(results, selector.findElements(element)); - } - return (l > 1) ? h.unique(results) : results; - } -}); - -if (Prototype.Browser.IE) { - // IE returns comment nodes on getElementsByTagName("*"). - // Filter them out. - Selector.handlers.concat = function(a, b) { - for (var i = 0, node; node = b[i]; i++) - if (node.tagName !== "!") a.push(node); - return a; - }; -} - -function $$() { - return Selector.findChildElements(document, $A(arguments)); -} -var Form = { - reset: function(form) { - $(form).reset(); - return form; - }, - - serializeElements: function(elements, options) { - if (typeof options != 'object') options = { hash: !!options }; - else if (Object.isUndefined(options.hash)) options.hash = true; - var key, value, submitted = false, submit = options.submit; - - var data = elements.inject({ }, function(result, element) { - if (!element.disabled && element.name) { - key = element.name; value = $(element).getValue(); - if (value != null && (element.type != 'submit' || (!submitted && - submit !== false && (!submit || key == submit) && (submitted = true)))) { - if (key in result) { - // a key is already present; construct an array of values - if (!Object.isArray(result[key])) result[key] = [result[key]]; - result[key].push(value); - } - else result[key] = value; - } - } - return result; - }); - - return options.hash ? data : Object.toQueryString(data); - } -}; - -Form.Methods = { - serialize: function(form, options) { - return Form.serializeElements(Form.getElements(form), options); - }, - - getElements: function(form) { - return $A($(form).getElementsByTagName('*')).inject([], - function(elements, child) { - if (Form.Element.Serializers[child.tagName.toLowerCase()]) - elements.push(Element.extend(child)); - return elements; - } - ); - }, - - getInputs: function(form, typeName, name) { - form = $(form); - var inputs = form.getElementsByTagName('input'); - - if (!typeName && !name) return $A(inputs).map(Element.extend); - - for (var i = 0, matchingInputs = [], length = inputs.length; i < length; i++) { - var input = inputs[i]; - if ((typeName && input.type != typeName) || (name && input.name != name)) - continue; - matchingInputs.push(Element.extend(input)); - } - - return matchingInputs; - }, - - disable: function(form) { - form = $(form); - Form.getElements(form).invoke('disable'); - return form; - }, - - enable: function(form) { - form = $(form); - Form.getElements(form).invoke('enable'); - return form; - }, - - findFirstElement: function(form) { - var elements = $(form).getElements().findAll(function(element) { - return 'hidden' != element.type && !element.disabled; - }); - var firstByIndex = elements.findAll(function(element) { - return element.hasAttribute('tabIndex') && element.tabIndex >= 0; - }).sortBy(function(element) { return element.tabIndex }).first(); - - return firstByIndex ? firstByIndex : elements.find(function(element) { - return ['input', 'select', 'textarea'].include(element.tagName.toLowerCase()); - }); - }, - - focusFirstElement: function(form) { - form = $(form); - form.findFirstElement().activate(); - return form; - }, - - request: function(form, options) { - form = $(form), options = Object.clone(options || { }); - - var params = options.parameters, action = form.readAttribute('action') || ''; - if (action.blank()) action = window.location.href; - options.parameters = form.serialize(true); - - if (params) { - if (Object.isString(params)) params = params.toQueryParams(); - Object.extend(options.parameters, params); - } - - if (form.hasAttribute('method') && !options.method) - options.method = form.method; - - return new Ajax.Request(action, options); - } -}; - -/*--------------------------------------------------------------------------*/ - -Form.Element = { - focus: function(element) { - $(element).focus(); - return element; - }, - - select: function(element) { - $(element).select(); - return element; - } -}; - -Form.Element.Methods = { - serialize: function(element) { - element = $(element); - if (!element.disabled && element.name) { - var value = element.getValue(); - if (value != undefined) { - var pair = { }; - pair[element.name] = value; - return Object.toQueryString(pair); - } - } - return ''; - }, - - getValue: function(element) { - element = $(element); - var method = element.tagName.toLowerCase(); - return Form.Element.Serializers[method](element); - }, - - setValue: function(element, value) { - element = $(element); - var method = element.tagName.toLowerCase(); - Form.Element.Serializers[method](element, value); - return element; - }, - - clear: function(element) { - $(element).value = ''; - return element; - }, - - present: function(element) { - return $(element).value != ''; - }, - - activate: function(element) { - element = $(element); - try { - element.focus(); - if (element.select && (element.tagName.toLowerCase() != 'input' || - !['button', 'reset', 'submit'].include(element.type))) - element.select(); - } catch (e) { } - return element; - }, - - disable: function(element) { - element = $(element); - element.blur(); - element.disabled = true; - return element; - }, - - enable: function(element) { - element = $(element); - element.disabled = false; - return element; - } -}; - -/*--------------------------------------------------------------------------*/ - -var Field = Form.Element; -var $F = Form.Element.Methods.getValue; - -/*--------------------------------------------------------------------------*/ - -Form.Element.Serializers = { - input: function(element, value) { - switch (element.type.toLowerCase()) { - case 'checkbox': - case 'radio': - return Form.Element.Serializers.inputSelector(element, value); - default: - return Form.Element.Serializers.textarea(element, value); - } - }, - - inputSelector: function(element, value) { - if (Object.isUndefined(value)) return element.checked ? element.value : null; - else element.checked = !!value; - }, - - textarea: function(element, value) { - if (Object.isUndefined(value)) return element.value; - else element.value = value; - }, - - select: function(element, index) { - if (Object.isUndefined(index)) - return this[element.type == 'select-one' ? - 'selectOne' : 'selectMany'](element); - else { - var opt, value, single = !Object.isArray(index); - for (var i = 0, length = element.length; i < length; i++) { - opt = element.options[i]; - value = this.optionValue(opt); - if (single) { - if (value == index) { - opt.selected = true; - return; - } - } - else opt.selected = index.include(value); - } - } - }, - - selectOne: function(element) { - var index = element.selectedIndex; - return index >= 0 ? this.optionValue(element.options[index]) : null; - }, - - selectMany: function(element) { - var values, length = element.length; - if (!length) return null; - - for (var i = 0, values = []; i < length; i++) { - var opt = element.options[i]; - if (opt.selected) values.push(this.optionValue(opt)); - } - return values; - }, - - optionValue: function(opt) { - // extend element because hasAttribute may not be native - return Element.extend(opt).hasAttribute('value') ? opt.value : opt.text; - } -}; - -/*--------------------------------------------------------------------------*/ - -Abstract.TimedObserver = Class.create(PeriodicalExecuter, { - initialize: function($super, element, frequency, callback) { - $super(callback, frequency); - this.element = $(element); - this.lastValue = this.getValue(); - }, - - execute: function() { - var value = this.getValue(); - if (Object.isString(this.lastValue) && Object.isString(value) ? - this.lastValue != value : String(this.lastValue) != String(value)) { - this.callback(this.element, value); - this.lastValue = value; - } - } -}); - -Form.Element.Observer = Class.create(Abstract.TimedObserver, { - getValue: function() { - return Form.Element.getValue(this.element); - } -}); - -Form.Observer = Class.create(Abstract.TimedObserver, { - getValue: function() { - return Form.serialize(this.element); - } -}); - -/*--------------------------------------------------------------------------*/ - -Abstract.EventObserver = Class.create({ - initialize: function(element, callback) { - this.element = $(element); - this.callback = callback; - - this.lastValue = this.getValue(); - if (this.element.tagName.toLowerCase() == 'form') - this.registerFormCallbacks(); - else - this.registerCallback(this.element); - }, - - onElementEvent: function() { - var value = this.getValue(); - if (this.lastValue != value) { - this.callback(this.element, value); - this.lastValue = value; - } - }, - - registerFormCallbacks: function() { - Form.getElements(this.element).each(this.registerCallback, this); - }, - - registerCallback: function(element) { - if (element.type) { - switch (element.type.toLowerCase()) { - case 'checkbox': - case 'radio': - Event.observe(element, 'click', this.onElementEvent.bind(this)); - break; - default: - Event.observe(element, 'change', this.onElementEvent.bind(this)); - break; - } - } - } -}); - -Form.Element.EventObserver = Class.create(Abstract.EventObserver, { - getValue: function() { - return Form.Element.getValue(this.element); - } -}); - -Form.EventObserver = Class.create(Abstract.EventObserver, { - getValue: function() { - return Form.serialize(this.element); - } -}); -if (!window.Event) var Event = { }; - -Object.extend(Event, { - KEY_BACKSPACE: 8, - KEY_TAB: 9, - KEY_RETURN: 13, - KEY_ESC: 27, - KEY_LEFT: 37, - KEY_UP: 38, - KEY_RIGHT: 39, - KEY_DOWN: 40, - KEY_DELETE: 46, - KEY_HOME: 36, - KEY_END: 35, - KEY_PAGEUP: 33, - KEY_PAGEDOWN: 34, - KEY_INSERT: 45, - - cache: { }, - - relatedTarget: function(event) { - var element; - switch(event.type) { - case 'mouseover': element = event.fromElement; break; - case 'mouseout': element = event.toElement; break; - default: return null; - } - return Element.extend(element); - } -}); - -Event.Methods = (function() { - var isButton; - - if (Prototype.Browser.IE) { - var buttonMap = { 0: 1, 1: 4, 2: 2 }; - isButton = function(event, code) { - return event.button == buttonMap[code]; - }; - - } else if (Prototype.Browser.WebKit) { - isButton = function(event, code) { - switch (code) { - case 0: return event.which == 1 && !event.metaKey; - case 1: return event.which == 1 && event.metaKey; - default: return false; - } - }; - - } else { - isButton = function(event, code) { - return event.which ? (event.which === code + 1) : (event.button === code); - }; - } - - return { - isLeftClick: function(event) { return isButton(event, 0) }, - isMiddleClick: function(event) { return isButton(event, 1) }, - isRightClick: function(event) { return isButton(event, 2) }, - - element: function(event) { - var node = Event.extend(event).target; - return Element.extend(node.nodeType == Node.TEXT_NODE ? node.parentNode : node); - }, - - findElement: function(event, expression) { - var element = Event.element(event); - if (!expression) return element; - var elements = [element].concat(element.ancestors()); - return Selector.findElement(elements, expression, 0); - }, - - pointer: function(event) { - return { - x: event.pageX || (event.clientX + - (document.documentElement.scrollLeft || document.body.scrollLeft)), - y: event.pageY || (event.clientY + - (document.documentElement.scrollTop || document.body.scrollTop)) - }; - }, - - pointerX: function(event) { return Event.pointer(event).x }, - pointerY: function(event) { return Event.pointer(event).y }, - - stop: function(event) { - Event.extend(event); - event.preventDefault(); - event.stopPropagation(); - event.stopped = true; - } - }; -})(); - -Event.extend = (function() { - var methods = Object.keys(Event.Methods).inject({ }, function(m, name) { - m[name] = Event.Methods[name].methodize(); - return m; - }); - - if (Prototype.Browser.IE) { - Object.extend(methods, { - stopPropagation: function() { this.cancelBubble = true }, - preventDefault: function() { this.returnValue = false }, - inspect: function() { return "[object Event]" } - }); - - return function(event) { - if (!event) return false; - if (event._extendedByPrototype) return event; - - event._extendedByPrototype = Prototype.emptyFunction; - var pointer = Event.pointer(event); - Object.extend(event, { - target: event.srcElement, - relatedTarget: Event.relatedTarget(event), - pageX: pointer.x, - pageY: pointer.y - }); - return Object.extend(event, methods); - }; - - } else { - Event.prototype = Event.prototype || document.createEvent("HTMLEvents").__proto__; - Object.extend(Event.prototype, methods); - return Prototype.K; - } -})(); - -Object.extend(Event, (function() { - var cache = Event.cache; - - function getEventID(element) { - if (element._eventID) return element._eventID; - arguments.callee.id = arguments.callee.id || 1; - return element._eventID = ++arguments.callee.id; - } - - function getDOMEventName(eventName) { - if (eventName && eventName.include(':')) return "dataavailable"; - return eventName; - } - - function getCacheForID(id) { - return cache[id] = cache[id] || { }; - } - - function getWrappersForEventName(id, eventName) { - var c = getCacheForID(id); - return c[eventName] = c[eventName] || []; - } - - function createWrapper(element, eventName, handler) { - var id = getEventID(element); - var c = getWrappersForEventName(id, eventName); - if (c.pluck("handler").include(handler)) return false; - - var wrapper = function(event) { - if (!Event || !Event.extend || - (event.eventName && event.eventName != eventName)) - return false; - - Event.extend(event); - handler.call(element, event) - }; - - wrapper.handler = handler; - c.push(wrapper); - return wrapper; - } - - function findWrapper(id, eventName, handler) { - var c = getWrappersForEventName(id, eventName); - return c.find(function(wrapper) { return wrapper.handler == handler }); - } - - function destroyWrapper(id, eventName, handler) { - var c = getCacheForID(id); - if (!c[eventName]) return false; - c[eventName] = c[eventName].without(findWrapper(id, eventName, handler)); - } - - function destroyCache() { - for (var id in cache) - for (var eventName in cache[id]) - cache[id][eventName] = null; - } - - if (window.attachEvent) { - window.attachEvent("onunload", destroyCache); - } - - return { - observe: function(element, eventName, handler) { - element = $(element); - var name = getDOMEventName(eventName); - - var wrapper = createWrapper(element, eventName, handler); - if (!wrapper) return element; - - if (element.addEventListener) { - element.addEventListener(name, wrapper, false); - } else { - element.attachEvent("on" + name, wrapper); - } - - return element; - }, - - stopObserving: function(element, eventName, handler) { - element = $(element); - var id = getEventID(element), name = getDOMEventName(eventName); - - if (!handler && eventName) { - getWrappersForEventName(id, eventName).each(function(wrapper) { - element.stopObserving(eventName, wrapper.handler); - }); - return element; - - } else if (!eventName) { - Object.keys(getCacheForID(id)).each(function(eventName) { - element.stopObserving(eventName); - }); - return element; - } - - var wrapper = findWrapper(id, eventName, handler); - if (!wrapper) return element; - - if (element.removeEventListener) { - element.removeEventListener(name, wrapper, false); - } else { - element.detachEvent("on" + name, wrapper); - } - - destroyWrapper(id, eventName, handler); - - return element; - }, - - fire: function(element, eventName, memo) { - element = $(element); - if (element == document && document.createEvent && !element.dispatchEvent) - element = document.documentElement; - - if (document.createEvent) { - var event = document.createEvent("HTMLEvents"); - event.initEvent("dataavailable", true, true); - } else { - var event = document.createEventObject(); - event.eventType = "ondataavailable"; - } - - event.eventName = eventName; - event.memo = memo || { }; - - if (document.createEvent) { - element.dispatchEvent(event); - } else { - element.fireEvent(event.eventType, event); - } - - return Event.extend(event); - } - }; -})()); - -Object.extend(Event, Event.Methods); - -Element.addMethods({ - fire: Event.fire, - observe: Event.observe, - stopObserving: Event.stopObserving -}); - -Object.extend(document, { - fire: Element.Methods.fire.methodize(), - observe: Element.Methods.observe.methodize(), - stopObserving: Element.Methods.stopObserving.methodize() -}); - -(function() { - /* Support for the DOMContentLoaded event is based on work by Dan Webb, - Matthias Miller, Dean Edwards and John Resig. */ - - var timer, fired = false; - - function fireContentLoadedEvent() { - if (fired) return; - if (timer) window.clearInterval(timer); - document.fire("dom:loaded"); - fired = true; - } - - if (document.addEventListener) { - if (Prototype.Browser.WebKit) { - timer = window.setInterval(function() { - if (/loaded|complete/.test(document.readyState)) - fireContentLoadedEvent(); - }, 0); - - Event.observe(window, "load", fireContentLoadedEvent); - - } else { - document.addEventListener("DOMContentLoaded", - fireContentLoadedEvent, false); - } - - } else { - document.write("