diff --git a/.XCompose b/.XCompose deleted file mode 100644 index 8cbf0d6..0000000 --- a/.XCompose +++ /dev/null @@ -1,476 +0,0 @@ -include "%L" - : U01E0 - : U01E1 - : U0237 - : U013F - : U0140 - : U0230 - : U0231 - : U0307 - : U1E64 - : U1E65 - : U01D7 - : U01D8 -# : combining_acute - : U1E68 - : U1E69 -# : combining_belowdot -# : combining_belowdot -# : combining_belowdot - : Abreveacute - : Abrevegrave - : Abrevehook - : Abrevetilde - : abreveacute - : abrevegrave - : abrevehook - : abrevetilde - : U0306 - : U208D - : U208E - : U208A - : U208B - <0> : zerosubscript - <1> : onesubscript - <2> : twosubscript - <3> : threesubscript - <4> : foursubscript - <5> : fivesubscript - <6> : sixsubscript - <7> : sevensubscript - <8> : eightsubscript - <9> : ninesubscript - : U208C - : U01C5 - : U1E66 - : U1E67 - : U01D9 - : U01DA - : U030C - : U1E08 - : U20B5 - : U1E09 - : U20B5 - : U1E1C - : U1E1D - : U0327 - : U207B - : Acircumflexacute - : Acircumflexgrave - : Acircumflexhook - : Acircumflextilde - : acircumflexacute - : acircumflexgrave - : acircumflexhook - : acircumflextilde - : Ecircumflexacute - : Ecircumflexgrave - : Ecircumflexhook - : Ecircumflextilde - : ecircumflexacute - : ecircumflexgrave - : ecircumflexhook - : ecircumflextilde - : Ocircumflexacute - : Ocircumflexgrave - : Ocircumflexhook - : Ocircumflextilde - : ocircumflexacute - : ocircumflexgrave - : ocircumflexhook - : ocircumflextilde - : U0302 - : U0218 - : U0219 - : U021A - : U021B - : comma - : U0326 - : comma - : U20B3 - : U060B - : U20B1 - : Thai_baht - : U20B5 - : ColonSign - : U20B5 - : cent - : U20AF - : DongSign - : EcuSign - : EuroSign - : FFrancSign - : function - : U20B2 - : U20B2 - : U20B4 - : U20B4 - : U17DB - : UFDFC - : U20AD - : U20AD - : LiraSign - : sterling - : U2133 - : MillSign - : NairaSign - : NairaSign - : U0AF1 - : U0BF9 -

: PesetaSign -

: Greek_PI -

: Greek_pi - : Greek_CHI - : Greek_chi - : Greek_RHO - : Greek_rho - : Greek_SIGMA - : Greek_sigma - : Greek_TAU - : Greek_tau - : Greek_UPSILON - : Greek_upsilon - : Greek_OMEGA - : Greek_omega - : Greek_XI - : Greek_xi - : Greek_PSI - : Greek_psi - : Greek_ZETA - : Greek_zeta - : mu - : mu - : mu - : U0181 - : U0253 - : U0187 - : U0188 - : U018A - : U0257 - : U1D91 - : U0191 - : function - : U0193 - : U0260 - : U0266 - : U0284 - : U0198 - : U0199 - : U2C6E - : U0271 - : U019D - : U0272 -

: U01A4 -

: U01A5 - : U02A0 - : U0282 - : U025A - : U01AC - : U01AD - : U01B2 - : U028B - : U2C72 - : U2C73 - : U0224 - : U0225 - : U0309 - : U0309 - : U0309 - : Ohornacute - : Ohornbelowdot - : Ohorngrave - : Ohornhook - : Ohorntilde - : ohornacute - : ohornbelowdot - : ohorngrave - : ohornhook - : ohorntilde - : Uhornacute - : Uhornbelowdot - : Uhorngrave - : Uhornhook - : Uhorntilde - : uhornacute - : uhornbelowdot - : uhorngrave - : uhornhook - : uhorntilde - : U031B - : U031B - : U031B - : U1E16 - : U1E14 - : U1E17 - : U1E15 - : U1E52 - : U1E50 - : U1E53 - : U1E51 - : U01D5 - : U01D6 - : U0304 - : U01EC - : U01ED - : U0328 - : U01FA - : U01FB - : U030A - <2> : U01BB - : notequal - : U023A - : U2C65 - : U0243 - : U0180 - : U023B - : U023C - : Dstroke - : dstroke - : U0246 - : U0247 - : U01E4 - : U01E5 - : U226F - : U2271 - : Hstroke - : hstroke - : U0197 - : U0268 - : U0248 - : U0249 - : U1D7C - : U025F - : Lstroke - : lstroke - : U226E - : U2270 - : U01FE - : Oslash - : U01FF - : oslash -

: U2C63 -

: U1D7D - : U024C - : U024D - : Tslash - : tslash - : U0244 - : U0289 - : U024E - : U024F - : Zstroke - : zstroke - : slash - : U0338 - : slash - : U1E4C - : U1E4E - : U022C - : U1E4D - : U1E4F - : U022D - : U1E78 - : U1E79 - : similarequal - : U2272 - : U2273 -# : combining_tilde - : U1E64 - : U1E65 - : U1E68 - : U1E69 - : U1E66 - : U1E67 - : U01E0 - : U01E1 - : U0230 - : U0231 - : U025F - : U025F - : Abreveacute - : abreveacute - : U1E08 - : U1E09 - : Acircumflexacute - : acircumflexacute - : Ecircumflexacute - : ecircumflexacute - : Ocircumflexacute - : ocircumflexacute - : U1E2E - : U1E2F - : U01D7 - : U01D8 - : Ohornacute - : ohornacute - : Uhornacute - : uhornacute - : U1E16 - : U1E17 - : U1E52 - : U1E53 - : U01FA - : U01FB - : U01FE - : U01FE - : U01FF - : U01FF - : U1E4C - : U1E4D - : U1E78 - : U1E79 - : Abrevebelowdot - : abrevebelowdot - : Acircumflexbelowdot - : acircumflexbelowdot - : Ecircumflexbelowdot - : ecircumflexbelowdot - : Ocircumflexbelowdot - : ocircumflexbelowdot - : Ohornbelowdot - : ohornbelowdot - : Uhornbelowdot - : uhornbelowdot - : U1E38 - : U1E39 - : U1E5C - : U1E5D - : U1E1C - : U1E1D - : Abrevegrave - : abrevegrave - : Abrevehook - : abrevehook - : Abrevetilde - : abrevetilde - : U01D9 - : U01DA - : U20B5 - : U20B5 - : U20B5 - : U20B5 - : Acircumflexgrave - : acircumflexgrave - : Ecircumflexgrave - : ecircumflexgrave - : Ocircumflexgrave - : ocircumflexgrave - : Acircumflexhook - : acircumflexhook - : Ecircumflexhook - : ecircumflexhook - : Ocircumflexhook - : ocircumflexhook - : Acircumflextilde - : acircumflextilde - : Ecircumflextilde - : ecircumflextilde - : Ocircumflextilde - : ocircumflextilde - : U01DB - : U01DC - : U01DE - : U01DF - : U022A - : U022B - : U1E4E - : U1E4F - : Ohorngrave - : ohorngrave - : Uhorngrave - : uhorngrave - : U1E14 - : U1E15 - : U1E50 - : U1E51 - : U03D2 - : U03D2 - : U1FB9 - : U1FB9 - : U1FB1 - : U1FB1 - : U1FD9 - : U1FD9 - : U1FD1 - : U1FD1 - : U1FE9 - : U1FE9 - : U1FE1 - : U1FE1 - : U03FC - : U03FC - : Ohornhook - : ohornhook - : Uhornhook - : uhornhook - : Ohorntilde - : ohorntilde - : Uhorntilde - : uhorntilde - : U01EC - : U01ED - : U022C - : U022D diff --git a/.ackrc b/.ackrc deleted file mode 100644 index 6ba045d..0000000 --- a/.ackrc +++ /dev/null @@ -1 +0,0 @@ ---type-set=json=.json diff --git a/.chunkwmrc b/.chunkwmrc deleted file mode 100755 index bc72fd1..0000000 --- a/.chunkwmrc +++ /dev/null @@ -1,135 +0,0 @@ -#!/bin/bash - -# -# NOTE: specify the absolutepath to the directory to use when -# loading a plugin. '~' expansion is supported. -# - -chunkc core::plugin_dir /usr/local/opt/chunkwm/share/chunkwm/plugins -chunkc core::log_file /usr/local/var/log/chunkwm/chunkwm.log - -# -# NOTE: if enabled, chunkwm will monitor the specified plugin_dir -# and automatically reload any '.so' file that is changed. -# - -chunkc core::hotload 1 - -# -# NOTE: the following are config variables for the chunkwm-tiling plugin. -# - -chunkc set global_desktop_mode monocle -#chunkc set 2_desktop_mode bsp -#chunkc set 5_desktop_mode float - -#chunkc set 1_desktop_tree ~/.chunkwm_layouts/dev_1 - -chunkc set global_desktop_offset_top 30 -chunkc set global_desktop_offset_bottom 10 -chunkc set global_desktop_offset_left 10 -chunkc set global_desktop_offset_right 10 -chunkc set global_desktop_offset_gap 10 - -#chunkc set 1_desktop_offset_top 190 -#chunkc set 1_desktop_offset_bottom 190 -#chunkc set 1_desktop_offset_left 190 -#chunkc set 1_desktop_offset_right 190 -#chunkc set 1_desktop_offset_gap 15 - -#chunkc set 3_desktop_offset_top 190 -#chunkc set 3_desktop_offset_bottom 190 -#chunkc set 3_desktop_offset_left 190 -#chunkc set 3_desktop_offset_right 190 - -chunkc set desktop_padding_step_size 10.0 -chunkc set desktop_gap_step_size 5.0 - -chunkc set bsp_spawn_left 1 -chunkc set bsp_optimal_ratio 1.618 -chunkc set bsp_split_mode optimal -chunkc set bsp_split_ratio 0.5 - -chunkc set window_focus_cycle monitor -chunkc set mouse_follows_focus 1 -chunkc set window_float_next 0 -chunkc set window_float_center 1 -chunkc set window_region_locked 1 - -# -# NOTE: shell commands require escaped quotes -# to pass value containing a whitespace. -# -# chunkc set mouse_modifier \"cmd shift\" -chunkc set mouse_modifier fn - -chunkc set preselect_border_color 0xffd75f5f -chunkc set preselect_border_width 5 -chunkc set preselect_border_radius 0 - -# -# NOTE: these settings require chwm-sa. -# (https://github.com/koekeishiya/chwm-sa) -# - -chunkc set window_float_topmost 0 -chunkc set window_fade_inactive 0 -chunkc set window_fade_alpha 0.85 -chunkc set window_fade_duration 0.25 -chunkc set window_use_cgs_move 0 - -# -# NOTE: the following are config variables for the chunkwm-border plugin. -# - -chunkc set focused_border_color 0xddbdd322 -chunkc set focused_border_width 5 -chunkc set focused_border_radius 5 -chunkc set focused_border_skip_floating 1 -chunkc set focused_border_skip_monocle 0 - -# -# NOTE: specify plugins to load when chunkwm starts. -# if chunkc plugin_dir is not set, the absolutepath is necessary. -# - -chunkc core::load border.so -chunkc core::load tiling.so -# chunkc core::load ffm.so - -# -# NOTE: shell commands require escaped quotes -# to pass value containing a whitespace. -# - -chunkc tiling::rule --owner Spotify --role AXWindow --subrole AXDialog --state tile -chunkc tiling::rule --owner iTerm2 --role AXWindow --subrole AXDialog --state tile -chunkc tiling::rule --owner Finder --name Copy --state float - -chunkc tiling::rule --owner \"App Store\" --state float -chunkc tiling::rule --owner \"Arq\" --state float -chunkc tiling::rule --owner \"Lightroom\" --state float -chunkc tiling::rule --owner \"Steam\" --state float -chunkc tiling::rule --owner \"Stickies\" --state float -chunkc tiling::rule --owner \"System Preferences\" --state float -chunkc tiling::rule --owner \"DEVONagent\" --state float -chunkc tiling::rule --owner \"nvALT\" --state float -chunkc tiling::rule --owner \"Day One\" --state float -chunkc tiling::rule --owner \"1Password 7\" --name ".*1Password mini.*" --state float -chunkc tiling::rule --owner \"1Password 7\" --except ".*1Password mini.*" --state tile -chunkc tiling::rule --owner \"Buckets\" --state float -chunkc tiling::rule --owner \"Electron\" --state float -chunkc tiling::rule --owner \"GlassBrowser\" --state float -chunkc tiling::rule --owner \"Helium\" --state float -chunkc tiling::rule --owner \"QuickTime Player\" --state float -chunkc tiling::rule --owner \"MultiFirefox\" --state float -chunkc tiling::rule --owner \"Cathode\" --state float -chunkc tiling::rule --owner \"VLC\" --state float -chunkc tiling::rule --owner \"IINA\" --state float -chunkc tiling::rule --owner \"Emacs\" --state tile -chunkc tiling::rule --owner \"Alfred Preferences\" --state float -chunkc tiling::rule --owner \"Adobe Lightroom CC\" --state float -chunkc tiling::rule --owner \"IntelliJ IDEA\" --name ".+Documents/work/git.+" --state tile -chunkc tiling::rule --owner \"IntelliJ IDEA\" --except ".+Documents/work/git.+" --state float -chunkc tiling::rule --owner \"GoLand\" --name ".+Documents/work/git.+" --state tile -chunkc tiling::rule --owner \"GoLand\" --except ".+Documents/work/git.+" --state float diff --git a/.config/alacritty.toml b/.config/alacritty.toml new file mode 100644 index 0000000..e0f7fff --- /dev/null +++ b/.config/alacritty.toml @@ -0,0 +1,63 @@ +[colors.bright] +black = "#4c566a" +blue = "#81a1c1" +cyan = "#8fbcbb" +green = "#a3be8c" +magenta = "#b48ead" +red = "#bf616a" +white = "#eceff4" +yellow = "#ebcb8b" + +[colors.cursor] +cursor = "#d8dee9" +text = "#2e3440" + +[colors.dim] +black = "#373e4d" +blue = "#68809a" +cyan = "#6d96a5" +green = "#809575" +magenta = "#8c738c" +red = "#94545d" +white = "#aeb3bb" +yellow = "#b29e75" + +[colors.normal] +black = "#3b4252" +blue = "#81a1c1" +cyan = "#88c0d0" +green = "#a3be8c" +magenta = "#b48ead" +red = "#bf616a" +white = "#e5e9f0" +yellow = "#ebcb8b" + +[colors.primary] +background = "#2e3440" +dim_foreground = "#a5abb6" +foreground = "#d8dee9" + +[colors.search.footer_bar] +background = "#434c5e" +foreground = "#d8dee9" + +[colors.search.matches] +background = "#88c0d0" +foreground = "CellBackground" + +[colors.selection] +background = "#4c566a" +text = "CellForeground" + +[colors.vi_mode_cursor] +cursor = "#d8dee9" +text = "#2e3440" + +[font] +size = 9.0 + +[font.glyph_offset] +y = -2 + +[font.normal] +family = "Liberation Mono" diff --git a/.config/nix/nix.conf b/.config/nix/nix.conf new file mode 100644 index 0000000..002e7b4 --- /dev/null +++ b/.config/nix/nix.conf @@ -0,0 +1 @@ +allow-dirty = true diff --git a/.emacs.backup b/.emacs.backup deleted file mode 100644 index 6861bf1..0000000 --- a/.emacs.backup +++ /dev/null @@ -1,15 +0,0 @@ -(defconst dot-emacs (concat (getenv "HOME") "/" ".emacs.hunner.el") - "My dot emacs file") - -(require 'bytecomp) -(setq compiled-dot-emacs (byte-compile-dest-file dot-emacs)) - -(if (or (not (file-exists-p compiled-dot-emacs)) - (file-newer-than-file-p dot-emacs compiled-dot-emacs) - (equal (nth 4 (file-attributes dot-emacs)) (list 0 0))) - (load dot-emacs) - (load compiled-dot-emacs)) - -(add-hook 'kill-emacs-hook - '(lambda () (and (file-newer-than-file-p dot-emacs compiled-dot-emacs) - (byte-compile-file dot-emacs)))) diff --git a/.emacs.d.backup/babel.el b/.emacs.d.backup/babel.el deleted file mode 100644 index c569d38..0000000 --- a/.emacs.d.backup/babel.el +++ /dev/null @@ -1,939 +0,0 @@ -;;; babel.el --- interface to web translation services such as Babelfish -;;; -;;; Git blob $Id$ -;;; -;;; Author: Eric Marsden -;;; Juergen Hoetzel -;;; Keywords: translation, web -;;; Copyright: (C) 1999-2001 Eric Marsden -;;; 2005-2009 Juergen Hoetzel -;; -;; 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. -;; -;; Please send suggestions and bug reports to . -;; The latest version of this package should be available at -;; -;; http://github.com/juergenhoetzel/babel/tree/master - -;;; Commentary: - -;;; Overview ========================================================== -;; -;; This module provides an Emacs interface to different translation -;; services available on the Internet. You give it a word or paragraph -;; to translate and select the source and destination languages, and -;; it connects to the translation server, retrieves the data, and -;; presents it in a special *babel* buffer. Currently the following -;; backends are available: -;; -;; * the FOSS MT platform Apertium -;; * the Babelfish service at babelfish.yahoo.com -;; * the Google service at translate.google.com -;; * the Transparent Language motor at FreeTranslation.com - -;; -;; Entry points: either 'M-x babel', which prompts for a phrase, a -;; language pair and a backend, or 'M-x babel-region', which prompts -;; for a language pair and backend, then translates the currently -;; selected region, and 'M-x babel-buffer' to translate the current -;; buffer. -;; - -;; If you ask for a language combination which several backends could -;; translate, babel.el will allow you to choose which backend to -;; use. Since most servers have limits on the quantity of text -;; translated, babel.el will split long requests into translatable -;; chunks and submit them sequentially. -;; -;; Please note that the washing process (which takes the raw HTML -;; returned by a translation server and attempts to extract the useful -;; information) is fragile, and can easily be broken by a change in -;; the server's output format. In that case, check whether a new -;; version is available (and if not, warn me; I don't translate into -;; Welsh very often). -;; -;; Also note that by accessing an online translation service you are -;; bound by its Terms and Conditions; in particular -;; FreeTranslation.com is for "personal, non-commercial use only". -;; -;; -;; Installation ======================================================== -;; -;; Place this file in a directory in your load-path (to see a list of -;; appropriate directories, type 'C-h v load-path RET'). Optionally -;; byte-compile the file (for example using the 'B' key when the -;; cursor is on the filename in a dired buffer). Then add the -;; following lines to your ~/.emacs.el initialization file: -;; -;; (autoload 'babel "babel" -;; "Use a web translation service to translate the message MSG." t) -;; (autoload 'babel-region "babel" -;; "Use a web translation service to translate the current region." t) -;; (autoload 'babel-as-string "babel" -;; "Use a web translation service to translate MSG, returning a string." t) -;; (autoload 'babel-buffer "babel" -;; "Use a web translation service to translate the current buffer." t) -;; -;; babel.el requires emacs >= 23 -;; -;; -;; Backend information ================================================= -;; -;; A babel backend named must provide three functions: -;; -;; (babel--translation from to) -;; -;; where FROM and TO are three-letter language abbreviations from -;; the alist `babel-languages'. This should return non-nil if the -;; backend is capable of translating between these two languages. -;; -;; (babel--fetch msg from to) -;; -;; where FROM and TO are as above, and MSG is the text to -;; translate. Connect to the appropriate server and fetch the raw -;; HTML corresponding to the request. -;; -;; (babel--wash) -;; -;; When called on a buffer containing the raw HTML provided by the -;; server, remove all the uninteresting text and HTML markup. -;; -;; I would be glad to incorporate backends for new translation servers -;; which are accessible to the general public. -;; -;; babel.el was inspired by a posting to the ding list by Steinar Bang -;; . Morten Eriksen provided several -;; patches to improve InterTrans washing. Thanks to Per Abrahamsen and -;; Thomas Lofgren for pointing out a bug in the keymap code. Matt -;; Hodges suggested ignoring case -;; on completion. Colin Marquardt suggested -;; `babel-preferred-to-language'. David Masterson suggested adding a -;; menu item. Andy Stewart provided -;; `babel-remember-window-configuration' functionality, output window -;; adjustments and more improvements. -;; -;; User quotes: Dieses ist die größte Sache seit geschnittenem Brot. -;; -- Stainless Steel Rat - -;;; History - -;; Discontinued Log (Use GIT: git://github.com/juergenhoetzel/babel.git) - -;; 1.4 * `babel-region' now yank the translation instead insert him at -;; point. - -;; 1.3 n* Added new Google languages - -;; 1.2 * Added FOSS MT platform Apertium -;; (by Kevin Brubeck Unhammer) -;; * Assume UTF-8, if HTTP header missing - -;; 1.1 * Fixed invalid language code mapping for serveral -;; languages - -;; 1.0 * Fixed Google backend (new regex) -;; * New custom variables `babel-buffer-name', -;; `babel-echo-area', `babel-select-output-window' -;; * Disable use of echo area usage on xemacs if lines > 1 -;; (resize of minibuffer does not work reliable) -;; * `babel-url-retrieve' fix for xemacs from Uwe Brauer - -;; 0.9 * Use `babel-buffer-name' for output buffer - -;; 0.8 * Remember window config if `babel-remember-window-configuration' -;; is non-nil. -;; * made *babel* buffer read-only -;; * use echo area (like `shell-command') -;; * New functions `babel-as-string-default',`babel-region-default', -;; `babel-buffer-default', `babel-smart' (provided by Andy) - - -;; 0.7 * error handling if no backend is available for translating -;; the supplied languages -;; * rely on url-* functions (for charset decoding) on GNU emacs -;; * increased chunk size for better performance -;; * added support for all Google languages -;; * `babel-region' with prefix argument inserts the translation -;; output at point. - -;; 0.6 * get rid of w3-region (implementend basic html entity parsing) -;; * get rid of w3-form-encode-xwfu (using mm-url-form-encode-xwfu) -;; * no character classes in regex (for xemacs compatibility) -;; * default backend: Google - -;; 0.5: * Fixed Google and Babelfish backends - -;; 0.4: * revised FreeTranslation backend - -;;; 0.3: * removed non-working backends: systran, intertrans, leo, e-PROMPT -;;; * added Google backend -;;; * revised UTF-8 handling -;;; * Added customizable variables: babel-preferred-to-language, babel-preferred-from-language -;;; * revised history handling -;;; * added helper function: babel-wash-regex - - -;; TODO: -;; -;; * Use google xml output -;; -;; * Adjust output window height. Current versions use -;; `with-current-buffer' instead `with-output-to-temp-buffer'. So -;; `temp-buffer-show-hook' will fail to adjust output window height -;; -> Use (fit-window-to-buffer nil babel-max-window-height) to -;; adjust output window height in new version. -;; -;; * use non-blocking `url-retrieve' -;; -;; * improve function `babel-simple-html-parse'. -;; -;; * In `babel-quite' function, should be add (boundp -;; 'babel-previous-window-configuration) to make value of -;; `babel-previous-window-configuration' is valid -;; - - -(require 'cl) -(require 'mm-url) -(require 'json) -(require 'easymenu) - -;; xemacs compatibility -(eval-and-compile - (when (featurep 'xemacs) - (defun url-retrieve-synchronously (url) - (save-excursion - (cdr (url-retrieve url)))))) - -;; ====================================================================== -;;; Customizables -;; ====================================================================== -(defgroup babel nil - "provides an Emacs interface to different translation services available on the Internet" - :group 'applications) - - -(defconst babel-version "1.4" - "The version number of babel.el") - -(defconst babel-languages - '(("Afrikaans" . "af") - ("Albanian" . "sq") - ("Arabic" . "ar") - ("Belarusian" . "be") - ("Bulgarian" . "bg") - ("Catalan" . "ca") - ("Chinese" . "zh-CN") - ("Croatian" . "hr") - ("Czech" . "cs") - ("Danish" . "da") - ("Dutch" . "nl") - ("English" . "en") - ("Estonian" . "et") - ("Filipino" . "tl") - ("Finnish" . "fi") - ("French" . "fr") - ("Galician" . "gl") - ("German" . "de") - ("Greek" . "el") - ("Hebrew" . "iw") - ("Hindi" . "hi") - ("Hungarian" . "hu") - ("Icelandic" . "is") - ("Indonesian" . "id") - ("Irish" . "ga") - ("Italian" . "it") - ("Japanese" . "ja") - ("Korean" . "ko") - ("Latvian" . "lv") - ("Lithuanian" . "lt") - ("Macedonian" . "mk") - ("Malay" . "ms") - ("Maltese" . "mt") - ("Norwegian" . "no") - ("Persian" . "fa") - ("Polish" . "pl") - ("Portuguese" . "pt") - ("Romanian" . "ro") - ("Russian" . "ru") - ("Serbian" . "sr") - ("Slovak" . "sk") - ("Slovenian" . "sl") - ("Spanish" . "es") - ("Swahili" . "sw") - ("Swedish" . "sv") - ("Thai" . "th") - ("Turkish" . "tr") - ("Ukrainian" . "uk") - ("Vietnamese" . "vi") - ("Welsh" . "cy") - ("Yiddish" . "yi"))) - -(defcustom babel-preferred-to-language "German" - "*Default target translation language. -This must be the long name of one of the languages in the alist" - :type `(choice ,@(mapcar (lambda (s) `(const ,(car s))) babel-languages)) - :set (lambda (symbol value) - (set-default symbol value) - (setq babel-to-history (list value))) - :group 'babel) - -(defcustom babel-preferred-from-language "English" - "*Default target translation language. -This must be the long name of one of the languages in the alist" - :type `(choice ,@(mapcar (lambda (s) `(const ,(car s))) babel-languages)) - :set (lambda (symbol value) - (set-default symbol value) - (setq babel-from-history (list value))) - :group 'babel) - - -(defcustom babel-remember-window-configuration t - "Whether remeber window configuration before transform. If this -variable is t, will use `babel-quit' command restore window -configuration." - :type 'boolean - :group 'babel) - -(defcustom babel-max-window-height 30 - "The max height that babel output window." - :type 'integer - :group 'babel) - - - -(defcustom babel-buffer-name "*babel*" - "The buffer name of `babel' transform output." - :type 'string - :group 'babel) - -(defcustom babel-echo-area t - "If this option is `non-nil' and the output is short enough to - display in the echo area (which is determined by the variables - `resize-mini-windows' and `max-mini-window-height'), it is shown in - echo area. - - Default is `t'." - :type 'boolean - :group 'babel) - -(defcustom babel-select-output-window t - "Select output window after transform complete. - This is useful when you have a complex window layout. - Save you time to switch babel output window." - :type 'boolean - :group 'babel) - - -(defvar babel-previous-window-configuration nil - "The window configuration before transform.") - -(defvar babel-to-history (list babel-preferred-to-language)) -(defvar babel-from-history (list babel-preferred-to-language)) -(defvar babel-backend-history (list)) - -(defvar babel-mode-hook nil) - -(defvar babel-mode-map - (let ((map (make-sparse-keymap))) - (define-key map (kbd "q") #'bury-buffer) - (define-key map (kbd "SPC") #'scroll-up) - (define-key map (kbd "DEL") #'scroll-down) - (define-key map (kbd "<") #'beginning-of-buffer) - (define-key map (kbd ">") #'end-of-buffer) - (define-key map (kbd "s") #'isearch-forward) - (define-key map (kbd "r") #'isearch-backward) - (define-key map (kbd "h") #'describe-mode) - map) - "Keymap used in Babel mode.") - -(defvar babel-backends - '(("Google" . google) - ("Babelfish at Yahoo" . fish) - ("FreeTranslation" . free) - ("Apertium" . apertium)) - "List of backends for babel translations.") - -(defun babel-sentence-end() - "portability function. emacs 22.0.50 introduced sentence-end -function, not available on other emacsen" - (if (fboundp 'sentence-end) - (sentence-end) - sentence-end)) - -;; xemacs compatibility -(eval-and-compile - (if (featurep 'xemacs) - ;; XEmacs - (defun babel-url-retrieve (url) - "Retrieve URL and decode" - (let ((current (current-buffer)) - (tmp (url-retrieve-synchronously url))) - (with-current-buffer tmp - ;;shrug: we asume utf8 - (decode-coding-region (point-min) (point-max) 'utf-8) - (copy-to-buffer current (point-min) (point-max))))) - ;; GNUs Emacs - (require 'url-handlers) - (defun babel-url-retrieve (url) - (let* ((url-show-status nil) - (tmp (url-retrieve-synchronously url))) - (unless (cadr (url-insert tmp)) - (mm-decode-coding-region (point-min) (point-max) 'utf-8)))))) - -(defun babel-wash-regex (regex) - "Extract the useful information from the HTML returned by fetch function -translated text should be inside parenthesized expression in regex" - (goto-char (point-min)) - (if (search-forward-regexp regex (point-max) t) - (progn - (delete-region (match-end 1) (point-max)) - (delete-region (point-min) (match-beginning 1)) - t))) - -;;;###autoload -(defun babel (msg &optional no-display accept-default-setup) - "Use a web translation service to translate the message MSG. -Display the result in a buffer *babel* unless the optional argument -NO-DISPLAY is nil. - -If the output is short enough to display in the echo area (which is -determined by the variables `resize-mini-windows' and -`max-mini-window-height'), it is shown there, but it is nonetheless -available in buffer `*babel*' even though that buffer is not -automatically displayed." - (interactive "sTranslate phrase: ") - (let* ((completion-ignore-case t) - (from-suggest (or (first babel-from-history) (caar babel-languages))) - (from-long - (if accept-default-setup - babel-preferred-from-language - (completing-read (format "Translate from (%s): " from-suggest) - babel-languages nil t - nil - 'babel-from-history - from-suggest))) - (to-avail (remove* from-long babel-languages - :test #'(lambda (a b) (string= a (car b))))) - (to-suggest (or (first - (remove* from-long babel-to-history - :test #'string=)) - (caar to-avail))) - (to-long - (if accept-default-setup - babel-preferred-to-language - (completing-read (format "Translate to (%s): " to-suggest) - to-avail nil t - nil - 'babel-to-history - to-suggest))) - (from (cdr (assoc from-long babel-languages))) - (to (cdr (assoc to-long babel-languages))) - (backends (babel-get-backends from to))) - (if (not backends) - (error "No Backend available for translating %s to %s" - from-long to-long) - (let* ((backend-str - (if accept-default-setup (caar backends) - (completing-read "Using translation service: " - backends nil t - (cons (or (member (first babel-backend-history) - backends) (caar backends)) 0) - 'babel-backend-history))) - (backend (symbol-name (cdr (assoc backend-str babel-backends)))) - (fetcher (intern (concat "babel-" backend "-fetch"))) - (washer (intern (concat "babel-" backend "-wash"))) - (chunks (babel-chunkify msg 7000)) - (translated-chunks '()) - (view-read-only nil)) - (loop for chunk in chunks - do (push (babel-work chunk from to fetcher washer) - translated-chunks)) - (if no-display - (apply #'concat (nreverse translated-chunks)) - (let ((pop-up-frames nil) - (temp-buffer-show-hook - '(lambda () - (fit-window-to-buffer nil babel-max-window-height) - (shrink-window-if-larger-than-buffer)))) - (if (and babel-remember-window-configuration - (null babel-previous-window-configuration)) - (setq babel-previous-window-configuration (current-window-configuration))) - (with-current-buffer - (get-buffer-create babel-buffer-name) - ;; ensure buffer is writeable - (setq buffer-read-only nil) - (erase-buffer) - (loop for tc in (nreverse translated-chunks) - do (insert tc)) - (save-excursion - (with-current-buffer babel-buffer-name - (let ((lines - (if (= (buffer-size) 0) - 0 - ;; xemacs compatibility - (if (not (featurep 'xemacs)) - (count-screen-lines nil nil nil (minibuffer-window)) - (count-lines (point-min) (point-max)))))) - (babel-mode) - (cond ((= lines 0)) - ((and babel-echo-area (or (<= lines 1) - (and (not (featurep 'xemacs)) - (<= lines - (if resize-mini-windows - (cond ((floatp max-mini-window-height) - (* (frame-height) - max-mini-window-height)) - ((integerp max-mini-window-height) - max-mini-window-height) - (t - 1)) - 1)))) - ;; Don't use the echo area if the output buffer is - ;; already dispayed in the selected frame. - (not (get-buffer-window (current-buffer)))) - ;; Echo area - (goto-char (point-max)) - (when (bolp) - (backward-char 1)) - (message "%s" (buffer-substring (point-min) (point)))) - (t - ;; Buffer - (goto-char (point-min)) - (display-buffer (current-buffer)))))))))))))) - -(defun babel-as-string-default (msg) - "Use a web translation service to translate MSG, returning a string." - (interactive "sTranslate phrase: ") - (babel msg t t)) - -(defun babel-region-default (start end &optional arg) - "Use a web translation service to translate the current region. - With prefix argument, yank the translation to the kill-ring." - (interactive "r\nP") - (if arg - (kill-new (babel (buffer-substring-no-properties start end) t)) - (babel (buffer-substring-no-properties start end) nil t))) - -(defun babel-buffer-default () - "Use a web translation service to translate the current buffer. - Default is to present the translated text in a *babel* buffer. - With a prefix argument, replace the current buffer contents by the - translated text." - (interactive) - (let (pos) - (cond (prefix-arg - (setq pos (point-max)) - (goto-char pos) - (insert - (babel-as-string-default - (buffer-substring-no-properties (point-min) (point-max)))) - (delete-region (point-min) pos)) - (t - (babel-region-default (point-min) (point-max)))))) - - (defun babel-smart (&optional prefix) - "Smart babel function. If you use prefix keystroke, prompt with - input. Same effect with `babel'. If mark active with current buffer, - transform region. Same effect with `babel-region'. Otherwise - transform all content of current buffer. Same effect with - `babel-buffer'." - (interactive "P") - (if (null prefix) - (if mark-active - (babel-region-default (region-beginning) (region-end) 'yank) - (babel-buffer-default)) - (babel (read-string "Translate phrase: ") nil t))) - -(defun babel-quit () - "Quit babel window. If `babel-remember-window-configuration' is t, -restore window configuration before transform. Otherwise just do -`bury-buffer'." - (interactive) - (if (and babel-remember-window-configuration - babel-previous-window-configuration) - (progn - (kill-buffer (get-buffer babel-buffer-name)) - (set-window-configuration babel-previous-window-configuration) - (setq babel-previous-window-configuration nil)) - (bury-buffer))) - -;;;###autoload -(defun babel-region (start end &optional arg) - "Use a web translation service to translate the current region. -With prefix argument, yank the translation to the kill-ring." - (interactive "r\nP") - (if arg - (kill-new (babel (buffer-substring-no-properties start end) t)) - (babel (buffer-substring-no-properties start end)))) - -;;;###autoload -(defun babel-as-string (msg) - "Use a web translation service to translate MSG, returning a string." - (interactive "sTranslate phrase: ") - (babel msg t)) - -;; suggested by Djalil Chafai -;; -;;;###autoload -(defun babel-buffer () - "Use a web translation service to translate the current buffer. -Default is to present the translated text in a *babel* buffer. -With a prefix argument, replace the current buffer contents by the -translated text." - (interactive) - (let (pos) - (cond (prefix-arg - (setq pos (point-max)) - (goto-char pos) - (insert - (babel-as-string - (buffer-substring-no-properties (point-min) (point-max)))) - (delete-region (point-min) pos)) - (t - (babel-region (point-min) (point-max)))))) - -(defun babel-work (msg from to fetcher washer) - (with-temp-buffer - (funcall fetcher (babel-preprocess msg) from to) - (funcall washer) - (babel-postprocess) - (babel-simple-html-parse) - (buffer-substring-no-properties (point-min) (point-max)))) - -(defun babel-get-backends (from to) - "Return a list of those backends which are capable of translating -language FROM into language TO." - (loop for b in babel-backends - for name = (symbol-name (cdr b)) - for translator = (intern (concat "babel-" name "-translation")) - for translatable = (funcall translator from to) - if translatable collect b)) - - -(defconst babel-html-entity-regex - "&\\(#\\([0-9]+\\)\\|\\([a-zA-Z]+\\)\\);") - -(defun babel-decode-html-entitiy (str) - (if (and str (string-match babel-html-entity-regex - str)) - (if (string= (substring str 1 2) "#") - ;TODO: xemacs - (if (not (featurep 'xemacs)) - (let ((number (match-string-no-properties 2 str))) - (decode-char 'ucs (string-to-number number))) - str) - (let ((letter (match-string-no-properties 3 str))) - (cond ((string= "gt" letter) ">") - ((string= "lt" letter) "<") - (t "?")))))) - -(defun babel-display () - "Parse and display the region of this for basic HTML entities." - (save-excursion - (goto-char (point-min)) - (while (and (< (point) (point-max)) (search-forward-regexp - babel-html-entity-regex - (point-max) t)) - (let* ((start (match-beginning 0)) - (end (match-end 0)) - (entity (buffer-substring start end)) - (replacement (babel-decode-html-entitiy entity))) - (delete-region start end) - (insert replacement))))) - -(defun babel-mode () - (interactive) - (kill-all-local-variables) - (use-local-map babel-mode-map) - (setq major-mode 'babel-mode - mode-name "Babel" - buffer-read-only t) - (buffer-disable-undo) - (run-hooks 'babel-mode-hook)) - -(cond ((fboundp 'string-make-unibyte) - (fset 'babel-make-unibyte #'string-make-unibyte)) - ((fboundp 'string-as-unibyte) - (fset 'babel-make-unibyte #'string-as-unibyte)) - (t - (fset 'babel-make-unibyte #'identity))) - -;; from nnweb.el, with added `string-make-unibyte'. -(defun babel-form-encode (pairs) - "Return PAIRS encoded for forms." - (mapconcat - (lambda (data) - (concat (mm-url-form-encode-xwfu (babel-make-unibyte (car data))) "=" - (mm-url-form-encode-xwfu (babel-make-unibyte (cdr data))))) - pairs "&")) - -;; We mark paragraph endings with a special token, so that we can -;; recover a little information on the original message's format after -;; translation and washing and rendering. Should really be using -;; `paragraph-start' and `paragraph-separate' here, but we no longer -;; have any information on the major-mode of the buffer that STR was -;; ripped from. -;; -;; This kludge depends on the fact that all the translation motors -;; seem to leave words they don't know how to translate alone, passing -;; them through untouched. -(defun babel-preprocess (str) - (while (string-match "\n\n\\|^\\s-+$" str) - (setq str (replace-match " FLOBSiCLE " nil t str))) - str) - -;; decode paragraph endings in current buffer -(defun babel-postprocess () - (goto-char (point-min)) - (while (search-forward "FLOBSiCLE" nil t) - (replace-match "\n

" nil t))) - -(defun babel-simple-html-parse () - "Replace basic html markup" - (goto-char (point-min)) - (while (re-search-forward "<\\(br\\|p\\)/?>" nil t) - (replace-match "\n")) - (goto-char (point-min)) - (while (re-search-forward "^[ \t]+" nil t) - (replace-match ""))) - -;; split STR into chunks of around LENGTH characters, trying to -;; maintain sentence structure (this is used to send big requests in -;; several batches, because otherwise the motors cut off the -;; translation). -(defun babel-chunkify (str chunksize) - (let ((start 0) - (pos 0) - (chunks '())) - (while (setq pos (string-match (babel-sentence-end) str pos)) - (incf pos) - (when (> (- pos start) chunksize) - (push (substring str start pos) chunks) - (setq start pos))) - (when (/= start (length str)) - (push (substring str start) chunks)) - (nreverse chunks))) - -;;;###autoload -(defun babel-version (&optional here) - "Show the version number of babel in the minibuffer. -If optional argument HERE is non-nil, insert version number at point." - (interactive "P") - (let ((version-string - (format "Babel version %s" babel-version))) - (if here - (insert version-string) - (if (interactive-p) - (message "%s" version-string) - version-string)))) - - -;; Babelfish-specific functions ================================================ -;; -;; Babelfish (which uses the SysTran engine) is only able to translate -;; between a limited number of languages. - -;; translation from generic names to Babelfish 2-letter names -(defconst babel-fish-languages - '(("en" . "en") - ("de" . "de") - ("it" . "it") - ("pt" . "pt") - ("es" . "es") - ("fr" . "fr"))) - -;; those inter-language translations that Babelfish is capable of -(defconst babel-fish-translations - '("en_fr" "en_de" "en_it" "en_pt" "en_es" "fr_en" "de_en" "it_en" - "es_en" "pt_en")) - -;; if Babelfish is able to translate from language FROM to language -;; TO, then return the corresponding string, otherwise return nil -(defun babel-fish-translation (from to) - (let* ((fromb (cdr (assoc from babel-fish-languages))) - (tob (cdr (assoc to babel-fish-languages))) - (comb (and fromb tob (concat fromb "_" tob)))) - (find comb babel-fish-translations :test #'string=))) - -(defun babel-fish-fetch (msg from to) - "Connect to the Babelfish server and request the translation." - (let ((translation (babel-fish-translation from to))) - (unless translation - (error "Babelfish can't translate from %s to %s" from to)) - (let* ((pairs `(("trtext" . ,(mm-encode-coding-string msg 'utf-8)) - ("lp" . ,translation) - ("ei" . "UTF-8") - ("doit" . "done") - ("fr" . "bf-res") - ("intl" . "1") - ("tt" . "urltext") - ("btnTrTxt" . "Translate"))) - (url-request-data (babel-form-encode pairs)) - (url-request-method "POST") - (url-request-extra-headers - '(("Content-Type" . "application/x-www-form-urlencoded")))) - (babel-url-retrieve "http://babelfish.yahoo.com/translate_txt" )))) - -(defun babel-fish-wash () - "Extract the useful information from the HTML returned by Babelfish." - (if (not (babel-wash-regex "

")) - (error "Babelfish HTML has changed ; please look for a new version of babel.el"))) - - - -;; FreeTranslation.com stuff =========================================== - -;; translation from generic letter names to FreeTranslation names -(defconst babel-free-languages - '(("en" . "English") - ("de" . "German") - ("it" . "Italian") - ("nl" . "Dutch") - ("pt" . "Portuguese") - ("es" . "Spanish") - ("no" . "Norwegian") - ("ru" . "Russian") - ("zh-CN" . "SimplifiedChinese") - ("zh-TW" . "TraditionalChinese") - ("fr" . "French"))) - -;; those inter-language translations that FreeTranslation is capable of -(defconst babel-free-translations - '("English/Spanish" "English/French" "English/German" "English/Italian" "English/Dutch" "English/Portuguese" - "English/Russian" "English/Norwegian" "English/SimplifiedChinese" "English/TraditionalChinese" "Spanish/English" - "French/English" "German/English" "Italian/English" "Dutch/English" "Portuguese/English")) - -(defun babel-free-translation (from to) - (let* ((ffrom (cdr (assoc from babel-free-languages))) - (fto (cdr (assoc to babel-free-languages))) - (trans (concat ffrom "/" fto))) - (find trans babel-free-translations :test #'string=))) - -(defun babel-free-fetch (msg from to) - "Connect to the FreeTranslation server and request the translation." - (let ((coding-system-for-read 'utf-8) - (translation (babel-free-translation from to)) - (url "http://ets.freetranslation.com/")) - (unless translation - (error "FreeTranslation can't translate from %s to %s" from to)) - (let* ((pairs `(("sequence" . "core") - ("mode" . "html") - ("template" . "results_en-us.htm") - ("srctext" . ,msg) - ("charset" . "UTF-8") - ("language" . ,translation))) - (url-request-data (babel-form-encode pairs)) - (url-mime-accept-string "text/html") - (url-request-method "POST") - (url-privacy-level '(email agent)) - (url-mime-charset-string "utf-8") - (url-request-extra-headers - '(("Content-Type" . "application/x-www-form-urlencoded") - ("Referer" . "http://ets.freetranslation.com/")))) - (babel-url-retrieve url)))) - -(defun babel-free-wash () - "Extract the useful information from the HTML returned by FreeTranslation." - ;;;
- (if (not (babel-wash-regex "")) - (error "FreeTranslations HTML has changed ; please look for a new version of babel.el"))) - - -;; Google stuff =========================================== - -;; Google supports all languages -(defconst babel-google-languages - babel-languages) - -(defun babel-google-translation (from to) - ;; Google can always translate in both directions - (find to babel-google-languages - :test '(lambda (st el) - (string= (cdr el) st)))) - -(defun babel-google-fetch (msg from to) - "Connect to google server and request the translation." - ;; Google can always translate in both directions - (if (not (find to babel-google-languages - :test '(lambda (st el) - (string= (cdr el) st)))) - (error "Google can't translate from %s to %s" from to) - (let* ((langpair (format "%s|%s" from to)) - (pairs `(("q" . ,(mm-encode-coding-string msg 'utf-8)) - ("langpair" . ,langpair) - ("v" . "1.0"))) - (url-request-data (babel-form-encode pairs)) - (url-request-method "POST") - (url-request-extra-headers - '(("Content-Type" . "application/x-www-form-urlencoded")))) - (babel-url-retrieve "http://ajax.googleapis.com/ajax/services/language/translate")))) - -(defun babel-google-wash () - "Extract the useful information from the HTML returned by google." - (beginning-of-buffer) - (let* ((json-object-type 'alist) - (json-response (json-read))) - (erase-buffer) - (if json-response - (insert-string - (cdr (assoc 'translatedText (assoc 'responseData json-response)))) - (error "Google API has changed ; please look for a new version of babel.el")))) - -(defconst babel-apertium-languages - '(("English" . "en") - ("Spanish" . "es") - ("Esperanto" . "eo"))) - - (defun babel-apertium-translation (from to) - (member (cons from to) - '(("en" . "es") - ("es" . "en") - ("en" . "eo")))) - -(defun babel-apertium-fetch (msg from to) - "Connect to apertium server and request the translation." - (if (not (babel-apertium-translation from to)) - (error "Apertium can't translate from %s to %s" from to) - (let* ((lang-pair (concat from "-" to)) - (pairs `(("pair" . ,lang-pair) - ("text" . ,msg))) - (request-url - (concat "http://www.neuralnoise.com/ApertiumWeb2/xml.php?" - (babel-form-encode pairs))) - (url-request-method "GET")) - (babel-url-retrieve request-url)))) - - -(defun babel-apertium-wash () - "Extract the useful information from the XML returned by apertium." - (if (not (babel-wash-regex - "\\(\\(.\\|\n\\)*?\\)")) - (error "Apertium XML has changed ; please look for a - new version of babel.el"))) - -;; TODO: ecs.freetranslation.com - -;; (defun babel-debug () -;; (let ((buf (get-buffer-create "*babel-debug*"))) -;; (set-buffer buf) -;; (babel-free-fetch "state mechanisms are too busy" "eng" "ger"))) - -(easy-menu-add-item nil '("tools") ["Babel Translation" babel t]) - -(provide 'babel) - -;; babel.el ends here diff --git a/.emacs.d.backup/bar-cursor.el b/.emacs.d.backup/bar-cursor.el deleted file mode 100644 index acf56e0..0000000 --- a/.emacs.d.backup/bar-cursor.el +++ /dev/null @@ -1,187 +0,0 @@ -;;; @(#) bar-cursor.el -- package used to switch block cursor to a bar -;;; @(#) $Id: bar-cursor.el,v 1.1 2001/07/10 00:18:40 jcasa Exp $ - -;; This file is not part of Emacs - -;; Copyright (C) 2001 by Joseph L. Casadonte Jr. -;; Author: Joe Casadonte (emacs@northbound-train.com) -;; Maintainer: Joe Casadonte (emacs@northbound-train.com) -;; Created: July 1, 2001 -;; Keywords: bar cursor overwrite -;; Latest Version: http://www.northbound-train.com/emacs.html - -;; COPYRIGHT NOTICE - -;; 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: -;; -;; Simple package to convert the block cursor into a bar cursor. In -;; overwrite mode, the bar cursor changes back into a block cursor. -;; This is a quasi-minor mode, meaning that it can be turned on & off -;; easily though only globally (hence the quasi-) - -;;; Installation: -;; -;; Put this file on your Emacs-Lisp load path and add the following to -;; your ~/.emacs startup file -;; -;; (require 'bar-cursor) -;; (bar-cursor-mode 1) -;; -;; To add a directory to your load-path, use something like the following: -;; -;; (add-to-list 'load-path (expand-file-name "/some/load/path")) - -;;; Usage: -;; -;; M-x `bar-cursor-mode' -;; Toggles bar-cursor-mode on & off. Optional arg turns -;; bar-cursor-mode on iff arg is a positive integer. - -;;; To Do: -;; -;; o Nothing, at the moment. - -;;; Credits: -;; -;; The basis for this code comes from Steve Kemp by way of the -;; NTEmacs mailing list. - -;;; Comments: -;; -;; Any comments, suggestions, bug reports or upgrade requests are welcome. -;; Please send them to Joe Casadonte (emacs@northbound-train.com). -;; -;; This version of bar-cursor was developed and tested with NTEmacs -;; 20.7.1 under Windows 2000 & NT 4.0 and Emacs 20.7.1 under Linux -;; (RH7). Please, let me know if it works with other OS and versions -;; of Emacs. - -;;; Change Log: -;; -;; see http://www.northbound-train.com/emacs/bar-cursor.log - -;;; ************************************************************************** -;;; ************************************************************************** -;;; ************************************************************************** -;;; ************************************************************************** -;;; ************************************************************************** -;;; Code: - -(eval-when-compile - ;; silence the old byte-compiler - (defvar byte-compile-dynamic nil) - (set (make-local-variable 'byte-compile-dynamic) t)) - -;;; ************************************************************************** -;;; ***** version related routines -;;; ************************************************************************** -(defconst bar-cursor-version - "$Revision: 1.1 $" - "Version number for 'bar-cursor' package.") - -;; --------------------------------------------------------------------------- -(defun bar-cursor-version-number () - "Return 'bar-cursor' version number." - (string-match "[0123456789.]+" bar-cursor-version) - (match-string 0 bar-cursor-version)) - -;; --------------------------------------------------------------------------- -(defun bar-cursor-display-version () - "Display 'bar-cursor' version." - (interactive) - (message "bar-cursor version <%s>." (bar-cursor-version-number))) - -;;; ************************************************************************** -;;; ***** real functions -;;; ************************************************************************** -(defvar bar-cursor-mode nil "Non-nil if 'bar-cursor-mode' is enabled.") - -;;; -------------------------------------------------------------------------- -;;;###autoload -(defun bar-cursor-mode (&optional arg) - "Toggle use of 'bar-cursor-mode'. - -This quasi-minor mode changes cursor to a bar cursor in insert mode, -and a block cursor in overwrite mode. It may only be turned on and -off globally, not on a per-buffer basis (hence the quasi- designation). - -Optional ARG turns mode on iff ARG is a positive integer." - (interactive "P") - - ;; toggle on and off - (let ((old-mode bar-cursor-mode)) - (setq bar-cursor-mode - (if arg (or (listp arg) - (> (prefix-numeric-value arg) 0)) - (not bar-cursor-mode))) - - (when (not (equal old-mode bar-cursor-mode)) - ;; enable/disable advice - (if bar-cursor-mode - (ad-enable-advice 'overwrite-mode 'after 'bar-cursor-overwrite-mode-ad) - (ad-disable-advice 'overwrite-mode 'after 'bar-cursor-overwrite-mode-ad)) - - (ad-activate 'overwrite-mode) - - ;; set the initial cursor type now - (bar-cursor-set-cursor) - - ;; add or remove to frame hook - (if bar-cursor-mode - (add-hook 'after-make-frame-functions 'bar-cursor-set-cursor) - (remove-hook 'after-make-frame-functions 'bar-cursor-set-cursor)) - ))) - -;;;-------------------------------------------------------------------------- -(defadvice overwrite-mode (after bar-cursor-overwrite-mode-ad disable) - "Advice that controls what type of cursor is displayed." - (bar-cursor-set-cursor)) - -;;;-------------------------------------------------------------------------- -(defun bar-cursor-set-cursor-type (cursor &optional frame) - "Set the cursor-type for the named frame. - -CURSOR is the name of the cursor to use (bar or block -- any others?). -FRAME is optional frame to set the cursor for; current frame is used -if not passed in." - (interactive) - (if (not frame) - (setq frame (selected-frame))) - - ;; Do the modification. - (modify-frame-parameters frame - (list (cons 'cursor-type cursor)))) - -;;; -------------------------------------------------------------------------- -(defun bar-cursor-set-cursor (&optional frame) - "Set the cursor-type according to the insertion mode. - -FRAME is optional frame to set the cursor for; current frame is used -if not passed in." - (if (and bar-cursor-mode (not overwrite-mode)) - (bar-cursor-set-cursor-type 'bar frame) - (bar-cursor-set-cursor-type 'block frame))) - -;;; ************************************************************************** -;;; ***** we're done -;;; ************************************************************************** -(provide 'bar-cursor) - -;;; bar-cursor.el ends here -;;; ************************************************************************** -;;;; ***** EOF ***** EOF ***** EOF ***** EOF ***** EOF ************* diff --git a/.emacs.d.backup/color-theme.el b/.emacs.d.backup/color-theme.el deleted file mode 100644 index a4b339f..0000000 --- a/.emacs.d.backup/color-theme.el +++ /dev/null @@ -1,1666 +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, 2005, 2006 Xavier Maillard - -;; Version: 6.6.0 -;; Keywords: faces -;; Author: Jonadab the Unsightly One -;; Maintainer: Xavier Maillard -;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ColorTheme - -;; This file is not (YET) 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: - -;; Please read README and BUGS files for any relevant help. -;; Contributors (not themers) should also read HACKING file. - -;;; 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. -;; Brian Palmer for color-theme-library ideas and code -;; All the users that contributed their color themes. - -;;; Code: -(eval-when-compile - (require 'easymenu) - (require 'reporter) - (require 'sendmail)) - -(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.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 (and (featurep 'xemacs) - (string-match "XEmacs" emacs-version)) - "Non-nil if running XEmacs.") - -;; Add this since it appears to miss in emacs-2x -(or (fboundp 'replace-in-string) - (defun replace-in-string (target old new) - (replace-regexp-in-string old new target))) - -;; 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) - (defun color-theme-face-attr-construct (face frame) - (if (atom face) - (custom-face-attributes-get face frame) - (if (and (consp face) (eq (car face) 'quote)) - (custom-face-attributes-get (cadr face) frame) - (custom-face-attributes-get (car face) frame))))) - ((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)) - ((featurep 'xemacs) - (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-directory nil - "Directory where we can find additionnal themes (personnal). -Note that there is at least one directory shipped with the official -color-theme distribution where all contributed themes are located. -This official selection can't be changed with that variable. -However, you still can decide to turn it on or off and thus, -not be shown with all themes but yours." - :type '(repeat string) - :group 'color-theme) - -(defcustom color-theme-libraries (directory-files - (concat - (file-name-directory (locate-library "color-theme")) - "/themes") t "^color-theme") - "A list of files, which will be loaded in color-theme-initialize depending -on `color-theme-load-all-themes' value. -This allows a user to prune the default color-themes (which can take a while -to load)." - :type '(repeat string) - :group 'color-theme) - -(defcustom color-theme-load-all-themes t - "When t, load all color-theme theme files -as presented by `color-theme-libraries'. Else -do not load any of this 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-initialized nil - "Internal variable determining whether color-theme-initialize has been invoked yet") - -(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'.") - -(defvar color-theme-entry-path (cond - ;; Emacs 22.x and later - ((lookup-key global-map [menu-bar tools]) - '("tools")) - ;; XEmacs - ((featurep 'xemacs) - (setq tool-entry '("Tools"))) - ;; Emacs < 22 - (t - '("Tools"))) - "Menu tool entry path.") - -(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-renegade "Renegade" "Dave Benjamin ") - (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) - -;;;###autoload -(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") - (unless color-theme-initialized (color-theme-initialize)) - (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)))) - (goto-char (point-min)) - (setq buffer-read-only t) - (set-buffer-modified-p nil) - (color-theme-mode)) - -(when (require 'easymenu) - (easy-menu-add-item nil color-theme-entry-path "--") - (easy-menu-add-item nil color-theme-entry-path - ["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 - -;;;###autoload -(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))) - -;;;###autoload -(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))) - -;;;autoload -(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)))) - -;;;###autoload -(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 ")))\n") - (insert "(add-to-list 'color-themes '(" (symbol-name func) " " - " \"THEME NAME\" \"YOUR NAME\"))") - (goto-char (point-min))) - -;;;###autoload -(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 - (insert "(eval-when-compile" - " (require 'color-theme))\n") - (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)))))) - -;;;###autoload -(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) - -;;;###autoload -(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.") - -;; fixme: silent the bytecompiler with set-face-property -(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))) - -;;;###autoload -(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 -;;;###autoload -(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 -;;;###autoload -(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)))) - - - -;; Use this to define themes -(defmacro define-color-theme (name author description &rest forms) - (let ((n name)) - `(progn - (add-to-list 'color-themes - (list ',n - (upcase-initials - (replace-in-string - (replace-in-string - (symbol-name ',n) "^color-theme-" "") "-" " ")) - ,author)) - (defun ,n () - ,description - (interactive) - ,@forms)))) - - -;;; FIXME: is this useful ?? -;;;###autoload -(defun color-theme-initialize () - "Initialize the color theme package by loading color-theme-libraries." - (interactive) - - (cond ((and (not color-theme-load-all-themes) - color-theme-directory) - (setq color-theme-libraries - (directory-files color-theme-directory t "^color-theme"))) - (color-theme-directory - (push (cdr (directory-files color-theme-directory t "^color-theme")) - color-theme-libraries))) - (dolist (library color-theme-libraries) - (load library))) - -(when nil - (setq color-theme-directory "themes/" - color-theme-load-all-themes nil) - (color-theme-initialize) -) -;; TODO: I don't like all those function names cluttering up my namespace. -;; Instead, a hashtable for the color-themes should be created. Now that -;; define-color-theme is around, it should be easy to change in just the -;; one place. - - -(provide 'color-theme) - -;;; color-theme.el ends here diff --git a/.emacs.d.backup/ergoemacs-keybindings-5.1/_HISTORY.txt b/.emacs.d.backup/ergoemacs-keybindings-5.1/_HISTORY.txt deleted file mode 100755 index 030e26a..0000000 --- a/.emacs.d.backup/ergoemacs-keybindings-5.1/_HISTORY.txt +++ /dev/null @@ -1,89 +0,0 @@ --*- coding: utf-8 -*- - -Note: When the context is about keys on the keyboard hardware, then QWERTY is used to indicate the key. For example, “Changed M+y to something”, that “y” means the key that is under the key 7. (which is Dvorak's “f”). - -version 5, 2009-09-15 • A much improved version, by David Capello. This version is now a full featured minor mode. It supports 3 different keyboard layout: US QWERTY, US Dvorak, and “Spanish (Spain)” (aka “Spanish (International sort)”). Also supports a new command where-is-old-binding (with shortcut Ctrl+h o). - -version 4.3.13, 2009-08-28 • improved shrink-whitespaces. Now, when called twice, it removes the remaining single space. Thanks to David Capello for the code. - -version 4.3.12.2, 2009-08-15 • Fixed a bug where delete-selection-mode migth be turned off. Changed “(delete-selection-mode t)” to “(delete-selection-mode 1)”. - -version 4.3.12.1, 2009-08-14 • A minor implementation improvement. In one place, changed the use of functionp to fboundp for checking the existing of a emacs 23 feature recenter-top-bottom. Was using functionp because i forgot about fboundp. - -version 4.3.12, 2009-08-13 • Alt+p is now “recenter-top-bottom” for emacs 23 users. In emacs 22, it is “recenter”. - -version 4.3.11, 2009-08-05 • Added a hook to fix message-mode. - -version 4.3.10, 2009-06-14 • fixed a previous/next reversal for f11/f12 keys in rcirc-mode-hook. • diff-mode uses some bindings in M-‹key› space. Fixed by adding a diff-mode-hook. (thanks to lwarxx) - -version 4.3.9, 2009-06-14 • unbind C-x 3 (use Alt+@ for split-window-horizontally) • unbind C-M-% (use Alt+% for query-replace-regexp). • unbind C-@ (use Alt+SPACE for set-mark-command). • unbind M-{ (use Alt+U for backward-paragraph). • unbind M-} (use Alt+O for forward-paragraph). Thanks to marciomazza - -version 4.3.8, 2009-06-14 • added 【】 to select-text-in-quote. - -version 4.3.7, 2009-05-27 • ibuffer's M-s changed in emacs 23, such that M-s is now a prefix. For Dvorak users, M-s should be isearch. This is reclaimed to be isearch. For qwerty users, M-s should be other-window. Fixed. - -version 4.3.6, 2009-05-26 • dired's M-s changed in emacs 23, such that M-s is now a prefix. For Dvorak users, M-s should be isearch. This is reclaimed to be isearch. For qwerty users, M-s should be other-windox. Fixed. - -version 4.3.5, 2009-05-10 • experimental modification to shrink-whitespaces. - -version 4.3.4, 2009-04-19 • Added Alt+Shift+PageDown for forward-page (move cursor to the next ascii formfeed char (often displayed as ^L)). Same for PageDown key. - -version 4.3.3, 2009-03-16 • Added Ctrl+Shift+n for opening a new window (make-frame-command). Removed “C-x 5 2”. Added Ctrl+Shift+w for closing window (delete-frame), removed “C-x 5 0”. - -version 4.3.2, 2009-03-11 • Removed C-x o for other-window. (use Alt+s and Alt+Shift+s instead.) - -version 4.3.1, 2009-03-04 • A better implementation for making M-t call M-TAB. So that, describe-key on M-t will show better documentation. - -version 4.3.0, 2009-03-02 • Added Alt+Shift+x for cut-all and Alt+Shift+c for copy-all. - -version 4.2.4, 2009-03-01 • Removed Ctrl+x Ctrl+w for write-file. Use Ctrl+Shift+s. • Fixed Ctrl+o for ibuffer to run find-file instead of ibuffer-visit-buffer-other-window-noselect. - -version 4.2.3, 2009-03-01 • fixed a dired binding so that Ctrl+o runs find-file instead of dired-display-file - -version 4.2.2, 2009-03-01 • Removed the default keybinding for split-window-vertically (Ctrl+x 2). Use Alt+2 instead. • The key “Ctrl+x Ctrl+b” is now ibuffer, instead of list-buffers. • “Ctrl+h m” now calls describe-major-mode. - -version 4.2.1, 2009-02-28 Changed the keybinding for previous-user-buffer from Ctrl+← to Ctrl+PageUp. And previous-emacs-buffer from Ctrl+Shift+← to Ctrl+Shift+PageUp. Similar for the “next” versions. Rationale: The Ctrl+Arrow are standard editing shortcuts commond in Windows, Mac, Linux. - -version 4.2.0, 2009-02-27 Added Alt+t for keyword completion. Rationale: The default M-TAB is used by Windows, Mac, Linux, to switch apps. - -version 4.1.8, 2009-02-15 Corrected the keybinding for Save As (write-file) - -version 4.1.7, 2008-12-10 Made compact-uncompact-block to work on text selection if there's one. - -version 4.1.6, 2008-12-09. Added select-text-in-quote. - -version 4.1.5, 2008-10-21. Added extend-selection by Nikolaj Schumacher. - -version 4.1.4, 2008-10-20. Fixed close-current-buffer: sometimes when closing a buffer not associated with a file, it'll prompt whether to kill instead of whether to save. - -version 4.1.3, 2008-10-18. Fixed minor bug in toggle-letter-case. It now works non-english letters such as éÉ and single letter word “a teapot” or words starting with a number “1st timer”. Thanks to Andreas Politz and Nikolaj Schumacher. • next-frame-command is renamed to switch-to-next-frame. Similar for previous-frame-command. - -version 4.1.2, 2008-10-16. Removed C-x h for mark-whole-buffer. (use Ctrl+a instead) Improved compact-uncompact-block and shrink-whitespaces. - -version 4.1.1, 2008-10-07. Removed unfill-paragraph and unfill-region because they are defined in ourcomments-util.el bundled with emacs 22, also because they are not used in this file now (compact-uncompact-block replaced most of their functionality). - -version 4.1, 2008-10-06. Added keys for previous-user-buffer, next-user-buffer, next-frame-command, previous-frame-command, query-replace and query-replace-regexp, move-cursor-to-next-pane, move-cursor-to-previous-pane, split-window-horizontally, toggle-letter-case. Combined delete-blank-lines and just-one-space to shrink-whitespaces. Moved delete-window to be with delete-other-window. - -version 4.0.1, 2008-09-23. Fixed C-o in dired mode. - -version 4, 2008-09-21. Unbind almost all Meta-‹key› and Ctrl-‹key› space bindings. Added about 11 commands, such as next-user-buffer, close-current-buffer etc. - -version 3.6, 2008-09-18. Reclaimed keybindings in text-mode. - -version 3.5, 2008-09-16. Reclaimed keybindings in ibuffer. - -version 3.4, 2008-09-06. Fixed key bindings in the Meta-‹key› space in about 10 modes. - -version 3.3, 2008-09-05. Fixed cua-mode-hook by setting symbol property 'CUA to nil, so that a bunch of no-select-* functions kludge is no longer needed. Thanks to Lennart Borgman. - -version 3.2, 2008-09-02. Moved cua fix functions to modern_operations.el. The functinos are: no-select-cua-scroll-down, no-select-cua-scroll-up, no-select-backward-paragraph, no-select-forward-paragraph, no-select-beginning-of-buffer, no-select-end-of-buffer, no-select-move-end-of-line. - -version 3.1, 2008-09-02. Added just-one-space, delete-blank-lines. Added fill-paragraph, unfill-paragraph. Added comment-dwim. - -version 3, 2008-08-31. Added isearch. Added redo, kill-line-backward, shell-command. Added bug fix for cua-mode. Now, commands with Shift keys won't go into a selection mode. - -version 2, 2008-08-29. Somewhat major change. Positions for undo, cut, copy, paste, paste previous, has been moved. Added delete-char, delete-backward-char, kill-word, backward-kill-word. Removed the now redundant binding of kill-word and backward-kill-word using the backspace key. Removed the other-frame binding. - -version 1.1, 2007-12-18. changed keycode to consistantly use kbd syntax. Fixed a scroll-up and scroll-down mixup. - -version 1.0, 2007-08-01. first version, by Xah Lee diff --git a/.emacs.d.backup/ergoemacs-keybindings-5.1/_INSTALL.txt b/.emacs.d.backup/ergoemacs-keybindings-5.1/_INSTALL.txt deleted file mode 100755 index 2a7f091..0000000 --- a/.emacs.d.backup/ergoemacs-keybindings-5.1/_INSTALL.txt +++ /dev/null @@ -1,64 +0,0 @@ --*- coding: utf-8 -*- - -INSTALLATION INSTRUCTIONS - ------------------------------- -1. Unzip the folder. - -If you downloaded a file named “ergoemacs-keybindings_v123.zip”, unzip it. -Now you should have a folder named “ergoemacs-keybindings_v123”. - ------------------------------- -2. Place the folder somewhere in your home directory. For examples: - -On Windows: -C:\Users\mary\.emacs.d\ergoemacs-keybindings_v123 - -On Mac OS X or Linux: -/Users/mary/.emacs.d/ergoemacs-keybindings_v123 - ------------------------------- -3. Specify your keyboard layout. - -Place one of the following line in your emacs init file (~/.emacs): - -(setenv "ERGOEMACS_KEYBOARD_LAYOUT" "us") ; US layout - -(setenv "ERGOEMACS_KEYBOARD_LAYOUT" "dv") ; US Dvorak layout - -(setenv "ERGOEMACS_KEYBOARD_LAYOUT" "sp") ; Spanish (Spain) (aka “Spanish (International sort)”) - -(setenv "ERGOEMACS_KEYBOARD_LAYOUT" "it") ; Italian layout - -(setenv "ERGOEMACS_KEYBOARD_LAYOUT" "colemak") ; Colemak layout - ------------------------------- -4. Make Emacs load the file, and turn on the mode. - -Place the following lines in your emacs init file. Make sure that the path points to your file is correct. You do not need to have the file path end in “.el”. - -;; load ErgoEmacs keybinding -(load "~/.emacs.d/ergoemacs-keybindings/ergoemacs-mode") - -;; turn on minor mode ergoemacs-mode -(ergoemacs-mode 1) - -These lines should be placed below your keyboard layout in step 3. - ------------------------------- -5. Restart emacs. - -Now, your will be using the new keybinding. The shortcut for emacs's “M-x” is now “Alt+a”. - -To turn off the mode, type “Alt+a” then “ergoemacs-mode”. After that, your keybinding is the same as GNU Emacs's default keybinding. - -The command “ergoemacs-mode” toggles the minor mode. - --------------------------------------------------- -Byte Compile Elisp Files (Optional) - -If you like, you can byte-compile the elisp files. To byte compile them, call the command byte-compile-file, then the elisp file name. Once you do that, emacs will create a file with “.elc” ending, and will automatically load byte compiled file if there is one. - -Byte compiled files makes loading and running programs about 5 or more times faster, but for small elisp files, the speed increse is probably not noticeable. - -You do not need to change any lines in the emacs initialization given above. diff --git a/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-layout-colemak.el b/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-layout-colemak.el deleted file mode 100644 index 32f127c..0000000 --- a/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-layout-colemak.el +++ /dev/null @@ -1,106 +0,0 @@ -;-*- coding: utf-8 -*- -;; Shortcuts for ERGOEMACS_KEYBOARD_LAYOUT=colemak - -;;; -------------------------------------------------- -;;; CURSOR MOVEMENTS - -;; Single char cursor movement -(defconst ergoemacs-backward-char-key (kbd "M-n")) -(defconst ergoemacs-forward-char-key (kbd "M-i")) -(defconst ergoemacs-previous-line-key (kbd "M-u")) -(defconst ergoemacs-next-line-key (kbd "M-e")) - -;; Move by word -(defconst ergoemacs-backward-word-key (kbd "M-l")) -(defconst ergoemacs-forward-word-key (kbd "M-y")) - -;; Move by paragraph -(defconst ergoemacs-backward-paragraph-key (kbd "M-L")) -(defconst ergoemacs-forward-paragraph-key (kbd "M-Y")) - -;; Move to beginning/ending of line -(defconst ergoemacs-move-beginning-of-line-key (kbd "M-h")) -(defconst ergoemacs-move-end-of-line-key (kbd "M-H")) - -;; Move by screen (page up/down) -(defconst ergoemacs-scroll-down-key (kbd "M-U")) -(defconst ergoemacs-scroll-up-key (kbd "M-E")) - -;; Move to beginning/ending of file -(defconst ergoemacs-beginning-of-buffer-key (kbd "M-N")) -(defconst ergoemacs-end-of-buffer-key (kbd "M-I")) - -;; isearch -(defconst ergoemacs-isearch-forward-key (kbd "M-o")) -(defconst ergoemacs-isearch-backward-key (kbd "M-O")) - -(defconst ergoemacs-recenter-key (kbd "M-;")) - -;;; MAJOR EDITING COMMANDS - -;; Delete previous/next char. -(defconst ergoemacs-delete-backward-char-key (kbd "M-s")) -(defconst ergoemacs-delete-char-key (kbd "M-t")) - -; Delete previous/next word. -(defconst ergoemacs-backward-kill-word-key (kbd "M-f")) -(defconst ergoemacs-kill-word-key (kbd "M-p")) - -; Copy Cut Paste, Paste previous -(defconst ergoemacs-kill-region-key (kbd "M-x")) -(defconst ergoemacs-kill-ring-save-key (kbd "M-c")) -(defconst ergoemacs-yank-key (kbd "M-v")) -(defconst ergoemacs-yank-pop-key (kbd "M-V")) -(defconst ergoemacs-copy-all-key (kbd "M-C")) -(defconst ergoemacs-cut-all-key (kbd "M-X")) - -;; undo and redo -(defconst ergoemacs-redo-key (kbd "M-Z")) -(defconst ergoemacs-undo-key (kbd "M-z")) - -; Kill line -(defconst ergoemacs-kill-line-key (kbd "M-d")) -(defconst ergoemacs-kill-line-backward-key (kbd "M-D")) - -;;; Textual Transformation - -(defconst ergoemacs-mark-paragraph-key (kbd "M-S-SPC")) -(defconst ergoemacs-shrink-whitespaces-key (kbd "M-w")) -(defconst ergoemacs-comment-dwim-key (kbd "M-'")) -(defconst ergoemacs-toggle-letter-case-key (kbd "M-/")) - -; keyword completion, because Alt+Tab is used by OS -(defconst ergoemacs-call-keyword-completion-key (kbd "M-g")) - -; Hard-wrap/un-hard-wrap paragraph -(defconst ergoemacs-compact-uncompact-block-key (kbd "M-q")) - -;;; EMACS'S SPECIAL COMMANDS - -; Mark point. -(defconst ergoemacs-set-mark-command-key (kbd "M-SPC")) - -(defconst ergoemacs-execute-extended-command-key (kbd "M-a")) -(defconst ergoemacs-shell-command-key (kbd "M-A")) - -;;; WINDOW SPLITING -(defconst ergoemacs-move-cursor-next-pane-key (kbd "M-r")) -(defconst ergoemacs-move-cursor-previous-pane-key (kbd "M-R")) - -;;; -------------------------------------------------- -;;; OTHER SHORTCUTS - -(defconst ergoemacs-switch-to-previous-frame-key (kbd "M-~")) -(defconst ergoemacs-switch-to-next-frame-key (kbd "M-`")) - -(defconst ergoemacs-query-replace-key (kbd "M-5")) -(defconst ergoemacs-query-replace-regexp-key (kbd "M-%")) - -(defconst ergoemacs-delete-other-windows-key (kbd "M-1")) -(defconst ergoemacs-delete-window-key (kbd "M-!")) - -(defconst ergoemacs-split-window-vertically-key (kbd "M-2")) -(defconst ergoemacs-split-window-horizontally-key (kbd "M-@")) - -(defconst ergoemacs-extend-selection-key (kbd "M-8")) -(defconst ergoemacs-select-text-in-quote-key (kbd "M-*")) diff --git a/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-layout-dv.el b/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-layout-dv.el deleted file mode 100755 index 7fde12a..0000000 --- a/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-layout-dv.el +++ /dev/null @@ -1,106 +0,0 @@ -;-*- coding: utf-8 -*- -;; Shortcuts for ERGOEMACS_KEYBOARD_LAYOUT=dv | us_dvorak - -;;; -------------------------------------------------- -;;; CURSOR MOVEMENTS - -;; Single char cursor movement -(defconst ergoemacs-backward-char-key (kbd "M-h")) -(defconst ergoemacs-forward-char-key (kbd "M-n")) -(defconst ergoemacs-previous-line-key (kbd "M-c")) -(defconst ergoemacs-next-line-key (kbd "M-t")) - -;; Move by word -(defconst ergoemacs-backward-word-key (kbd "M-g")) -(defconst ergoemacs-forward-word-key (kbd "M-r")) - -;; Move by paragraph -(defconst ergoemacs-backward-paragraph-key (kbd "M-G")) -(defconst ergoemacs-forward-paragraph-key (kbd "M-R")) - -;; Move to beginning/ending of line -(defconst ergoemacs-move-beginning-of-line-key (kbd "M-d")) -(defconst ergoemacs-move-end-of-line-key (kbd "M-D")) - -;; Move by screen (page up/down) -(defconst ergoemacs-scroll-down-key (kbd "M-C")) -(defconst ergoemacs-scroll-up-key (kbd "M-T")) - -;; Move to beginning/ending of file -(defconst ergoemacs-beginning-of-buffer-key (kbd "M-H")) -(defconst ergoemacs-end-of-buffer-key (kbd "M-N")) - -;; isearch -(defconst ergoemacs-isearch-forward-key (kbd "M-s")) -(defconst ergoemacs-isearch-backward-key (kbd "M-S")) - -(defconst ergoemacs-recenter-key (kbd "M-l")) - -;;; MAJOR EDITING COMMANDS - -;; Delete previous/next char. -(defconst ergoemacs-delete-backward-char-key (kbd "M-e")) -(defconst ergoemacs-delete-char-key (kbd "M-u")) - -; Delete previous/next word. -(defconst ergoemacs-backward-kill-word-key (kbd "M-.")) -(defconst ergoemacs-kill-word-key (kbd "M-p")) - -; Copy Cut Paste, Paste previous -(defconst ergoemacs-kill-region-key (kbd "M-q")) -(defconst ergoemacs-kill-ring-save-key (kbd "M-j")) -(defconst ergoemacs-yank-key (kbd "M-k")) -(defconst ergoemacs-yank-pop-key (kbd "M-K")) -(defconst ergoemacs-copy-all-key (kbd "M-J")) -(defconst ergoemacs-cut-all-key (kbd "M-Q")) - -;; undo and redo -(defconst ergoemacs-redo-key (kbd "M-:")) -(defconst ergoemacs-undo-key (kbd "M-;")) - -; Kill line -(defconst ergoemacs-kill-line-key (kbd "M-i")) -(defconst ergoemacs-kill-line-backward-key (kbd "M-I")) - -;;; Textual Transformation - -(defconst ergoemacs-mark-paragraph-key (kbd "M-S-SPC")) -(defconst ergoemacs-shrink-whitespaces-key (kbd "M-,")) -(defconst ergoemacs-comment-dwim-key (kbd "M--")) -(defconst ergoemacs-toggle-letter-case-key (kbd "M-z")) - -; keyword completion, because Alt+Tab is used by OS -(defconst ergoemacs-call-keyword-completion-key (kbd "M-y")) - -; Hard-wrap/un-hard-wrap paragraph -(defconst ergoemacs-compact-uncompact-block-key (kbd "M-'")) - -;;; EMACS'S SPECIAL COMMANDS - -; Mark point. -(defconst ergoemacs-set-mark-command-key (kbd "M-SPC")) - -(defconst ergoemacs-execute-extended-command-key (kbd "M-a")) -(defconst ergoemacs-shell-command-key (kbd "M-A")) - -;;; WINDOW SPLITING -(defconst ergoemacs-move-cursor-next-pane-key (kbd "M-o")) -(defconst ergoemacs-move-cursor-previous-pane-key (kbd "M-O")) - -;;; -------------------------------------------------- -;;; OTHER SHORTCUTS - -(defconst ergoemacs-switch-to-previous-frame-key (kbd "M-~")) -(defconst ergoemacs-switch-to-next-frame-key (kbd "M-`")) - -(defconst ergoemacs-query-replace-key (kbd "M-5")) -(defconst ergoemacs-query-replace-regexp-key (kbd "M-%")) - -(defconst ergoemacs-delete-other-windows-key (kbd "M-1")) -(defconst ergoemacs-delete-window-key (kbd "M-!")) - -(defconst ergoemacs-split-window-vertically-key (kbd "M-2")) -(defconst ergoemacs-split-window-horizontally-key (kbd "M-@")) - -(defconst ergoemacs-extend-selection-key (kbd "M-8")) -(defconst ergoemacs-select-text-in-quote-key (kbd "M-*")) diff --git a/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-layout-it.el b/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-layout-it.el deleted file mode 100644 index 873e0e1..0000000 --- a/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-layout-it.el +++ /dev/null @@ -1,106 +0,0 @@ -;-*- coding: utf-8 -*- -;; Shortcuts for ERGOEMACS_KEYBOARD_LAYOUT=it - -;;; -------------------------------------------------- -;;; CURSOR MOVEMENTS - -;; Single char cursor movement -(defconst ergoemacs-backward-char-key (kbd "M-j")) -(defconst ergoemacs-forward-char-key (kbd "M-l")) -(defconst ergoemacs-previous-line-key (kbd "M-i")) -(defconst ergoemacs-next-line-key (kbd "M-k")) - -;; Move by word -(defconst ergoemacs-backward-word-key (kbd "M-u")) -(defconst ergoemacs-forward-word-key (kbd "M-o")) - -;; Move by paragraph -(defconst ergoemacs-backward-paragraph-key (kbd "M-U")) -(defconst ergoemacs-forward-paragraph-key (kbd "M-O")) - -;; Move to beginning/ending of line -(defconst ergoemacs-move-beginning-of-line-key (kbd "M-h")) -(defconst ergoemacs-move-end-of-line-key (kbd "M-H")) - -;; Move by screen (page up/down) -(defconst ergoemacs-scroll-down-key (kbd "M-I")) -(defconst ergoemacs-scroll-up-key (kbd "M-K")) - -;; Move to beginning/ending of file -(defconst ergoemacs-beginning-of-buffer-key (kbd "M-J")) -(defconst ergoemacs-end-of-buffer-key (kbd "M-L")) - -;; isearch -(defconst ergoemacs-isearch-forward-key (kbd "M-ò")) -(defconst ergoemacs-isearch-backward-key (kbd "M-ç")) - -(defconst ergoemacs-recenter-key (kbd "M-p")) - -;;; MAJOR EDITING COMMANDS - -;; Delete previous/next char. -(defconst ergoemacs-delete-backward-char-key (kbd "M-d")) -(defconst ergoemacs-delete-char-key (kbd "M-f")) - -; Delete previous/next word. -(defconst ergoemacs-backward-kill-word-key (kbd "M-e")) -(defconst ergoemacs-kill-word-key (kbd "M-r")) - -; Copy Cut Paste, Paste previous -(defconst ergoemacs-kill-region-key (kbd "M-x")) -(defconst ergoemacs-kill-ring-save-key (kbd "M-c")) -(defconst ergoemacs-yank-key (kbd "M-v")) -(defconst ergoemacs-yank-pop-key (kbd "M-V")) -(defconst ergoemacs-copy-all-key (kbd "M-C")) -(defconst ergoemacs-cut-all-key (kbd "M-X")) - -;; undo and redo -(defconst ergoemacs-redo-key (kbd "M-Z")) -(defconst ergoemacs-undo-key (kbd "M-z")) - -; Kill line -(defconst ergoemacs-kill-line-key (kbd "M-g")) -(defconst ergoemacs-kill-line-backward-key (kbd "M-G")) - -;;; Textual Transformation - -(defconst ergoemacs-mark-paragraph-key (kbd "M-S-SPC")) -(defconst ergoemacs-shrink-whitespaces-key (kbd "M-w")) -(defconst ergoemacs-comment-dwim-key (kbd "M-à")) -(defconst ergoemacs-toggle-letter-case-key (kbd "M--")) - -; keyword completion, because Alt+Tab is used by OS -(defconst ergoemacs-call-keyword-completion-key (kbd "M-t")) - -; Hard-wrap/un-hard-wrap paragraph -(defconst ergoemacs-compact-uncompact-block-key (kbd "M-q")) - -;;; EMACS'S SPECIAL COMMANDS - -; Mark point. -(defconst ergoemacs-set-mark-command-key (kbd "M-SPC")) - -(defconst ergoemacs-execute-extended-command-key (kbd "M-a")) -(defconst ergoemacs-shell-command-key (kbd "M-A")) - -;;; WINDOW SPLITING -(defconst ergoemacs-move-cursor-next-pane-key (kbd "M-s")) -(defconst ergoemacs-move-cursor-previous-pane-key (kbd "M-S")) - -;;; -------------------------------------------------- -;;; OTHER SHORTCUTS - -(defconst ergoemacs-switch-to-previous-frame-key (kbd "M-|")) -(defconst ergoemacs-switch-to-next-frame-key (kbd "M-\\")) - -(defconst ergoemacs-query-replace-key (kbd "M-5")) -(defconst ergoemacs-query-replace-regexp-key (kbd "M-%")) - -(defconst ergoemacs-delete-other-windows-key (kbd "M-1")) -(defconst ergoemacs-delete-window-key (kbd "M-!")) - -(defconst ergoemacs-split-window-vertically-key (kbd "M-2")) -(defconst ergoemacs-split-window-horizontally-key (kbd "M-\"")) - -(defconst ergoemacs-extend-selection-key (kbd "M-8")) -(defconst ergoemacs-select-text-in-quote-key (kbd "M-(")) diff --git a/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-layout-sp.el b/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-layout-sp.el deleted file mode 100644 index a8ad964..0000000 --- a/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-layout-sp.el +++ /dev/null @@ -1,106 +0,0 @@ -;-*- coding: utf-8 -*- -;; Shortcuts for ERGOEMACS_KEYBOARD_LAYOUT=sp - -;;; -------------------------------------------------- -;;; CURSOR MOVEMENTS - -;; Single char cursor movement -(defconst ergoemacs-backward-char-key (kbd "M-j")) -(defconst ergoemacs-forward-char-key (kbd "M-l")) -(defconst ergoemacs-previous-line-key (kbd "M-i")) -(defconst ergoemacs-next-line-key (kbd "M-k")) - -;; Move by word -(defconst ergoemacs-backward-word-key (kbd "M-u")) -(defconst ergoemacs-forward-word-key (kbd "M-o")) - -;; Move by paragraph -(defconst ergoemacs-backward-paragraph-key (kbd "M-U")) -(defconst ergoemacs-forward-paragraph-key (kbd "M-O")) - -;; Move to beginning/ending of line -(defconst ergoemacs-move-beginning-of-line-key (kbd "M-h")) -(defconst ergoemacs-move-end-of-line-key (kbd "M-H")) - -;; Move by screen (page up/down) -(defconst ergoemacs-scroll-down-key (kbd "M-I")) -(defconst ergoemacs-scroll-up-key (kbd "M-K")) - -;; Move to beginning/ending of file -(defconst ergoemacs-beginning-of-buffer-key (kbd "M-J")) -(defconst ergoemacs-end-of-buffer-key (kbd "M-L")) - -;; isearch -(defconst ergoemacs-isearch-forward-key (kbd "M-ñ")) -(defconst ergoemacs-isearch-backward-key (kbd "M-Ñ")) - -(defconst ergoemacs-recenter-key (kbd "M-p")) - -;;; MAJOR EDITING COMMANDS - -;; Delete previous/next char. -(defconst ergoemacs-delete-backward-char-key (kbd "M-d")) -(defconst ergoemacs-delete-char-key (kbd "M-f")) - -; Delete previous/next word. -(defconst ergoemacs-backward-kill-word-key (kbd "M-e")) -(defconst ergoemacs-kill-word-key (kbd "M-r")) - -; Copy Cut Paste, Paste previous -(defconst ergoemacs-kill-region-key (kbd "M-x")) -(defconst ergoemacs-kill-ring-save-key (kbd "M-c")) -(defconst ergoemacs-yank-key (kbd "M-v")) -(defconst ergoemacs-yank-pop-key (kbd "M-V")) -(defconst ergoemacs-copy-all-key (kbd "M-C")) -(defconst ergoemacs-cut-all-key (kbd "M-X")) - -;; undo and redo -(defconst ergoemacs-redo-key (kbd "M-Z")) -(defconst ergoemacs-undo-key (kbd "M-z")) - -; Kill line -(defconst ergoemacs-kill-line-key (kbd "M-g")) -(defconst ergoemacs-kill-line-backward-key (kbd "M-G")) - -;;; Textual Transformation - -(defconst ergoemacs-mark-paragraph-key (kbd "M-S-SPC")) -(defconst ergoemacs-shrink-whitespaces-key (kbd "M-w")) -(defconst ergoemacs-comment-dwim-key (kbd "M-´")) -(defconst ergoemacs-toggle-letter-case-key (kbd "M--")) - -; keyword completion, because Alt+Tab is used by OS -(defconst ergoemacs-call-keyword-completion-key (kbd "M-t")) - -; Hard-wrap/un-hard-wrap paragraph -(defconst ergoemacs-compact-uncompact-block-key (kbd "M-q")) - -;;; EMACS'S SPECIAL COMMANDS - -; Mark point. -(defconst ergoemacs-set-mark-command-key (kbd "M-SPC")) - -(defconst ergoemacs-execute-extended-command-key (kbd "M-a")) -(defconst ergoemacs-shell-command-key (kbd "M-A")) - -;;; WINDOW SPLITING -(defconst ergoemacs-move-cursor-next-pane-key (kbd "M-s")) -(defconst ergoemacs-move-cursor-previous-pane-key (kbd "M-S")) - -;;; -------------------------------------------------- -;;; OTHER SHORTCUTS - -(defconst ergoemacs-switch-to-previous-frame-key (kbd "M-ª")) -(defconst ergoemacs-switch-to-next-frame-key (kbd "M-º")) - -(defconst ergoemacs-query-replace-key (kbd "M-5")) -(defconst ergoemacs-query-replace-regexp-key (kbd "M-%")) - -(defconst ergoemacs-delete-other-windows-key (kbd "M-1")) -(defconst ergoemacs-delete-window-key (kbd "M-!")) - -(defconst ergoemacs-split-window-vertically-key (kbd "M-2")) -(defconst ergoemacs-split-window-horizontally-key (kbd "M-\"")) - -(defconst ergoemacs-extend-selection-key (kbd "M-8")) -(defconst ergoemacs-select-text-in-quote-key (kbd "M-(")) diff --git a/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-layout-us.el b/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-layout-us.el deleted file mode 100755 index 5d70ccb..0000000 --- a/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-layout-us.el +++ /dev/null @@ -1,106 +0,0 @@ -;-*- coding: utf-8 -*- -;; Shortcuts for ERGOEMACS_KEYBOARD_LAYOUT=us - -;;; -------------------------------------------------- -;;; CURSOR MOVEMENTS - -;; Single char cursor movement -(defconst ergoemacs-backward-char-key (kbd "M-j")) -(defconst ergoemacs-forward-char-key (kbd "M-l")) -(defconst ergoemacs-previous-line-key (kbd "M-i")) -(defconst ergoemacs-next-line-key (kbd "M-k")) - -;; Move by word -(defconst ergoemacs-backward-word-key (kbd "M-u")) -(defconst ergoemacs-forward-word-key (kbd "M-o")) - -;; Move by paragraph -(defconst ergoemacs-backward-paragraph-key (kbd "M-U")) -(defconst ergoemacs-forward-paragraph-key (kbd "M-O")) - -;; Move to beginning/ending of line -(defconst ergoemacs-move-beginning-of-line-key (kbd "M-h")) -(defconst ergoemacs-move-end-of-line-key (kbd "M-H")) - -;; Move by screen (page up/down) -(defconst ergoemacs-scroll-down-key (kbd "M-I")) -(defconst ergoemacs-scroll-up-key (kbd "M-K")) - -;; Move to beginning/ending of file -(defconst ergoemacs-beginning-of-buffer-key (kbd "M-J")) -(defconst ergoemacs-end-of-buffer-key (kbd "M-L")) - -;; isearch -(defconst ergoemacs-isearch-forward-key (kbd "M-;")) -(defconst ergoemacs-isearch-backward-key (kbd "M-:")) - -(defconst ergoemacs-recenter-key (kbd "M-p")) - -;;; MAJOR EDITING COMMANDS - -;; Delete previous/next char. -(defconst ergoemacs-delete-backward-char-key (kbd "M-d")) -(defconst ergoemacs-delete-char-key (kbd "M-f")) - -; Delete previous/next word. -(defconst ergoemacs-backward-kill-word-key (kbd "M-e")) -(defconst ergoemacs-kill-word-key (kbd "M-r")) - -; Copy Cut Paste, Paste previous -(defconst ergoemacs-kill-region-key (kbd "M-x")) -(defconst ergoemacs-kill-ring-save-key (kbd "M-c")) -(defconst ergoemacs-yank-key (kbd "M-v")) -(defconst ergoemacs-yank-pop-key (kbd "M-V")) -(defconst ergoemacs-copy-all-key (kbd "M-C")) -(defconst ergoemacs-cut-all-key (kbd "M-X")) - -;; undo and redo -(defconst ergoemacs-redo-key (kbd "M-Z")) -(defconst ergoemacs-undo-key (kbd "M-z")) - -; Kill line -(defconst ergoemacs-kill-line-key (kbd "M-g")) -(defconst ergoemacs-kill-line-backward-key (kbd "M-G")) - -;;; Textual Transformation - -(defconst ergoemacs-mark-paragraph-key (kbd "M-S-SPC")) -(defconst ergoemacs-shrink-whitespaces-key (kbd "M-w")) -(defconst ergoemacs-comment-dwim-key (kbd "M-'")) -(defconst ergoemacs-toggle-letter-case-key (kbd "M-/")) - -; keyword completion, because Alt+Tab is used by OS -(defconst ergoemacs-call-keyword-completion-key (kbd "M-t")) - -; Hard-wrap/un-hard-wrap paragraph -(defconst ergoemacs-compact-uncompact-block-key (kbd "M-q")) - -;;; EMACS'S SPECIAL COMMANDS - -; Mark point. -(defconst ergoemacs-set-mark-command-key (kbd "M-SPC")) - -(defconst ergoemacs-execute-extended-command-key (kbd "M-a")) -(defconst ergoemacs-shell-command-key (kbd "M-A")) - -;;; WINDOW SPLITING -(defconst ergoemacs-move-cursor-next-pane-key (kbd "M-s")) -(defconst ergoemacs-move-cursor-previous-pane-key (kbd "M-S")) - -;;; -------------------------------------------------- -;;; OTHER SHORTCUTS - -(defconst ergoemacs-switch-to-previous-frame-key (kbd "M-~")) -(defconst ergoemacs-switch-to-next-frame-key (kbd "M-`")) - -(defconst ergoemacs-query-replace-key (kbd "M-5")) -(defconst ergoemacs-query-replace-regexp-key (kbd "M-%")) - -(defconst ergoemacs-delete-other-windows-key (kbd "M-1")) -(defconst ergoemacs-delete-window-key (kbd "M-!")) - -(defconst ergoemacs-split-window-vertically-key (kbd "M-2")) -(defconst ergoemacs-split-window-horizontally-key (kbd "M-@")) - -(defconst ergoemacs-extend-selection-key (kbd "M-8")) -(defconst ergoemacs-select-text-in-quote-key (kbd "M-*")) diff --git a/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-mode.el b/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-mode.el deleted file mode 100755 index 59f735f..0000000 --- a/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-mode.el +++ /dev/null @@ -1,379 +0,0 @@ -;-*- coding: utf-8 -*- -;; ergoemacs-mode.el -- A emacs keybinding set based on ergonomics. - -;; Copyright © 2007, 2008, 2009 by Xah Lee -;; Copyright © 2009 by David Capello - -;; Author: Xah Lee ( http://xahlee.org/ ), David Capello ( http://www.davidcapello.com.ar/ ) -;; Version: 5.1 -;; Keywords: qwerty, dvorak, keybinding, ergonomic, colemak - -;; You can redistribute this program 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. - -;;; DESCRIPTION - -;; This keybinding set puts the most frequently used emacs keyboard -;; shortcuts into the most easy-to-type spots. -;; -;; For complete detail, see: -;; http://xahlee.org/emacs/ergonomic_emacs_keybinding.html - -;;; INSTALL - -;; See the file “_INSTALL.txt”. - -;;; HISTORY - -;; See the file “_HISTORY.txt”. - -;;; ACKNOWLEDGMENT -;; Thanks to Nikolaj Schumacher for his implementation of extend-selection. -;; Thanks to Andreas Politz and Nikolaj Schumacher for correcting/improving implementation of toggle-letter-case. -;; Thanks to Lennart Borgman for several suggestions on code to prevent shortcuts involving shift key to start select text when CUA-mode is on. -;; Thanks to David Capello for contribution to shrink-whitespaces. -;; Thanks to marciomazza for spotting several default bindings that should have been unbound. -;; Thanks to those who have created and improved the version for Colemak layout. They are (by date): “vockets”, “postivan”, Graham Poulter. -;; Thanks to lwarxx for bug report on diff-mode -;; Thanks to many users who send in comments and appreciations on this. - -;;; -------------------------------------------------- - -;; Add this same directory to load elisp files -(add-to-list 'load-path (file-name-directory (or load-file-name buffer-file-name))) - -;; Ergoemacs-keybindings version -(defconst ergoemacs-mode-version "5.1" - "Ergoemacs-keybindings minor mode version number.") - -;; Include extra files -(load "functions") -(load "ergoemacs-unbind") - -;; Load the keyboard layout looking the ERGOEMACS_KEYBOARD_LAYOUT -;; enviroment variable (this variable is set by ErgoEmacs runner) -(defvar ergoemacs-keyboard-layout (getenv "ERGOEMACS_KEYBOARD_LAYOUT") - "It is set with the value of ERGOEMACS_KEYBOARD_LAYOUT -enviroment variable. The possible values are: - - us = US English QWERTY keyboard layout - dv = US-Dvorak keyboard layout - sp = Spanish keyboard layout - it = Italian keyboard layout - colemak = Ergonomic Colemak keyboard layout") - -(cond - ((string= ergoemacs-keyboard-layout "us") - (load "ergoemacs-layout-us")) - ((or (string= ergoemacs-keyboard-layout "us_dvorak") - (string= ergoemacs-keyboard-layout "dv")) - (load "ergoemacs-layout-dv")) - ((string= ergoemacs-keyboard-layout "sp") - (load "ergoemacs-layout-sp")) - ((or (string= ergoemacs-keyboard-layout "it") - (string= ergoemacs-keyboard-layout "it142")) - (load "ergoemacs-layout-it")) - ((string= ergoemacs-keyboard-layout "colemak") - (load "ergoemacs-layout-colemak")) - (t ; US qwerty by default - (load "ergoemacs-layout-us")) - ) - -;;; -------------------------------------------------- -;;; ergoemacs-keymap - -(defvar ergoemacs-keymap (make-sparse-keymap) - "ErgoEmacs minor mode keymap.") - -;; Single char cursor movement -(define-key ergoemacs-keymap ergoemacs-backward-char-key 'backward-char) -(define-key ergoemacs-keymap ergoemacs-forward-char-key 'forward-char) -(define-key ergoemacs-keymap ergoemacs-previous-line-key 'previous-line) -(define-key ergoemacs-keymap ergoemacs-next-line-key 'next-line) - -;; Move by word -(define-key ergoemacs-keymap ergoemacs-backward-word-key 'backward-word) -(define-key ergoemacs-keymap ergoemacs-forward-word-key 'forward-word) - -;; Move by paragraph -(define-key ergoemacs-keymap ergoemacs-backward-paragraph-key 'backward-paragraph) -(define-key ergoemacs-keymap ergoemacs-forward-paragraph-key 'forward-paragraph) - -;; Move to beginning/ending of line -(define-key ergoemacs-keymap ergoemacs-move-beginning-of-line-key 'move-beginning-of-line) -(define-key ergoemacs-keymap ergoemacs-move-end-of-line-key 'move-end-of-line) - -;; Move by screen (page up/down) -(define-key ergoemacs-keymap ergoemacs-scroll-down-key 'scroll-down) -(define-key ergoemacs-keymap ergoemacs-scroll-up-key 'scroll-up) - -;; Move to beginning/ending of file -(define-key ergoemacs-keymap ergoemacs-beginning-of-buffer-key 'beginning-of-buffer) -(define-key ergoemacs-keymap ergoemacs-end-of-buffer-key 'end-of-buffer) - -;; isearch -(define-key ergoemacs-keymap ergoemacs-isearch-forward-key 'isearch-forward) -(define-key ergoemacs-keymap ergoemacs-isearch-backward-key 'isearch-backward) - -(define-key ergoemacs-keymap ergoemacs-recenter-key 'recenter) - -;;; MAJOR EDITING COMMANDS - -;; Delete previous/next char. -(define-key ergoemacs-keymap ergoemacs-delete-backward-char-key 'delete-backward-char) -(define-key ergoemacs-keymap ergoemacs-delete-char-key 'delete-char) - -; Delete previous/next word. -(define-key ergoemacs-keymap ergoemacs-backward-kill-word-key 'backward-kill-word) -(define-key ergoemacs-keymap ergoemacs-kill-word-key 'kill-word) - -; Copy Cut Paste, Paste previous -(define-key ergoemacs-keymap ergoemacs-kill-region-key 'kill-region) -(define-key ergoemacs-keymap ergoemacs-kill-ring-save-key 'kill-ring-save) -(define-key ergoemacs-keymap ergoemacs-yank-key 'yank) -(define-key ergoemacs-keymap ergoemacs-yank-pop-key 'yank-pop) -(define-key ergoemacs-keymap ergoemacs-copy-all-key 'copy-all) -(define-key ergoemacs-keymap ergoemacs-cut-all-key 'cut-all) - -;; undo and redo -(define-key ergoemacs-keymap ergoemacs-redo-key 'redo) -(define-key ergoemacs-keymap ergoemacs-undo-key 'undo) - -; Kill line -(define-key ergoemacs-keymap ergoemacs-kill-line-key 'kill-line) -(define-key ergoemacs-keymap ergoemacs-kill-line-backward-key 'kill-line-backward) - -;;; Textual Transformation - -(define-key ergoemacs-keymap ergoemacs-mark-paragraph-key 'mark-paragraph) -(define-key ergoemacs-keymap ergoemacs-shrink-whitespaces-key 'shrink-whitespaces) -(define-key ergoemacs-keymap ergoemacs-comment-dwim-key 'comment-dwim) -(define-key ergoemacs-keymap ergoemacs-toggle-letter-case-key 'toggle-letter-case) - -; keyword completion, because Alt+Tab is used by OS -(define-key ergoemacs-keymap ergoemacs-call-keyword-completion-key 'call-keyword-completion) - -; Hard-wrap/un-hard-wrap paragraph -(define-key ergoemacs-keymap ergoemacs-compact-uncompact-block-key 'compact-uncompact-block) - -;;; EMACS'S SPECIAL COMMANDS - -; Mark point. -(define-key ergoemacs-keymap ergoemacs-set-mark-command-key 'set-mark-command) - -(define-key ergoemacs-keymap ergoemacs-execute-extended-command-key 'execute-extended-command) -(define-key ergoemacs-keymap ergoemacs-shell-command-key 'shell-command) - -;;; WINDOW SPLITING -(define-key ergoemacs-keymap ergoemacs-move-cursor-next-pane-key 'move-cursor-next-pane) -(define-key ergoemacs-keymap ergoemacs-move-cursor-previous-pane-key 'move-cursor-previous-pane) - -;;; -------------------------------------------------- -;;; STANDARD SHORTCUTS - -(define-key ergoemacs-keymap (kbd "C-n") 'new-empty-buffer) -(define-key ergoemacs-keymap (kbd "C-S-n") 'make-frame-command) -(define-key ergoemacs-keymap (kbd "C-o") 'find-file) -(define-key ergoemacs-keymap (kbd "C-w") 'close-current-buffer) -(define-key ergoemacs-keymap (kbd "C-s") 'save-buffer) -(define-key ergoemacs-keymap (kbd "C-S-s") 'write-file) -(define-key ergoemacs-keymap (kbd "C-p") 'print-buffer) -(define-key ergoemacs-keymap (kbd "C-a") 'mark-whole-buffer) -(define-key ergoemacs-keymap (kbd "C-S-w") 'delete-frame) - -(define-key ergoemacs-keymap (kbd "C-f") 'search-forward) - -(define-key ergoemacs-keymap (kbd "") 'delete-char) ; the Del key for forward delete. Needed if C-d is set to nil. - -(define-key ergoemacs-keymap (kbd "C-") 'previous-user-buffer) -(define-key ergoemacs-keymap (kbd "C-") 'next-user-buffer) - -(define-key ergoemacs-keymap (kbd "C-S-") 'previous-emacs-buffer) -(define-key ergoemacs-keymap (kbd "C-S-") 'next-emacs-buffer) - -(define-key ergoemacs-keymap (kbd "M-S-") 'backward-page) -(define-key ergoemacs-keymap (kbd "M-S-") 'forward-page) - -(define-key ergoemacs-keymap (kbd "C-x C-b") 'ibuffer) -(define-key ergoemacs-keymap (kbd "C-h m") 'describe-major-mode) -(define-key ergoemacs-keymap (kbd "C-h o") 'where-is-old-binding) - -;; Ctrl+Break is a common IDE shortcut to stop compilation/find/grep -(define-key ergoemacs-keymap (kbd "C-") 'kill-compilation) - -;;; -------------------------------------------------- -;;; OTHER SHORTCUTS - -(define-key ergoemacs-keymap ergoemacs-switch-to-previous-frame-key 'switch-to-previous-frame) -(define-key ergoemacs-keymap ergoemacs-switch-to-next-frame-key 'switch-to-next-frame) - -(define-key ergoemacs-keymap ergoemacs-query-replace-key 'query-replace) -(define-key ergoemacs-keymap ergoemacs-query-replace-regexp-key 'query-replace-regexp) - -(define-key ergoemacs-keymap ergoemacs-delete-other-windows-key 'delete-other-windows) -(define-key ergoemacs-keymap ergoemacs-delete-window-key 'delete-window) - -(define-key ergoemacs-keymap ergoemacs-split-window-vertically-key 'split-window-vertically) -(define-key ergoemacs-keymap ergoemacs-split-window-horizontally-key 'split-window-horizontally) - -(define-key ergoemacs-keymap ergoemacs-extend-selection-key 'extend-selection) -(define-key ergoemacs-keymap ergoemacs-select-text-in-quote-key 'select-text-in-quote) - -;;---------------------------------------------------------------------- -;; ErgoEmacs hooks - -(defun ergoemacs-cua-hook () - "Prevent `cua-mode' from going into selection mode when commands with Shift key is used." - - (put 'cua-scroll-down 'CUA nil) - (put 'cua-scroll-up 'CUA nil) - (put 'backward-paragraph 'CUA nil) - (put 'forward-paragraph 'CUA nil) - (put 'beginning-of-buffer 'CUA nil) - (put 'end-of-buffer 'CUA nil) - (put 'move-end-of-line 'CUA nil) - ) - -(defun ergoemacs-minibuffer-setup-hook () - "Hook for minibuffer to move through history with previous-line and next-line keys." - - (defvar ergoemacs-minibuffer-keymap (copy-keymap ergoemacs-keymap)) - - (define-key ergoemacs-minibuffer-keymap ergoemacs-previous-line-key 'previous-history-element) - (define-key ergoemacs-minibuffer-keymap ergoemacs-next-line-key 'next-history-element) - (define-key ergoemacs-minibuffer-keymap (kbd "") 'previous-history-element) - (define-key ergoemacs-minibuffer-keymap (kbd "") 'next-history-element) - (define-key ergoemacs-minibuffer-keymap (kbd "S-") 'previous-matching-history-element) - (define-key ergoemacs-minibuffer-keymap (kbd "S-") 'next-matching-history-element) - - (add-to-list 'minor-mode-overriding-map-alist (cons 'ergoemacs-mode ergoemacs-minibuffer-keymap)) - ) - -(defun ergoemacs-isearch-hook () - "Hook for `isearch-mode-hook' so ergoemacs keybindings are not lost." - - ;; TODO restore these keys! (it is not necessary, when the - ;; ergoemacs-isearch-hook is removed from isearch-mode-hook) - - (define-key isearch-mode-map (kbd "M-p") 'nil) ; was isearch-ring-retreat - (define-key isearch-mode-map (kbd "M-n") 'nil) ; was isearch-ring-advance - (define-key isearch-mode-map (kbd "M-y") 'nil) ; was isearch-yank-kill - (define-key isearch-mode-map (kbd "M-c") 'nil) ; was isearch-toggle-case-fold - (define-key isearch-mode-map (kbd "M-r") 'nil) ; was isearch-toggle-regexp - (define-key isearch-mode-map (kbd "M-e") 'nil) ; was isearch-edit-string - - (define-key isearch-mode-map ergoemacs-isearch-forward-key 'isearch-repeat-forward) - (define-key isearch-mode-map ergoemacs-isearch-backward-key 'isearch-repeat-backward) - (define-key isearch-mode-map ergoemacs-recenter-key 'recenter) - (define-key isearch-mode-map ergoemacs-yank-key 'isearch-yank-kill) - - ;; isearch-other-control-char sends the key to the original buffer and cancels isearch - (define-key isearch-mode-map ergoemacs-kill-ring-save-key 'isearch-other-control-char) - (define-key isearch-mode-map ergoemacs-kill-word-key 'isearch-other-control-char) - (define-key isearch-mode-map ergoemacs-backward-kill-word-key 'isearch-other-control-char) - - (define-key isearch-mode-map (kbd "") 'isearch-ring-retreat) - (define-key isearch-mode-map (kbd "") 'isearch-ring-advance) - ) - -;; Hook for interpreters -(defun ergoemacs-comint-hook () - "Hook for `comint-mode-hook'." - - (define-key comint-mode-map (kbd "") 'comint-previous-input) - (define-key comint-mode-map (kbd "") 'comint-next-input) - (define-key comint-mode-map (kbd "S-") 'comint-previous-matching-input) - (define-key comint-mode-map (kbd "S-") 'comint-next-matching-input) - ) - -;; Log edit mode -(defun ergoemacs-log-edit-hook () - "Hook for `log-edit-mode-hook'." - - (define-key log-edit-mode-map (kbd "") 'log-edit-previous-comment) - (define-key log-edit-mode-map (kbd "") 'log-edit-next-comment) - (define-key log-edit-mode-map (kbd "S-") 'log-edit-previous-comment) - (define-key log-edit-mode-map (kbd "S-") 'log-edit-next-comment) - ) - -(defun ergoemacs-eshell-hook () - "Hook for `eshell-mode-hook', to redefine some ErgoEmacs keys so they are more useful." - - ;; Redefining ergoemacs-move-beginning-of-line-key to eshell-bol in eshell-mode-map - ;; does not work, we have to use minor-mode-overriding-map-alist in this case - (defvar ergoemacs-eshell-keymap (copy-keymap ergoemacs-keymap)) - - (define-key ergoemacs-eshell-keymap ergoemacs-move-beginning-of-line-key 'eshell-bol) - (define-key ergoemacs-eshell-keymap (kbd "") 'eshell-bol) - (define-key ergoemacs-eshell-keymap (kbd "") 'eshell-previous-matching-input-from-input) - (define-key ergoemacs-eshell-keymap (kbd "") 'eshell-next-matching-input-from-input) - (define-key ergoemacs-eshell-keymap (kbd "S-") 'eshell-previous-matching-input-from-input) - (define-key ergoemacs-eshell-keymap (kbd "S-") 'eshell-next-matching-input-from-input) - - (add-to-list 'minor-mode-overriding-map-alist (cons 'ergoemacs-mode ergoemacs-eshell-keymap)) - ) - -(defun ergoemacs-iswitchb-hook () - "Hooks for `iswitchb-minibuffer-setup-hook'." - - (defvar ergoemacs-iswitchb-keymap (copy-keymap ergoemacs-keymap)) - - (define-key ergoemacs-iswitchb-keymap ergoemacs-isearch-backward-key 'iswitchb-prev-match) - (define-key ergoemacs-iswitchb-keymap ergoemacs-isearch-forward-key 'iswitchb-next-match) - - (define-key ergoemacs-iswitchb-keymap (kbd "") 'iswitchb-prev-match) - (define-key ergoemacs-iswitchb-keymap (kbd "") 'iswitchb-next-match) - (define-key ergoemacs-iswitchb-keymap (kbd "S-") 'iswitchb-prev-match) - (define-key ergoemacs-iswitchb-keymap (kbd "S-") 'iswitchb-next-match) - - (add-to-list 'minor-mode-overriding-map-alist (cons 'ergoemacs-mode ergoemacs-iswitchb-keymap)) - ) - -(defun ergoemacs-hook-modes () - "Installs/Removes ErgoEmacs minor mode hooks from major modes -depending the state of `ergoemacs-mode' variable. If the mode -is being initialized, some global keybindings in current-global-map -will change." - - (let ((modify-hook (if ergoemacs-mode 'add-hook 'remove-hook))) - - ;; when ergoemacs-mode is on, activate hooks and unset global keys, else do inverse - (if (and ergoemacs-mode (not (equal ergoemacs-mode 0))) - (ergoemacs-unset-redundant-global-keys) - (ergoemacs-restore-global-keys)) - - (funcall modify-hook 'cua-mode-hook 'ergoemacs-cua-hook) - (funcall modify-hook 'isearch-mode-hook 'ergoemacs-isearch-hook) - (funcall modify-hook 'comint-mode-hook 'ergoemacs-comint-hook) - (funcall modify-hook 'log-edit-mode-hook 'ergoemacs-log-edit-hook) - (funcall modify-hook 'eshell-mode-hook 'ergoemacs-eshell-hook) - (funcall modify-hook 'minibuffer-setup-hook 'ergoemacs-minibuffer-setup-hook) - (funcall modify-hook 'iswitchb-minibuffer-setup-hook 'ergoemacs-iswitchb-hook) - ) - ) - -;;---------------------------------------------------------------------- -;; ErgoEmacs minor mode - -(define-minor-mode ergoemacs-mode - "Toggle ergoemacs keybinding mode. -This minor mode changes your emacs keybindings. -Without argument, toggles the minor mode. -If optional argument is 1, turn it on. -If optional argument is 0, turn it off. -Argument of t or nil should not be used. -For full documentation, see: -URL `http://xahlee.org/emacs/ergonomic_emacs_keybinding.html' - -If you turned on by mistake, the shortcut to call execute-extended-command is M-a." - nil - :lighter " ErgoEmacs" ;; TODO this should be nil (it is for testing purposes) - :global t - :keymap ergoemacs-keymap - - (ergoemacs-hook-modes) - ) - -(provide 'ergoemacs-mode) diff --git a/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-unbind.el b/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-unbind.el deleted file mode 100644 index e902231..0000000 --- a/.emacs.d.backup/ergoemacs-keybindings-5.1/ergoemacs-unbind.el +++ /dev/null @@ -1,205 +0,0 @@ -;-*- coding: utf-8 -*- - -;; this file define keys that we want to set/unset because they are already defined by ergoemacs minor mode - -(eval-when-compile (require 'edmacro)) - -(defconst ergoemacs-redundant-keys - '( "C-/" - "C-0" - "C-1" - "C-2" - "C-3" - "C-4" - "C-5" - "C-6" - "C-7" - "C-8" - "C-9" - "C-" - "C-" - "C-" - "C-@" - "C-M-%" - "C-_" - "C-a" - "C-b" - "C-d" - "C-e" - "C-f" - "C-j" - "C-k" - "C-l" - "C-n" - "C-o" - "C-p" - "C-r" - "C-s" - "C-t" - "C-v" - "C-w" - "C-x 0" - "C-x 1" - "C-x 2" - "C-x 3" - "C-x 5 0" - "C-x 5 2" - "C-x C-d" - "C-x C-f" - "C-x C-s" - "C-x C-w" - "C-x d" - "C-x h" - "C-x o" - "C-y" - "C-z" - "M--" - "M-0" - "M-1" - "M-2" - "M-3" - "M-4" - "M-5" - "M-6" - "M-7" - "M-8" - "M-9" - "M-<" - "M->" - "M-@" - "M-\\" - "M-a" - "M-b" - "M-c" - "M-d" - "M-e" - "M-f" - "M-h" - "M-i" - "M-j" - "M-k" - "M-l" - "M-m" - "M-n" - "M-o" - "M-p" - "M-q" - "M-r" - "M-s" - "M-t" - "M-u" - "M-v" - "M-w" - "M-x" - "M-y" - "M-z" - "M-{" - "M-}" - ) - ) - -;; Some exceptions we don't want to unset. -;; "C-g" 'keyboard-quit -;; "C-i" 'indent-for-tab-command -;; "C-m" 'newline-and-indent -;; "C-q" 'quote-insert -;; "C-u" 'universal-argument -;; "C-h" ; (help-map) -;; "C-x" ; (ctl-x-map) -;; "C-c" ; (prefix) -;; "M-g" ; (prefix) - -(defvar ergoemacs-overridden-global-keys '() - "Alist to store overridden keyboard shortcuts in - `current-global-map' and other maps. Each item looks like '(MAP KEY OLD-COMMAND).") - -(defun ergoemacs-unset-global-key (map key-s) - "Sets to nil the associated command for the specified key in specified map. -It is like: - - \(define-key map (kbd key-s) nil)) - -But it saves the old command associated with the -specified key, so we can restore it when ergoemacs minor mode is -disabled at `ergoemacs-restore-global-keys'." - (let (key oldcmd) - (setq key (edmacro-parse-keys key-s)) - ;; get the old command associated with this key - (setq oldcmd (lookup-key map key)) - ;; save that shortcut in ergoemacs-overridden-global-keys - (if oldcmd - (add-to-list 'ergoemacs-overridden-global-keys (cons map (cons key-s (cons oldcmd nil))))) - ;; redefine the key in the ergoemacs-keymap - (define-key map key nil) - ) - ) - -(defun ergoemacs-unset-redundant-global-keys () - "Unsets redundant keyboard shortcuts that should not be used in ErgoEmacs." - (mapc (lambda (x) - (ergoemacs-unset-global-key (current-global-map) x)) - ergoemacs-redundant-keys) - ) - -(defun ergoemacs-restore-global-keys () - "Restores all keyboard shortcuts that were overwritten by `ergoemacs-unbind-global-key'." - (mapc (lambda (x) - (define-key - (car x) - (edmacro-parse-keys (car (cdr x))) - (car (cdr (cdr x)))) - ) - ergoemacs-overridden-global-keys) - (setq ergoemacs-overridden-global-keys '()) ; clear the list - ) - -;; Based on describe-key-briefly -(defun where-is-old-binding (&optional key) - "Print the name of the function KEY invoked before to start ErgoEmacs minor mode." - (interactive - (let ((enable-disabled-menus-and-buttons t) - (cursor-in-echo-area t) - saved-yank-menu) - (unwind-protect - (let (key) - ;; If yank-menu is empty, populate it temporarily, so that - ;; "Select and Paste" menu can generate a complete event. - (when (null (cdr yank-menu)) - (setq saved-yank-menu (copy-sequence yank-menu)) - (menu-bar-update-yank-menu "(any string)" nil)) - (setq key (read-key-sequence "Describe old key (or click or menu item): ")) - ;; If KEY is a down-event, read and discard the - ;; corresponding up-event. Note that there are also - ;; down-events on scroll bars and mode lines: the actual - ;; event then is in the second element of the vector. - (and (vectorp key) - (let ((last-idx (1- (length key)))) - (and (eventp (aref key last-idx)) - (memq 'down (event-modifiers (aref key last-idx))))) - (read-event)) - (list key)) - ;; Put yank-menu back as it was, if we changed it. - (when saved-yank-menu - (setq yank-menu (copy-sequence saved-yank-menu)) - (fset 'yank-menu (cons 'keymap yank-menu)))))) - - (let (key-desc item-key item-cmd old-cmd) - (setq key-desc (key-description key)) - (setq item ergoemacs-overridden-global-keys) - (while (and item (not old-cmd)) - (setq item-key (car (cdr (car item)))) - (setq item-cmd (car (cdr (cdr (car item))))) - (if (string= item-key key-desc) - (setq old-cmd item-cmd)) - (setq item (cdr item)) - ) - (if old-cmd - (with-temp-buffer - (where-is old-cmd t) - (message "Key %s was bound to %s which is now invoked by %s" - key-desc old-cmd (buffer-string)) - ) - (message "Key %s was not bound to any command" key-desc) - ) - ) - ) diff --git a/.emacs.d.backup/ergoemacs-keybindings-5.1/functions.el b/.emacs.d.backup/ergoemacs-keybindings-5.1/functions.el deleted file mode 100755 index 1a86f9f..0000000 --- a/.emacs.d.backup/ergoemacs-keybindings-5.1/functions.el +++ /dev/null @@ -1,385 +0,0 @@ -;-*- coding: utf-8 -*- - -(require 'redo "redo.elc" t) ; for redo shortcut - -(delete-selection-mode 1) ; turn on text selection highlighting and make typing override selected text (Note: when delete-selection-mode is on, then transient-mark-mode is automatically on too.) - -(defun call-keyword-completion () - "Call the command that has keyboard shortcut M-TAB." - (interactive) - (call-interactively (key-binding (kbd "M-TAB"))) -) - -(defun describe-major-mode () - "Show inline doc for current major-mode." - ;; code by Kevin Rodgers. 2009-02-25 - (interactive) - (describe-function major-mode)) - -(defun copy-all () - "Put the whole buffer content into the kill-ring. -If narrow-to-region is in effect, then copy that region only." - (interactive) - (kill-ring-save (point-min) (point-max)) - (message "Buffer content copied") - ) - -(defun cut-all () - "Cut the whole buffer content into the kill-ring. -If narrow-to-region is in effect, then cut that region only." - (interactive) - (kill-region (point-min) (point-max)) - (message "Buffer content cut") - ) - -;;; TEXT SELECTION RELATED - -(defun select-text-in-quote () - "Select text between the nearest left and right delimiters. -Delimiters are paired characters: ()[]<>«»“”‘’「」【】, including \"\"." - (interactive) - (let (b1 b2) - (skip-chars-backward "^<>(“{[「«【\"‘") - (setq b1 (point)) - (skip-chars-forward "^<>)”}]」】»\"’") - (setq b2 (point)) - (set-mark b1) - ) - ) - -;; by Nikolaj Schumacher, 2008-10-20. Released under GPL. -(defun semnav-up (arg) - (interactive "p") - (when (nth 3 (syntax-ppss)) - (if (> arg 0) - (progn - (skip-syntax-forward "^\"") - (goto-char (1+ (point))) - (decf arg)) - (skip-syntax-backward "^\"") - (goto-char (1- (point))) - (incf arg))) - (up-list arg)) - -;; by Nikolaj Schumacher, 2008-10-20. Released under GPL. -(defun extend-selection (arg &optional incremental) - "Select the current word. -Subsequent calls expands the selection to larger semantic unit." - (interactive (list (prefix-numeric-value current-prefix-arg) - (or (and transient-mark-mode mark-active) - (eq last-command this-command)))) - (if incremental - (progn - (semnav-up (- arg)) - (forward-sexp) - (mark-sexp -1)) - (if (> arg 1) - (extend-selection (1- arg) t) - (if (looking-at "\\=\\(\\s_\\|\\sw\\)*\\_>") - (goto-char (match-end 0)) - (unless (memq (char-before) '(?\) ?\")) - (forward-sexp))) - (mark-sexp -1)))) - -;;; TEXT TRANSFORMATION RELATED - -(defun kill-line-backward () - "Kill text between the beginning of the line to the cursor position. -If there's no text, delete the previous line ending." - (interactive) - (if (looking-back "\n") - (delete-char -1) - (kill-line 0) - ) - ) - -(defun move-cursor-next-pane () - "Move cursor to the next pane." - (interactive) - (other-window 1) - ) - -(defun move-cursor-previous-pane () - "Move cursor to the previous pane." - (interactive) - (other-window -1) - ) - -(defun compact-uncompact-block () - "Remove or add line endings on the current block of text. -This is similar to a toggle for fill-paragraph and unfill-paragraph -When there is a text selection, act on the region. - -When in text mode, a paragraph is considerd a block. When in programing -language mode, the block is defined by between empty lines. - -Todo: The programing language behavior is currently not done. -Right now, the code uses fill* functions, so does not work or work well -in programing lang modes. A proper implementation to compact is replacing -EOL chars by space when the EOL char is not inside string." - (interactive) - - ;; This command symbol has a property “'stateIsCompact-p”, the - ;; possible values are t and nil. This property is used to easily - ;; determine whether to compact or uncompact, when this command is - ;; called again - - (let (bds currentLineCharCount currentStateIsCompact - (bigFillColumnVal 4333999) (deactivate-mark nil)) - - (save-excursion - ;; currentLineCharCount is used to determine whether current state - ;; is compact or not, when the command is run for the first time - (setq currentLineCharCount - (progn - (setq bds (bounds-of-thing-at-point 'line)) - (length (buffer-substring-no-properties (car bds) (cdr bds))) - ;; Note: 'line includes eol if it is not buffer's last line - ) - ) - - ;; Determine whether the text is currently compact. when the last - ;; command is this, then symbol property easily tells, but when - ;; this command is used fresh, right now we use num of chars of - ;; the cursor line as a way to define current compatness state - (setq currentStateIsCompact - (if (eq last-command this-command) - (get this-command 'stateIsCompact-p) - (if (> currentLineCharCount fill-column) t nil) - ) - ) - - (if (and transient-mark-mode mark-active) - (if currentStateIsCompact - (fill-region (region-beginning) (region-end)) - (let ((fill-column bigFillColumnVal)) - (fill-region (region-beginning) (region-end))) - ) - (if currentStateIsCompact - (fill-paragraph nil) - (let ((fill-column bigFillColumnVal)) - (fill-paragraph nil)) - ) - ) - - (put this-command 'stateIsCompact-p (if currentStateIsCompact - nil t)) ) ) ) - -(defun shrink-whitespaces () - "Remove white spaces around cursor to just one or none. -If current line does not contain non-white space chars, then remove blank lines to just one. -If current line contains non-white space chars, then shrink any whitespace char surrounding cursor to just one space. -If current line is a single space, remove that space. - -Calling this command 3 times will always result in no whitespaces around cursor." - (interactive) - (let ( - cursor-point - line-has-meat-p ; current line contains non-white space chars - spaceTabNeighbor-p - whitespace-begin whitespace-end - space-or-tab-begin space-or-tab-end - line-begin-pos line-end-pos - ) - (save-excursion - ;; todo: might consider whitespace as defined by syntax table, and also consider whitespace chars in unicode if syntax table doesn't already considered it. - (setq cursor-point (point)) - - (setq spaceTabNeighbor-p (if (or (looking-at " \\|\t") (looking-back " \\|\t")) t nil) ) - (move-beginning-of-line 1) (setq line-begin-pos (point) ) - (move-end-of-line 1) (setq line-end-pos (point) ) - ;; (re-search-backward "\n$") (setq line-begin-pos (point) ) - ;; (re-search-forward "\n$") (setq line-end-pos (point) ) - (setq line-has-meat-p (if (< 0 (count-matches "[[:graph:]]" line-begin-pos line-end-pos)) t nil) ) - (goto-char cursor-point) - - (skip-chars-backward "\t ") - (setq space-or-tab-begin (point)) - - (skip-chars-backward "\t \n") - (setq whitespace-begin (point)) - - (goto-char cursor-point) (skip-chars-forward "\t ") - (setq space-or-tab-end (point)) - (skip-chars-forward "\t \n") - (setq whitespace-end (point)) - ) - - (if line-has-meat-p - (let (deleted-text) - (when spaceTabNeighbor-p - ;; remove all whitespaces in the range - (setq deleted-text (delete-and-extract-region space-or-tab-begin space-or-tab-end)) - ;; insert a whitespace only if we have removed something - ;; different that a simple whitespace - (if (not (string= deleted-text " ")) - (insert " ") ) ) ) - - (progn - ;; (delete-region whitespace-begin whitespace-end) - ;; (insert "\n") - (delete-blank-lines) - ) - ;; todo: possibly code my own delete-blank-lines here for better efficiency, because delete-blank-lines seems complex. - ) - ) - ) - -(defun toggle-letter-case () - "Toggle the letter case of current word or text selection. -Toggles from 3 cases: UPPER CASE, lower case, Title Case, -in that cyclic order." -(interactive) -(let (pos1 pos2 (deactivate-mark nil) (case-fold-search nil)) - (if (and transient-mark-mode mark-active) - (setq pos1 (region-beginning) - pos2 (region-end)) - (setq pos1 (car (bounds-of-thing-at-point 'word)) - pos2 (cdr (bounds-of-thing-at-point 'word)))) - - (when (not (eq last-command this-command)) - (save-excursion - (goto-char pos1) - (cond - ((looking-at "[[:lower:]][[:lower:]]") (put this-command 'state "all lower")) - ((looking-at "[[:upper:]][[:upper:]]") (put this-command 'state "all caps") ) - ((looking-at "[[:upper:]][[:lower:]]") (put this-command 'state "init caps") ) - (t (put this-command 'state "all lower") ) - ) - ) - ) - - (cond - ((string= "all lower" (get this-command 'state)) - (upcase-initials-region pos1 pos2) (put this-command 'state "init caps")) - ((string= "init caps" (get this-command 'state)) - (upcase-region pos1 pos2) (put this-command 'state "all caps")) - ((string= "all caps" (get this-command 'state)) - (downcase-region pos1 pos2) (put this-command 'state "all lower")) - ) -) -) - -;;; FRAME - -(defun switch-to-next-frame () - "Select the next frame on current display, and raise it." - (interactive) - (other-frame 1) - ) - -(defun switch-to-previous-frame () - "Select the previous frame on current display, and raise it." - (interactive) - (other-frame -1) - ) - -;;; BUFFER RELATED - -(defun next-user-buffer () - "Switch to the next user buffer. -User buffers are those whose name does not start with *." - (interactive) - (next-buffer) - (let ((i 0)) - (while (and (string-match "^*" (buffer-name)) (< i 50)) - (setq i (1+ i)) (next-buffer) ))) - -(defun previous-user-buffer () - "Switch to the previous user buffer. -User buffers are those whose name does not start with *." - (interactive) - (previous-buffer) - (let ((i 0)) - (while (and (string-match "^*" (buffer-name)) (< i 50)) - (setq i (1+ i)) (previous-buffer) ))) - -(defun next-emacs-buffer () - "Switch to the next emacs buffer. -Emacs buffers are those whose name starts with *." - (interactive) - (next-buffer) - (let ((i 0)) - (while (and (not (string-match "^*" (buffer-name))) (< i 50)) - (setq i (1+ i)) (next-buffer) ))) - -(defun previous-emacs-buffer () - "Switch to the previous emacs buffer. -Emacs buffers are those whose name starts with *." - (interactive) - (previous-buffer) - (let ((i 0)) - (while (and (not (string-match "^*" (buffer-name))) (< i 50)) - (setq i (1+ i)) (previous-buffer) ))) - -(defun new-empty-buffer () - "Opens a new empty buffer." - (interactive) - (let ((buf (generate-new-buffer "untitled"))) - (switch-to-buffer buf) - (funcall (and initial-major-mode)) - (setq buffer-offer-save t))) -;; note: emacs won't offer to save a buffer that's -;; not associated with a file, -;; even if buffer-modified-p is true. -;; One work around is to define your own my-kill-buffer function -;; that wraps around kill-buffer, and check on the buffer modification -;; status to offer save -;; This custome kill buffer is close-current-buffer. - - -(defvar recently-closed-buffers (cons nil nil) "A list of recently closed buffers. The max number to track is controlled by the variable recently-closed-buffers-max.") -(defvar recently-closed-buffers-max 10 "The maximum length for recently-closed-buffers.") - -(defun close-current-buffer () -"Close the current buffer. - -Similar to (kill-buffer (current-buffer)) with the following addition: - -• prompt user to save if the buffer has been modified even if the buffer is not associated with a file. -• make sure the buffer shown after closing is a user buffer. -• if the buffer is a file, add the path to the list recently-closed-buffers. - -A emacs buffer is one who's name starts with *. -Else it is a user buffer." - (interactive) - (let (emacsBuff-p isEmacsBufferAfter) - (if (string-match "^*" (buffer-name)) - (setq emacsBuff-p t) - (setq emacsBuff-p nil)) - - ;; offer to save buffers that are non-empty and modified, even for non-file visiting buffer. (because kill-buffer does not offer to save buffers that are not associated with files) - (when (and (buffer-modified-p) - (not emacsBuff-p) - (not (string-equal major-mode "dired-mode")) - (if (equal (buffer-file-name) nil) - (if (string-equal "" (save-restriction (widen) (buffer-string))) nil t) - t - ) - ) - (if (y-or-n-p - (concat "Buffer " (buffer-name) " modified; Do you want to save?")) - (save-buffer) - (set-buffer-modified-p nil))) - - ;; save to a list of closed buffer - (when (not (equal buffer-file-name nil)) - (setq recently-closed-buffers - (cons (cons (buffer-name) (buffer-file-name)) recently-closed-buffers)) - (when (> (length recently-closed-buffers) recently-closed-buffers-max) - (setq recently-closed-buffers (butlast recently-closed-buffers 1)) - ) - ) - - ;; close - (kill-buffer (current-buffer)) - - ;; if emacs buffer, switch to a user buffer - (if (string-match "^*" (buffer-name)) - (setq isEmacsBufferAfter t) - (setq isEmacsBufferAfter nil)) - (when isEmacsBufferAfter - (previous-user-buffer) - ) - ) - ) diff --git a/.emacs.d.backup/gentooish.el b/.emacs.d.backup/gentooish.el deleted file mode 100644 index db65da5..0000000 --- a/.emacs.d.backup/gentooish.el +++ /dev/null @@ -1,31 +0,0 @@ -(require 'color-theme) - -(defun color-theme-gentooish () - "Mostly green and purple color theme" - (interactive) - (color-theme-install - '(color-theme-gentooish - ((foreground-color . "#c0c0c0") - (background-color . "#171717") - (border-color . "black") - (cursor-color . "green") - (background-mode . dark)) - (bold ((t (:foreground "white" :weight normal)))) - (font-lock-builtin-face ((((class color) (min-colors 88) (background dark)) (:foreground "#c476f1")))) - (font-lock-comment-face ((((class color) (min-colors 88) (background dark)) (:foreground "grey30" :slant italic)))) - (font-lock-function-name-face ((((class color) (min-colors 88) (background dark)) (:foreground "#4cbbd1")))) - (font-lock-keyword-face ((((class color) (min-colors 88) (background dark)) (:foreground "#9a383a")))) - (font-lock-string-face ((((class color) (min-colors 88) (background dark)) (:background "#0f291a" :foreground "#5dff9e")))) - (hi-blue ((((background dark)) (:background "grey20")))) - (ido-first-match ((t (:background "#361d45" :foreground "#cf7dff" :weight bold)))) - (ido-only-match ((((class color)) (:background "#361d45" :foreground "#cf7dff" :weight bold)))) - (ido-subdir ((((min-colors 88) (class color)) (:foreground "#7dcfff")))) - (linum ((t (:inherit shadow :background "grey12")))) - (minibuffer-prompt ((((background dark)) (:foreground "#863335")))) - (mode-line ((((class color) (min-colors 88)) (:background "#333333" :foreground "#ffffff" :box (:line-width -1 :color "#333333"))))) - (mode-line-highlight ((((class color) (min-colors 88)) nil))) - (mode-line-inactive ((default (:inherit mode-line)) (((class color) (min-colors 88) (background dark)) (:foreground "#8b8b8b" :weight light)))) - (show-paren-match ((((class color) (background dark)) (:background "#005500")))) - (tool-bar ((default (:foreground "black")) (((type x w32 ns) (class color)) (:background "grey75"))))))) - -(provide 'gentooish) diff --git a/.emacs.d.backup/haskell-mode/ChangeLog b/.emacs.d.backup/haskell-mode/ChangeLog deleted file mode 100644 index b8ae224..0000000 --- a/.emacs.d.backup/haskell-mode/ChangeLog +++ /dev/null @@ -1,1505 +0,0 @@ -Sat Nov 7 12:09:01 CET 2009 svein.ove@aas.no - tagged 2.6.4 - -Sat Nov 7 12:08:51 CET 2009 svein.ove@aas.no - * Don't compile the elfiles after all - -Sat Nov 7 11:50:17 CET 2009 svein.ove@aas.no - tagged 2.6.3 - -Sat Nov 7 11:48:22 CET 2009 svein.ove@aas.no - * Distribution improvements (ChangeLog, .elc files) - -Tue Nov 3 15:54:15 CET 2009 svein.ove@aas.no - tagged 2.6.2 - -Tue Nov 3 15:53:45 CET 2009 svein.ove@aas.no - * NEWS update for 2.6.2 - -Tue Nov 3 14:10:37 CET 2009 svein.ove@aas.no - * haskell-decl-scan: Skip comments - -Mon Nov 2 18:53:50 CET 2009 svein.ove@aas.no - * Fix: Three-level and higher hierarchical modules too - -Mon Nov 2 17:32:00 CET 2009 svein.ove@aas.no - * haskell-indentation: Stop choking on hierarchical modules - -Mon Nov 2 16:05:43 CET 2009 svein.ove@aas.no - * Font-lock symbols by Roel van Dijk - -Sun Nov 1 22:40:19 CET 2009 svein.ove@aas.no - tagged 2.6.1 - -Sun Nov 1 22:39:59 CET 2009 svein.ove@aas.no - * Make sure the load-path is set right - -Sun Nov 1 20:08:53 CET 2009 svein.ove@aas.no - tagged 2.6 - -Sun Nov 1 20:08:25 CET 2009 svein.ove@aas.no - * 2.6 administrivia - -Sun Nov 1 20:05:36 CET 2009 svein.ove@aas.no - * haskell-indentation: Tab now follows a cycle - -Sun Nov 1 20:05:13 CET 2009 svein.ove@aas.no - * haskell-indentation.el: Typo: "haskell-ntation" - -Sun Nov 1 19:23:01 CET 2009 svein.ove@aas.no - * Alias haskell-hayoo and haskell-hoogle, removing haskell- - -Sun Nov 1 19:22:33 CET 2009 svein.ove@aas.no - * Update Makefile for darcs - -Sun Nov 1 18:42:27 CET 2009 svein.ove@aas.no - * Rename haskell-hoogle and haskell-hayoo, removing the haskell- prefix - -Sun Nov 1 17:34:14 CET 2009 svein.ove@aas.no - * Changelog removed; use darcs changes - -Sun Nov 1 17:33:19 CET 2009 svein.ove@aas.no - * Patch courtesy of Alex Ott - - code for haskell-font-lock.el - adds more unicode symbols - - code for inf-haskell.el fixes regex for inferior-haskell-type, so it - will parse type declarations properly - - code for haskell-mode.el adds ability to search function signatures at - hayoo - -Mon Oct 26 23:03:08 CET 2009 svein.ove@aas.no - * Correct on-parse-error for (backward-)delete-char - -Sun Oct 25 20:19:59 CET 2009 svein.ove@aas.no - * Handle error conditions in haskell-indentation.el - -Sun Oct 25 19:41:13 CET 2009 svein.ove@aas.no - tagged 2.5.1 - -Sun Oct 25 19:40:22 CET 2009 svein.ove@aas.no - * Clarify the documentation, remove the haskell-indent-mode autoload - -Sun Oct 25 15:36:36 CET 2009 svein.ove@aas.no - tagged Version 2.5 - -Sun Oct 25 15:35:49 CET 2009 svein.ove@aas.no - * Changelog and NEWS updated - -Sun Oct 25 15:29:03 CET 2009 svein.ove@aas.no - * Updated documentation and autoloads for haskell-indentation - -Sun Oct 25 12:34:18 CET 2009 svein.ove@aas.no - * haskell-indentation: Add support for view patterns - Extends the parser's notion of valid patterns to include view-patterns - -Sun Oct 25 12:33:00 CET 2009 svein.ove@aas.no - * Update to newest haskell-indentation.el - Grabbed newest haskell-indentation.el from http://kuribas.hcoop.net - -Sun Oct 25 12:26:32 CET 2009 svein.ove@aas.no - tagged Last CVS revision - -Mon Feb 2 23:05:38 CET 2009 monnier - * (inferior-haskell-type, inferior-haskell-info): - (inferior-haskell-type, inferior-haskell-info): - Move after calling inferior-haskell-wait-for-prompt. - Reported by Thaju and Jose A. Ortega Ruiz . - - -Mon Feb 2 23:00:33 CET 2009 monnier - * (haskell-doc-imported-list): Don't add current buffer - (haskell-doc-imported-list): Don't add current buffer - to the imported file list if it is not (yet?) visiting a file. - - -Mon Feb 2 22:30:55 CET 2009 monnier - * (haskell-indent-thenelse): New var. - (haskell-indent-thenelse): New var. - (haskell-indent-closing-keyword): Use it. - - -Mon Feb 2 21:56:35 CET 2009 monnier - * (haskell-ds-generic-find-next-decl): Accept qualified import names. - -Tue Aug 26 09:39:34 CEST 2008 monnier - * (inferior-haskell-load-file): Escape backslashes (and quotes) in file names - (inferior-haskell-load-file): Escape backslashes (and quotes) in file names - passed to the inferior process. - Reported by "Nadeem Abdul Hamid" . - - -Fri Jul 4 08:37:21 CEST 2008 monnier - * * inf-haskell.el (inferior-haskell-load-and-run): Don't run if there - * inf-haskell.el (inferior-haskell-load-and-run): Don't run if there - were compilation errors. Switch to inf-haskell buffer after run. - - -Fri Jul 4 08:17:52 CEST 2008 monnier - * (inferior-haskell-cabal-of-buf): Don't return - (inferior-haskell-cabal-of-buf): Don't return - a dead buffer. Reported by Conal Elliott . - (replace-regexp-in-string): Add XEmacs compatibility. - - -Fri May 30 20:01:43 CEST 2008 monnier - * (haskell-font-lock-symbols-alist): Change the - (haskell-font-lock-symbols-alist): Change the - character used for the composition operator. - - -Fri May 30 19:05:22 CEST 2008 monnier - * (haskell-indent-map): Disable C-c C-g binding since - (haskell-indent-map): Disable C-c C-g binding since - C-g is a special key not to be used like that. - - -Sat May 24 00:07:32 CEST 2008 monnier - * (haskell-cabal-find-file): Ignore directories. - -Tue May 13 06:25:17 CEST 2008 monnier - * (inferior-haskell-spot-prompt): New function. - (inferior-haskell-spot-prompt): New function. - (inferior-haskell-mode): Use it. - (inferior-haskell-seen-prompt): New var. - (inferior-haskell-wait-for-prompt): Use it. - (inferior-haskell-send-command): Reset it. - (inferior-haskell-type): Avoid use of remove-it. - - -Tue May 13 05:33:50 CEST 2008 monnier - * (inferior-haskell-info-xref-re): Allow a column-range. - (inferior-haskell-info-xref-re): Allow a column-range. - Reported by Jose A. Ortega Ruiz . - (inferior-haskell-error-regexp-alist): Use the extra column-end info - if available. - - -Fri Feb 29 01:07:53 CET 2008 monnier - * Fix up general coding convention stuff. - Fix up general coding convention stuff. - (haskell-indentation-mode): Use define-minor-mode. - (turn-on-haskell-indentation, turn-off-haskell-indentation): - Remove, fold into haskell-indentation-mode. - - -Fri Feb 29 00:43:34 CET 2008 monnier - * *** empty log message *** - -Fri Feb 29 00:39:23 CET 2008 monnier - * (haskell-indent-region): New dummy function. - (haskell-indent-region): New dummy function. - (turn-on-haskell-indent): Use it to be more honest. - - -Fri Feb 29 00:23:36 CET 2008 monnier - * (literate-haskell-mode): Fix up mode line. - (literate-haskell-mode): Fix up mode line. - Disable fill-comment-paragraph in Bird style. - - -Fri Feb 29 00:11:10 CET 2008 monnier - * (subst-char-in-string, make-temp-file): Add fallback definitions for XEmacs. - -Thu Feb 28 23:55:27 CET 2008 monnier - * (inferior-haskell-find-haddock): Jump to the symbol anchor within Haddock. - -Thu Feb 28 23:51:30 CET 2008 monnier - * *** empty log message *** - -Tue Feb 19 06:22:44 CET 2008 monnier - * (haskell-indent-next-symbol-safe): New fun. - (haskell-indent-next-symbol-safe): New fun. - (haskell-indent-separate-valdef): Use it. - - -Tue Feb 19 06:08:17 CET 2008 monnier - * (inferior-haskell-cabal-of-buf): Fix typo. - (inferior-haskell-cabal-of-buf): Fix typo. - Reported by Bas van Dijk . - - -Mon Feb 11 20:07:12 CET 2008 monnier - * (inferior-haskell-wait-for-prompt): Add timeout arg. - (inferior-haskell-wait-for-prompt): Add timeout arg. - (inferior-haskell-find-definition): Expand file name in the right cwd. - - -Fri Feb 1 00:25:07 CET 2008 monnier - * (inferior-haskell-cabal-of-buf) - (inferior-haskell-cabal-of-buf) - (inferior-haskell-module-alist-file): Adjust for XEmacs. - - -Thu Jan 17 18:38:54 CET 2008 monnier - * (haskell-cabal-font-lock-keywords): Add rules - (haskell-cabal-font-lock-keywords): Add rules - for `if', `else', `Library', `Flag', and `Executable'. - (haskell-cabal-mode): Setup comment variables. - - -Wed Dec 12 21:24:30 CET 2007 monnier - * (haskell-package-conf-file): Don't use `ignore-errors' - (haskell-package-conf-file): Don't use `ignore-errors' - because this form is not byte-compiled :-(. - - -Wed Dec 12 06:33:13 CET 2007 monnier - tagged v2_4 - -Wed Dec 12 06:33:13 CET 2007 monnier - * *** empty log message *** - -Wed Dec 12 06:22:34 CET 2007 monnier - * *** empty log message *** - -Wed Dec 12 06:07:06 CET 2007 monnier - * (haskell-mode-map): Fix last change. - -Wed Dec 12 06:05:13 CET 2007 monnier - * (ELFILES): Add haskell-c, haskell-cabal, and haskell-simple-indent. - -Wed Dec 12 06:04:19 CET 2007 monnier - * (haskell-doc-in-code-p): New function. - (haskell-doc-in-code-p): New function. - (haskell-doc-show-type): Use it. - - -Wed Dec 12 06:03:31 CET 2007 monnier - * (haskell-delete-indentation): New command. - (haskell-delete-indentation): New command. - (haskell-mode-map): Use it. - - -Sun Nov 11 15:44:43 CET 2007 monnier - * (haskell-cabal-get-setting): Handle multi-line settings. - -Sun Nov 11 15:43:50 CET 2007 monnier - * (inferior-haskell-load-file): Typo. - -Wed Sep 26 23:58:55 CEST 2007 monnier - * (inferior-haskell-find-project-root): Minor simplification. - -Wed Sep 26 23:57:41 CEST 2007 monnier - * (inferior-haskell-find-project-root): Use it. - -Wed Sep 26 23:56:46 CEST 2007 monnier - * (haskell-cabal-get-setting): New function. - -Wed Sep 26 23:51:29 CEST 2007 monnier - * New file. - -Mon Sep 17 20:03:31 CEST 2007 monnier - * *** empty log message *** - -Mon Sep 17 20:01:40 CEST 2007 monnier - * (inferior-haskell-load-file): Do reload if prefix arg. - -Sat Sep 8 06:31:29 CEST 2007 monnier - * (turn-on-haskell-indent): Fix keymap setup code. - -Fri Sep 7 06:19:31 CEST 2007 monnier - * (inferior-haskell-find-project-root): New var, to - (inferior-haskell-find-project-root): New var, to - replace inferior-haskell-use-cabal. - (inferior-haskell-find-project-root): New function. - (inferior-haskell-load-file): Use them. - (inferior-haskell-module-alist): Use a temp buffer so as not to write - out random junk before/after the actual module alist. - - -Thu Aug 30 07:10:08 CEST 2007 monnier - * Comment/docs fixes. - -Thu Aug 30 07:09:44 CEST 2007 monnier - * (inferior-haskell-load-file): Re-add the `reload' arg. - (inferior-haskell-load-file): Re-add the `reload' arg. - (inferior-haskell-reload-file): Re-instate the command. - - -Thu Aug 30 07:07:53 CEST 2007 monnier - * (turn-on-haskell-hugs, turn-on-haskell-ghci): - (turn-on-haskell-hugs, turn-on-haskell-ghci): - Make people work harder to use those obsolete packages., - - -Thu Aug 30 00:35:01 CEST 2007 monnier - * *** empty log message *** - -Thu Aug 30 00:12:33 CEST 2007 monnier - * (haskell-indent-map): New var. - (haskell-indent-map): New var. - (turn-on-haskell-indent, turn-off-haskell-indent): Use it together with - keymap inheritance instead of inplace modifications. - (haskell-indent-map): Add alternate binding for - C-c C-|. Suggested by David House . - - -Tue Jul 31 18:44:04 CEST 2007 monnier - * (inferior-haskell-type): Fix call to message. - -Mon Jul 30 21:36:50 CEST 2007 monnier - * (displayed-month): Remove declaration since it's not used here. - -Sun Jul 1 07:35:38 CEST 2007 monnier - * Removed support for :reload (e.g. removed the C-c C-r binding). - -Fri Jun 29 22:16:09 CEST 2007 monnier - * (inferior-haskell-compute-module-alist): Fix regexps. - (inferior-haskell-compute-module-alist): Fix regexps. - (inferior-haskell-module-alist-file): Thinko. - - -Fri Jun 29 21:37:44 CEST 2007 monnier - * (inferior-haskell-run-command): New var. - (inferior-haskell-run-command): New var. - (inferior-haskell-load-and-run): New command. - - (inferior-haskell-map-internal-ghc-ident): New var. - (inferior-haskell-map-internal-ghc-ident): New fun. - (inferior-haskell-find-haddock): Use it. - - -Fri Jun 29 21:16:32 CEST 2007 monnier - * (inferior-haskell-module-alist-file): Use a file in /tmp rather than ~/. - (inferior-haskell-module-alist-file): Use a file in /tmp rather than ~/. - (inferior-haskell-compute-module-alist): - Rename from inferior-haskell-populate-module-alist. - Just return the result without saving it in any cache. - (inferior-haskell-read-module-alist-cache): Delete. - (inferior-haskell-module-alist): New function which replaces it, taking - care of the caching (both store&read). - (inferior-haskell-find-haddock): Adjust to this new arrangement. - - -Fri Jun 29 20:28:30 CEST 2007 monnier - * *** empty log message *** - -Fri Jun 29 20:28:25 CEST 2007 monnier - * (haskell-mode-map): Add binding to the new inferior-haskell-find-haddock cmd. - -Fri Jun 29 20:27:39 CEST 2007 monnier - * (inferior-haskell-module-alist-file) - (inferior-haskell-module-alist-file) - (inferior-haskell-module-re, inferior-haskell-use-web-docs) - (inferior-haskell-web-docs-base, haskell-package-manager-name) - (haskell-package-conf-file, inferior-haskell-module-alist): New vars. - (inferior-haskell-get-module, inferior-haskell-query-ghc-pkg) - (inferior-haskell-get-package-list) - (inferior-haskell-populate-module-alist) - (inferior-haskell-read-module-alist-cache) - (inferior-haskell-find-haddock): New functions to lookup Haddock docs. - - -Fri Jun 29 19:51:31 CEST 2007 monnier - * *** empty log message *** - -Wed Jun 27 06:08:57 CEST 2007 monnier - * (inferior-haskell-error-regexp-alist): - (inferior-haskell-error-regexp-alist): - Add more regexps for GHC's ever expanding variety of formats. - - -Wed Jun 20 10:02:27 CEST 2007 monnier - * (haskell-font-lock-haddock): New custom. - (haskell-font-lock-haddock): New custom. - (haskell-font-lock-seen-haddock): New internal var. - (haskell-syntactic-face-function): Highlight Haddock comments. - - -Wed Jun 13 01:16:11 CEST 2007 monnier - * (inferior-haskell-error-regexp-alist): Be more careful - (inferior-haskell-error-regexp-alist): Be more careful - with multiline patterns. Add pattern for GHCi's type error messages. - - -Wed Jun 13 01:16:02 CEST 2007 monnier - * (haskell-font-lock-symbols-alist): Add `forall'. - -Sun Jun 10 08:06:40 CEST 2007 monnier - * (haskell-font-lock-dot-is-not-composition): New function. - (haskell-font-lock-dot-is-not-composition): New function. - (haskell-font-lock-symbols-alist): Change rule for the "." symbol to - use that new function, so as to check it's not a "forall .". - (haskell-font-lock-compose-symbol, haskell-font-lock-symbols-keywords): - Adjust to understand the new syntax. - - -Sat Jun 9 23:22:25 CEST 2007 monnier - * *** empty log message *** - -Thu Jun 7 21:55:13 CEST 2007 monnier - * (inferior-haskell-error-regexp-alist): Add entries for GHCI's exceptions. - (inferior-haskell-error-regexp-alist): Add entries for GHCI's exceptions. - (inferior-haskell-mode): Set compilation-first-column. - - -Thu Jun 7 17:38:07 CEST 2007 monnier - * (haskell-indent-column+offset): New function. - (haskell-indent-column+offset): New function. - (haskell-indent-push-pos-offset, haskell-indent-after-keyword-column): Use it. - (haskell-indent-within-literate-code): Accept `tex' as well as `latex' - for literate style. - - -Thu Jun 7 17:34:04 CEST 2007 monnier - * (haskell-literate): Use `tex' rather than `latex'. Declare as safe. - (haskell-literate): Use `tex' rather than `latex'. Declare as safe. - (literate-haskell-mode): Use `tex' rather than `latex'. - Make it visible in the modeline. - - -Thu Jun 7 17:26:08 CEST 2007 monnier - * (haskell-font-lock-keywords-create): - (haskell-font-lock-keywords-create): - Accept `tex' as well as `latex' for literate style. - - -Thu Jun 7 17:25:17 CEST 2007 monnier - * (haskell-decl-scan-version): Remove. - -Thu May 24 23:00:53 CEST 2007 monnier - * (turn-on-haskell-indent): Add alternate binding for - (turn-on-haskell-indent): Add alternate binding for - C-c C-|. Suggested by David House . - - -Tue May 8 22:01:12 CEST 2007 monnier - * (inferior-haskell-use-cabal): New custom var. - (inferior-haskell-use-cabal): New custom var. - (inferior-haskell-cabal-of-buf): New fun. - (inferior-haskell-load-file): Use it to try and do the right thing in - multi-directory projects using a Cabal file. - - -Tue May 8 22:00:56 CEST 2007 monnier - * (inferior-haskell-string-prefix-p, haskell-cabal-find-file): New functions. - -Tue May 8 19:28:38 CEST 2007 monnier - * (inferior-haskell-string-to-strings): Remove `separator' argument. Call split - (inferior-haskell-string-to-strings): Remove `separator' argument. Call split - string without separator arg either, so that it drops null strings. - - -Fri May 4 02:20:16 CEST 2007 monnier - * (inferior-haskell-load-file): Save buffer before using buffer-file-name. - -Wed May 2 03:25:05 CEST 2007 monnier - * (haskell-hoogle-command, haskell-hoogle): New var and command. - -Mon Mar 5 23:03:55 CET 2007 monnier - * (haskell-font-lock-keywords-create): Wrap haskell-default-face for XEmacs. - -Wed Feb 14 21:48:04 CET 2007 monnier - tagged v2_3 - -Wed Feb 14 21:48:04 CET 2007 monnier - * *** empty log message *** - -Wed Feb 14 21:47:01 CET 2007 monnier - * New file. - -Wed Feb 14 20:19:47 CET 2007 monnier - * (haskell-indent-look-past-empty-line): Typo. - -Wed Feb 14 20:19:07 CET 2007 monnier - * *** empty log message *** - -Wed Feb 14 20:18:40 CET 2007 monnier - * (with-selected-window): Define while compiling. - -Sat Feb 10 09:21:59 CET 2007 monnier - tagged v2_2 **FUNKY** - -Sat Feb 10 09:21:59 CET 2007 monnier - * Name tricks - -Sat Feb 10 09:15:59 CET 2007 monnier - * Remove index.html - -Sat Feb 10 09:13:16 CET 2007 monnier - * *** empty log message *** - -Sat Feb 10 09:07:46 CET 2007 monnier - * *** empty log message *** - -Sat Feb 10 09:07:38 CET 2007 monnier - * Add code to test as/hiding/qualified. - -Sat Feb 10 09:01:00 CET 2007 monnier - * (haskell-font-lock-keywords-create): - (haskell-font-lock-keywords-create): - Remove qualified and hiding from the reserved identifiers. - Add a special rule for import statements. - - -Sat Feb 10 08:28:55 CET 2007 monnier - * (haskell-doc-get-current-word): Remove. - (haskell-doc-get-current-word): Remove. - Change all refs to it, to use haskell-ident-at-point instead. - - -Sat Feb 10 08:23:07 CET 2007 monnier - * (inferior-haskell-info-xref-re): New cst. - (inferior-haskell-info-xref-re): New cst. - (inferior-haskell-error-regexp-alist): Use it to highlight xref info. - (inferior-haskell-type, inferior-haskell-info) - (inferior-haskell-find-definition): New funs. - Contributed by Matthew Danish . - - -Sat Feb 10 08:17:01 CET 2007 monnier - * (haskell-ident-at-point): New fun. Copy of haskell-doc-get-current-word. - (haskell-ident-at-point): New fun. Copy of haskell-doc-get-current-word. - (haskell-mode-map): Add bindings for inferior-haskell-(type|info|find). - - -Fri Feb 9 23:55:43 CET 2007 monnier - * (haskell-indent-back-to-indentation): Simplify. - (haskell-indent-back-to-indentation): Simplify. - (haskell-indent-look-past-empty-line): New var. - (haskell-indent-start-of-def): Use it. - - -Fri Feb 9 23:55:01 CET 2007 monnier - * Add test case. - -Fri Feb 9 23:54:21 CET 2007 monnier - * (haskell-font-lock-version): Remove. - -Fri Feb 9 23:53:42 CET 2007 monnier - * (haskell-doc-get-current-word): Correctly distinguish - (haskell-doc-get-current-word): Correctly distinguish - variable identifiers and infix identifiers. - (haskell-doc-rescan-files): Avoid switch-to-buffer. - (haskell-doc-imported-list): Operate on current buffer. - (haskell-doc-make-global-fct-index): Adjust call. - - -Mon Nov 20 22:18:31 CET 2006 monnier - * *** empty log message *** - -Mon Nov 20 22:18:24 CET 2006 monnier - * (haskell-doc-mode-print-current-symbol-info): Fix thinko. - -Fri Oct 20 07:12:31 CEST 2006 monnier - * Drop post-command-idle-hook in favor of run-with-idle-timer. - Drop post-command-idle-hook in favor of run-with-idle-timer. - (haskell-doc-timer, haskell-doc-buffers): New vars. - (haskell-doc-mode): Use them. - (haskell-doc-check-active): Update the check. - (haskell-doc-mode-print-current-symbol-info): Remove the interactive spec. - Don't sit-for unless it's really needed. - - -Fri Oct 20 07:11:55 CEST 2006 monnier - * (inferior-haskell-load-file): Simplify and make more - (inferior-haskell-load-file): Simplify and make more - robust at the same time. - - -Mon Oct 16 07:46:00 CEST 2006 monnier - * Comment update. - -Tue Sep 26 07:59:52 CEST 2006 monnier - * (haskell-mode-menu): Fix typo. - -Wed Sep 20 22:44:48 CEST 2006 monnier - * *** empty log message *** - -Wed Sep 20 22:44:42 CEST 2006 monnier - * (haskell-mode-menu): New menu. - (haskell-mode-menu): New menu. - (haskell-mode): Use new name `eldoc-documentation-function'. - - -Wed Sep 20 22:43:31 CEST 2006 monnier - * (haskell-font-lock-keywords-create): Use a more - (haskell-font-lock-keywords-create): Use a more - precise test for literate haskell highlighting. - - -Wed Sep 20 22:42:35 CEST 2006 monnier - * Doc fix. - -Tue Aug 29 02:00:27 CEST 2006 monnier - * *** empty log message *** - -Sun May 28 06:11:24 CEST 2006 monnier - * *** empty log message *** - -Thu May 18 22:12:20 CEST 2006 monnier - * (inferior-haskell-wait-for-prompt): New fun, extracted - (inferior-haskell-wait-for-prompt): New fun, extracted - from inferior-haskell-send-command. - (inferior-haskell-send-command): Use it. - (inferior-haskell-wait-and-jump): New custom var. - (inferior-haskell-load-file): Use it. - - -Thu May 18 02:04:58 CEST 2006 monnier - * (inferior-haskell-mode): Use shell-dirtrack-mode if possible. - -Thu May 18 02:03:50 CEST 2006 monnier - * (haskell-hugs-start-process): Use comint-input-filter-functions rather than - (haskell-hugs-start-process): Use comint-input-filter-functions rather than - the outdated comint-input-sentinel. - - -Thu May 18 02:03:25 CEST 2006 monnier - * (haskell-ghci-start-process): Use comint-input-filter-functions rather than - (haskell-ghci-start-process): Use comint-input-filter-functions rather than - the outdated comint-input-sentinel. - - -Fri Dec 9 19:01:45 CET 2005 monnier - * Add some erroneous cases. - -Fri Dec 9 19:00:18 CET 2005 monnier - * (haskell-font-lock-keywords-create): Minor regexp fiddling. - -Wed Nov 23 20:17:28 CET 2005 monnier - * (haskell-indent-next-symbol): Simplify. - (haskell-indent-next-symbol): Simplify. - (haskell-indent-comment): Rename from haskell-indent-inside-comment. - (haskell-indent-skip-lexeme-forward) - (haskell-indent-offset-after-info, haskell-indent-hanging-p): New funs. - (haskell-indent-inhibit-after-offset, haskell-indent-dont-hang): New variables. - (haskell-indent-closing-keyword, haskell-indent-after-keyword-column) - (haskell-indent-inside-paren): New functions, extracted - from haskell-indent-indentation-info. Use the above new functions. - (haskell-indent-indentation-info): Use them. - (haskell-indent-after-keywords): Add data for ( and {. - - -Wed Nov 23 17:01:25 CET 2005 monnier - * (haskell-font-lock-keywords-create): `as' is not - (haskell-font-lock-keywords-create): `as' is not - a reserved keyword, apparently, and is used as var name. - - -Mon Nov 21 23:48:52 CET 2005 monnier - * * haskell-doc.el (haskell-doc-extract-types): Get labelled data working. - * haskell-doc.el (haskell-doc-extract-types): Get labelled data working. - (haskell-doc-prelude-types): Update via auto-generation. - - * haskell-doc.el (haskell-doc-extract-types): Get it partly working. - (haskell-doc-fetch-lib-urls): Don't use a literal if we apply - `nreverse' on it later on. - (haskell-doc-prelude-types): Update some parts by auto-generation. - (haskell-doc-grab, haskell-doc-string-nub-ws): Simplify. - - * haskell-doc.el (haskell-doc-maintainer, haskell-doc-varlist) - (haskell-doc-submit-bug-report, haskell-doc-ftp-site) - (haskell-doc-visit-home): Remove. - (haskell-doc-reserved-ids, haskell-doc-fetch-lib-urls) - (haskell-doc-extract-and-insert-types): New funs. - (haskell-doc-reserved-ids): Fix type of `map'. - - -Mon Nov 21 23:47:33 CET 2005 monnier - * (haskell-decl-scan-mode): New minor mode. - (haskell-decl-scan-mode): New minor mode. - (turn-on-haskell-decl-scan): Use it. - - -Mon Nov 21 23:27:57 CET 2005 monnier - * (haskell-doc-extract-types): Get labelled data working. - (haskell-doc-extract-types): Get labelled data working. - (haskell-doc-prelude-types): Update via auto-generation. - - -Mon Nov 21 22:44:13 CET 2005 monnier - * (haskell-doc-extract-types): Get it partly working. - (haskell-doc-extract-types): Get it partly working. - (haskell-doc-fetch-lib-urls): Don't use a literal if we apply - `nreverse' on it later on. - (haskell-doc-prelude-types): Update some parts by auto-generation. - (haskell-doc-grab, haskell-doc-string-nub-ws): Simplify. - - -Mon Nov 21 20:02:15 CET 2005 monnier - * (haskell-doc-maintainer, haskell-doc-varlist) - (haskell-doc-maintainer, haskell-doc-varlist) - (haskell-doc-submit-bug-report, haskell-doc-ftp-site) - (haskell-doc-visit-home): Remove. - (haskell-doc-reserved-ids, haskell-doc-fetch-lib-urls) - (haskell-doc-extract-and-insert-types): New funs. - (haskell-doc-reserved-ids): Fix type of `map'. - - -Mon Nov 21 04:19:27 CET 2005 monnier - * (inferior-haskell-load-file): Fix the compilation-parsing-end fiddling so it - (inferior-haskell-load-file): Fix the compilation-parsing-end fiddling so it - doesn't get moved inadvertently. - - -Mon Nov 21 04:18:15 CET 2005 monnier - * (haskell-font-lock-symbols-alist): Some XEmacs - (haskell-font-lock-symbols-alist): Some XEmacs - versions define make-char but not charsetp. - (haskell-font-lock-symbols-keywords): Add a `keep' arg so - de-highlighting in strings works correctly even in Emacs-21. - - -Mon Nov 21 01:55:09 CET 2005 monnier - * Add coding cookie. - -Tue Nov 15 01:24:46 CET 2005 monnier - * Docstring fixes. - Docstring fixes. - (haskell-ds-get-variable): Massage. - (haskell-ds-move-to-decl, haskell-ds-generic-find-next-decl): - Use with-syntax-table. - (haskell-ds-keys): Delete. - (turn-on-haskell-decl-scan): Inline it here. - Use beginning-of-defun-function if available. - - -Tue Nov 15 00:40:41 CET 2005 monnier - * (haskell-font-lock-keywords-create): Add pattern - (haskell-font-lock-keywords-create): Add pattern - for numbers and strings for arguments to toplevel declarations. - - -Mon Nov 14 17:43:52 CET 2005 monnier - * (inferior-haskell-error-regexp-alist): Fix GHCi regexp, support warnings. - -Fri Nov 11 16:26:40 CET 2005 monnier - * (dist): Remove profile file and avoid ztar. - -Fri Nov 11 16:25:03 CET 2005 monnier - * (inferior-haskell-command): Provide a default. - (inferior-haskell-command): Provide a default. - (with-selected-window): Define if necessary. - (inferior-haskell-load-file): Display the buffer. - - -Fri Nov 11 16:18:49 CET 2005 monnier - * *** empty log message *** - -Fri Nov 11 16:18:43 CET 2005 monnier - * (haskell-indent-indentation-info): Typo. - -Fri Nov 11 16:18:12 CET 2005 monnier - * (haskell-ghci-mode): Use define-derived-mode. - -Mon Nov 7 22:05:44 CET 2005 monnier - tagged v2_1 - -Mon Nov 7 22:05:44 CET 2005 monnier - * *** empty log message *** - -Mon Nov 7 22:04:15 CET 2005 monnier - * (haskell-indent-inside-comment): Rename `start' arg - (haskell-indent-inside-comment): Rename `start' arg - into `open' and add a new `start' arg. - (haskell-indent-after-keywords): Change defaults for `in'. - (haskell-indent-indentation-info): Fix confusion between pos and col. - (haskell-indent-mode): Autoload. - - -Mon Nov 7 22:02:34 CET 2005 monnier - * Update. - -Mon Nov 7 21:55:39 CET 2005 monnier - * Minor code and comment tweaks. - -Mon Nov 7 19:10:53 CET 2005 monnier - * (haskell-indent-find-matching-start): Add `pred' and `start' arguments. - (haskell-indent-find-matching-start): Add `pred' and `start' arguments. - (haskell-indent-filter-let-no-in): New fun. - (haskell-indent-indentation-info): Use them to correctly match `let's - with `in's even when some of the `let's have no matching `in'. - - -Mon Nov 7 06:04:26 CET 2005 monnier - * *** empty log message *** - -Mon Nov 7 06:04:22 CET 2005 monnier - * Update. Add new bugs. - -Mon Nov 7 06:04:01 CET 2005 monnier - * Reduce the use of dyn-bound haskell-indent-info. - Reduce the use of dyn-bound haskell-indent-info. - (haskell-indent-push-col): Don't duplicate info. - (haskell-indent-line-indentation): Handle let-in-do. Remove dead code. - (haskell-indent-inside-comment): Move rest of code from - haskell-indent-indentation-info. - - -Mon Nov 7 03:42:54 CET 2005 monnier - * (haskell-literate): Declare. - (haskell-literate): Declare. - (haskell-running-xemacs, event-basic-type, read-event): Remove. - (haskell-indent-get-beg-of-line, haskell-indent-get-end-of-line): - Remove. Use line-(beginning|end)-position instead. - (haskell-indent-mark-active): Move the xemacs test inside the defun. - (haskell-indent-info): Rename from indent-info. Update users. - (haskell-indent-bolp, haskell-indent-inside-comment): - Use line-beginning-position. - (haskell-indent-within-literate-code): Use `case'. - (haskell-indent-put-region-in-literate): Bind more comment-* vars. - (haskell-indent-virtual-indentation): Add the missing `start' arg. - (haskell-indent-mode): Move before first use. - (haskell-indent-stand-alone-mode): Use haskell-indent-mode. - Rename from haskell-stand-alone-indent-mode. Use define-derived-mode. - (hugs-mode-map, hugs-syntax-table): - Rename to haskell-stand-alone-indent-mode-(map|syntax-table). - - -Mon Nov 7 03:38:48 CET 2005 monnier - * Comment convention fixes. - -Mon Nov 7 03:28:16 CET 2005 monnier - * (haskell-doc-xemacs-p, haskell-doc-emacs-p) - (haskell-doc-xemacs-p, haskell-doc-emacs-p) - (haskell-doc-message): Remove. - (haskell-doc-is-id-char-at): Remove. - (haskell-doc-get-current-word): Rewrite. - - -Sat Nov 5 00:30:13 CET 2005 monnier - * *** empty log message *** - -Sat Nov 5 00:30:05 CET 2005 monnier - * Add some incorrectly fontified cases. - -Sat Nov 5 00:29:38 CET 2005 monnier - * Update/cleanup `fixme' comments. - -Sat Nov 5 00:29:14 CET 2005 monnier - * (haskell-indent-indentation-info): Fix detection of - (haskell-indent-indentation-info): Fix detection of - hanging let/if/case statements. - - -Sat Nov 5 00:28:49 CET 2005 monnier - * (haskell-mode): Fix typo. - -Fri Nov 4 19:11:12 CET 2005 monnier - * Add arch-tag. - -Fri Nov 4 19:05:47 CET 2005 monnier - * (inferior-haskell-mode): Hide compilation-mode bindings. - -Fri Nov 4 19:04:53 CET 2005 monnier - * (haskell-indent-after-keywords): Add docstring & type. - (haskell-indent-after-keywords): Add docstring & type. - (haskell-indent-indentation-info): Adjust use. - - -Fri Nov 4 18:52:02 CET 2005 monnier - * (haskell-indent-after-keywords): New var. - (haskell-indent-after-keywords): New var. - (haskell-indent-virtual-indentation): New fun. - (haskell-indent-indentation-info): Use them to indent after keywords. - - -Fri Nov 4 17:25:53 CET 2005 monnier - * Add some entries for infix declarations. - -Fri Nov 4 17:25:38 CET 2005 monnier - * (haskell-vars, haskell-mode-generic): Remove. - (haskell-vars, haskell-mode-generic): Remove. - (haskell-mode-hook): Rename from haskell-mode-hooks. - (haskell-mode): Use define-derived-mode. Inline haskell-mode-generic - and haskell-vars. - (literate-haskell-mode): Use define-derived-mode. - - -Fri Nov 4 17:25:29 CET 2005 monnier - * (haskell-simple-indent): Minor simplifications. - (haskell-simple-indent): Minor simplifications. - (turn-on-haskell-simple-indent): Don't bind \t and \n. - - -Thu Oct 13 01:03:17 CEST 2005 monnier - * (haskell-indent-start-keywords-re): Use regexp-opt. - (haskell-indent-start-keywords-re): Use regexp-opt. - (haskell-indent-type-at-point): Accept ' in identifiers. - (haskell-indent-find-case): Tell match-data to not generate markers. - (haskell-indent-line-indentation): Ignore off-side keywords in comments - and strings. - (haskell-indent-find-matching-start): Generalize. - Rename from haskell-indent-find-let. - (haskell-indent-indentation-info): Use it for of, then, and else. - - -Thu Oct 13 00:55:12 CEST 2005 monnier - * *** empty log message *** - -Wed Sep 28 19:43:21 CEST 2005 monnier - * *** empty log message *** - -Wed Sep 28 19:43:15 CEST 2005 monnier - * (haskell-font-lock-symbols-alist): Add "not". - (haskell-font-lock-symbols-alist): Add "not". - (haskell-font-lock-compose-symbol): Handle alphanum identifiers. - Fix incorrect handling of . when used for qualified names. - - -Wed Sep 28 19:43:01 CEST 2005 monnier - * (haskell-indent-in-comment): Don't fail at EOB. - -Tue Sep 27 02:06:24 CEST 2005 monnier - * (haskell-font-lock-symbols-alist): Prefer the unicode version of lambda. - (haskell-font-lock-symbols-alist): Prefer the unicode version of lambda. - Add two symbols from the Omega language and from Paterson's arrow syntax. - - -Wed Aug 24 15:36:32 CEST 2005 monnier - * (haskell-doc-message): Paren typo. - -Tue Aug 23 23:24:18 CEST 2005 monnier - * *** empty log message *** - -Tue Aug 23 23:23:45 CEST 2005 monnier - * (haskell-font-lock-keywords-create): Try and work around a bug that seems to - (haskell-font-lock-keywords-create): Try and work around a bug that seems to - be in Emacs-21.3 rather than in haskell-font-lock.el. - - -Tue Aug 23 23:23:27 CEST 2005 monnier - * (haskell-doc-show-type): Assume that the availability - (haskell-doc-show-type): Assume that the availability - of display-message won't change at runtime. - - -Tue Jul 19 01:04:47 CEST 2005 monnier - * *** empty log message *** - -Tue Jul 19 01:04:39 CEST 2005 monnier - * (haskell-program-name): Fix defcustom delcaration. - -Tue Jul 19 01:04:14 CEST 2005 monnier - * (haskell-doc-message): Remove. - (haskell-doc-message): Remove. - (haskell-doc-show-type): inline it. Do nothing for if there's no doc to show. - - -Thu Feb 3 01:20:43 CET 2005 monnier - tagged arity-anal-branch-point - -Thu Feb 3 01:20:43 CET 2005 monnier - * (haskell-hugs-mode-map, haskell-ghci-mode-map): Remove. - -Wed Jan 26 21:23:23 CET 2005 monnier - tagged ghc-6-4-3 - -Wed Jan 26 21:23:23 CET 2005 monnier - * *** empty log message *** - -Wed Jan 26 21:23:09 CET 2005 monnier - * (haskell-indent-inside-comment): Don't assume column(pos+2) = column(pos)+2. - (haskell-indent-inside-comment): Don't assume column(pos+2) = column(pos)+2. - (haskell-indent-indentation-info): Fix indentation of , and ;. - Add arg `start'. Restrict choice of indentation for comments. - (haskell-indent-event-type): Remove. - (haskell-indent-last-info): New var. - (haskell-indent-cycle): Use it to store info from one invocation to - the next, so we can do cycling outside of the function. - Don't cycle directly any more. Instead, recognize repeated invocations - via last-command and friends. - Use indent-line-function rather than hardcoding indent-to-left-margin. - (haskell-indent-insert-where): Don't save excursion. - (haskell-indent-layout-indent-info): Minor simplifications. - (haskell-indent-line-indentation): Don't ignore code on a line before a string. - - -Wed Jan 26 20:51:33 CET 2005 monnier - * (haskell-hugs-last-loaded-file): Remove. - (haskell-hugs-last-loaded-file): Remove. - (haskell-hugs-start-process): Fix misuse of make-variable-buffer-local. - (haskell-hugs-go): Quote file name. Simplify. - - -Wed Jan 26 20:50:49 CET 2005 monnier - * (haskell-ghci-start-process): Fix misuse of make-variable-buffer-local. - -Wed Jan 26 20:45:57 CET 2005 monnier - * (haskell-ghci-last-loaded-file): Remove. - (haskell-ghci-last-loaded-file): Remove. - (haskell-ghci-go): Quote file name. Simplify. - - -Wed Jan 26 20:34:09 CET 2005 monnier - * (haskell-version): Keep it up-to-date. - -Wed Jan 26 20:33:15 CET 2005 monnier - * Add some test cases. - -Wed Jan 26 20:32:31 CET 2005 monnier - * (inferior-haskell-load-file): Quote file name. - -Fri Dec 10 19:42:46 CET 2004 monnier - * *** empty log message *** - -Fri Dec 10 19:42:41 CET 2004 monnier - * (haskell-program-name): Use ghci if hugs is absent. - (haskell-program-name): Use ghci if hugs is absent. - (inferior-haskell-load-file): Reset compilation-parsing-end. - - -Fri Dec 10 19:39:41 CET 2004 monnier - * (haskell-indent-start-of-def): Only go backward. - (haskell-indent-start-of-def): Only go backward. - (haskell-indent-in-string): Simplify. - (haskell-indent-in-comment): Simplify. - (haskell-indent-comment): Remove. - (haskell-indent-inside-comment): New fun. - (haskell-indent-indentation-info): Assume we're at the indentation. - Handle comments differently. - (haskell-indent-cycle): Go to indentation and then save excursion - around haskell-indent-indentation-info. - - -Fri Dec 10 19:33:18 CET 2004 monnier - * (haskell-doc-minor-mode-string): Make it dynamic. - (haskell-doc-minor-mode-string): Make it dynamic. - (haskell-doc-install-keymap): Remove conflicting C-c C-o binding. - (haskell-doc-mode): Make a nil arg turn the mode ON. - (turn-on-haskell-doc-mode): Make it an alias for haskell-doc-mode. - (haskell-doc-mode): Don't touch haskell-doc-minor-mode-string. - (haskell-doc-show-global-types): Don't touch - haskell-doc-minor-mode-string. Call haskell-doc-make-global-fct-index. - (haskell-doc-check-active): Fix message. - (define-key-after): Don't define. - (haskell-doc-install-keymap): Check existence of define-key-after. - - -Fri Dec 10 19:24:01 CET 2004 monnier - * (haskell-literate-default): Fix custom type. - (haskell-literate-default): Fix custom type. - (haskell-vars): Ignore comments when doing C-M-f. - - -Fri Dec 10 19:23:21 CET 2004 monnier - * More test cases. - -Fri Dec 10 19:19:37 CET 2004 monnier - * (haskell-program-name): Use ghci if hugs is absent. - -Fri Nov 26 01:09:48 CET 2004 monnier - tagged v2_0 - -Fri Nov 26 01:09:48 CET 2004 monnier - * Remove. - -Fri Nov 26 01:07:44 CET 2004 monnier - * *** empty log message *** - -Fri Nov 26 01:04:00 CET 2004 monnier - * (haskell-ds-imenu-label-cmp): Undo last idiotic change. - -Fri Nov 26 01:03:23 CET 2004 monnier - * (haskell-doc-sym-doc): Make even the last char bold. - -Fri Nov 26 01:02:58 CET 2004 monnier - * (haskell-mode-map): Typo. - -Fri Nov 26 01:01:51 CET 2004 monnier - * (inferior-haskell-mode): Typo. - (inferior-haskell-mode): Typo. - (inferior-haskell-wait-for-output): Remove. - (inferior-haskell-send-command): New function. - (inferior-haskell-load-file): Use it. - - -Fri Nov 26 01:00:52 CET 2004 monnier - * Partial fixup. - -Thu Nov 25 02:12:52 CET 2004 monnier - * *** empty log message *** - -Thu Nov 25 02:05:20 CET 2004 monnier - * New file. - -Thu Nov 25 02:05:07 CET 2004 monnier - * (haskell-mode-map): Add bindings for the inferior-haskell commands. - (haskell-mode-map): Add bindings for the inferior-haskell commands. - (turn-on-haskell-hugs, turn-on-haskell-ghci): Mark them as obsolete. - - -Thu Nov 25 00:14:36 CET 2004 monnier - * (haskell-doc-install-keymap): Don't blindly assume there's a Hugs menu. - -Tue Nov 23 01:31:32 CET 2004 monnier - * *** empty log message *** - -Tue Nov 23 01:31:12 CET 2004 monnier - * (turn-on-haskell-indent, turn-off-haskell-indent): - (turn-on-haskell-indent, turn-off-haskell-indent): - Use C-c C-foo rather than C-c foo to follow coding conventions. - - -Tue Nov 23 01:28:07 CET 2004 monnier - * (haskell-font-lock-symbols-alist): Add . = ?. - -Mon Nov 22 12:45:35 CET 2004 simonmar - * Fix type of getLine - -Mon Oct 25 17:27:34 CEST 2004 monnier - * (haskell-indent-indentation-info): Don't use layout for paren-closing elements. - -Wed Oct 20 18:27:10 CEST 2004 monnier - * (haskell-indent-indentation-info): Only use - (haskell-indent-indentation-info): Only use - the new `in' indentation rule if the `let' is on the left of the decl. - - -Wed Oct 20 02:30:54 CEST 2004 monnier - * *** empty log message *** - -Wed Oct 20 02:30:39 CEST 2004 monnier - * (haskell-indent-find-let): New function. - (haskell-indent-find-let): New function. - (haskell-indent-indentation-info): Use it to indent `in'. - - -Wed Oct 20 02:30:23 CEST 2004 monnier - * (haskell-default-face): Add missing declaration. - -Wed Oct 20 01:41:23 CEST 2004 monnier - * (haskell-indent-open-structure): Simplify. - (haskell-indent-open-structure): Simplify. - (haskell-indent-contour-line): Work even when `start' is in the middle - of a line. - (haskell-indent-layout-indent-info): New fun extracted from - haskell-indent-indentation-info. - (haskell-indent-indentation-info): Use it as before. Use it also to - handle layout-within-open-structure. - - -Tue Oct 19 01:56:40 CEST 2004 monnier - * (haskell-font-lock-keywords-create): Use explicit `symbol-value' to work - (haskell-font-lock-keywords-create): Use explicit `symbol-value' to work - around limitations in XEmacs's implementation of font-lock. - (haskell-basic-syntactic-keywords): Fix up char-constants some more. - - -Tue Oct 19 01:55:13 CEST 2004 monnier - * Minor doc tweak. - -Fri Oct 15 02:27:47 CEST 2004 monnier - * (turn-off-haskell-doc-mode, haskell-doc-current-info): Don't autoload. - -Fri Oct 15 02:27:18 CEST 2004 monnier - * *** empty log message *** - -Fri Oct 15 02:24:48 CEST 2004 monnier - * Set things up so that mode-hook functions are not - Set things up so that mode-hook functions are not - necessary, and generic functions can be used instead, like - global-font-lock-mode. - (haskell-enum-from-to): Remove. - (turn-on-haskell-font-lock): Make obsolete. - (haskell-running-xemacs): Remove. - (haskell-mode-syntax-table): Fiddle with non-ascii chars. - Fix up comment syntax in XEmacs. - (haskell-vars): Improve comment-start-skip. - Add comment-end-skip. Setup imenu, eldoc, and font-lock. - Tweak handling of tabs to be on the safe side. - (haskell-mode-hooks): Declare and mention some useful ideas. - (literate-haskell-mode): Simplify. - (haskell-comment-indent): Remove. The default works as well. - - -Fri Oct 15 02:20:15 CEST 2004 monnier - * (haskell-ds-match-string): Use match-string-no-properties if available. - (haskell-ds-match-string): Use match-string-no-properties if available. - (haskell-ds-syntax-table): Use haskell-mode-syntax-table. - (haskell-ds-imenu-label-cmp): Use car-less-than-car if available. - (haskell-ds-imenu): Remove obsolete incorrect code. - - -Fri Oct 15 01:08:18 CEST 2004 monnier - * Remove level 1 fontification. - Remove level 1 fontification. - (haskell-font-lock-keywords-1, haskell-font-lock-keywords-2) - (bird-literate-haskell-font-lock-keywords-1) - (bird-literate-haskell-font-lock-keywords-2) - (latex-literate-haskell-font-lock-keywords-1) - (latex-literate-haskell-font-lock-keywords-2): Remove. - (bird-literate-haskell-font-lock-keywords) - (latex-literate-haskell-font-lock-keywords): Rename. - (haskell-font-lock-keywords-create): Remove `level' arg. - (haskell-fl-syntax): Remove. Assume the major modes sets it right. - (haskell-font-lock-choose-keywords) - (haskell-font-lock-choose-syntactic-keywords): New funs. - (haskell-font-lock-defaults-create): Use them. - (turn-off-haskell-font-lock, turn-on-haskell-font-lock): Simplify. - - -Fri Oct 15 01:01:00 CEST 2004 monnier - * (haskell-hugs-mode): Use define-derived-mode. - (haskell-hugs-mode): Use define-derived-mode. - (run-hugs): New alias. - (haskell-hugs-wait-for-output): Don't loop if the process is dead. - - -Thu Oct 14 21:52:53 CEST 2004 monnier - * (haskell-font-lock-compose-symbol): New fun. - (haskell-font-lock-compose-symbol): New fun. - (haskell-font-lock-symbols-keywords): Use it. - (haskell-string-char-face): Remove. - (haskell-font-lock-keywords-create): Hardcode font-lock-string-face. - (haskell-fl-syntax): Fix typos. Keep " as a string delimiter. - - -Thu Oct 14 02:47:28 CEST 2004 monnier - * *** empty log message *** - -Thu Oct 14 02:45:22 CEST 2004 monnier - * (haskell-doc): New group. - (haskell-doc): New group. - (haskell-doc-show-reserved, haskell-doc-show-prelude) - (haskell-doc-show-strategy, haskell-doc-show-user-defined) - (haskell-doc-chop-off-context, haskell-doc-chop-off-fctname): - Make them custom vars. - (haskell-doc-keymap): Declare and fill it right there. - (haskell-doc-mode): Simplify. - (haskell-doc-toggle-var): Make it into what it was supposed to be. - (haskell-doc-mode-print-current-symbol-info): Simplify. - (haskell-doc-current-info): New autoloaded function. - (haskell-doc-sym-doc): New fun extracted from haskell-doc-show-type. - (haskell-doc-show-type): Use it. - (haskell-doc-wrapped-type-p): Remove unused var `lim'. - (haskell-doc-forward-sexp-safe, haskell-doc-current-symbol): Remove. Unused. - (haskell-doc-visit-home): Don't require ange-ftp, it's autoloaded. - (haskell-doc-install-keymap): Simplify. - - -Thu Oct 14 02:26:20 CEST 2004 monnier - * (literate-haskell-ds-create-imenu-index) - (literate-haskell-ds-create-imenu-index) - (haskell-ds-generic-create-imenu-index): Remove. - (haskell-ds-bird-p): New function. - (haskell-ds-backward-decl, haskell-ds-forward-decl): Use it. - (haskell-ds-create-imenu-index): Use it to make it generic. - (haskell-ds-imenu): Remove now-unused arg. - (turn-on-haskell-decl-scan): Fix up call to haskell-ds-imenu. - (haskell-ds-running-xemacs): Remove. - (haskell-ds-func-menu-next): Make generic. - (literate-haskell-ds-func-menu-next): Delete. - (haskell-ds-func-menu): Remove unused arg. - (turn-on-haskell-decl-scan): Simplify. - - -Thu Oct 14 02:02:46 CEST 2004 monnier - * Don't load CL at runtime. - Don't load CL at runtime. - (haskell-indent-start-of-def, haskell-indent-type-at-point): - Don't hardcode point-min == 1. - (indent-info): Declare it. - (haskell-indent-empty, haskell-indent-ident, haskell-indent-other) - (haskell-indent-line-indentation): Use `string'. - (haskell-indent-valdef-indentation): Fix `case' arms syntax. - (haskell-indent-indentation-info): Remove unused var `pt'. - (haskell-indent-align-def): Remove unused var `defpos'. - (turn-on-haskell-indent): Don't bind TAB. - (turn-off-haskell-indent): Don't unbind TAB and DEL. - (hugs-syntax-table): Use the `n' for nested comments. - (haskell-stand-alone-indent-mode): Fix `comment-end'. - - -Mon Oct 11 14:59:57 CEST 2004 simonmar - * patches from Stefan . - patches from Stefan . - He says: - - The patch below does the following things: - - Clean up the changes introduced by Dave Love. I.e. merge back the Emacs-21 - code and the non-Emacs-21 code so it's more maintainable (I hate code - duplication with a passion). - - Add a feature `haskell-font-lock-symbols' which turns -> and \ into actual - arrow and lambda symbols. In Emacs-21.3, if you turn on this feature but - you don't have the appropriate fonts, you'll see square boxes instead :-(. - In future Emacsen (e.g. Emacs-CVS) the feature should work better and only - use the symbols for which you have the font(s). - - Re-enable toplevel declaration highlighting (and fix them up a bit). - - Don't create new faces. Instead, use an indirection through variables - (which can be made buffer-local or can point to new faces). - - Use standard font-lock faces where possible. - - Various simplifications. - - Fix up a problem in \(x,y) -> x+y where the first ( was not counted - because it was considered quoted by the \. - - Make the commenting of bird-style non-code more robust. - - This has only really been tested with Emacs-CVS. It is supposed to work as - well as before on Emacs-20/21 and on XEmacs, but I may of course have - introduced some misbehavior. - - -Mon Sep 27 15:14:42 CEST 2004 simonmar - * C-c C-n goes to next GHCi error - C-c C-n goes to next GHCi error - Contribtued by: Christian Maeder - - -Wed Apr 14 13:07:39 CEST 2004 simonmar - tagged haskell-mode-1-45 - -Wed Apr 14 13:07:39 CEST 2004 simonmar - * Version 1.45 - -Mon Jan 26 12:56:07 CET 2004 simonmar - * Add a "new maintainer required" advert. - -Mon Jan 5 13:46:51 CET 2004 simonmar - * Don't remap DEL (someone complained about it) - -Mon Nov 3 12:29:02 CET 2003 simonmar - * Emacs 21 support and various bugs fixed by Dave Love. - -Mon Oct 20 14:04:26 CEST 2003 simonmar - * Recognise hierarchical module names in the prompt (the GHCi mode - Recognise hierarchical module names in the prompt (the GHCi mode - already supports this). - - From: Juanma Barranquero - - -Tue Sep 30 12:41:21 CEST 2003 simonmar - * Patches from Dave Love . He says: - Patches from Dave Love . He says: - The most important part of these changes is sorting out the syntax - table for use with Emacs 21 to treat comments properly (if font-lock - is sorted out too, for which I'll send changes later). I defined the - syntax table per recommendations in the Elisp manual, and made some - cosmetic more-or-less cosmetic changes for Emacs style. It needs a - coding cookie as it contains (I assume) a Latin-1 character. - - Emacs 21 will basically DTRT with Unicode if you tell it the text is - utf-8. It's possible there are minor disagreements with syntax of - some characters compared with Unicode, but they're not likely to be - important. - - -Wed Aug 27 19:18:34 CEST 2003 panne - tagged ghc-6-2 - -Wed Aug 27 19:18:34 CEST 2003 panne - * green-card => greencard - green-card => greencard - Green Card => GreenCard - - Although Alastair prefers "Greencard", the library's name is - "Foreign.GreenCard", and unless we change this, too, "GreenCard" is - more consistent. - - -Fri Feb 28 12:41:19 CET 2003 simonmar - tagged before-galois-hbm - -Fri Feb 28 12:41:19 CET 2003 simonmar - * Allow dots in module names in the GHCi prompt. - -Tue Jan 14 16:51:09 CET 2003 simonmar - * Mention tun-on-haskell-ghci - -Thu Jan 9 13:56:26 CET 2003 simonmar - * Patches from Ville Skytt? , the XEmacs maintainer of - Patches from Ville Skytt[_\e4_] , the XEmacs maintainer of - the haskell-mode: - - - Make the auto-mode-alist modifications autoload-only. - - -Mon Jan 6 14:35:26 CET 2003 simonmar - * Update to include Debian installation instructions. - -Wed Nov 6 12:49:16 CET 2002 simonmar - tagged haskell-mode-1-44 - -Wed Nov 6 12:49:16 CET 2002 simonmar - * update to 1.44 - -Mon Oct 14 13:55:03 CEST 2002 simonmar - * Patch to update the Prelude/libraries function names and to remove - Patch to update the Prelude/libraries function names and to remove - support for older versions of Haskell. - - Submitted by: Anders Lau Olsen - - -Wed Jul 24 13:04:34 CEST 2002 simonmar - * Fix the prompt for recent versions of GHCi - -Wed Jul 24 12:54:58 CEST 2002 simonmar - * Add haskell-indent-rhs-align-column for aligning rhs's (from Tom Moertel) - -Wed Jun 5 14:38:18 CEST 2002 simonmar - * Make it work better with hierarchical modules - -Tue Apr 30 13:49:45 CEST 2002 rrt - * DIE DIE DIE OLD MAINTAINER'S EMAIL ADDRESS STAMP STOMP STOMPETY SPLUNCH! - -Tue Apr 30 13:34:37 CEST 2002 rrt - * Remove supporting Haskell 1.4 and 1.2 from the ToDo list. It's Far Too Late. - Remove supporting Haskell 1.4 and 1.2 from the ToDo list. It's Far Too Late. - Add (require 'imenu). Thanks to N. Y. Kwok. - - -Fri Apr 26 17:08:41 CEST 2002 simonmar - * Update version number in a couple of places (thanks to the XEmacs guys - Update version number in a couple of places (thanks to the XEmacs guys - for pointing this out). - - -Wed Apr 24 14:52:13 CEST 2002 simonmar - * Add a note about XEmacs (haskell-mode is in XEmacs CVS and can be - Add a note about XEmacs (haskell-mode is in XEmacs CVS and can be - installed automatically through the XEmacs package UI, apparently). - - -Wed Apr 24 14:45:14 CEST 2002 simonmar - * Add note about version 1.43 - -Wed Apr 24 14:44:00 CEST 2002 simonmar - * updates that were in 1.42 that didn't get committed - -Wed Apr 24 13:33:34 CEST 2002 simonmar - * Update to version 1.43 - -Wed Apr 24 13:33:15 CEST 2002 simonmar - * Updates that were made to the website & not committed (update to version 1.42). - -Tue Apr 23 18:45:09 CEST 2002 simonmar - * Tweaks to the doc strings and support for customization, from - Tweaks to the doc strings and support for customization, from - Ville Skytt[_\e4_] . - - -Mon Aug 27 19:57:03 CEST 2001 rrt - tagged ghc-5-02-3 - -Mon Aug 27 19:57:03 CEST 2001 rrt - * enum-from-to -> haskell-enum-from-to - -Mon Aug 27 19:56:42 CEST 2001 rrt - * Remove version number from top of page (now just in archive) - -Mon Aug 27 19:50:43 CEST 2001 rrt - * Update haskell-version - -Mon Aug 27 19:50:27 CEST 2001 rrt - * Update history and version number - -Mon Aug 27 17:09:04 CEST 2001 rrt - * Switch to versioned tarball - -Mon Aug 27 17:05:27 CEST 2001 rrt - * Make some more variables interactively changeable - -Fri Aug 17 17:33:38 CEST 2001 rrt - * Add a note about XEmacs 21.4 problem - -Thu Jul 19 20:21:39 CEST 2001 rrt - * Sample .emacs file entries for haskell mode. - -Thu Jul 19 20:17:36 CEST 2001 rrt - * Add the current version of the Moss/Thorn/Marlow Emacs mode, along with its - Add the current version of the Moss/Thorn/Marlow Emacs mode, along with its - web pages and sample files. This is now the preferred mode, and the - haskell.org pages are being changed to reflect that. Also includes the new - GHCi mode from Chris Webb. - diff --git a/.emacs.d.backup/haskell-mode/NEWS b/.emacs.d.backup/haskell-mode/NEWS deleted file mode 100644 index e78d35a..0000000 --- a/.emacs.d.backup/haskell-mode/NEWS +++ /dev/null @@ -1,104 +0,0 @@ -Changes since 2.5.1 - -* Parser corrections for haskell-indentation and haskell-decl-scan - -* haskell-indentation: Pressing tab in the rightmost position now - moves to the leftmost, by default with a warning. - -* Typo fix: One haskell-indentation variable had ended up in the - haskell-ntation customize group. - -* haskell-hoogle aliased to hoogle, haskell-hayoo aliased to hayoo - -* Courtesy of Alex Ott: - - Additional unicode symbols for font-lock-symbols: () == /= >= <= !! && || sqrt - - M-x haskell-hayoo search added, opens using browse-url - - Bug-fix for inferior-haskell-type - -* If haskell-indentation errors out, it now fail-safes to inserting - a literal newline or deleting one character, for return and - backspace respectively. - -Changes since 2.4: - -* haskell-indentation, a new minor mode for indentation. - -Changes since 2.3: - -* Update license to GPLv3. - -* New derived major mode for .hsc files. - -* Removed the C-c C-r binding to reload a file. You can still call - inferior-haskell-reload-file (and/or bind it to your favorite key, - including C-c C-r) or you can now use C-u C-c C-l. - -* C-c C-d looks up the symbol at point in the Haddock docs. - -* Haddock comments are highlighted with font-lock-doc-face if it exists. - -* Use `tex' rather than `latex' for haskell-literate. - -* inf-haskell.el tries to find the root of the module hierarchy to determine - the root of a project (either by looking for a Cabal file or relying on - the `module' declaration line). If all works well, this will make C-c C-l - automatically switch to the root dir, so that dependencies in other - directories are automatically found. If it doesn't, complain and/or set - inferior-haskell-find-project-root to nil. - -* The new command haskell-hoogle helps you query Hoogle from Emacs. - -Changes since 2.2: - -* Trivial support for Cabal package description files. - -* Minor bug fixes. - -Changes since 2.1: - -* There are now commands to find type and info of identifiers by querying an - inferior haskell process. Available under C-c C-t, C-c C-i, and C-c M-. - -* Indentation now looks back further, until a line that has no indentation. - To recover the earlier behavior of stopping at the first empty line - instead, configure haskell-indent-look-past-empty-line. - -* inf-haskell can wait until a file load completes and jump directly to the - first error, like haskell-ghci and haskell-hugs used to do. See the var - inferior-haskell-wait-and-jump. - -Changes since 2.0: - -* inf-haskell uses ghci if hugs is absent. - -* Fix up some binding conflicts (C-c C-o in haskell-doc) - -* Many (hopefully minor) changes to the indentation. - -* New symbols in haskell-font-lock-symbols-alist. - -Changes since 1.45: - -* keybindings C-c have been replaced by C-c C- so as not - to collide with minor modes. - -* The following modules are now automatically activated without having to - add anything to haskell-mode-hook: - haskell-font-lock (just turn on global-font-lock-mode). - haskell-decl-scan (just bind `imenu' to some key). - -* In recent Emacsen, haskell-doc hooks into eldoc-mode. - -* haskell-hugs and haskell-ghci are superceded by inf-haskell. - -* Indentation rules have been improved when using layout inside parens/braces. - -* Symbols like -> and \ can be displayed as actual arrows and lambdas. - See haskell-font-lock-symbols. - -* Tweaks to the font-lock settings. Among other things paren-matching - with things like \(x,y) should work correctly now. - -* New maintainer . - -# arch-tag: e50204f2-98e4-438a-bcd1-a49afde5efa5 diff --git a/.emacs.d.backup/haskell-mode/README b/.emacs.d.backup/haskell-mode/README deleted file mode 100644 index ece04aa..0000000 --- a/.emacs.d.backup/haskell-mode/README +++ /dev/null @@ -1,108 +0,0 @@ -Haskell Mode for Emacs ----------------------- -Version number: v2.6.4. - -This is the Haskell mode package for Emacs. Its use should be mostly -self-explanatory if you're accustomed to Emacs. - -When Emacs is started up, it normally runs a file called ~/.emacs located in -your home directory. This file should contain all of your personal -customisations written as a series of Elisp commands. In order to install -the Haskell mode, you have to tell Emacs where to find it. This is done by -adding some commands to the init file. - -Installation ------------- - -- If you are using XEmacs, the haskell-mode package may be available for - installation through the XEmacs package UI. - -- If you are using Debian, you may be able to install the package - haskell-mode with a command like "apt-get install haskell-mode". - -Otherwise: - -- Download and unpack the basic mode and modules into a suitable directory, - e.g. ~/lib/emacs/haskell-mode/ where ~ stands for your home directory. - -- Assuming you have placed the basic mode haskell-mode.el and the modules - you want to use in the directory ~/lib/emacs/haskell-mode/, add the - following command to your init file (~/.emacs): - - (load "~/lib/emacs/haskell-mode/haskell-site-file") - - This only loads the bare-bones haskell-mode. To make it useful, you - need additional modules; you can use the haskell customize-group - to edit the Haskell mode hook or, if you prefer manual setup, try - adding the following lines according to which modules you want to use: - - (add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode) - (add-hook 'haskell-mode-hook 'turn-on-haskell-indentation) - ;;(add-hook 'haskell-mode-hook 'turn-on-haskell-indent) - ;;(add-hook 'haskell-mode-hook 'turn-on-haskell-simple-indent) - - Note that the three indentation modules are mutually exclusive - add at - most one. Note that the line of code for simple indentation is commented - out (using a preceeding ;) in preference for the more advanced - indentation module. Installation is now complete! - -The other modules are automatically loaded when needed in the following way: - -- Font locking: just turn it on via `global-font-lock-mode' or do - (add-hook 'haskell-mode-hook 'font-lock-mode) - -- Declaration scanning: just use M-x imenu or bind `imenu' to a key. E.g. - (global-set-key [(control meta down-mouse-3)] 'imenu) or you can also add - it to the menubar with (add-hook 'haskell-mode-hook 'imenu-add-menubar-index) - -- Interaction with inferior Haskell interpreter: just hit C-c C-z or C-c C-l. - - -Setup ------ - -Normally, inf-haskell automatically finds ghci or hugs in your PATH, but if -that's not the case (common under Windows), or if you need to specify your -preference, just tell Emacs which executable to use with: - - (setq haskell-program-name "/some/where/ghci.exe") - -If you want to use different settings when you use Cygwin Emacs and NTEmacs, -you can test the value of `system-type': - - (setq haskell-program-name - (if (eq system-type 'cygwin) - "/cygdrive/c/ghc/ghc-6.8.1/bin/ghcii.sh" - "c:/ghc/ghc-6.8.1/bin/ghci.exe")) - -Note that Cygwin binaries tend to interact poorly with NTEmacs, especially -w.r.t signal-handling. - - -Customization -------------- - -Most customizations are on the functionality of a particular module. -See the documentation of that module for information on its -customisation. - - -Known problems --------------- - -It seems that some version of XEmacs come without the fsf-compat package -(which provides functions such as `line-end-position') and it seems that -even if your XEmacs does have the fsf-compat package installed it does not -autoload its part. Thus you may have to install the fsf-compat package and -add (require 'goto-addr) in your .emacs. - - -Support -------- - -Any problems, do mail me and I will try my best -to help you! - - - - diff --git a/.emacs.d.backup/haskell-mode/fontlock.hs b/.emacs.d.backup/haskell-mode/fontlock.hs deleted file mode 100644 index ddd9adb..0000000 --- a/.emacs.d.backup/haskell-mode/fontlock.hs +++ /dev/null @@ -1,49 +0,0 @@ --- Comments are coloured brightly and stand out clearly. - -import qualified Foo as F hiding (toto) -import qualified Foo hiding (toto) -import qualified Foo as F (toto) -import Foo as F hiding (toto) -import Foo hiding (toto) -import Foo as F (toto) - -hiding = 1 -qualified = 3 -as = 2 - -repeat :: a -> [a] -repeat xs = xs where xs = x:xs -- Keywords are also bright. - -head :: [a] -> a -head (x:_) = x -head [] = error "PreludeList.head: empty list" -- Strings are coloured softly. - -data Maybe a = Nothing | Just a -- Type constructors, data - deriving (Eq, Ord, Read, Show) -- constructors, class names - -- and module names are coloured - -- closer to ordinary code. - -recognize +++ infix :: Operator Declarations -as `well` as = This Form -(+) and this one = as well - -instance Show Toto where - fun1 arg1 = foo -- FIXME: `fun1' should be highlighted. - -constStr = "hello \ - \asdgfasgf\ - \asf" - -{- -map :: (a -> b) -> [a] -> [b] -- Commenting out large sections of -map f [] = [] -- code can be misleading. Coloured -map f (x:xs) = f x : map f xs -- comments reveal unused definitions. --} - --- Note: the least significant bit is the first element of the list -bdigits :: Int -> [Int] -bdigits 0 = [0] -bdigits 1 = [1] -bdigits n | n>1 = n `mod` 2 : - --- arch-tag: a0d08cc2-4a81-4139-93bc-b3c6be0b5fb2 diff --git a/.emacs.d.backup/haskell-mode/haskell-c.el b/.emacs.d.backup/haskell-mode/haskell-c.el deleted file mode 100644 index a213844..0000000 --- a/.emacs.d.backup/haskell-mode/haskell-c.el +++ /dev/null @@ -1,47 +0,0 @@ -;;; haskell-c.el --- Major mode for *.hsc files - -;; Copyright (C) 2007 Stefan Monnier - -;; Author: Stefan Monnier - -;; This file 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 3, or (at your option) -;; any later version. - -;; This file 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., 51 Franklin Street, Fifth Floor, -;; Boston, MA 02110-1301, USA. - -;;; Commentary: - -;; - -;;; Code: - -(require 'haskell-mode) -(require 'haskell-font-lock) - -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.hsc\\'" . haskell-c-mode)) - -(defvar haskell-c-font-lock-keywords - `(("^#[ \t]*[[:alnum:]]+" (0 font-lock-preprocessor-face)) - ,@haskell-font-lock-symbols)) - -;;;###autoload -(define-derived-mode haskell-c-mode haskell-mode "Haskell-C" - "Major mode for Haskell FFI files." - (set (make-local-variable 'font-lock-keywords) - (cons 'haskell-c-font-lock-keywords - (cdr font-lock-keywords)))) - -(provide 'haskell-c) -;; arch-tag: 51294c41-29f0-4599-9ce8-47fe2e7d3fd5 -;;; haskell-c.el ends here diff --git a/.emacs.d.backup/haskell-mode/haskell-cabal.el b/.emacs.d.backup/haskell-mode/haskell-cabal.el deleted file mode 100644 index eddb8af..0000000 --- a/.emacs.d.backup/haskell-mode/haskell-cabal.el +++ /dev/null @@ -1,182 +0,0 @@ -;;; haskell-cabal.el --- Support for Cabal packages - -;; Copyright (C) 2007, 2008 Stefan Monnier - -;; Author: Stefan Monnier - -;; This file 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 3, or (at your option) -;; any later version. - -;; This file 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., 51 Franklin Street, Fifth Floor, -;; Boston, MA 02110-1301, USA. - -;;; Commentary: - -;; Todo: - -;; - distinguish continued lines from indented lines. -;; - indent-line-function. -;; - outline-minor-mode. - -;;; Code: - -;; (defun haskell-cabal-extract-fields-from-doc () -;; (require 'xml) -;; (require 'cl) -;; (let ((section (completing-read -;; "Section: " -;; '("general-fields" "library" "executable" "buildinfo")))) -;; (goto-char (point-min)) -;; (search-forward (concat ""))) -;; (let* ((xml (xml-parse-region -;; (progn (search-forward "") (match-beginning 0)) -;; (progn (search-forward "") (point)))) -;; (varlist (remove-if-not 'consp (cddar xml))) -;; (syms (mapcar (lambda (entry) (caddr (assq 'literal (assq 'term entry)))) -;; varlist)) -;; (fields (mapcar (lambda (sym) (substring-no-properties sym 0 -1)) syms))) -;; fields)) - -(eval-when-compile (require 'cl)) - -(defconst haskell-cabal-general-fields - ;; Extracted with (haskell-cabal-extract-fields-from-doc "general-fields") - '("name" "version" "cabal-version" "license" "license-file" "copyright" - "author" "maintainer" "stability" "homepage" "package-url" "synopsis" - "description" "category" "tested-with" "build-depends" "data-files" - "extra-source-files" "extra-tmp-files")) - -(defconst haskell-cabal-library-fields - ;; Extracted with (haskell-cabal-extract-fields-from-doc "library") - '("exposed-modules")) - -(defconst haskell-cabal-executable-fields - ;; Extracted with (haskell-cabal-extract-fields-from-doc "executable") - '("executable" "main-is")) - -(defconst haskell-cabal-buildinfo-fields - ;; Extracted with (haskell-cabal-extract-fields-from-doc "buildinfo") - '("buildable" "other-modules" "hs-source-dirs" "extensions" "ghc-options" - "ghc-prof-options" "hugs-options" "nhc-options" "includes" - "install-includes" "include-dirs" "c-sources" "extra-libraries" - "extra-lib-dirs" "cc-options" "ld-options" "frameworks")) - -(defvar haskell-cabal-mode-syntax-table - (let ((st (make-syntax-table))) - ;; The comment syntax can't be described simply in syntax-table. - ;; We could use font-lock-syntactic-keywords, but is it worth it? - ;; (modify-syntax-entry ?- ". 12" st) - (modify-syntax-entry ?\n ">" st) - st)) - -(defvar haskell-cabal-font-lock-keywords - ;; The comment syntax can't be described simply in syntax-table. - ;; We could use font-lock-syntactic-keywords, but is it worth it? - '(("^[ \t]*--.*" . font-lock-comment-face) - ("^ *\\([^ \t:]+\\):" (1 font-lock-keyword-face)) - ("^\\(Library\\)[ \t]*\\({\\|$\\)" (1 font-lock-keyword-face)) - ("^\\(Executable\\)[ \t]+\\([^\n \t]*\\)" - (1 font-lock-keyword-face) (2 font-lock-function-name-face)) - ("^\\(Flag\\)[ \t]+\\([^\n \t]*\\)" - (1 font-lock-keyword-face) (2 font-lock-constant-face)) - ("^ *\\(if\\)[ \t]+.*\\({\\|$\\)" (1 font-lock-keyword-face)) - ("^ *\\(}[ \t]*\\)?\\(else\\)[ \t]*\\({\\|$\\)" - (2 font-lock-keyword-face)))) - -(defvar haskell-cabal-buffers nil - "List of Cabal buffers.") - -;; (defsubst* inferior-haskell-string-prefix-p (str1 str2) -;; "Return non-nil if STR1 is a prefix of STR2" -;; (eq t (compare-strings str2 nil (length str1) str1 nil nil))) - -(defun haskell-cabal-find-file () - "Return a buffer visiting the cabal file of the current directory, or nil." - (catch 'found - ;; ;; First look for it in haskell-cabal-buffers. - ;; (dolist (buf haskell-cabal-buffers) - ;; (if (inferior-haskell-string-prefix-p - ;; (with-current-buffer buf default-directory) default-directory) - ;; (throw 'found buf))) - ;; Then look up the directory hierarchy. - (let ((user (nth 2 (file-attributes default-directory))) - ;; Abbreviate, so as to stop when we cross ~/. - (root (abbreviate-file-name default-directory)) - files) - (while (and root (equal user (nth 2 (file-attributes root)))) - (if (setq files (directory-files root 'full "\\.cabal\\'")) - ;; Avoid the .cabal directory. - (dolist (file files (throw 'found nil)) - (unless (file-directory-p file) - (throw 'found (find-file-noselect file)))) - (if (equal root - (setq root (file-name-directory - (directory-file-name root)))) - (setq root nil)))) - nil))) - - -(defun haskell-cabal-buffers-clean (&optional buffer) - (let ((bufs ())) - (dolist (buf haskell-cabal-buffers) - (if (and (buffer-live-p buf) (not (eq buf buffer)) - (with-current-buffer buf (derived-mode-p 'haskell-cabal-mode))) - (push buf bufs))) - (setq haskell-cabal-buffers bufs))) - -(defun haskell-cabal-unregister-buffer () - (haskell-cabal-buffers-clean (current-buffer))) - -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.cabal\\'" . haskell-cabal-mode)) - -;;;###autoload -(define-derived-mode haskell-cabal-mode fundamental-mode "Haskell-Cabal" - "Major mode for Cabal package description files." - (set (make-local-variable 'font-lock-defaults) - '(haskell-cabal-font-lock-keywords t t nil nil)) - (add-to-list 'haskell-cabal-buffers (current-buffer)) - (add-hook 'change-major-mode-hook 'haskell-cabal-unregister-buffer nil 'local) - (add-hook 'kill-buffer-hook 'haskell-cabal-unregister-buffer nil 'local) - (set (make-local-variable 'comment-start) "-- ") - (set (make-local-variable 'comment-start-skip) "\\(^[ \t]*\\)--[ \t]*") - (set (make-local-variable 'comment-end) "") - (set (make-local-variable 'comment-end-skip) "[ ]*\\(\\s>\\|\n\\)") -) - -(defun haskell-cabal-get-setting (name) - (save-excursion - (let ((case-fold-search t)) - (goto-char (point-min)) - (when (re-search-forward - (concat "^" (regexp-quote name) - ":[ \t]*\\(.*\\(\n[ \t]+[ \t\n].*\\)*\\)") - nil t) - (let ((val (match-string 1)) - (start 1)) - (when (match-end 2) ;Multiple lines. - ;; The documentation is not very precise about what to do about - ;; the \n and the indentation: are they part of the value or - ;; the encoding? I take the point of view that \n is part of - ;; the value (so that values can span multiple lines as well), - ;; and that only the first char in the indentation is part of - ;; the encoding, the rest is part of the value (otherwise, lines - ;; in the value cannot start with spaces or tabs). - (while (string-match "^[ \t]\\(?:\\.$\\)?" val start) - (setq start (1+ (match-beginning 0))) - (setq val (replace-match "" t t val)))) - val))))) - -(provide 'haskell-cabal) - -;; arch-tag: d455f920-5e4d-42b6-a2c7-4a7e84a05c29 -;;; haskell-cabal.el ends here diff --git a/.emacs.d.backup/haskell-mode/haskell-decl-scan.el b/.emacs.d.backup/haskell-mode/haskell-decl-scan.el deleted file mode 100644 index b0d104d..0000000 --- a/.emacs.d.backup/haskell-mode/haskell-decl-scan.el +++ /dev/null @@ -1,698 +0,0 @@ -;;; haskell-decl-scan.el --- Declaration scanning module for Haskell Mode - -;; Copyright (C) 2004, 2005, 2007, 2009 Free Software Foundation, Inc. -;; Copyright (C) 1997-1998 Graeme E Moss - -;; Author: 1997-1998 Graeme E Moss -;; Maintainer: Stefan Monnier -;; Keywords: declarations menu files Haskell -;; URL: http://cvs.haskell.org/cgi-bin/cvsweb.cgi/fptools/CONTRIB/haskell-modes/emacs/haskell-decl-scan.el?rev=HEAD - -;; This file is not part of GNU Emacs. - -;; This file 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 3, or (at your option) -;; any later version. - -;; This file 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: - -;; Purpose: -;; -;; Top-level declarations are scanned and placed in a menu. Supports -;; full Latin1 Haskell 1.4 as well as literate scripts. -;; -;; -;; Installation: -;; -;; To turn declaration scanning on for all Haskell buffers under the -;; Haskell mode of Moss&Thorn, add this to .emacs: -;; -;; (add-hook 'haskell-mode-hook 'turn-on-haskell-decl-scan) -;; -;; Otherwise, call `turn-on-haskell-decl-scan'. -;; -;; -;; Customisation: -;; -;; None available so far. -;; -;; -;; History: -;; -;; If you have any problems or suggestions, after consulting the list -;; below, email gem@cs.york.ac.uk quoting the version of the library -;; you are using, the version of Emacs you are using, and a small -;; example of the problem or suggestion. Note that this library -;; requires a reasonably recent version of Emacs. -;; -;; Uses `imenu' under Emacs, and `func-menu' under XEmacs. -;; -;; Version 1.2: -;; Added support for LaTeX-style literate scripts. -;; -;; Version 1.1: -;; Use own syntax table. Fixed bug for very small buffers. Use -;; markers instead of pointers (markers move with the text). -;; -;; Version 1.0: -;; Brought over from Haskell mode v1.1. -;; -;; -;; Present Limitations/Future Work (contributions are most welcome!): -;; -;; . Declarations requiring information extending beyond starting line -;; don't get scanned properly, eg. -;; > class Eq a => -;; > Test a -;; -;; . Comments placed in the midst of the first few lexemes of a -;; declaration will cause havoc, eg. -;; > infixWithComments :: Int -> Int -> Int -;; > x {-nastyComment-} `infixWithComments` y = x + y -;; but are not worth worrying about. -;; -;; . Would be nice to scan other top-level declarations such as -;; methods of a class, datatype field labels... any more? -;; -;; . Support for GreenCard? -;; -;; . Re-running (literate-)haskell-imenu should not cause the problems -;; that it does. The ability to turn off scanning would also be -;; useful. (Note that re-running (literate-)haskell-mode seems to -;; cause no problems.) -;; -;; . Inconsistency: we define the start of a declaration in `imenu' as -;; the start of the line the declaration starts on, but in -;; `func-menu' as the start of the name that the declaration is -;; given (eg. "class Eq a => Ord a ..." starts at "class" in `imenu' -;; but at "Ord" in `func-menu'). This avoids rescanning of the -;; buffer by the goto functions of `func-menu' but allows `imenu' to -;; have the better definition of the start of the declaration (IMO). -;; -;; . `func-menu' cannot cope well with spaces in declaration names. -;; This is unavoidable in "instance Eq Int" (changing the spaces to -;; underscores would cause rescans of the buffer). Note though that -;; `fume-prompt-function-goto' (usually bound to "C-c g") does cope -;; with spaces okay. -;; -;; . Would like to extend the goto functions given by `func-menu' -;; under XEmacs to Emacs. Would have to implement these -;; ourselves as `imenu' does not provide them. -;; -;; . `func-menu' uses its own syntax table when grabbing a declaration -;; name to lookup (why doesn't it use the syntax table of the -;; buffer?) so some declaration names will not be grabbed correctly, -;; eg. "fib'" will be grabbed as "fib" since "'" is not a word or -;; symbol constituent under the syntax table `func-menu' uses. - -;; All functions/variables start with -;; `(turn-(on/off)-)haskell-decl-scan' or `haskell-ds-'. - -;; The imenu support is based on code taken from `hugs-mode', -;; thanks go to Chris Van Humbeeck. - -;; Version. - -;;; Code: - -(require 'haskell-mode) - -;;###autoload -;; As `cl' defines macros that `imenu' uses, we must require them at -;; compile time. -(eval-when-compile - (require 'cl) - (condition-case nil - (require 'imenu) - (error nil))) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; General declaration scanning functions. - -(defalias 'haskell-ds-match-string - (if (fboundp 'match-string-no-properties) - 'match-string-no-properties - (lambda (num) - "As `match-string' except that the string is stripped of properties." - (format "%s" (match-string num))))) - -(defvar haskell-ds-start-keywords-re - (concat "\\(\\<" - "class\\|data\\|i\\(mport\\|n\\(fix\\(\\|[lr]\\)\\|stance\\)\\)\\|" - "module\\|primitive\\|type\\|newtype" - "\\)\\>") - "Keywords that may start a declaration.") - -(defvar haskell-ds-syntax-table - (let ((table (copy-syntax-table haskell-mode-syntax-table))) - (modify-syntax-entry ?\' "w" table) - (modify-syntax-entry ?_ "w" table) - (modify-syntax-entry ?\\ "_" table) - table) - "Syntax table used for Haskell declaration scanning.") - - -(defun haskell-ds-get-variable (prefix) - "Return variable involved in value binding or type signature. -Assumes point is looking at the regexp PREFIX followed by the -start of a declaration (perhaps in the middle of a series of -declarations concerning a single variable). Otherwise return nil. -Point is not changed." - ;; I think I can now handle all declarations bar those with comments - ;; nested before the second lexeme. - (save-excursion - (with-syntax-table haskell-ds-syntax-table - (if (looking-at prefix) (goto-char (match-end 0))) - ;; Keyword. - (if (looking-at haskell-ds-start-keywords-re) - nil - (or ;; Parenthesized symbolic variable. - (and (looking-at "(\\(\\s_+\\))") (haskell-ds-match-string 1)) - ;; General case. - (if (looking-at - (if (eq ?\( (char-after)) - ;; Skip paranthesised expression. - (progn - (forward-sexp) - ;; Repeating this code and avoiding moving point if - ;; possible speeds things up. - "\\(\\'\\)?\\s-*\\(\\s_+\\|`\\(\\sw+\\)`\\)") - "\\(\\sw+\\)?\\s-*\\(\\s_+\\|`\\(\\sw+\\)`\\)")) - (let ((match2 (haskell-ds-match-string 2))) - ;; Weed out `::', `=' and `|' from potential infix - ;; symbolic variable. - (if (member match2 '("::" "=" "|")) - ;; Variable identifier. - (haskell-ds-match-string 1) - (if (eq (aref match2 0) ?\`) - ;; Infix variable identifier. - (haskell-ds-match-string 3) - ;; Infix symbolic variable. - match2)))) - ;; Variable identifier. - (and (looking-at "\\sw+") (haskell-ds-match-string 0))))))) - -(defun haskell-ds-move-to-start-regexp (inc regexp) - "Move to beginning of line that succeeds/precedes (INC = 1/-1) -current line that starts with REGEXP and is not in `font-lock-comment-face'." - ;; Making this defsubst instead of defun appears to have little or - ;; no effect on efficiency. It is probably not called enough to do - ;; so. - (while (and (= (forward-line inc) 0) - (or (not (looking-at regexp)) - (eq (get-text-property (point) 'face) - 'font-lock-comment-face))))) - -(defun haskell-ds-move-to-start-regexp-skipping-comments (inc regexp) - "Like haskell-ds-move-to-start-regexp, but uses syntax-ppss to - skip comments" - (let (p) - (loop - do (setq p (point)) - (haskell-ds-move-to-start-regexp inc regexp) - while (and (nth 4 (syntax-ppss)) - (/= p (point)))))) - -(defvar literate-haskell-ds-line-prefix "> ?" - "Regexp matching start of a line of Bird-style literate code. -Current value is \"> \" as we assume top-level declarations start -at column 3. Must not contain the special \"^\" regexp as we may -not use the regexp at the start of a regexp string. Note this is -only for `imenu' support.") - -(defvar haskell-ds-start-decl-re "\\(\\sw\\|(\\)" - "The regexp that starts a Haskell declaration.") - -(defvar literate-haskell-ds-start-decl-re - (concat literate-haskell-ds-line-prefix haskell-ds-start-decl-re) - "The regexp that starts a Bird-style literate Haskell declaration.") - -(defun haskell-ds-move-to-decl (direction bird-literate fix) - "General function for moving to the start of a declaration, -either forwards or backwards from point, with normal or with Bird-style -literate scripts. If DIRECTION is t, then forward, else backward. If -BIRD-LITERATE is t, then treat as Bird-style literate scripts, else -normal scripts. Returns point if point is left at the start of a -declaration, and nil otherwise, ie. because point is at the beginning -or end of the buffer and no declaration starts there. If FIX is t, -then point does not move if already at the start of a declaration." - ;; As `haskell-ds-get-variable' cannot separate an infix variable - ;; identifier out of a value binding with non-alphanumeric first - ;; argument, this function will treat such value bindings as - ;; separate from the declarations surrounding it. - (let ( ;; The variable typed or bound in the current series of - ;; declarations. - name - ;; The variable typed or bound in the new declaration. - newname - ;; Hack to solve hard problem for Bird-style literate scripts - ;; that start with a declaration. We are in the abyss if - ;; point is before start of this declaration. - abyss - (line-prefix (if bird-literate literate-haskell-ds-line-prefix "")) - ;; The regexp to match for the start of a declaration. - (start-decl-re (if bird-literate - literate-haskell-ds-start-decl-re - haskell-ds-start-decl-re)) - (increment (if direction 1 -1)) - (bound (if direction (point-max) (point-min)))) - ;; Change syntax table. - (with-syntax-table haskell-ds-syntax-table - ;; move to beginning of line that starts the "current - ;; declaration" (dependent on DIRECTION and FIX), and then get - ;; the variable typed or bound by this declaration, if any. - (let ( ;; Where point was at call of function. - (here (point)) - ;; Where the declaration on this line (if any) starts. - (start (progn - (beginning-of-line) - ;; Checking the face to ensure a declaration starts - ;; here seems to be the only addition to make this - ;; module support LaTeX-style literate scripts. - (if (and (looking-at start-decl-re) - (not (eq (get-text-property (point) 'face) - 'font-lock-comment-face))) - (match-beginning 1))))) - (if (and start - ;; This complicated boolean determines whether we - ;; should include the declaration that starts on the - ;; current line as the "current declaration" or not. - (or (and (or (and direction (not fix)) - (and (not direction) fix)) - (>= here start)) - (and (or (and direction fix) - (and (not direction) (not fix))) - (> here start)))) - ;; If so, we are already at start of the current line, so - ;; do nothing. - () - ;; If point was before start of a declaration on the first - ;; line of the buffer (possible for Bird-style literate - ;; scripts) then we are in the abyss. - (if (and start (bobp)) - (setq abyss t) - ;; Otherwise we move to the start of the first declaration - ;; on a line preceeding the current one, skipping comments - (haskell-ds-move-to-start-regexp-skipping-comments -1 start-decl-re)))) - ;; If we are in the abyss, position and return as appropriate. - (if abyss - (if (not direction) - nil - (re-search-forward (concat "\\=" line-prefix) nil t) - (point)) - ;; Get the variable typed or bound by this declaration, if any. - (setq name (haskell-ds-get-variable line-prefix)) - (if (not name) - ;; If no such variable, stop at the start of this - ;; declaration if moving backward, or move to the next - ;; declaration if moving forward. - (if direction - (haskell-ds-move-to-start-regexp-skipping-comments 1 start-decl-re)) - ;; If there is a variable, find the first - ;; succeeding/preceeding declaration that does not type or - ;; bind it. Check for reaching start/end of buffer and - ;; comments. - (haskell-ds-move-to-start-regexp-skipping-comments increment start-decl-re) - (while (and (/= (point) bound) - (and (setq newname (haskell-ds-get-variable line-prefix)) - (string= name newname))) - (setq name newname) - (haskell-ds-move-to-start-regexp-skipping-comments increment start-decl-re)) - ;; If we are going backward, and have either reached a new - ;; declaration or the beginning of a buffer that does not - ;; start with a declaration, move forward to start of next - ;; declaration (which must exist). Otherwise, we are done. - (if (and (not direction) - (or (and (looking-at start-decl-re) - (not (string= name - ;; Note we must not use - ;; newname here as this may - ;; not have been set if we - ;; have reached the beginning - ;; of the buffer. - (haskell-ds-get-variable - line-prefix)))) - (and (not (looking-at start-decl-re)) - (bobp)))) - (haskell-ds-move-to-start-regexp-skipping-comments 1 start-decl-re))) - ;; Store whether we are at the start of a declaration or not. - ;; Used to calculate final result. - (let ((at-start-decl (looking-at start-decl-re))) - ;; If we are at the beginning of a line, move over - ;; line-prefix, if present at point. - (if (bolp) - (re-search-forward (concat "\\=" line-prefix) (point-max) t)) - ;; Return point if at the start of a declaration and nil - ;; otherwise. - (if at-start-decl (point) nil)))))) - -(defun haskell-ds-bird-p () - (and (boundp 'haskell-literate) (eq haskell-literate 'bird))) - -(defun haskell-ds-backward-decl () - "Move point backward to the first character preceding the current -point that starts a top-level declaration. A series of declarations -concerning one variable is treated as one declaration by this -function. So, if point is within a top-level declaration then move it -to the start of that declaration. If point is already at the start of -a top-level declaration, then move it to the start of the preceding -declaration. Returns point if point is left at the start of a -declaration, and nil otherwise, ie. because point is at the beginning -of the buffer and no declaration starts there." - (interactive) - (haskell-ds-move-to-decl nil (haskell-ds-bird-p) nil)) - -(defun haskell-ds-forward-decl () - "As `haskell-ds-backward-decl' but forward." - (interactive) - (haskell-ds-move-to-decl t (haskell-ds-bird-p) nil)) - -(defun haskell-ds-generic-find-next-decl (bird-literate) - "Find the name, position and type of the declaration at or after point. -Return ((NAME . (START-POSITION . NAME-POSITION)) . TYPE) -if one exists and nil otherwise. The start-position is at the start -of the declaration, and the name-position is at the start of the name -of the declaration. The name is a string, the positions are buffer -positions and the type is one of the symbols \"variable\", \"datatype\", -\"class\", \"import\" and \"instance\"." - (let (;; The name, type and name-position of the declaration to - ;; return. - name - type - name-pos - ;; Buffer positions marking the start and end of the space - ;; containing a declaration. - start - end) - ;; Change to declaration scanning syntax. - (with-syntax-table haskell-ds-syntax-table - ;; Stop when we are at the end of the buffer or when a valid - ;; declaration is grabbed. - (while (not (or (eobp) name)) - ;; Move forward to next declaration at or after point. - (haskell-ds-move-to-decl t bird-literate t) - ;; Start and end of search space is currently just the starting - ;; line of the declaration. - (setq start (point) - end (line-end-position)) - (cond - ;; If the start of the top-level declaration does not begin - ;; with a starting keyword, then (if legal) must be a type - ;; signature or value binding, and the variable concerned is - ;; grabbed. - ((not (looking-at haskell-ds-start-keywords-re)) - (setq name (haskell-ds-get-variable "")) - (if name - (progn - (setq type 'variable) - (re-search-forward (regexp-quote name) end t) - (setq name-pos (match-beginning 0))))) - ;; User-defined datatype declaration. - ((re-search-forward "\\=\\(data\\|newtype\\|type\\)\\>" end t) - (re-search-forward "=>" end t) - (if (looking-at "[ \t]*\\(\\sw+\\)") - (progn - (setq name (haskell-ds-match-string 1)) - (setq name-pos (match-beginning 1)) - (setq type 'datatype)))) - ;; Class declaration. - ((re-search-forward "\\=class\\>" end t) - (re-search-forward "=>" end t) - (if (looking-at "[ \t]*\\(\\sw+\\)") - (progn - (setq name (haskell-ds-match-string 1)) - (setq name-pos (match-beginning 1)) - (setq type 'class)))) - ;; Import declaration. - ((looking-at "import[ \t]+\\(qualified[ \t]+\\)?\\(\\(?:\\sw\\|.\\)+\\)") - (setq name (haskell-ds-match-string 2)) - (setq name-pos (match-beginning 2)) - (setq type 'import)) - ;; Instance declaration. - ((re-search-forward "\\=instance[ \t]+" end t) - (re-search-forward "=>[ \t]+" end t) - ;; The instance "title" starts just after the `instance' (and - ;; any context) and finishes just before the _first_ `where' - ;; if one exists. This solution is ugly, but I can't find a - ;; nicer one---a simple regexp will pick up the last `where', - ;; which may be rare but nevertheless... - (setq name-pos (point)) - (setq name (format "%s" - (buffer-substring - (point) - (progn - ;; Look for a `where'. - (if (re-search-forward "\\" end t) - ;; Move back to just before the `where'. - (progn - (re-search-backward "\\s-where") - (point)) - ;; No `where' so move to last non-whitespace - ;; before `end'. - (progn - (goto-char end) - (skip-chars-backward " \t") - (point))))))) - ;; If we did not manage to extract a name, cancel this - ;; declaration (eg. when line ends in "=> "). - (if (string-match "^[ \t]*$" name) (setq name nil)) - (setq type 'instance))) - ;; Move past start of current declaration. - (goto-char end)) - ;; If we have a valid declaration then return it, otherwise return - ;; nil. - (if name - (cons (cons name (cons (copy-marker start t) (copy-marker name-pos t))) - type) - nil)))) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Declaration scanning via `imenu'. - -(defun haskell-ds-create-imenu-index () - "Function for finding `imenu' declarations in Haskell mode. -Finds all declarations (classes, variables, imports, instances and -datatypes) in a Haskell file for the `imenu' package." - ;; Each list has elements of the form `(INDEX-NAME . INDEX-POSITION)'. - ;; These lists are nested using `(INDEX-TITLE . INDEX-ALIST)'. - (let* ((bird-literate (haskell-ds-bird-p)) - (index-alist '()) - (index-class-alist '()) ;; Classes - (index-var-alist '()) ;; Variables - (index-imp-alist '()) ;; Imports - (index-inst-alist '()) ;; Instances - (index-type-alist '()) ;; Datatypes - ;; Variables for showing progress. - (bufname (buffer-name)) - (divisor-of-progress (max 1 (/ (buffer-size) 100))) - ;; The result we wish to return. - result) - (goto-char (point-min)) - ;; Loop forwards from the beginning of the buffer through the - ;; starts of the top-level declarations. - (while (< (point) (point-max)) - (message "Scanning declarations in %s... (%3d%%)" bufname - (/ (- (point) (point-min)) divisor-of-progress)) - ;; Grab the next declaration. - (setq result (haskell-ds-generic-find-next-decl bird-literate)) - (if result - ;; If valid, extract the components of the result. - (let* ((name-posns (car result)) - (name (car name-posns)) - (posns (cdr name-posns)) - (start-pos (car posns)) - (type (cdr result)) - ;; Place `(name . start-pos)' in the correct alist. - (sym (cdr (assq type - '((variable . index-var-alist) - (datatype . index-type-alist) - (class . index-class-alist) - (import . index-imp-alist) - (instance . index-inst-alist)))))) - (set sym (cons (cons name start-pos) (symbol-value sym)))))) - ;; Now sort all the lists, label them, and place them in one list. - (message "Sorting declarations in %s..." bufname) - (and index-type-alist - (push (cons "Datatypes" - (sort index-type-alist 'haskell-ds-imenu-label-cmp)) - index-alist)) - (and index-inst-alist - (push (cons "Instances" - (sort index-inst-alist 'haskell-ds-imenu-label-cmp)) - index-alist)) - (and index-imp-alist - (push (cons "Imports" - (sort index-imp-alist 'haskell-ds-imenu-label-cmp)) - index-alist)) - (and index-var-alist - (push (cons "Variables" - (sort index-var-alist 'haskell-ds-imenu-label-cmp)) - index-alist)) - (and index-class-alist - (push (cons "Classes" - (sort index-class-alist 'haskell-ds-imenu-label-cmp)) - index-alist)) - (message "Sorting declarations in %s...done" bufname) - ;; Return the alist. - index-alist)) - -(defun haskell-ds-imenu-label-cmp (el1 el2) - "Predicate to compare labels in lists from `haskell-ds-create-imenu-index'." - (string< (car el1) (car el2))) - -(defun haskell-ds-imenu () - "Install `imenu' for Haskell scripts." - (setq imenu-create-index-function 'haskell-ds-create-imenu-index) - (if (fboundp 'imenu-add-to-menubar) - (imenu-add-to-menubar "Declarations"))) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Declaration scanning via `func-menu'. - -(defun haskell-ds-func-menu-next (buffer) - "Non-literate Haskell version of `haskell-ds-generic-func-menu-next'." - (haskell-ds-generic-func-menu-next (haskell-ds-bird-p) buffer)) - -(defun haskell-ds-generic-func-menu-next (bird-literate buffer) - "Return `(name . pos)' of next declaration." - (set-buffer buffer) - (let ((result (haskell-ds-generic-find-next-decl bird-literate))) - (if result - (let* ((name-posns (car result)) - (name (car name-posns)) - (posns (cdr name-posns)) - (name-pos (cdr posns)) - ;;(type (cdr result)) - ) - (cons ;(concat - ;; func-menu has problems with spaces, and adding a - ;; qualifying keyword will not allow the "goto fn" - ;; functions to work properly. Sigh. - ;; (cond - ;; ((eq type 'variable) "") - ;; ((eq type 'datatype) "datatype ") - ;; ((eq type 'class) "class ") - ;; ((eq type 'import) "import ") - ;; ((eq type 'instance) "instance ")) - name;) - name-pos)) - nil))) - -(defvar haskell-ds-func-menu-regexp - (concat "^" haskell-ds-start-decl-re) - "Regexp to match the start of a possible declaration.") - -(defvar literate-haskell-ds-func-menu-regexp - (concat "^" literate-haskell-ds-start-decl-re) - "As `haskell-ds-func-menu-regexp' but for Bird-style literate scripts.") - -(defvar fume-menubar-menu-name) -(defvar fume-function-name-regexp-alist) -(defvar fume-find-function-name-method-alist) - -(defun haskell-ds-func-menu () - "Use `func-menu' to establish declaration scanning for Haskell scripts." - (require 'func-menu) - (set (make-local-variable 'fume-menubar-menu-name) "Declarations") - (set (make-local-variable 'fume-function-name-regexp-alist) - (if (haskell-ds-bird-p) - '((haskell-mode . literate-haskell-ds-func-menu-regexp)) - '((haskell-mode . haskell-ds-func-menu-regexp)))) - (set (make-local-variable 'fume-find-function-name-method-alist) - '((haskell-mode . haskell-ds-func-menu-next))) - (fume-add-menubar-entry) - (local-set-key "\C-cl" 'fume-list-functions) - (local-set-key "\C-cg" 'fume-prompt-function-goto) - (local-set-key [(meta button1)] 'fume-mouse-function-goto)) - -;; The main functions to turn on declaration scanning. -(defun turn-on-haskell-decl-scan () - (interactive) - "Unconditionally activate `haskell-decl-scan-mode'." - (haskell-decl-scan-mode 1)) - -(defvar haskell-decl-scan-mode nil) -(make-variable-buffer-local 'haskell-decl-scan-mode) - -;;;###autoload -(defun haskell-decl-scan-mode (&optional arg) - "Minor mode for declaration scanning for Haskell mode. -Top-level declarations are scanned and listed in the menu item \"Declarations\". -Selecting an item from this menu will take point to the start of the -declaration. - -\\[haskell-ds-forward-decl] and \\[haskell-ds-backward-decl] move forward and backward to the start of a declaration. - -Under XEmacs, the following keys are also defined: - -\\[fume-list-functions] lists the declarations of the current buffer, -\\[fume-prompt-function-goto] prompts for a declaration to move to, and -\\[fume-mouse-function-goto] moves to the declaration whose name is at point. - -This may link with `haskell-doc' (only for Emacs currently). - -For non-literate and LaTeX-style literate scripts, we assume the -common convention that top-level declarations start at the first -column. For Bird-style literate scripts, we assume the common -convention that top-level declarations start at the third column, -ie. after \"> \". - -Anything in `font-lock-comment-face' is not considered for a -declaration. Therefore, using Haskell font locking with comments -coloured in `font-lock-comment-face' improves declaration scanning. - -To turn on declaration scanning for all Haskell buffers, add this to -.emacs: - - (add-hook 'haskell-mode-hook 'turn-on-haskell-decl-scan) - -To turn declaration scanning on for the current buffer, call -`turn-on-haskell-decl-scan'. - -Literate Haskell scripts are supported: If the value of -`haskell-literate' (automatically set by the Haskell mode of -Moss&Thorn) is `bird', a Bird-style literate script is assumed. If it -is nil or `tex', a non-literate or LaTeX-style literate script is -assumed, respectively. - -Invokes `haskell-decl-scan-mode-hook'." - (interactive) - (if (boundp 'beginning-of-defun-function) - (if haskell-decl-scan-mode - (progn - (set (make-local-variable 'beginning-of-defun-function) - 'haskell-ds-backward-decl) - (set (make-local-variable 'end-of-defun-function) - 'haskell-ds-forward-decl)) - (kill-local-variable 'beginning-of-defun-function) - (kill-local-variable 'end-of-defun-function)) - (local-set-key "\M-\C-e" - (if haskell-decl-scan-mode 'haskell-ds-forward-decl)) - (local-set-key "\M-\C-a" - (if haskell-decl-scan-mode 'haskell-ds-backward-decl))) - (if haskell-decl-scan-mode - (if (fboundp 'imenu) - (haskell-ds-imenu) - (haskell-ds-func-menu)) - ;; How can we cleanly remove that menus? - (local-set-key [menu-bar index] nil)) - (run-hooks 'haskell-decl-scan-mode-hook)) - -;; Provide ourselves: - -(provide 'haskell-decl-scan) - -;; arch-tag: f4335fd8-4b6c-472e-9899-004d47d94818 -;;; haskell-decl-scan.el ends here diff --git a/.emacs.d.backup/haskell-mode/haskell-doc.el b/.emacs.d.backup/haskell-mode/haskell-doc.el deleted file mode 100644 index f5bc69f..0000000 --- a/.emacs.d.backup/haskell-mode/haskell-doc.el +++ /dev/null @@ -1,1932 +0,0 @@ -;;; haskell-doc.el --- show function types in echo area -*- coding: iso-8859-1 -*- - -;; Copyright (C) 2004, 2005, 2006, 2007, 2009 Free Software Foundation, Inc. -;; Copyright (C) 1997 Hans-Wolfgang Loidl - -;; Author: Hans-Wolfgang Loidl -;; Temporary Maintainer and Hacker: Graeme E Moss -;; Keywords: extensions, minor mode, language mode, Haskell -;; Created: 1997-06-17 -;; URL: http://cvs.haskell.org/cgi-bin/cvsweb.cgi/fptools/CONTRIB/haskell-modes/emacs/haskell-doc.el?rev=HEAD - -;;; Copyright: -;; ========== - -;; 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 3, 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, you can either send email to this -;; program's maintainer or write to: The Free Software Foundation, -;; Inc.; 59 Temple Place, Suite 330; Boston, MA 02111-1307, USA. - -;;; Commentary: -;; =========== - -;; This program shows the type of the Haskell function under the cursor in the -;; minibuffer. It acts as a kind of "emacs background process", by regularly -;; checking the word under the cursor and matching it against a list of -;; prelude, library, local and global functions. - -;; To show types of global functions, i.e. functions defined in a module -;; imported by the current module, call the function -;; `turn-on-haskell-doc-global-types'. This automatically loads all modules -;; and builds `imenu' tables to get the types of all functions. -;; Note: The modules are loaded recursively, so you might pull in -;; many modules by just turning on global function support. -;; This features is currently not very well supported. - -;; This program was inspired by the `eldoc.el' package by Noah Friedman. - -;;; Installation: -;; ============= - -;; One useful way to enable this minor mode is to put the following in your -;; .emacs: -;; -;; (autoload 'turn-on-haskell-doc-mode "haskell-doc" nil t) - -;; and depending on the major mode you use for your Haskell programs: -;; (add-hook 'hugs-mode-hook 'turn-on-haskell-doc-mode) ; hugs-mode -;; or -;; (add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode) ; haskell-mode - -;;; Customisation: -;; ============== - -;; You can control what exactly is shown by setting the following variables to -;; either t or nil: -;; `haskell-doc-show-global-types' (default: nil) -;; `haskell-doc-show-reserved' (default: t) -;; `haskell-doc-show-prelude' (default: t) -;; `haskell-doc-show-strategy' (default: t) -;; `haskell-doc-show-user-defined' (default: t) - -;; If you want to define your own strings for some identifiers define an -;; alist of (ID . STRING) and set `haskell-doc-show-user-defined' to t. -;; E.g: -;; -;; (setq haskell-doc-show-user-defined t) -;; (setq haskell-doc-user-defined-ids -;; (list -;; '("main" . "just another pathetic main function") -;; '("foo" . "a very dummy name") -;; '("bar" . "another dummy name"))) - -;; The following two variables are useful to make the type fit on one line: -;; If `haskell-doc-chop-off-context' is non-nil the context part of the type -;; of a local fct will be eliminated (default: t). -;; If `haskell-doc-chop-off-fctname' is non-nil the function name is not -;; shown together with the type (default: nil). - -;;; Internals: -;; ========== - -;; `haskell-doc-mode' is implemented as a minor-mode. So, you can combine it -;; with any other mode. To enable it just type -;; M-x turn-on-haskell-doc-mode - -;; These are the names of the functions that can be called directly by the -;; user (with keybindings in `haskell-hugs-mode' and `haskell-mode'): -;; `haskell-doc-mode' ... toggle haskell-doc-mode; with prefix turn it on -;; unconditionally if the prefix is greater 0 otherwise -;; turn it off -;; Key: CTRL-c CTRL-o (CTRL-u CTRL-c CTRL-o) -;; `haskell-doc-ask-mouse-for-type' ... show the type of the id under the mouse -;; Key: C-S-M-mouse-3 -;; `haskell-doc-show-reserved' ... toggle echoing of reserved id's types -;; `haskell-doc-show-prelude' ... toggle echoing of prelude id's types -;; `haskell-doc-show-strategy' ... toggle echoing of strategy id's types -;; `haskell-doc-show-user-defined' ... toggle echoing of user def id's types -;; `haskell-doc-check-active' ... check whether haskell-doc is active; -;; Key: CTRL-c ESC-/ - -;;; ToDo: -;; ===== - -;; - Fix byte-compile problems in `haskell-doc-prelude-types' for getArgs etc -;; - Write a parser for .hi files and make haskell-doc independent from -;; hugs-mode. Read library interfaces via this parser. -;; - Indicate kind of object with colours -;; - Handle multi-line types -;; - Encode i-am-fct info in the alist of ids and types. - -;;; Bugs: -;; ===== - -;; - Some prelude fcts aren't displayed properly. This might be due to a -;; name clash of Haskell and Elisp functions (e.g. length) which -;; confuses emacs when reading `haskell-doc-prelude-types' - -;;; Changelog: -;; ========== -;; $Log: haskell-doc.el,v $ -;; Revision 1.30 2009/02/02 21:00:33 monnier -;; (haskell-doc-imported-list): Don't add current buffer -;; to the imported file list if it is not (yet?) visiting a file. -;; -;; Revision 1.29 2007-12-12 04:04:19 monnier -;; (haskell-doc-in-code-p): New function. -;; (haskell-doc-show-type): Use it. -;; -;; Revision 1.28 2007/08/30 03:10:08 monnier -;; Comment/docs fixes. -;; -;; Revision 1.27 2007/07/30 17:36:50 monnier -;; (displayed-month): Remove declaration since it's not used here. -;; -;; Revision 1.26 2007/02/10 06:28:55 monnier -;; (haskell-doc-get-current-word): Remove. -;; Change all refs to it, to use haskell-ident-at-point instead. -;; -;; Revision 1.25 2007/02/09 21:53:42 monnier -;; (haskell-doc-get-current-word): Correctly distinguish -;; variable identifiers and infix identifiers. -;; (haskell-doc-rescan-files): Avoid switch-to-buffer. -;; (haskell-doc-imported-list): Operate on current buffer. -;; (haskell-doc-make-global-fct-index): Adjust call. -;; -;; Revision 1.24 2006/11/20 20:18:24 monnier -;; (haskell-doc-mode-print-current-symbol-info): Fix thinko. -;; -;; Revision 1.23 2006/10/20 03:12:31 monnier -;; Drop post-command-idle-hook in favor of run-with-idle-timer. -;; (haskell-doc-timer, haskell-doc-buffers): New vars. -;; (haskell-doc-mode): Use them. -;; (haskell-doc-check-active): Update the check. -;; (haskell-doc-mode-print-current-symbol-info): Remove the interactive spec. -;; Don't sit-for unless it's really needed. -;; -;; Revision 1.22 2006/09/20 18:42:35 monnier -;; Doc fix. -;; -;; Revision 1.21 2005/11/21 21:48:52 monnier -;; * haskell-doc.el (haskell-doc-extract-types): Get labelled data working. -;; (haskell-doc-prelude-types): Update via auto-generation. -;; -;; * haskell-doc.el (haskell-doc-extract-types): Get it partly working. -;; (haskell-doc-fetch-lib-urls): Don't use a literal if we apply -;; `nreverse' on it later on. -;; (haskell-doc-prelude-types): Update some parts by auto-generation. -;; (haskell-doc-grab, haskell-doc-string-nub-ws): Simplify. -;; -;; * haskell-doc.el (haskell-doc-maintainer, haskell-doc-varlist) -;; (haskell-doc-submit-bug-report, haskell-doc-ftp-site) -;; (haskell-doc-visit-home): Remove. -;; (haskell-doc-reserved-ids, haskell-doc-fetch-lib-urls) -;; (haskell-doc-extract-and-insert-types): New funs. -;; (haskell-doc-reserved-ids): Fix type of `map'. -;; -;; Revision 1.20 2005/11/21 21:27:57 monnier -;; (haskell-doc-extract-types): Get labelled data working. -;; (haskell-doc-prelude-types): Update via auto-generation. -;; -;; Revision 1.19 2005/11/21 20:44:13 monnier -;; (haskell-doc-extract-types): Get it partly working. -;; (haskell-doc-fetch-lib-urls): Don't use a literal if we apply -;; `nreverse' on it later on. -;; (haskell-doc-prelude-types): Update some parts by auto-generation. -;; (haskell-doc-grab, haskell-doc-string-nub-ws): Simplify. -;; -;; Revision 1.18 2005/11/21 18:02:15 monnier -;; (haskell-doc-maintainer, haskell-doc-varlist) -;; (haskell-doc-submit-bug-report, haskell-doc-ftp-site) -;; (haskell-doc-visit-home): Remove. -;; (haskell-doc-reserved-ids, haskell-doc-fetch-lib-urls) -;; (haskell-doc-extract-and-insert-types): New funs. -;; (haskell-doc-reserved-ids): Fix type of `map'. -;; -;; Revision 1.17 2005/11/20 23:55:09 monnier -;; Add coding cookie. -;; -;; Revision 1.16 2005/11/07 01:28:16 monnier -;; (haskell-doc-xemacs-p, haskell-doc-emacs-p) -;; (haskell-doc-message): Remove. -;; (haskell-doc-is-id-char-at): Remove. -;; (haskell-doc-get-current-word): Rewrite. -;; -;; Revision 1.15 2005/11/04 17:11:12 monnier -;; Add arch-tag. -;; -;; Revision 1.14 2005/08/24 11:36:32 monnier -;; (haskell-doc-message): Paren typo. -;; -;; Revision 1.13 2005/08/23 19:23:27 monnier -;; (haskell-doc-show-type): Assume that the availability -;; of display-message won't change at runtime. -;; -;; Revision 1.12 2005/07/18 21:04:14 monnier -;; (haskell-doc-message): Remove. -;; (haskell-doc-show-type): inline it. Do nothing for if there's no doc to show. -;; -;; Revision 1.11 2004/12/10 17:33:18 monnier -;; (haskell-doc-minor-mode-string): Make it dynamic. -;; (haskell-doc-install-keymap): Remove conflicting C-c C-o binding. -;; (haskell-doc-mode): Make a nil arg turn the mode ON. -;; (turn-on-haskell-doc-mode): Make it an alias for haskell-doc-mode. -;; (haskell-doc-mode): Don't touch haskell-doc-minor-mode-string. -;; (haskell-doc-show-global-types): Don't touch -;; haskell-doc-minor-mode-string. Call haskell-doc-make-global-fct-index. -;; (haskell-doc-check-active): Fix message. -;; (define-key-after): Don't define. -;; (haskell-doc-install-keymap): Check existence of define-key-after. -;; -;; Revision 1.10 2004/11/25 23:03:23 monnier -;; (haskell-doc-sym-doc): Make even the last char bold. -;; -;; Revision 1.9 2004/11/24 22:14:36 monnier -;; (haskell-doc-install-keymap): Don't blindly assume there's a Hugs menu. -;; -;; Revision 1.8 2004/11/22 10:45:35 simonmar -;; Fix type of getLine -;; -;; Revision 1.7 2004/10/14 22:27:47 monnier -;; (turn-off-haskell-doc-mode, haskell-doc-current-info): Don't autoload. -;; -;; Revision 1.6 2004/10/13 22:45:22 monnier -;; (haskell-doc): New group. -;; (haskell-doc-show-reserved, haskell-doc-show-prelude) -;; (haskell-doc-show-strategy, haskell-doc-show-user-defined) -;; (haskell-doc-chop-off-context, haskell-doc-chop-off-fctname): -;; Make them custom vars. -;; (haskell-doc-keymap): Declare and fill it right there. -;; (haskell-doc-mode): Simplify. -;; (haskell-doc-toggle-var): Make it into what it was supposed to be. -;; (haskell-doc-mode-print-current-symbol-info): Simplify. -;; (haskell-doc-current-info): New autoloaded function. -;; (haskell-doc-sym-doc): New fun extracted from haskell-doc-show-type. -;; (haskell-doc-show-type): Use it. -;; (haskell-doc-wrapped-type-p): Remove unused var `lim'. -;; (haskell-doc-forward-sexp-safe, haskell-doc-current-symbol): Remove. Unused. -;; (haskell-doc-visit-home): Don't require ange-ftp, it's autoloaded. -;; (haskell-doc-install-keymap): Simplify. -;; -;; Revision 1.5 2003/01/09 11:56:26 simonmar -;; Patches from Ville Skytt , the XEmacs maintainer of -;; the haskell-mode: -;; -;; - Make the auto-mode-alist modifications autoload-only. -;; -;; Revision 1.4 2002/10/14 09:55:03 simonmar -;; Patch to update the Prelude/libraries function names and to remove -;; support for older versions of Haskell. -;; -;; Submitted by: Anders Lau Olsen -;; -;; Revision 1.3 2002/04/30 09:34:37 rrt -;; Remove supporting Haskell 1.4 and 1.2 from the ToDo list. It's Far Too Late. -;; -;; Add (require 'imenu). Thanks to N. Y. Kwok. -;; -;; Revision 1.2 2002/04/23 14:45:10 simonmar -;; Tweaks to the doc strings and support for customization, from -;; Ville Skytt . -;; -;; Revision 1.1 2001/07/19 16:17:36 rrt -;; Add the current version of the Moss/Thorn/Marlow Emacs mode, along with its -;; web pages and sample files. This is now the preferred mode, and the -;; haskell.org pages are being changed to reflect that. Also includes the new -;; GHCi mode from Chris Webb. -;; -;; Revision 1.6 1998/12/10 16:27:25 hwloidl -;; Minor changes ("Doc" as modeline string, mouse-3 moved to C-S-M-mouse-3) -;; -;; Revision 1.5 1998/09/24 14:25:46 gem -;; Fixed minor compatibility bugs with Haskell mode of Moss&Thorn. -;; Disabled M-/ binding. -;; -;; Revision 1.4 1997/11/12 23:51:19 hwloidl -;; Fixed start-up problem under emacs-19.34. -;; Added support for wrapped (multi-line) types and 2 vars to control the -;; behaviour with long fct types -;; -;; Revision 1.3 1997/11/03 00:48:03 hwloidl -;; Major revision for first release. -;; Added alists for showing prelude fcts, haskell syntax, and strategies -;; Added mouse interface to show type under mouse -;; Fixed bug which causes demon to fall over -;; Works now with hugs-mode and haskell-mode under emacs 19.34,20 and xemacs 19.15 -;; - -;;; Code: -;; ===== - -;;@menu -;;* Constants and Variables:: -;;* Install as minor mode:: -;;* Menubar Support:: -;;* Haskell Doc Mode:: -;;* Switch it on or off:: -;;* Check:: -;;* Top level function:: -;;* Mouse interface:: -;;* Print fctsym:: -;;* Movement:: -;;* Bug Reports:: -;;* Visit home site:: -;;* Index:: -;;* Token:: -;;@end menu - -;;@node top, Constants and Variables, (dir), (dir) -;;@top - -;;@node Constants and Variables, Install as minor mode, top, top -;;@section Constants and Variables - -;;@menu -;;* Emacs portability:: -;;* Maintenance stuff:: -;;* Mode Variable:: -;;* Variables:: -;;* Prelude types:: -;;* Test membership:: -;;@end menu - -;;@node Emacs portability, Maintenance stuff, Constants and Variables, Constants and Variables -;;@subsection Emacs portability - -(require 'haskell-mode) -(eval-when-compile (require 'cl)) - -(defgroup haskell-doc nil - "Show Haskell function types in echo area." - :group 'haskell - :prefix "haskell-doc-") - -;;@node Mode Variable, Variables, Maintenance stuff, Constants and Variables -;;@subsection Mode Variable - -(defvar haskell-doc-mode nil - "*If non-nil, show the type of the function near point or a related comment. - -If the identifier near point is a Haskell keyword and the variable -`haskell-doc-show-reserved' is non-nil show a one line summary -of the syntax. - -If the identifier near point is a Prelude or one of the standard library -functions and `haskell-doc-show-prelude' is non-nil show its type. - -If the identifier near point is local \(i.e. defined in this module\) check -the `imenu' list of functions for the type. This obviously requires that -your language mode uses `imenu'. - -If the identifier near point is global \(i.e. defined in an imported module\) -and the variable `haskell-doc-show-global-types' is non-nil show the type of its -function. - -If the identifier near point is a standard strategy or a function, type related -related to strategies and `haskell-doc-show-strategy' is non-nil show the type -of the function. Strategies are special to the parallel execution of Haskell. -If you're not interested in that just turn it off. - -If the identifier near point is a user defined function that occurs as key -in the alist `haskell-doc-user-defined-ids' and the variable -`haskell-doc-show-user-defined' is non-nil show the type of the function. - -This variable is buffer-local.") -(make-variable-buffer-local 'haskell-doc-mode) - -(defvar haskell-doc-mode-hook nil - "Hook invoked when entering `haskell-doc-mode'.") - -(defvar haskell-doc-index nil - "Variable holding an alist matching file names to fct-type alists. -The function `haskell-doc-make-global-fct-index' rebuilds this variables -\(similar to an `imenu' rescan\). -This variable is buffer-local.") -(make-variable-buffer-local 'haskell-doc-index) - -(defcustom haskell-doc-show-global-types nil - "If non-nil, search for the types of global functions by loading the files. -This variable is buffer-local." - :type 'boolean) -(make-variable-buffer-local 'haskell-doc-show-global-types) - -(defcustom haskell-doc-show-reserved t - "If non-nil, show a documentation string for reserved ids. -This variable is buffer-local." - :type 'boolean) -(make-variable-buffer-local 'haskell-doc-show-reserved) - -(defcustom haskell-doc-show-prelude t - "If non-nil, show a documentation string for prelude functions. -This variable is buffer-local." - :type 'boolean) -(make-variable-buffer-local 'haskell-doc-show-prelude) - -(defcustom haskell-doc-show-strategy t - "If non-nil, show a documentation string for strategies. -This variable is buffer-local." - :type 'boolean) -(make-variable-buffer-local 'haskell-doc-show-strategy) - -(defcustom haskell-doc-show-user-defined t - "If non-nil, show a documentation string for user defined ids. -This variable is buffer-local." - :type 'boolean) -(make-variable-buffer-local 'haskell-doc-show-user-defined) - -(defcustom haskell-doc-chop-off-context t - "If non-nil eliminate the context part in a Haskell type." - :type 'boolean) - -(defcustom haskell-doc-chop-off-fctname nil - "If non-nil omit the function name and show only the type." - :type 'boolean) - -(defvar haskell-doc-search-distance 40 ; distance in characters - "*How far to search when looking for the type declaration of fct under cursor.") - -;;@node Variables, Prelude types, Mode Variable, Constants and Variables -;;@subsection Variables - -(defvar haskell-doc-idle-delay 0.50 - "*Number of seconds of idle time to wait before printing. -If user input arrives before this interval of time has elapsed after the -last input, no documentation will be printed. - -If this variable is set to 0, no idle time is required.") - -(defvar haskell-doc-argument-case 'identity ; 'upcase - "Case to display argument names of functions, as a symbol. -This has two preferred values: `upcase' or `downcase'. -Actually, any name of a function which takes a string as an argument and -returns another string is acceptable.") - -(defvar haskell-doc-mode-message-commands nil - "*Obarray of command names where it is appropriate to print in the echo area. - -This is not done for all commands since some print their own -messages in the echo area, and these functions would instantly overwrite -them. But `self-insert-command' as well as most motion commands are good -candidates. - -It is probably best to manipulate this data structure with the commands -`haskell-doc-add-command' and `haskell-doc-remove-command'.") - -;;(cond ((null haskell-doc-mode-message-commands) -;; ;; If you increase the number of buckets, keep it a prime number. -;; (setq haskell-doc-mode-message-commands (make-vector 31 0)) -;; (let ((list '("self-insert-command" -;; "next-" "previous-" -;; "forward-" "backward-" -;; "beginning-of-" "end-of-" -;; "goto-" -;; "recenter" -;; "scroll-")) -;; (syms nil)) -;; (while list -;; (setq syms (all-completions (car list) obarray 'fboundp)) -;; (setq list (cdr list)) -;; (while syms -;; (set (intern (car syms) haskell-doc-mode-message-commands) t) -;; (setq syms (cdr syms))))))) - -;; Bookkeeping; the car contains the last symbol read from the buffer. -;; The cdr contains the string last displayed in the echo area, so it can -;; be printed again if necessary without reconsing. -(defvar haskell-doc-last-data '(nil . nil)) - -(defvar haskell-doc-minor-mode-string - '(haskell-doc-show-global-types " DOC" " Doc") - "*String to display in mode line when Haskell-Doc Mode is enabled.") - - -;;@node Prelude types, Test membership, Variables, Constants and Variables -;;@subsection Prelude types - -;;@cindex haskell-doc-reserved-ids - -(defvar haskell-doc-reserved-ids - '(("case" . "case exp of { alts [;] }") - ("class" . "class [context =>] simpleclass [where { cbody [;] }]") - ("data" . "data [context =>] simpletype = constrs [deriving]") - ("default" . "default (type1 , ... , typen)") - ("deriving" . "deriving (dclass | (dclass1, ... , dclassn))") ; used with data or newtype - ("do" . "do { stmts [;] } stmts -> exp [; stmts] | pat <- exp ; stmts | let decllist ; stmts") - ("else" . "if exp then exp else exp") - ("if" . "if exp then exp else exp") - ("import" . "import [qualified] modid [as modid] [impspec]") - ("in" . "let decllist in exp") - ("infix" . "infix [digit] ops") - ("infixl" . "infixl [digit] ops") - ("infixr" . "infixr [digit] ops") - ("instance" . "instance [context =>] qtycls inst [where { valdefs [;] }]") - ("let" . "let { decl; ...; decl [;] } in exp") - ("module" . "module modid [exports] where body") - ("newtype" . "newtype [context =>] simpletype = con atype [deriving]") - ("of" . "case exp of { alts [;] }") - ("then" . "if exp then exp else exp") - ("type" . "type simpletype = type") - ("where" . "exp where { decl; ...; decl [;] }") ; check that ; see also class, instance, module - ("as" . "import [qualified] modid [as modid] [impspec]") - ("qualified" . "import [qualified] modid [as modid] [impspec]") - ("hiding" . "hiding ( import1 , ... , importn [ , ] )")) - "An alist of reserved identifiers. -Each element is of the form (ID . DOC) where both ID and DOC are strings. -DOC should be a concise single-line string describing the construct in which -the keyword is used.") - -;;@cindex haskell-doc-prelude-types - -(defun haskell-doc-extract-types (url) - (with-temp-buffer - (insert-file-contents url) - (goto-char (point-min)) - (while (search-forward " " nil t) (replace-match " " t t)) - - ;; First, focus on the actual code, removing the surrouding HTML text. - (goto-char (point-min)) - (let ((last (point-min)) - (modules nil)) - (while (re-search-forward "^module +\\([[:alnum:]]+\\)" nil t) - (let ((module (match-string 1))) - (if (member module modules) - ;; The library nodes of the HTML doc contain modules twice: - ;; once at the top, with only type declarations, and once at - ;; the bottom with an actual sample implementation which may - ;; include declaration of non-exported values. - ;; We're now at this second occurrence is the implementation - ;; which should thus be ignored. - nil - (push module modules) - (delete-region last (point)) - (search-forward "") - ;; Some of the blocks of code are split. - (while (looking-at "\\(<[^<>]+>[ \t\n]*\\)*") - (goto-char (match-end 0)) - (search-forward "")) - (setq last (point))))) - (delete-region last (point-max)) - - ;; Then process the HTML encoding to get back to pure ASCII. - (goto-char (point-min)) - (while (search-forward "
" nil t) (replace-match "\n" t t)) - ;; (goto-char (point-min)) - ;; (while (re-search-forward "<[^<>]+>" nil t) (replace-match "" t t)) - (goto-char (point-min)) - (while (search-forward ">" nil t) (replace-match ">" t t)) - (goto-char (point-min)) - (while (search-forward "<" nil t) (replace-match "<" t t)) - (goto-char (point-min)) - (while (search-forward "&" nil t) (replace-match "&" t t)) - (goto-char (point-min)) - (if (re-search-forward "&[a-z]+;" nil t) - (error "Unexpected charref %s" (match-string 0))) - ;; Remove TABS. - (goto-char (point-min)) - (while (search-forward "\t" nil t) (replace-match " " t t)) - - ;; Finally, extract the actual data. - (goto-char (point-min)) - (let* ((elems nil) - (space-re "[ \t\n]*\\(?:--.*\n[ \t\n]*\\)*") - (comma-re (concat " *," space-re)) - ;; A list of identifiers. We have to be careful to weed out - ;; entries like "ratPrec = 7 :: Int". Also ignore entries - ;; which start with a < since they're actually in the HTML text - ;; part. And the list may be spread over several lines, cut - ;; after a comma. - (idlist-re - (concat "\\([^< \t\n][^ \t\n]*" - "\\(?:" comma-re "[^ \t\n]+\\)*\\)")) - ;; A type. A few types are spread over 2 lines, - ;; cut after the "=>", so we have to handle these as well. - (type-re "\\(.*[^\n>]\\(?:>[ \t\n]+.*[^\n>]\\)*\\) *$") - ;; A decl of a list of values, possibly indented. - (val-decl-re - (concat "^\\( +\\)?" idlist-re "[ \t\n]*::[ \t\n]*" type-re)) - (re (concat - ;; 3 possibilities: a class decl, a data decl, or val decl. - ;; First, let's match a class decl. - "^class \\(?:.*=>\\)? *\\(.*[^ \t\n]\\)[ \t\n]*where" - - ;; Or a value decl: - "\\|" val-decl-re - - "\\|" ;; Or a data decl. We only handle single-arm - ;; datatypes with labels. - "^data +\\([[:alnum:]][[:alnum:] ]*[[:alnum:]]\\)" - " *=.*{\\([^}]+\\)}" - )) - (re-class (concat "^[^ \t\n]\\|" re)) - curclass) - (while (re-search-forward (if curclass re-class re) nil t) - (cond - ;; A class decl. - ((match-end 1) (setq curclass (match-string 1))) - ;; A value decl. - ((match-end 4) - (let ((type (match-string 4)) - (vars (match-string 3)) - (indented (match-end 2))) - (if (string-match "[ \t\n][ \t\n]+" type) - (setq type (replace-match " " t t type))) - (if (string-match " *\\(--.*\\)?\\'" type) - (setq type (substring type 0 (match-beginning 0)))) - (if indented - (if curclass - (if (string-match "\\`\\(.*[^ \t\n]\\) *=> *" type) - (let ((classes (match-string 1 type))) - (setq type (substring type (match-end 0))) - (if (string-match "\\`(.*)\\'" classes) - (setq classes (substring classes 1 -1))) - (setq type (concat "(" curclass ", " classes - ") => " type))) - (setq type (concat curclass " => " type))) - ;; It's actually not an error: just a type annotation on - ;; some local variable. - ;; (error "Indentation outside a class in %s: %s" - ;; module vars) - nil) - (setq curclass nil)) - (dolist (var (split-string vars comma-re t)) - (if (string-match "(.*)" var) (setq var (substring var 1 -1))) - (push (cons var type) elems)))) - ;; A datatype decl. - ((match-end 5) - (setq curclass nil) - (let ((name (match-string 5))) - (save-excursion - (save-restriction - (narrow-to-region (match-beginning 6) (match-end 6)) - (goto-char (point-min)) - (while (re-search-forward val-decl-re nil t) - (let ((vars (match-string 2)) - (type (match-string 3))) - (if (string-match "[ \t\n][ \t\n]+" type) - (setq type (replace-match " " t t type))) - (if (string-match " *\\(--.*\\)?\\'" type) - (setq type (substring type 0 (match-beginning 0)))) - (if (string-match ",\\'" type) - (setq type (substring type 0 -1))) - (setq type (concat name " -> " type)) - (dolist (var (split-string vars comma-re t)) - (if (string-match "(.*)" var) - (setq var (substring var 1 -1))) - (push (cons var type) elems)))))))) - - ;; The end of a class declaration. - (t (setq curclass nil) (beginning-of-line)))) - (cons (car (last modules)) elems))))) - -(defun haskell-doc-fetch-lib-urls (base-url) - (with-temp-buffer - (insert-file-contents base-url) - (goto-char (point-min)) - (search-forward "Part II: Libraries") - (delete-region (point-min) (point)) - (search-forward "") - (delete-region (point) (point-max)) - (goto-char (point-min)) - (let ((libs (list "standard-prelude.html"))) - (while (re-search-forward "" nil t) - (push (match-string 1) libs)) - (mapcar (lambda (s) (expand-file-name s (file-name-directory base-url))) - (nreverse libs))))) - -(defun haskell-doc-extract-and-insert-types (url) - "Fetch the types from the online doc and insert them at point. -URL is the URL of the online doc." - (interactive (if current-prefix-arg - (read-file-name "URL: ") - (list "http://www.haskell.org/onlinereport/"))) - (let ((urls (haskell-doc-fetch-lib-urls url))) - (dolist (url urls) - (let ((data (haskell-doc-extract-types url))) - (insert ";; " (pop data)) (indent-according-to-mode) (newline) - (dolist (elem (sort data (lambda (x y) (string-lessp (car x) (car y))))) - (prin1 elem (current-buffer)) - (indent-according-to-mode) (newline)))))) - -(defvar haskell-doc-prelude-types - ;; This list was auto generated by `haskell-doc-extract-and-insert-types'. - '( - ;; Prelude - ("!!" . "[a] -> Int -> a") - ("$" . "(a -> b) -> a -> b") - ("$!" . "(a -> b) -> a -> b") - ("&&" . "Bool -> Bool -> Bool") - ("*" . "Num a => a -> a -> a") - ("**" . "Floating a => a -> a -> a") - ("+" . "Num a => a -> a -> a") - ("++" . "[a] -> [a] -> [a]") - ("-" . "Num a => a -> a -> a") - ("." . "(b -> c) -> (a -> b) -> a -> c") - ("/" . "Fractional a => a -> a -> a") - ("/=" . "Eq a => a -> a -> Bool") - ("<" . "Ord a => a -> a -> Bool") - ("<=" . "Ord a => a -> a -> Bool") - ("=<<" . "Monad m => (a -> m b) -> m a -> m b") - ("==" . "Eq a => a -> a -> Bool") - (">" . "Ord a => a -> a -> Bool") - (">=" . "Ord a => a -> a -> Bool") - (">>" . "Monad m => m a -> m b -> m b") - (">>=" . "Monad m => m a -> (a -> m b) -> m b") - ("^" . "(Num a, Integral b) => a -> b -> a") - ("^^" . "(Fractional a, Integral b) => a -> b -> a") - ("abs" . "Num a => a -> a") - ("acos" . "Floating a => a -> a") - ("acosh" . "Floating a => a -> a") - ("all" . "(a -> Bool) -> [a] -> Bool") - ("and" . "[Bool] -> Bool") - ("any" . "(a -> Bool) -> [a] -> Bool") - ("appendFile" . "FilePath -> String -> IO ()") - ("asTypeOf" . "a -> a -> a") - ("asin" . "Floating a => a -> a") - ("asinh" . "Floating a => a -> a") - ("atan" . "Floating a => a -> a") - ("atan2" . "RealFloat a => a -> a -> a") - ("atanh" . "Floating a => a -> a") - ("break" . "(a -> Bool) -> [a] -> ([a],[a])") - ("catch" . "IO a -> (IOError -> IO a) -> IO a") - ("ceiling" . "(RealFrac a, Integral b) => a -> b") - ("compare" . "Ord a => a -> a -> Ordering") - ("concat" . "[[a]] -> [a]") - ("concatMap" . "(a -> [b]) -> [a] -> [b]") - ("const" . "a -> b -> a") - ("cos" . "Floating a => a -> a") - ("cosh" . "Floating a => a -> a") - ("curry" . "((a, b) -> c) -> a -> b -> c") - ("cycle" . "[a] -> [a]") - ("decodeFloat" . "RealFloat a => a -> (Integer,Int)") - ("div" . "Integral a => a -> a -> a") - ("divMod" . "Integral a => a -> a -> (a,a)") - ("drop" . "Int -> [a] -> [a]") - ("dropWhile" . "(a -> Bool) -> [a] -> [a]") - ("either" . "(a -> c) -> (b -> c) -> Either a b -> c") - ("elem" . "(Eq a) => a -> [a] -> Bool") - ("encodeFloat" . "RealFloat a => Integer -> Int -> a") - ("enumFrom" . "Enum a => a -> [a]") - ("enumFromThen" . "Enum a => a -> a -> [a]") - ("enumFromThenTo" . "Enum a => a -> a -> a -> [a]") - ("enumFromTo" . "Enum a => a -> a -> [a]") - ("error" . "String -> a") - ("even" . "(Integral a) => a -> Bool") - ("exp" . "Floating a => a -> a") - ("exponent" . "RealFloat a => a -> Int") - ("fail" . "Monad m => String -> m a") - ("filter" . "(a -> Bool) -> [a] -> [a]") - ("flip" . "(a -> b -> c) -> b -> a -> c") - ("floatDigits" . "RealFloat a => a -> Int") - ("floatRadix" . "RealFloat a => a -> Integer") - ("floatRange" . "RealFloat a => a -> (Int,Int)") - ("floor" . "(RealFrac a, Integral b) => a -> b") - ("fmap" . "Functor f => (a -> b) -> f a -> f b") - ("foldl" . "(a -> b -> a) -> a -> [b] -> a") - ("foldl1" . "(a -> a -> a) -> [a] -> a") - ("foldr" . "(a -> b -> b) -> b -> [a] -> b") - ("foldr1" . "(a -> a -> a) -> [a] -> a") - ("fromEnum" . "Enum a => a -> Int") - ("fromInteger" . "Num a => Integer -> a") - ("fromIntegral" . "(Integral a, Num b) => a -> b") - ("fromRational" . "Fractional a => Rational -> a") - ("fst" . "(a,b) -> a") - ("gcd" . "(Integral a) => a -> a -> a") - ("getChar" . "IO Char") - ("getContents" . "IO String") - ("getLine" . "IO String") - ("head" . "[a] -> a") - ("id" . "a -> a") - ("init" . "[a] -> [a]") - ("interact" . "(String -> String) -> IO ()") - ("ioError" . "IOError -> IO a") - ("isDenormalized" . "RealFloat a => a -> Bool") - ("isIEEE" . "RealFloat a => a -> Bool") - ("isInfinite" . "RealFloat a => a -> Bool") - ("isNaN" . "RealFloat a => a -> Bool") - ("isNegativeZero" . "RealFloat a => a -> Bool") - ("iterate" . "(a -> a) -> a -> [a]") - ("last" . "[a] -> a") - ("lcm" . "(Integral a) => a -> a -> a") - ("length" . "[a] -> Int") - ("lex" . "ReadS String") - ("lines" . "String -> [String]") - ("log" . "Floating a => a -> a") - ("logBase" . "Floating a => a -> a -> a") - ("lookup" . "(Eq a) => a -> [(a,b)] -> Maybe b") - ("map" . "(a -> b) -> [a] -> [b]") - ("mapM" . "Monad m => (a -> m b) -> [a] -> m [b]") - ("mapM_" . "Monad m => (a -> m b) -> [a] -> m ()") - ("max" . "Ord a => a -> a -> a") - ("maxBound" . "Bounded a => a") - ("maximum" . "(Ord a) => [a] -> a") - ("maybe" . "b -> (a -> b) -> Maybe a -> b") - ("min" . "Ord a => a -> a -> a") - ("minBound" . "Bounded a => a") - ("minimum" . "(Ord a) => [a] -> a") - ("mod" . "Integral a => a -> a -> a") - ("negate" . "Num a => a -> a") - ("not" . "Bool -> Bool") - ("notElem" . "(Eq a) => a -> [a] -> Bool") - ("null" . "[a] -> Bool") - ("numericEnumFrom" . "(Fractional a) => a -> [a]") - ("numericEnumFromThen" . "(Fractional a) => a -> a -> [a]") - ("numericEnumFromThenTo" . "(Fractional a, Ord a) => a -> a -> a -> [a]") - ("numericEnumFromTo" . "(Fractional a, Ord a) => a -> a -> [a]") - ("odd" . "(Integral a) => a -> Bool") - ("or" . "[Bool] -> Bool") - ("otherwise" . "Bool") - ("pi" . "Floating a => a") - ("pred" . "Enum a => a -> a") - ("print" . "Show a => a -> IO ()") - ("product" . "(Num a) => [a] -> a") - ("properFraction" . "(RealFrac a, Integral b) => a -> (b,a)") - ("putChar" . "Char -> IO ()") - ("putStr" . "String -> IO ()") - ("putStrLn" . "String -> IO ()") - ("quot" . "Integral a => a -> a -> a") - ("quotRem" . "Integral a => a -> a -> (a,a)") - ("read" . "(Read a) => String -> a") - ("readFile" . "FilePath -> IO String") - ("readIO" . "Read a => String -> IO a") - ("readList" . "Read a => ReadS [a]") - ("readLn" . "Read a => IO a") - ("readParen" . "Bool -> ReadS a -> ReadS a") - ("reads" . "(Read a) => ReadS a") - ("readsPrec" . "Read a => Int -> ReadS a") - ("realToFrac" . "(Real a, Fractional b) => a -> b") - ("recip" . "Fractional a => a -> a") - ("rem" . "Integral a => a -> a -> a") - ("repeat" . "a -> [a]") - ("replicate" . "Int -> a -> [a]") - ("return" . "Monad m => a -> m a") - ("reverse" . "[a] -> [a]") - ("round" . "(RealFrac a, Integral b) => a -> b") - ("scaleFloat" . "RealFloat a => Int -> a -> a") - ("scanl" . "(a -> b -> a) -> a -> [b] -> [a]") - ("scanl1" . "(a -> a -> a) -> [a] -> [a]") - ("scanr" . "(a -> b -> b) -> b -> [a] -> [b]") - ("scanr1" . "(a -> a -> a) -> [a] -> [a]") - ("seq" . "a -> b -> b") - ("sequence" . "Monad m => [m a] -> m [a]") - ("sequence_" . "Monad m => [m a] -> m ()") - ("show" . "Show a => a -> String") - ("showChar" . "Char -> ShowS") - ("showList" . "Show a => [a] -> ShowS") - ("showParen" . "Bool -> ShowS -> ShowS") - ("showString" . "String -> ShowS") - ("shows" . "(Show a) => a -> ShowS") - ("showsPrec" . "Show a => Int -> a -> ShowS") - ("significand" . "RealFloat a => a -> a") - ("signum" . "Num a => a -> a") - ("sin" . "Floating a => a -> a") - ("sinh" . "Floating a => a -> a") - ("snd" . "(a,b) -> b") - ("span" . "(a -> Bool) -> [a] -> ([a],[a])") - ("splitAt" . "Int -> [a] -> ([a],[a])") - ("sqrt" . "Floating a => a -> a") - ("subtract" . "(Num a) => a -> a -> a") - ("succ" . "Enum a => a -> a") - ("sum" . "(Num a) => [a] -> a") - ("tail" . "[a] -> [a]") - ("take" . "Int -> [a] -> [a]") - ("takeWhile" . "(a -> Bool) -> [a] -> [a]") - ("tan" . "Floating a => a -> a") - ("tanh" . "Floating a => a -> a") - ("toEnum" . "Enum a => Int -> a") - ("toInteger" . "Integral a => a -> Integer") - ("toRational" . "Real a => a -> Rational") - ("truncate" . "(RealFrac a, Integral b) => a -> b") - ("uncurry" . "(a -> b -> c) -> ((a, b) -> c)") - ("undefined" . "a") - ("unlines" . "[String] -> String") - ("until" . "(a -> Bool) -> (a -> a) -> a -> a") - ("unwords" . "[String] -> String") - ("unzip" . "[(a,b)] -> ([a],[b])") - ("unzip3" . "[(a,b,c)] -> ([a],[b],[c])") - ("userError" . "String -> IOError") - ("words" . "String -> [String]") - ("writeFile" . "FilePath -> String -> IO ()") - ("zip" . "[a] -> [b] -> [(a,b)]") - ("zip3" . "[a] -> [b] -> [c] -> [(a,b,c)]") - ("zipWith" . "(a->b->c) -> [a]->[b]->[c]") - ("zipWith3" . "(a->b->c->d) -> [a]->[b]->[c]->[d]") - ("||" . "Bool -> Bool -> Bool") - ;; Ratio - ("%" . "(Integral a) => a -> a -> Ratio a") - ("approxRational" . "(RealFrac a) => a -> a -> Rational") - ("denominator" . "(Integral a) => Ratio a -> a") - ("numerator" . "(Integral a) => Ratio a -> a") - ;; Complex - ("cis" . "(RealFloat a) => a -> Complex a") - ("conjugate" . "(RealFloat a) => Complex a -> Complex a") - ("imagPart" . "(RealFloat a) => Complex a -> a") - ("magnitude" . "(RealFloat a) => Complex a -> a") - ("mkPolar" . "(RealFloat a) => a -> a -> Complex a") - ("phase" . "(RealFloat a) => Complex a -> a") - ("polar" . "(RealFloat a) => Complex a -> (a,a)") - ("realPart" . "(RealFloat a) => Complex a -> a") - ;; Numeric - ("floatToDigits" . "(RealFloat a) => Integer -> a -> ([Int], Int)") - ("fromRat" . "(RealFloat a) => Rational -> a") - ("lexDigits" . "ReadS String") - ("readDec" . "(Integral a) => ReadS a") - ("readFloat" . "(RealFrac a) => ReadS a") - ("readHex" . "(Integral a) => ReadS a") - ("readInt" . "(Integral a) => a -> (Char -> Bool) -> (Char -> Int) -> ReadS a") - ("readOct" . "(Integral a) => ReadS a") - ("readSigned" . "(Real a) => ReadS a -> ReadS a") - ("showEFloat" . "(RealFloat a) => Maybe Int -> a -> ShowS") - ("showFFloat" . "(RealFloat a) => Maybe Int -> a -> ShowS") - ("showFloat" . "(RealFloat a) => a -> ShowS") - ("showGFloat" . "(RealFloat a) => Maybe Int -> a -> ShowS") - ("showHex" . "Integral a => a -> ShowS") - ("showInt" . "Integral a => a -> ShowS") - ("showIntAtBase" . "Integral a => a -> (Int -> Char) -> a -> ShowS") - ("showOct" . "Integral a => a -> ShowS") - ("showSigned" . "(Real a) => (a -> ShowS) -> Int -> a -> ShowS") - ;; Ix - ("inRange" . "Ix a => (a,a) -> a -> Bool") - ("index" . "Ix a => (a,a) -> a -> Int") - ("range" . "Ix a => (a,a) -> [a]") - ("rangeSize" . "Ix a => (a,a) -> Int") - ;; Array - ("!" . "(Ix a) => Array a b -> a -> b") - ("//" . "(Ix a) => Array a b -> [(a,b)] -> Array a b") - ("accum" . "(Ix a) => (b -> c -> b) -> Array a b -> [(a,c)]") - ("accumArray" . "(Ix a) => (b -> c -> b) -> b -> (a,a) -> [(a,c)]") - ("array" . "(Ix a) => (a,a) -> [(a,b)] -> Array a b") - ("assocs" . "(Ix a) => Array a b -> [(a,b)]") - ("bounds" . "(Ix a) => Array a b -> (a,a)") - ("elems" . "(Ix a) => Array a b -> [b]") - ("indices" . "(Ix a) => Array a b -> [a]") - ("ixmap" . "(Ix a, Ix b) => (a,a) -> (a -> b) -> Array b c") - ("listArray" . "(Ix a) => (a,a) -> [b] -> Array a b") - ;; List - ("\\\\" . "Eq a => [a] -> [a] -> [a]") - ("delete" . "Eq a => a -> [a] -> [a]") - ("deleteBy" . "(a -> a -> Bool) -> a -> [a] -> [a]") - ("deleteFirstsBy" . "(a -> a -> Bool) -> [a] -> [a] -> [a]") - ("elemIndex" . "Eq a => a -> [a] -> Maybe Int") - ("elemIndices" . "Eq a => a -> [a] -> [Int]") - ("find" . "(a -> Bool) -> [a] -> Maybe a") - ("findIndex" . "(a -> Bool) -> [a] -> Maybe Int") - ("findIndices" . "(a -> Bool) -> [a] -> [Int]") - ("genericDrop" . "Integral a => a -> [b] -> [b]") - ("genericIndex" . "Integral a => [b] -> a -> b") - ("genericLength" . "Integral a => [b] -> a") - ("genericReplicate" . "Integral a => a -> b -> [b]") - ("genericSplitAt" . "Integral a => a -> [b] -> ([b],[b])") - ("genericTake" . "Integral a => a -> [b] -> [b]") - ("group" . "Eq a => [a] -> [[a]]") - ("groupBy" . "(a -> a -> Bool) -> [a] -> [[a]]") - ("inits" . "[a] -> [[a]]") - ("insert" . "Ord a => a -> [a] -> [a]") - ("insertBy" . "(a -> a -> Ordering) -> a -> [a] -> [a]") - ("intersect" . "Eq a => [a] -> [a] -> [a]") - ("intersectBy" . "(a -> a -> Bool) -> [a] -> [a] -> [a]") - ("intersperse" . "a -> [a] -> [a]") - ("isPrefixOf" . "Eq a => [a] -> [a] -> Bool") - ("isSuffixOf" . "Eq a => [a] -> [a] -> Bool") - ("mapAccumL" . "(a -> b -> (a, c)) -> a -> [b] -> (a, [c])") - ("mapAccumR" . "(a -> b -> (a, c)) -> a -> [b] -> (a, [c])") - ("maximumBy" . "(a -> a -> Ordering) -> [a] -> a") - ("minimumBy" . "(a -> a -> Ordering) -> [a] -> a") - ("nub" . "Eq a => [a] -> [a]") - ("nubBy" . "(a -> a -> Bool) -> [a] -> [a]") - ("partition" . "(a -> Bool) -> [a] -> ([a],[a])") - ("sort" . "Ord a => [a] -> [a]") - ("sortBy" . "(a -> a -> Ordering) -> [a] -> [a]") - ("tails" . "[a] -> [[a]]") - ("transpose" . "[[a]] -> [[a]]") - ("unfoldr" . "(b -> Maybe (a,b)) -> b -> [a]") - ("union" . "Eq a => [a] -> [a] -> [a]") - ("unionBy" . "(a -> a -> Bool) -> [a] -> [a] -> [a]") - ("unzip4" . "[(a,b,c,d)] -> ([a],[b],[c],[d])") - ("unzip5" . "[(a,b,c,d,e)] -> ([a],[b],[c],[d],[e])") - ("unzip6" . "[(a,b,c,d,e,f)] -> ([a],[b],[c],[d],[e],[f])") - ("unzip7" . "[(a,b,c,d,e,f,g)] -> ([a],[b],[c],[d],[e],[f],[g])") - ("zip4" . "[a] -> [b] -> [c] -> [d] -> [(a,b,c,d)]") - ("zip5" . "[a] -> [b] -> [c] -> [d] -> [e] -> [(a,b,c,d,e)]") - ("zip6" . "[a] -> [b] -> [c] -> [d] -> [e] -> [f]") - ("zip7" . "[a] -> [b] -> [c] -> [d] -> [e] -> [f] -> [g]") - ("zipWith4" . "(a->b->c->d->e) -> [a]->[b]->[c]->[d]->[e]") - ("zipWith5" . "(a->b->c->d->e->f) ->") - ("zipWith6" . "(a->b->c->d->e->f->g) -> [a]->[b]->[c]->[d]->[e]->[f]->[g]") - ("zipWith7" . "(a->b->c->d->e->f->g->h) -> [a]->[b]->[c]->[d]->[e]->[f]->[g]->[h]") - ;; Maybe - ("catMaybes" . "[Maybe a] -> [a]") - ("fromJust" . "Maybe a -> a") - ("fromMaybe" . "a -> Maybe a -> a") - ("isJust" . "Maybe a -> Bool") - ("isNothing" . "Maybe a -> Bool") - ("listToMaybe" . "[a] -> Maybe a") - ("mapMaybe" . "(a -> Maybe b) -> [a] -> [b]") - ("maybeToList" . "Maybe a -> [a]") - ;; Char - ("chr" . "Int -> Char") - ("digitToInt" . "Char -> Int") - ("intToDigit" . "Int -> Char") - ("isAlpha" . "Char -> Bool") - ("isAlphaNum" . "Char -> Bool") - ("isAscii" . "Char -> Bool") - ("isControl" . "Char -> Bool") - ("isDigit" . "Char -> Bool") - ("isHexDigit" . "Char -> Bool") - ("isLatin1" . "Char -> Bool") - ("isLower" . "Char -> Bool") - ("isOctDigit" . "Char -> Bool") - ("isPrint" . "Char -> Bool") - ("isSpace" . "Char -> Bool") - ("isUpper" . "Char -> Bool") - ("lexLitChar" . "ReadS String") - ("ord" . "Char -> Int") - ("readLitChar" . "ReadS Char") - ("showLitChar" . "Char -> ShowS") - ("toLower" . "Char -> Char") - ("toUpper" . "Char -> Char") - ;; Monad - ("ap" . "Monad m => m (a -> b) -> m a -> m b") - ("filterM" . "Monad m => (a -> m Bool) -> [a] -> m [a]") - ("foldM" . "Monad m => (a -> b -> m a) -> a -> [b] -> m a") - ("guard" . "MonadPlus m => Bool -> m ()") - ("join" . "Monad m => m (m a) -> m a") - ("liftM" . "Monad m => (a -> b) -> (m a -> m b)") - ("liftM2" . "Monad m => (a -> b -> c) -> (m a -> m b -> m c)") - ("liftM3" . "Monad m => (a -> b -> c -> d) -> (m a -> m b -> m c -> m d)") - ("liftM4" . "Monad m => (a -> b -> c -> d -> e) -> (m a -> m b -> m c -> m d -> m e)") - ("liftM5" . "Monad m => (a -> b -> c -> d -> e -> f) -> (m a -> m b -> m c -> m d -> m e -> m f)") - ("mapAndUnzipM" . "Monad m => (a -> m (b,c)) -> [a] -> m ([b], [c])") - ("mplus" . "MonadPlus m => m a -> m a -> m a") - ("msum" . "MonadPlus m => [m a] -> m a") - ("mzero" . "MonadPlus m => m a") - ("unless" . "Monad m => Bool -> m () -> m ()") - ("when" . "Monad m => Bool -> m () -> m ()") - ("zipWithM" . "Monad m => (a -> b -> m c) -> [a] -> [b] -> m [c]") - ("zipWithM_" . "Monad m => (a -> b -> m c) -> [a] -> [b] -> m ()") - ;; IO - ("bracket" . "IO a -> (a -> IO b) -> (a -> IO c) -> IO c") - ("bracket_" . "IO a -> (a -> IO b) -> IO c -> IO c") - ("hClose" . "Handle -> IO ()") - ("hFileSize" . "Handle -> IO Integer") - ("hFlush" . "Handle -> IO ()") - ("hGetBuffering" . "Handle -> IO BufferMode") - ("hGetChar" . "Handle -> IO Char") - ("hGetContents" . "Handle -> IO String") - ("hGetLine" . "Handle -> IO String") - ("hGetPosn" . "Handle -> IO HandlePosn") - ("hIsClosed" . "Handle -> IO Bool") - ("hIsEOF" . "Handle -> IO Bool") - ("hIsOpen" . "Handle -> IO Bool") - ("hIsReadable" . "Handle -> IO Bool") - ("hIsSeekable" . "Handle -> IO Bool") - ("hIsWritable" . "Handle -> IO Bool") - ("hLookAhead" . "Handle -> IO Char") - ("hPrint" . "Show a => Handle -> a -> IO ()") - ("hPutChar" . "Handle -> Char -> IO ()") - ("hPutStr" . "Handle -> String -> IO ()") - ("hPutStrLn" . "Handle -> String -> IO ()") - ("hReady" . "Handle -> IO Bool") - ("hSeek" . "Handle -> SeekMode -> Integer -> IO ()") - ("hSetBuffering" . "Handle -> BufferMode -> IO ()") - ("hSetPosn" . "HandlePosn -> IO ()") - ("hWaitForInput" . "Handle -> Int -> IO Bool") - ("ioeGetErrorString" . "IOError -> String") - ("ioeGetFileName" . "IOError -> Maybe FilePath") - ("ioeGetHandle" . "IOError -> Maybe Handle") - ("isAlreadyExistsError" . "IOError -> Bool") - ("isAlreadyInUseError" . "IOError -> Bool") - ("isDoesNotExistError" . "IOError -> Bool") - ("isEOF" . "IO Bool") - ("isEOFError" . "IOError -> Bool") - ("isFullError" . "IOError -> Bool") - ("isIllegalOperation" . "IOError -> Bool") - ("isPermissionError" . "IOError -> Bool") - ("isUserError" . "IOError -> Bool") - ("openFile" . "FilePath -> IOMode -> IO Handle") - ("stderr" . "Handle") - ("stdin" . "Handle") - ("stdout" . "Handle") - ("try" . "IO a -> IO (Either IOError a)") - ;; Directory - ("createDirectory" . "FilePath -> IO ()") - ("doesDirectoryExist" . "FilePath -> IO Bool") - ("doesFileExist" . "FilePath -> IO Bool") - ("executable" . "Permissions -> Bool") - ("getCurrentDirectory" . "IO FilePath") - ("getDirectoryContents" . "FilePath -> IO [FilePath]") - ("getModificationTime" . "FilePath -> IO ClockTime") - ("getPermissions" . "FilePath -> IO Permissions") - ("readable" . "Permissions -> Bool") - ("removeDirectory" . "FilePath -> IO ()") - ("removeFile" . "FilePath -> IO ()") - ("renameDirectory" . "FilePath -> FilePath -> IO ()") - ("renameFile" . "FilePath -> FilePath -> IO ()") - ("searchable" . "Permissions -> Bool") - ("setCurrentDirectory" . "FilePath -> IO ()") - ("setPermissions" . "FilePath -> Permissions -> IO ()") - ("writable" . "Permissions -> Bool") - ;; System - ("exitFailure" . "IO a") - ("exitWith" . "ExitCode -> IO a") - ("getArgs" . "IO [String]") - ("getEnv" . "String -> IO String") - ("getProgName" . "IO String") - ("system" . "String -> IO ExitCode") - ;; Time - ("addToClockTime" . "TimeDiff -> ClockTime -> ClockTime") - ("calendarTimeToString" . "CalendarTime -> String") - ("ctDay" . "CalendarTime -> Int") - ("ctHour" . "CalendarTime -> Int") - ("ctIsDST" . "CalendarTime -> Bool") - ("ctMin" . "CalendarTime -> Int") - ("ctMonth" . "CalendarTime -> Month") - ("ctPicosec" . "CalendarTime -> Integer") - ("ctSec" . "CalendarTime -> Int") - ("ctTZ" . "CalendarTime -> Int") - ("ctTZName" . "CalendarTime -> String") - ("ctWDay" . "CalendarTime -> Day") - ("ctYDay" . "CalendarTime -> Int") - ("ctYear" . "CalendarTime -> Int") - ("diffClockTimes" . "ClockTime -> ClockTime -> TimeDiff") - ("formatCalendarTime" . "TimeLocale -> String -> CalendarTime -> String") - ("getClockTime" . "IO ClockTime") - ("tdDay" . "TimeDiff -> Int") - ("tdHour" . "TimeDiff -> Int") - ("tdMin" . "TimeDiff -> Int") - ("tdMonth" . "TimeDiff -> Int") - ("tdPicosec" . "TimeDiff -> Integer") - ("tdSec" . "TimeDiff -> Int") - ("tdYear" . "TimeDiff -> Int") - ("toCalendarTime" . "ClockTime -> IO CalendarTime") - ("toClockTime" . "CalendarTime -> ClockTime") - ("toUTCTime" . "ClockTime -> CalendarTime") - ;; Locale - ("amPm" . "TimeLocale -> (String, String)") - ("dateFmt" . "TimeLocale -> String") - ("dateTimeFmt" . "TimeLocale -> String") - ("defaultTimeLocale" . "TimeLocale") - ("months" . "TimeLocale -> [(String, String)]") - ("time12Fmt" . "TimeLocale -> String") - ("timeFmt" . "TimeLocale -> String") - ("wDays" . "TimeLocale -> [(String, String)]") - ;; CPUTime - ("cpuTimePrecision" . "Integer") - ("getCPUTime" . "IO Integer") - ;; Random - ("genRange" . "RandomGen g => g -> (Int, Int)") - ("getStdGen" . "IO StdGen") - ("getStdRandom" . "(StdGen -> (a, StdGen)) -> IO a") - ("mkStdGen" . "Int -> StdGen") - ("newStdGen" . "IO StdGen") - ("next" . "RandomGen g => g -> (Int, g)") - ("random" . "(Random a, RandomGen g) => g -> (a, g)") - ("randomIO" . "Random a => IO a") - ("randomR" . "(Random a, RandomGen g) => (a, a) -> g -> (a, g)") - ("randomRIO" . "Random a => (a,a) -> IO a") - ("randomRs" . "(Random a, RandomGen g) => (a, a) -> g -> [a]") - ("randoms" . "(Random a, RandomGen g) => g -> [a]") - ("setStdGen" . "StdGen -> IO ()") - ("split" . "RandomGen g => g -> (g, g)") - ) - "Alist of prelude functions and their types.") - -;;@cindex haskell-doc-strategy-ids - -(defvar haskell-doc-strategy-ids - (list - '("par" . "Done -> Done -> Done ; [infixr 0]") - '("seq" . "Done -> Done -> Done ; [infixr 1]") - - '("using" . "a -> Strategy a -> a ; [infixl 0]") - '("demanding" . "a -> Done -> a ; [infixl 0]") - '("sparking" . "a -> Done -> a ; [infixl 0]") - - '(">||" . "Done -> Done -> Done ; [infixr 2]") - '(">|" . "Done -> Done -> Done ; [infixr 3]") - '("$||" . "(a -> b) -> Strategy a -> a -> b ; [infixl 6]") - '("$|" . "(a -> b) -> Strategy a -> a -> b ; [infixl 6]") - '(".|" . "(b -> c) -> Strategy b -> (a -> b) -> (a -> c) ; [infixl 9]") - '(".||" . "(b -> c) -> Strategy b -> (a -> b) -> (a -> c) ; [infixl 9]") - '("-|" . "(a -> b) -> Strategy b -> (b -> c) -> (a -> c) ; [infixl 9]") - '("-||" . "(a -> b) -> Strategy b -> (b -> c) -> (a -> c) ; [infixl 9]") - - '("Done" . "type Done = ()") - '("Strategy" . "type Strategy a = a -> Done") - - '("r0" . "Strategy a") - '("rwhnf" . "Eval a => Strategy a") - '("rnf" . "Strategy a") - '("NFData" . "class Eval a => NFData a where rnf :: Strategy a") - '("NFDataIntegral" ."class (NFData a, Integral a) => NFDataIntegral a") - '("NFDataOrd" . "class (NFData a, Ord a) => NFDataOrd a") - - '("markStrat" . "Int -> Strategy a -> Strategy a") - - '("seqPair" . "Strategy a -> Strategy b -> Strategy (a,b)") - '("parPair" . "Strategy a -> Strategy b -> Strategy (a,b)") - '("seqTriple" . "Strategy a -> Strategy b -> Strategy c -> Strategy (a,b,c)") - '("parTriple" . "Strategy a -> Strategy b -> Strategy c -> Strategy (a,b,c)") - - '("parList" . "Strategy a -> Strategy [a]") - '("parListN" . "(Integral b) => b -> Strategy a -> Strategy [a]") - '("parListNth" . "Int -> Strategy a -> Strategy [a]") - '("parListChunk" . "Int -> Strategy a -> Strategy [a]") - '("parMap" . "Strategy b -> (a -> b) -> [a] -> [b]") - '("parFlatMap" . "Strategy [b] -> (a -> [b]) -> [a] -> [b]") - '("parZipWith" . "Strategy c -> (a -> b -> c) -> [a] -> [b] -> [c]") - '("seqList" . "Strategy a -> Strategy [a]") - '("seqListN" . "(Integral a) => a -> Strategy b -> Strategy [b]") - '("seqListNth" . "Int -> Strategy b -> Strategy [b]") - - '("parBuffer" . "Int -> Strategy a -> [a] -> [a]") - - '("seqArr" . "(Ix b) => Strategy a -> Strategy (Array b a)") - '("parArr" . "(Ix b) => Strategy a -> Strategy (Array b a)") - - '("fstPairFstList" . "(NFData a) => Strategy [(a,b)]") - '("force" . "(NFData a) => a -> a ") - '("sforce" . "(NFData a) => a -> b -> b") - ) - "Alist of strategy functions and their types as defined in Strategies.lhs.") - -(defvar haskell-doc-user-defined-ids nil - "Alist of functions and strings defined by the user.") - -;;@node Test membership, , Prelude types, Constants and Variables -;;@subsection Test membership - -;;@cindex haskell-doc-is-of -(defsubst haskell-doc-is-of (fn types) - "Check whether FN is one of the functions in the alist TYPES and return the type." - (assoc fn types) ) - -;;@node Install as minor mode, Menubar Support, Constants and Variables, top -;;@section Install as minor mode - -;; Put this minor mode on the global minor-mode-alist. -(or (assq 'haskell-doc-mode (default-value 'minor-mode-alist)) - (setq-default minor-mode-alist - (append (default-value 'minor-mode-alist) - '((haskell-doc-mode haskell-doc-minor-mode-string))))) - - -;;@node Menubar Support, Haskell Doc Mode, Install as minor mode, top -;;@section Menubar Support - -;; get imenu -(require 'imenu) - -;; a dummy definition needed for xemacs (I know, it's horrible :-( - -;;@cindex haskell-doc-install-keymap - -(defvar haskell-doc-keymap - (let ((map (make-sparse-keymap))) - (define-key map [visit] - '("Visit FTP home site" . haskell-doc-visit-home)) - (define-key map [submit] - '("Submit bug report" . haskell-doc-submit-bug-report)) - (define-key map [dummy] '("---" . nil)) - (define-key map [make-index] - '("Make global fct index" . haskell-doc-make-global-fct-index)) - (define-key map [global-types-on] - '("Toggle display of global types" . haskell-doc-show-global-types)) - (define-key map [strategy-on] - '("Toggle display of strategy ids" . haskell-doc-show-strategy)) - (define-key map [user-defined-on] - '("Toggle display of user defined ids" . haskell-doc-show-user-defined)) - (define-key map [prelude-on] - '("Toggle display of prelude functions" . haskell-doc-show-prelude)) - (define-key map [reserved-ids-on] - '("Toggle display of reserved ids" . haskell-doc-show-reserved)) - (define-key map [haskell-doc-on] - '("Toggle haskell-doc mode" . haskell-doc-mode)) - map)) - -(defun haskell-doc-install-keymap () - "Install a menu for `haskell-doc-mode' as a submenu of \"Hugs\"." - (interactive) - ;; Add the menu to the hugs menu as last entry. - (let ((hugsmap (lookup-key (current-local-map) [menu-bar Hugs]))) - (if (not (or (featurep 'xemacs) ; XEmacs has problems here - (not (keymapp hugsmap)) - (lookup-key hugsmap [haskell-doc]))) - (if (functionp 'define-key-after) - (define-key-after hugsmap [haskell-doc] - (cons "Haskell-doc" haskell-doc-keymap) - [Haskell-doc mode])))) - ;; Add shortcuts for these commands. - (local-set-key "\C-c\e/" 'haskell-doc-check-active) - ;; Conflicts with the binding of haskell-insert-otherwise. - ;; (local-set-key "\C-c\C-o" 'haskell-doc-mode) - (local-set-key [(control shift meta mouse-3)] - 'haskell-doc-ask-mouse-for-type)) - - -;;@node Haskell Doc Mode, Switch it on or off, Menubar Support, top -;;@section Haskell Doc Mode - -;;@cindex haskell-doc-mode - -(defvar haskell-doc-timer nil) -(defvar haskell-doc-buffers nil) - -;;;###autoload -(defun haskell-doc-mode (&optional arg) - "Enter `haskell-doc-mode' for showing fct types in the echo area. -See variable docstring." - (interactive (list (or current-prefix-arg 'toggle))) - - (setq haskell-doc-mode - (cond - ((eq arg 'toggle) (not haskell-doc-mode)) - (arg (> (prefix-numeric-value arg) 0)) - (t))) - - ;; First, unconditionally turn the mode OFF. - - (setq haskell-doc-buffers (delq (current-buffer) haskell-doc-buffers)) - ;; Refresh the buffers list. - (dolist (buf haskell-doc-buffers) - (unless (and (buffer-live-p buf) - (with-current-buffer buf haskell-doc-mode)) - (setq haskell-doc-buffers (delq buf haskell-doc-buffers)))) - ;; Turn off the idle timer (or idle post-command-hook). - (when (and haskell-doc-timer (null haskell-doc-buffers)) - (cancel-timer haskell-doc-timer) - (setq haskell-doc-timer nil)) - (remove-hook 'post-command-hook - 'haskell-doc-mode-print-current-symbol-info 'local) - - (when haskell-doc-mode - ;; Turning the mode ON. - (push (current-buffer) haskell-doc-buffers) - - (if (fboundp 'run-with-idle-timer) - (unless haskell-doc-timer - (setq haskell-doc-timer - (run-with-idle-timer - haskell-doc-idle-delay t - 'haskell-doc-mode-print-current-symbol-info))) - (add-hook 'post-command-hook - 'haskell-doc-mode-print-current-symbol-info nil 'local)) - (and haskell-doc-show-global-types - (haskell-doc-make-global-fct-index)) ; build type index for global fcts - - (haskell-doc-install-keymap) - - (run-hooks 'haskell-doc-mode-hook)) - - (and (interactive-p) - (message "haskell-doc-mode is %s" - (if haskell-doc-mode "enabled" "disabled"))) - haskell-doc-mode) - -(defmacro haskell-doc-toggle-var (id prefix) - ;; toggle variable or set it based on prefix value - `(setq ,id - (if ,prefix - (>= (prefix-numeric-value ,prefix) 0) - (not ,id))) ) - -;;@cindex haskell-doc-show-global-types -(defun haskell-doc-show-global-types (&optional prefix) - "Turn on global types information in `haskell-doc-mode'." - (interactive "P") - (haskell-doc-toggle-var haskell-doc-show-global-types prefix) - (if haskell-doc-show-global-types - (haskell-doc-make-global-fct-index))) - -;;@cindex haskell-doc-show-reserved -(defun haskell-doc-show-reserved (&optional prefix) - "Toggle the automatic display of a doc string for reserved ids." - (interactive "P") - (haskell-doc-toggle-var haskell-doc-show-reserved prefix)) - -;;@cindex haskell-doc-show-prelude -(defun haskell-doc-show-prelude (&optional prefix) - "Toggle the automatic display of a doc string for reserved ids." - (interactive "P") - (haskell-doc-toggle-var haskell-doc-show-prelude prefix)) - -;;@cindex haskell-doc-show-strategy -(defun haskell-doc-show-strategy (&optional prefix) - "Toggle the automatic display of a doc string for strategy ids." - (interactive "P") - (haskell-doc-toggle-var haskell-doc-show-strategy prefix)) - -;;@cindex haskell-doc-show-user-defined -(defun haskell-doc-show-user-defined (&optional prefix) - "Toggle the automatic display of a doc string for user defined ids." - (interactive "P") - (haskell-doc-toggle-var haskell-doc-show-user-defined prefix)) - -;;@node Switch it on or off, Check, Haskell Doc Mode, top -;;@section Switch it on or off - -;;@cindex turn-on-haskell-doc-mode - -;;;###autoload -(defalias 'turn-on-haskell-doc-mode 'haskell-doc-mode) - -;;@cindex turn-off-haskell-doc-mode - -(defun turn-off-haskell-doc-mode () - "Unequivocally turn off `haskell-doc-mode' (which see)." - (haskell-doc-mode 0)) - -;;@node Check, Top level function, Switch it on or off, top -;;@section Check - -;;@cindex haskell-doc-check-active - -(defun haskell-doc-check-active () - "Check whether the print function is hooked in. -Should be the same as the value of `haskell-doc-mode' but alas currently it -is not." - (interactive) - (message "%s" - (if (or (and haskell-doc-mode haskell-doc-timer) - (memq 'haskell-doc-mode-print-current-symbol-info - post-command-hook)) - "haskell-doc is ACTIVE" - (substitute-command-keys - "haskell-doc is not ACTIVE \(Use \\[haskell-doc-mode] to turn it on\)")))) - -;;@node Top level function, Mouse interface, Check, top -;;@section Top level function - -;;@cindex haskell-doc-mode-print-current-symbol-info -;; This is the function hooked into the elisp command engine -(defun haskell-doc-mode-print-current-symbol-info () - "Print the type of the symbol under the cursor. - -This function is run by an idle timer to print the type - automatically if `haskell-doc-mode' is turned on." - (and haskell-doc-mode - (not executing-kbd-macro) - ;; Having this mode operate in the minibuffer makes it impossible to - ;; see what you're doing. - (not (eq (selected-window) (minibuffer-window))) - ;; take a nap, if run straight from post-command-hook. - (if (fboundp 'run-with-idle-timer) t - (sit-for haskell-doc-idle-delay)) - ;; good morning! read the word under the cursor for breakfast - (haskell-doc-show-type))) - ;; ;; ToDo: find surrounding fct - ;; (cond ((eq current-symbol current-fnsym) - ;; (haskell-doc-show-type current-fnsym)) - ;; (t - ;; (or nil ; (haskell-doc-print-var-docstring current-symbol) - ;; (haskell-doc-show-type current-fnsym))))))) - -(defun haskell-doc-current-info () - "Return the info about symbol at point. -Meant for `eldoc-documentation-function'." - (haskell-doc-sym-doc (haskell-ident-at-point))) - - -;;@node Mouse interface, Print fctsym, Top level function, top -;;@section Mouse interface for interactive query - -;;@cindex haskell-doc-ask-mouse-for-type -(defun haskell-doc-ask-mouse-for-type (event) - "Read the identifier under the mouse and echo its type. -This uses the same underlying function `haskell-doc-show-type' as the hooked -function. Only the user interface is different." - (interactive "e") - (save-excursion - (select-window (posn-window (event-end event))) - (goto-char (posn-point (event-end event))) - (haskell-doc-show-type))) - - -;;@node Print fctsym, Movement, Mouse interface, top -;;@section Print fctsym - -;;@menu -;;* Show type:: -;;* Aux:: -;;* Global fct type:: -;;* Local fct type:: -;;@end menu - -;;@node Show type, Aux, Print fctsym, Print fctsym -;;@subsection Show type - -;;@cindex haskell-doc-show-type - -(defun haskell-doc-in-code-p () - (not (or (and (eq haskell-literate 'bird) - ;; Copied from haskell-indent-bolp. - (<= (current-column) 2) - (eq (char-after (line-beginning-position)) ?\>)) - (if (fboundp 'syntax-ppss) - (nth 8 (syntax-ppss)))))) - -;;;###autoload -(defun haskell-doc-show-type (&optional sym) - "Show the type of the function near point. -For the function under point, show the type in the echo area. -This information is extracted from the `haskell-doc-prelude-types' alist -of prelude functions and their types, or from the local functions in the -current buffer." - (interactive) - (unless sym (setq sym (haskell-ident-at-point))) - ;; if printed before do not print it again - (unless (string= sym (car haskell-doc-last-data)) - (let ((doc (haskell-doc-sym-doc sym))) - (when (and doc (haskell-doc-in-code-p)) - ;; In emacs 19.29 and later, and XEmacs 19.13 and later, all - ;; messages are recorded in a log. Do not put haskell-doc messages - ;; in that log since they are legion. - (if (eval-when-compile (fboundp 'display-message)) - ;; XEmacs 19.13 way of preventing log messages. - ;;(display-message 'no-log (format )) - ;; XEmacs 19.15 seems to be a bit different. - (display-message 'message (format "%s" doc)) - (let ((message-log-max nil)) - (message "%s" doc))))))) - - -(defun haskell-doc-sym-doc (sym) - "Show the type of the function near point. -For the function under point, show the type in the echo area. -This information is extracted from the `haskell-doc-prelude-types' alist -of prelude functions and their types, or from the local functions in the -current buffer." - (let ((i-am-prelude nil) - (i-am-fct nil) - (type nil) - (is-reserved (haskell-doc-is-of sym haskell-doc-reserved-ids)) - (is-prelude (haskell-doc-is-of sym haskell-doc-prelude-types)) - (is-strategy (haskell-doc-is-of sym haskell-doc-strategy-ids)) - (is-user-defined (haskell-doc-is-of sym haskell-doc-user-defined-ids)) - (is-prelude (haskell-doc-is-of sym haskell-doc-prelude-types))) - (cond - ;; if reserved id (i.e. Haskell keyword - ((and haskell-doc-show-reserved - is-reserved) - (setq type (cdr is-reserved)) - (setcdr haskell-doc-last-data type)) - ;; if built-in function get type from docstring - ((and (not (null haskell-doc-show-prelude)) - is-prelude) - (setq type (cdr is-prelude)) ; (cdr (assoc sym haskell-doc-prelude-types))) - (if (= 2 (length type)) ; horrible hack to remove bad formatting - (setq type (car (cdr type)))) - (setq i-am-prelude t) - (setq i-am-fct t) - (setcdr haskell-doc-last-data type)) - ((and haskell-doc-show-strategy - is-strategy) - (setq i-am-fct t) - (setq type (cdr is-strategy)) - (setcdr haskell-doc-last-data type)) - ((and haskell-doc-show-user-defined - is-user-defined) - ;; (setq i-am-fct t) - (setq type (cdr is-user-defined)) - (setcdr haskell-doc-last-data type)) - (t - (let ( (x (haskell-doc-get-and-format-fct-type sym)) ) - (if (null x) - (setcdr haskell-doc-last-data nil) ; if not found reset last data - (setq type (car x)) - (setq i-am-fct (string= "Variables" (cdr x))) - (if (and haskell-doc-show-global-types (null type)) - (setq type (haskell-doc-get-global-fct-type sym))) - (setcdr haskell-doc-last-data type)))) ) - ;; ToDo: encode i-am-fct info into alist of types - (and type - ;; drop `::' if it's not a fct - (let ( (str (cond ((and i-am-fct (not haskell-doc-chop-off-fctname)) - (format "%s :: %s" sym type)) - (t - (format "%s" type)))) ) - (if i-am-prelude - (add-text-properties 0 (length str) '(face bold) str)) - str)))) - - -;; ToDo: define your own notion of `near' to find surrounding fct -;;(defun haskell-doc-fnsym-in-current-sexp () -;; (let* ((p (point)) -;; (sym (progn -;; (forward-word -1) -;; (while (and (forward-word -1) ; (haskell-doc-forward-sexp-safe -1) -;; (> (point) (point-min)))) -;; (cond ((or (= (point) (point-min)) -;; (memq (or (char-after (point)) 0) -;; '(?\( ?\")) -;; ;; If we hit a quotation mark before a paren, we -;; ;; are inside a specific string, not a list of -;; ;; symbols. -;; (eq (or (char-after (1- (point))) 0) ?\")) -;; nil) -;; (t (condition-case nil -;; (read (current-buffer)) -;; (error nil))))))) -;; (goto-char p) -;; (if sym -;; (format "%s" sym) -;; sym))) - -;; (and (symbolp sym) -;; sym))) - -;;@node Aux, Global fct type, Show type, Print fctsym -;;@subsection Aux - -;; ToDo: handle open brackets to decide if it's a wrapped type - -;;@cindex haskell-doc-grab-line -(defun haskell-doc-grab-line (fct-and-pos) - "Get the type of an \(FCT POSITION\) pair from the current buffer." - ;; (if (null fct-and-pos) - ;; "" ; fn is not a local fct - (let ( (str "")) - (goto-char (cdr fct-and-pos)) - (beginning-of-line) - ;; search for start of type (phsp give better bound?) - (if (null (search-forward "::" (+ (point) haskell-doc-search-distance) t)) - "" - (setq str (haskell-doc-grab)) ; leaves point at end of line - (while (haskell-doc-wrapped-type-p) ; while in a multi-line type expr - (forward-line 1) - (beginning-of-line) - (skip-chars-forward " \t") - (setq str (concat str (haskell-doc-grab)))) - (haskell-doc-string-nub-ws ; squeeze string - (if haskell-doc-chop-off-context ; no context - (haskell-doc-chop-off-context str) - str))))) - ;; (concat (car fct-and-pos) "::" (haskell-doc-string-nub-ws str)))) - -;;@cindex haskell-doc-wrapped-type-p -(defun haskell-doc-wrapped-type-p () - "Check whether the type under the cursor is wrapped over several lines. -The cursor must be at the end of a line, which contains the type. -Currently, only the following is checked: -If this line ends with a `->' or the next starts with an `->' it is a -multi-line type \(same for `=>'\). -`--' comments are ignored. -ToDo: Check for matching parenthesis!." - (save-excursion - (let ( (here (point)) - (lim (progn (beginning-of-line) (point))) - ;; (foo "") - (res nil) - ) - (goto-char here) - (search-backward "--" lim t) ; skip over `--' comment - (skip-chars-backward " \t") - (if (bolp) ; skip empty lines - (progn - (forward-line 1) - (end-of-line) - (setq res (haskell-doc-wrapped-type-p))) - (forward-char -1) - ;; (setq foo (concat foo (char-to-string (preceding-char)) (char-to-string (following-char)))) - (if (or (and (or (char-equal (preceding-char) ?-) (char-equal (preceding-char) ?=)) - (char-equal (following-char) ?>)) ; (or -!> =!> - (char-equal (following-char) ?,)) ; !,) - (setq res t) - (forward-line) - (let ((here (point))) - (goto-char here) - (skip-chars-forward " \t") - (if (looking-at "--") ; it is a comment line - (progn - (forward-line 1) - (end-of-line) - (setq res (haskell-doc-wrapped-type-p))) - (forward-char 1) - ;; (setq foo (concat foo (char-to-string (preceding-char)) (char-to-string (following-char)))) - ;; (message "|%s|" foo) - (if (and (or (char-equal (preceding-char) ?-) (char-equal (preceding-char) ?=)) - (char-equal (following-char) ?>)) ; -!> or =!> - (setq res t)))))) - res))) - -;;@cindex haskell-doc-grab -(defun haskell-doc-grab () - "Return the text from point to the end of the line, chopping off comments. -Leaves point at end of line." - (let ((str (buffer-substring-no-properties - (point) (progn (end-of-line) (point))))) - (if (string-match "--" str) - (substring str 0 (match-beginning 0)) - str))) - -;;@cindex haskell-doc-string-nub-ws -(defun haskell-doc-string-nub-ws (str) - "Replace all sequences of whitespaces in STR by just one whitespace. -ToDo: Also eliminate leading and trainling whitespace." - (let ((i -1)) - (while (setq i (string-match " [ \t\n]+\\|[\t\n]+" str (1+ i))) - (setq str (replace-match " " t t str))) - str)) - -;; ToDo: make this more efficient!! -;;(defun haskell-doc-string-nub-ws (str) -;; "Replace all sequences of whitespaces in STR by just one whitespace." -;; (let ( (res "") -;; (l (length str)) -;; (i 0) -;; (j 0) -;; (in-ws nil)) -;; (while (< i l) -;; (let* ( (c (string-to-char (substring str i (1+ i)))) -;; (is-ws (eq (char-syntax c) ? )) ) -;; (if (not (and in-ws is-ws)) -;; (setq res (concat res (char-to-string c)))) -;; (setq in-ws is-ws) -;; (setq i (1+ i)))) -;; res)) - -;;@cindex haskell-doc-chop-off-context -(defun haskell-doc-chop-off-context (str) - "Eliminate the contex in a type represented by the string STR." - (let ((i (string-match "=>" str)) ) - (if (null i) - str - (substring str (+ i 2))))) - -;;@cindex haskell-doc-get-imenu-info -(defun haskell-doc-get-imenu-info (obj kind) - "Return a string describing OBJ of KIND \(Variables, Types, Data\)." - (cond ((or (eq major-mode 'haskell-hugs-mode) - ;; GEM: Haskell Mode does not work with Haskell Doc - ;; under XEmacs 20.x - (and (eq major-mode 'haskell-mode) - (not (and (featurep 'xemacs) - (string-match "^20" emacs-version))))) - (let* ((imenu-info-alist (cdr (assoc kind imenu--index-alist))) - ;; (names (mapcar 'car imenu-info-alist)) - (x (assoc obj imenu-info-alist))) - (if x - (haskell-doc-grab-line x) - nil))) - (t - ;; (error "Cannot get local functions in %s mode, sorry" major-mode))) ) - nil))) - -;;@node Global fct type, Local fct type, Aux, Print fctsym -;;@subsection Global fct type - -;; ToDo: -;; - modular way of defining a mapping of module name to file -;; - use a path to search for file (not just current directory) - -;;@cindex haskell-doc-imported-list - -(defun haskell-doc-imported-list () - "Return a list of the imported modules in current buffer." - (interactive "fName of outer `include' file: ") ; (buffer-file-name)) - ;; Don't add current buffer to the imported file list if it is not (yet?) - ;; visiting a file since it leads to errors further down. - (let ((imported-file-list (and buffer-file-name (list buffer-file-name)))) - (widen) - (goto-char (point-min)) - (while (re-search-forward "^\\s-*import\\s-+\\([^ \t\n]+\\)" nil t) - (let ((basename (match-string 1))) - (dolist (ext '(".hs" ".lhs")) - (let ((file (concat basename ext))) - (if (file-exists-p file) - (push file imported-file-list)))))) - (nreverse imported-file-list) - ;;(message imported-file-list) - )) - -;; ToDo: generalise this to "Types" etc (not just "Variables") - -;;@cindex haskell-doc-rescan-files - -(defun haskell-doc-rescan-files (filelist) - "Do an `imenu' rescan on every file in FILELIST and return the fct-list. -This function switches to and potentially loads many buffers." - (save-current-buffer - (mapcar (lambda (f) - (set-buffer (find-file-noselect f)) - (imenu--make-index-alist) - (cons f - (mapcar (lambda (x) - `(,(car x) . ,(haskell-doc-grab-line x))) - (cdr (assoc "Variables" imenu--index-alist))))) - filelist))) - -;;@cindex haskell-doc-make-global-fct-index - -(defun haskell-doc-make-global-fct-index () - "Scan imported files for types of global fcts and update `haskell-doc-index'." - (interactive) - (setq haskell-doc-index - (haskell-doc-rescan-files (haskell-doc-imported-list)))) - -;; ToDo: use a separate munge-type function to format type concisely - -;;@cindex haskell-doc-get-global-fct-type - -(defun haskell-doc-get-global-fct-type (&optional sym) - "Get type for function symbol SYM by examining `haskell-doc-index'." - (interactive) ; "fName of outer `include' file: \nsFct:") - (save-excursion - ;; (switch-to-buffer "*scratch*") - ;; (goto-char (point-max)) - ;; ;; Produces a list of fct-type alists - ;; (if (null sym) - ;; (setq sym (progn (forward-word -1) (read (current-buffer))))) - (or sym - (current-word)) - (let* ( (fn sym) ; (format "%s" sym)) - (fal haskell-doc-index) - (res "") ) - (while (not (null fal)) - (let* ( (l (car fal)) - (f (car l)) - (x (assoc fn (cdr l))) ) - (if (not (null x)) - (let* ( (ty (cdr x)) ; the type as string - (idx (string-match "::" ty)) - (str (if (null idx) - ty - (substring ty (+ idx 2)))) ) - (setq res (format "[%s] %s" f str)))) - (setq fal (cdr fal)))) - res))) ; (message res)) ) - -;;@node Local fct type, , Global fct type, Print fctsym -;;@subsection Local fct type - -;;@cindex haskell-doc-get-and-format-fct-type - -(defun haskell-doc-get-and-format-fct-type (fn) - "Get the type and kind of FN by checking local and global functions." - (save-excursion - (save-match-data - (let ((docstring "") - (doc nil) - ) - ;; is it a local function? - (setq docstring (haskell-doc-get-imenu-info fn "Variables")) - (if (not (null docstring)) - ;; (string-match (format "^%s\\s-+::\\s-+\\(.*\\)$" fn) docstring)) - (setq doc `(,docstring . "Variables"))) ; `(,(match-string 1 docstring) . "Variables") )) - ;; is it a type declaration? - (setq docstring (haskell-doc-get-imenu-info fn "Types")) - (if (not (null docstring)) - ;; (string-match (format "^\\s-*type\\s-+%s.*$" fn) docstring)) - (setq doc `(,docstring . "Types"))) ; `(,(match-string 0 docstring) . "Types")) ) - (if (not (null docstring)) - ;; (string-match (format "^\\s-*data.*%s.*$" fn) docstring)) - (setq doc `(,docstring . "Data"))) ; (setq doc `(,(match-string 0 docstring) . "Data")) ) - ;; return the result - doc )))) - - -;;@appendix - -;;@node Index, Token, Visit home site, top -;;@section Index - -;;@index -;;* haskell-doc-ask-mouse-for-type:: -;;* haskell-doc-check-active:: -;;* haskell-doc-chop-off-context:: -;;* haskell-doc-get-and-format-fct-type:: -;;* haskell-doc-get-global-fct-type:: -;;* haskell-doc-get-imenu-info:: -;;* haskell-doc-grab:: -;;* haskell-doc-grab-line:: -;;* haskell-doc-imported-list:: -;;* haskell-doc-install-keymap:: -;;* haskell-doc-is-of:: -;;* haskell-doc-make-global-fct-index:: -;;* haskell-doc-mode:: -;;* haskell-doc-mode-print-current-symbol-info:: -;;* haskell-doc-prelude-types:: -;;* haskell-doc-rescan-files:: -;;* haskell-doc-reserved-ids:: -;;* haskell-doc-show-global-types:: -;;* haskell-doc-show-prelude:: -;;* haskell-doc-show-reserved:: -;;* haskell-doc-show-strategy:: -;;* haskell-doc-show-type:: -;;* haskell-doc-show-user-defined:: -;;* haskell-doc-strategy-ids:: -;;* haskell-doc-string-nub-ws:: -;;* haskell-doc-submit-bug-report:: -;;* haskell-doc-visit-home:: -;;* haskell-doc-wrapped-type-p:: -;;* turn-off-haskell-doc-mode:: -;;* turn-on-haskell-doc-mode:: -;;@end index - -;;@node Token, , Index, top -;;@section Token - -(provide 'haskell-doc) - -;; arch-tag: 6492eb7e-7048-47ac-a331-da09e1eb6254 -;;; haskell-doc.el ends here diff --git a/.emacs.d.backup/haskell-mode/haskell-font-lock.el b/.emacs.d.backup/haskell-mode/haskell-font-lock.el deleted file mode 100644 index 8f701ce..0000000 --- a/.emacs.d.backup/haskell-mode/haskell-font-lock.el +++ /dev/null @@ -1,633 +0,0 @@ -;;; haskell-font-lock.el --- Font locking module for Haskell Mode - -;; Copyright 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. -;; Copyright 1997-1998 Graeme E Moss, and Tommy Thorn - -;; Authors: 1997-1998 Graeme E Moss and -;; Tommy Thorn -;; 2003 Dave Love -;; Keywords: faces files Haskell - -;; This file is not part of GNU Emacs. - -;; This file 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 3, or (at your option) -;; any later version. - -;; This file 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: - -;; Purpose: -;; -;; To support fontification of standard Haskell keywords, symbols, -;; functions, etc. Supports full Haskell 1.4 as well as LaTeX- and -;; Bird-style literate scripts. -;; -;; Installation: -;; -;; To turn font locking on for all Haskell buffers under the Haskell -;; mode of Moss&Thorn, add this to .emacs: -;; -;; (add-hook 'haskell-mode-hook 'turn-on-haskell-font-lock) -;; -;; Otherwise, call `turn-on-haskell-font-lock'. -;; -;; -;; Customisation: -;; -;; The colours and level of font locking may be customised. See the -;; documentation on `turn-on-haskell-font-lock' for more details. -;; -;; -;; History: -;; -;; If you have any problems or suggestions, after consulting the list -;; below, email gem@cs.york.ac.uk and thorn@irisa.fr quoting the -;; version of the mode you are using, the version of Emacs you are -;; using, and a small example of the problem or suggestion. Note that -;; this module requires a reasonably recent version of Emacs. It -;; requires Emacs 21 to cope with Unicode characters and to do proper -;; syntactic fontification. -;; -;; Version 1.3: -;; From Dave Love: -;; Support for proper behaviour (including with Unicode identifiers) -;; in Emacs 21 only hacked in messily to avoid disturbing the old -;; stuff. Needs integrating more cleanly. Allow literate comment -;; face to be customized. Some support for fontifying definitions. -;; (I'm not convinced the faces should be customizable -- fontlock -;; faces are normally expected to be consistent.) -;; -;; Version 1.2: -;; Added support for LaTeX-style literate scripts. Allow whitespace -;; after backslash to end a line for string continuations. -;; -;; Version 1.1: -;; Use own syntax table. Use backquote (neater). Stop ''' being -;; highlighted as quoted character. Fixed `\"' fontification bug -;; in comments. -;; -;; Version 1.0: -;; Brought over from Haskell mode v1.1. -;; -;; Present Limitations/Future Work (contributions are most welcome!): -;; -;; . Debatable whether `()' `[]' `(->)' `(,)' `(,,)' etc. should be -;; highlighted as constructors or not. Should the `->' in -;; `id :: a -> a' be considered a constructor or a keyword? If so, -;; how do we distinguish this from `\x -> x'? What about the `\'? -;; -;; . XEmacs can support both `--' comments and `{- -}' comments -;; simultaneously. If XEmacs is detected, this should be used. -;; -;; . Support for GreenCard? -;; - -;; All functions/variables start with -;; `(turn-(on/off)-)haskell-font-lock' or `haskell-fl-'. - -;;; Code: - -(eval-when-compile - (require 'haskell-mode) - (require 'cl)) -(require 'font-lock) - -(defcustom haskell-font-lock-symbols nil - "Display \\ and -> and such using symbols in fonts. -This may sound like a neat trick, but be extra careful: it changes the -alignment and can thus lead to nasty surprises w.r.t layout. -If t, try to use whichever font is available. Otherwise you can -set it to a particular font of your preference among `japanese-jisx0208' -and `unicode'." - :group 'haskell - :type '(choice (const nil) - (const t) - (const unicode) - (const japanese-jisx0208))) - -(defconst haskell-font-lock-symbols-alist - (append - ;; Prefer single-width Unicode font for lambda. - (and (fboundp 'decode-char) - (memq haskell-font-lock-symbols '(t unicode)) - (list (cons "\\" (decode-char 'ucs 955)))) - ;; The symbols can come from a JIS0208 font. - (and (fboundp 'make-char) (fboundp 'charsetp) (charsetp 'japanese-jisx0208) - (memq haskell-font-lock-symbols '(t japanese-jisx0208)) - (list (cons "not" (make-char 'japanese-jisx0208 34 76)) - (cons "\\" (make-char 'japanese-jisx0208 38 75)) - (cons "->" (make-char 'japanese-jisx0208 34 42)) - (cons "<-" (make-char 'japanese-jisx0208 34 43)) - (cons "=>" (make-char 'japanese-jisx0208 34 77)) - ;; FIXME: I'd like to either use ∀ or ∃ depending on how the - ;; `forall' keyword is used, but currently the rest of the - ;; code assumes that such ambiguity doesn't happen :-( - (cons "forall" (make-char 'japanese-jisx0208 34 79)))) - ;; Or a unicode font. - (and (fboundp 'decode-char) - (memq haskell-font-lock-symbols '(t unicode)) - (list (cons "not" (decode-char 'ucs 172)) - (cons "->" (decode-char 'ucs 8594)) - (cons "<-" (decode-char 'ucs 8592)) - (cons "=>" (decode-char 'ucs 8658)) - (cons "()" (decode-char 'ucs #X2205)) - (cons "==" (decode-char 'ucs #X2261)) - (cons "/=" (decode-char 'ucs #X2262)) - (cons ">=" (decode-char 'ucs #X2265)) - (cons "<=" (decode-char 'ucs #X2264)) - (cons "!!" (decode-char 'ucs #X203C)) - (cons "&&" (decode-char 'ucs #X2227)) - (cons "||" (decode-char 'ucs #X2228)) - (cons "sqrt" (decode-char 'ucs #X221A)) - (cons "undefined" (decode-char 'ucs #X22A5)) - (cons "pi" (decode-char 'ucs #X3C0)) - (cons "~>" (decode-char 'ucs 8669)) ;; Omega language - ;; (cons "~>" (decode-char 'ucs 8605)) ;; less desirable - (cons "-<" (decode-char 'ucs 8610)) ;; Paterson's arrow syntax - ;; (cons "-<" (decode-char 'ucs 10521)) ;; nicer but uncommon - (cons "::" (decode-char 'ucs 8759)) - (list "." (decode-char 'ucs 8728) ; (decode-char 'ucs 9675) - ;; Need a predicate here to distinguish the . used by - ;; forall . . - 'haskell-font-lock-dot-is-not-composition) - (cons "forall" (decode-char 'ucs 8704))))) - "Alist mapping Haskell symbols to chars. -Each element has the form (STRING . CHAR) or (STRING CHAR PREDICATE). -STRING is the Haskell symbol. -CHAR is the character with which to represent this symbol. -PREDICATE if present is a function of one argument (the start position -of the symbol) which should return non-nil if this mapping should be disabled -at that position.") - -(defun haskell-font-lock-dot-is-not-composition (start) - "Return non-nil if the \".\" at START is not a composition operator. -This is the case if the \".\" is part of a \"forall . \"." - (save-excursion - (goto-char start) - (re-search-backward "\\[^.\"]*\\=" - (line-beginning-position) t))) - -;; Use new vars for the font-lock faces. The indirection allows people to -;; use different faces than in other modes, as before. -(defvar haskell-keyword-face 'font-lock-keyword-face) -(defvar haskell-constructor-face 'font-lock-type-face) -;; This used to be `font-lock-variable-name-face' but it doesn't result in -;; a highlighting that's consistent with other modes (it's mostly used -;; for function defintions). -(defvar haskell-definition-face 'font-lock-function-name-face) -;; This is probably just wrong, but it used to use -;; `font-lock-function-name-face' with a result that was not consistent with -;; other major modes, so I just exchanged with `haskell-definition-face'. -(defvar haskell-operator-face 'font-lock-variable-name-face) -(defvar haskell-default-face nil) -(defvar haskell-literate-comment-face 'font-lock-doc-face - "Face with which to fontify literate comments. -Set to `default' to avoid fontification of them.") - -(defconst haskell-emacs21-features (string-match "[[:alpha:]]" "x") - "Non-nil if we have regexp char classes. -Assume this means we have other useful features from Emacs 21.") - -(defun haskell-font-lock-compose-symbol (alist) - "Compose a sequence of ascii chars into a symbol. -Regexp match data 0 points to the chars." - ;; Check that the chars should really be composed into a symbol. - (let* ((start (match-beginning 0)) - (end (match-end 0)) - (syntaxes (cond - ((eq (char-syntax (char-after start)) ?w) '(?w)) - ;; Special case for the . used for qualified names. - ((and (eq (char-after start) ?\.) (= end (1+ start))) - '(?_ ?\\ ?w)) - (t '(?_ ?\\)))) - sym-data) - (if (or (memq (char-syntax (or (char-before start) ?\ )) syntaxes) - (memq (char-syntax (or (char-after end) ?\ )) syntaxes) - (memq (get-text-property start 'face) - '(font-lock-doc-face font-lock-string-face - font-lock-comment-face)) - (and (consp (setq sym-data (cdr (assoc (match-string 0) alist)))) - (let ((pred (cadr sym-data))) - (setq sym-data (car sym-data)) - (funcall pred start)))) - ;; No composition for you. Let's actually remove any composition - ;; we may have added earlier and which is now incorrect. - (remove-text-properties start end '(composition)) - ;; That's a symbol alright, so add the composition. - (compose-region start end sym-data))) - ;; Return nil because we're not adding any face property. - nil) - -(defun haskell-font-lock-symbols-keywords () - (when (fboundp 'compose-region) - (let ((alist nil)) - (dolist (x haskell-font-lock-symbols-alist) - (when (and (if (fboundp 'char-displayable-p) - (char-displayable-p (if (consp (cdr x)) (cadr x) (cdr x))) - t) - (not (assoc (car x) alist))) ;Not yet in alist. - (push x alist))) - (when alist - `((,(regexp-opt (mapcar 'car alist) t) - (0 (haskell-font-lock-compose-symbol ',alist) - ;; In Emacs-21, if the `override' field is nil, the face - ;; expressions is only evaluated if the text has currently - ;; no face. So force evaluation by using `keep'. - keep))))))) - -;; The font lock regular expressions. -(defun haskell-font-lock-keywords-create (literate) - "Create fontification definitions for Haskell scripts. -Returns keywords suitable for `font-lock-keywords'." - (let* (;; Bird-style literate scripts start a line of code with - ;; "^>", otherwise a line of code starts with "^". - (line-prefix (if (eq literate 'bird) "^> ?" "^")) - - ;; Most names are borrowed from the lexical syntax of the Haskell - ;; report. - ;; Some of these definitions have been superseded by using the - ;; syntax table instead. - - ;; (ASCsymbol "-!#$%&*+./<=>?@\\\\^|~") - ;; Put the minus first to make it work in ranges. - ;; (ISOsymbol "\241-\277\327\367") - (ISOlarge "\300-\326\330-\337") - (ISOsmall "\340-\366\370-\377") - (small - (if haskell-emacs21-features "[:lower:]" (concat "a-z" ISOsmall))) - (large - (if haskell-emacs21-features "[:upper:]" (concat "A-Z" ISOlarge))) - (alnum - (if haskell-emacs21-features "[:alnum:]" (concat small large "0-9"))) - ;; (symbol - ;; (concat ASCsymbol ISOsymbol)) - - ;; We allow _ as the first char to fit GHC - (varid (concat "\\b[" small "_][" alnum "'_]*\\b")) - (conid (concat "\\b[" large "][" alnum "'_]*\\b")) - (modid (concat "\\b" conid "\\(\\." conid "\\)*\\b")) - (qvarid (concat modid "\\." varid)) - (qconid (concat modid "\\." conid)) - (sym - ;; We used to use the below for non-Emacs21, but I think the - ;; regexp based on syntax works for other emacsen as well. -- Stef - ;; (concat "[" symbol ":]+") - ;; Add backslash to the symbol-syntax chars. This seems to - ;; be thrown for some reason by backslash's escape syntax. - "\\(\\s_\\|\\\\\\)+") - - ;; Reserved operations - (reservedsym - (concat "\\S_" - ;; (regexp-opt '(".." "::" "=" "\\" "|" "<-" "->" - ;; "@" "~" "=>") t) - "\\(->\\|\\.\\.\\|::\\|<-\\|=>\\|[=@\\|~]\\)" - "\\S_")) - ;; Reserved identifiers - (reservedid - (concat "\\<" - ;; `as', `hiding', and `qualified' are part of the import - ;; spec syntax, but they are not reserved. - ;; `_' can go in here since it has temporary word syntax. - ;; (regexp-opt - ;; '("case" "class" "data" "default" "deriving" "do" - ;; "else" "if" "import" "in" "infix" "infixl" - ;; "infixr" "instance" "let" "module" "newtype" "of" - ;; "then" "type" "where" "_") t) - "\\(_\\|c\\(ase\\|lass\\)\\|d\\(ata\\|e\\(fault\\|riving\\)\\|o\\)\\|else\\|i\\(mport\\|n\\(fix[lr]?\\|stance\\)\\|[fn]\\)\\|let\\|module\\|newtype\\|of\\|t\\(hen\\|ype\\)\\|where\\)" - "\\>")) - - ;; This unreadable regexp matches strings and character - ;; constants. We need to do this with one regexp to handle - ;; stuff like '"':"'". The regexp is the composition of - ;; "([^"\\]|\\.)*" for strings and '([^\\]|\\.[^']*)' for - ;; characters, allowing for string continuations. - ;; Could probably be improved... - (string-and-char - (concat "\\(\\(\"\\|" line-prefix "[ \t]*\\\\\\)\\([^\"\\\\\n]\\|\\\\.\\)*\\(\"\\|\\\\[ \t]*$\\)\\|'\\([^'\\\\\n]\\|\\\\.[^'\n]*\\)'\\)")) - - ;; Top-level declarations - (topdecl-var - (concat line-prefix "\\(" varid "\\)\\s-*\\(" - ;; A toplevel declaration can be followed by a definition - ;; (=), a type (::), a guard, or a pattern which can - ;; either be a variable, a constructor, a parenthesized - ;; thingy, or an integer or a string. - varid "\\|" conid "\\|::\\|=\\||\\|\\s(\\|[0-9\"']\\)")) - (topdecl-var2 - (concat line-prefix "\\(" varid "\\|" conid "\\)\\s-*`\\(" varid "\\)`")) - (topdecl-sym - (concat line-prefix "\\(" varid "\\|" conid "\\)\\s-*\\(" sym "\\)")) - (topdecl-sym2 (concat line-prefix "(\\(" sym "\\))")) - - keywords) - - (setq keywords - `(;; NOTICE the ordering below is significant - ;; - ("^#.*$" 0 'font-lock-warning-face t) - ,@(unless haskell-emacs21-features ;Supports nested comments? - ;; Expensive. - `((,string-and-char 1 font-lock-string-face))) - - ;; This was originally at the very end (and needs to be after - ;; all the comment/string/doc highlighting) but it seemed to - ;; trigger a bug in Emacs-21.3 which caused the compositions to - ;; be "randomly" dropped. Moving it earlier seemed to reduce - ;; the occurrence of the bug. - ,@(haskell-font-lock-symbols-keywords) - - (,reservedid 1 (symbol-value 'haskell-keyword-face)) - (,reservedsym 1 (symbol-value 'haskell-operator-face)) - ;; Special case for `as', `hiding', and `qualified', which are - ;; keywords in import statements but are not otherwise reserved. - ("\\\\)[ \t]*\\)?[^ \t\n()]+[ \t]*\\(?:\\(\\\\)[ \t]*[^ \t\n()]+[ \t]*\\)?\\(\\\\)?" - (1 (symbol-value 'haskell-keyword-face) nil lax) - (2 (symbol-value 'haskell-keyword-face) nil lax) - (3 (symbol-value 'haskell-keyword-face) nil lax)) - - ;; Toplevel Declarations. - ;; Place them *before* generic id-and-op highlighting. - (,topdecl-var (1 (symbol-value 'haskell-definition-face))) - (,topdecl-var2 (2 (symbol-value 'haskell-definition-face))) - (,topdecl-sym (2 (symbol-value 'haskell-definition-face))) - (,topdecl-sym2 (1 (symbol-value 'haskell-definition-face))) - - ;; These four are debatable... - ("(\\(,*\\|->\\))" 0 (symbol-value 'haskell-constructor-face)) - ("\\[\\]" 0 (symbol-value 'haskell-constructor-face)) - ;; Expensive. - (,qvarid 0 (symbol-value 'haskell-default-face)) - (,qconid 0 (symbol-value 'haskell-constructor-face)) - (,(concat "\`" varid "\`") 0 (symbol-value 'haskell-operator-face)) - ;; Expensive. - (,conid 0 (symbol-value 'haskell-constructor-face)) - - ;; Very expensive. - (,sym 0 (if (eq (char-after (match-beginning 0)) ?:) - haskell-constructor-face - haskell-operator-face)))) - (unless (boundp 'font-lock-syntactic-keywords) - (case literate - (bird - (setq keywords - `(("^[^>\n].*$" 0 haskell-comment-face t) - ,@keywords - ("^>" 0 haskell-default-face t)))) - ((latex tex) - (setq keywords - `((haskell-fl-latex-comments 0 'font-lock-comment-face t) - ,@keywords))))) - keywords)) - -;; The next three aren't used in Emacs 21. - -(defvar haskell-fl-latex-cache-pos nil - "Position of cache point used by `haskell-fl-latex-cache-in-comment'. -Should be at the start of a line.") - -(defvar haskell-fl-latex-cache-in-comment nil - "If `haskell-fl-latex-cache-pos' is outside a -\\begin{code}..\\end{code} block (and therefore inside a comment), -this variable is set to t, otherwise nil.") - -(defun haskell-fl-latex-comments (end) - "Sets `match-data' according to the region of the buffer before end -that should be commented under LaTeX-style literate scripts." - (let ((start (point))) - (if (= start end) - ;; We're at the end. No more to fontify. - nil - (if (not (eq start haskell-fl-latex-cache-pos)) - ;; If the start position is not cached, calculate the state - ;; of the start. - (progn - (setq haskell-fl-latex-cache-pos start) - ;; If the previous \begin{code} or \end{code} is a - ;; \begin{code}, then start is not in a comment, otherwise - ;; it is in a comment. - (setq haskell-fl-latex-cache-in-comment - (if (and - (re-search-backward - "^\\(\\(\\\\begin{code}\\)\\|\\(\\\\end{code}\\)\\)$" - (point-min) t) - (match-end 2)) - nil t)) - ;; Restore position. - (goto-char start))) - (if haskell-fl-latex-cache-in-comment - (progn - ;; If start is inside a comment, search for next \begin{code}. - (re-search-forward "^\\\\begin{code}$" end 'move) - ;; Mark start to end of \begin{code} (if present, till end - ;; otherwise), as a comment. - (set-match-data (list start (point))) - ;; Return point, as a normal regexp would. - (point)) - ;; If start is inside a code block, search for next \end{code}. - (if (re-search-forward "^\\\\end{code}$" end t) - ;; If one found, mark it as a comment, otherwise finish. - (point)))))) - -(defconst haskell-basic-syntactic-keywords - '(;; Character constants (since apostrophe can't have string syntax). - ;; Beware: do not match something like 's-}' or '\n"+' since the first ' - ;; might be inside a comment or a string. - ;; This still gets fooled with "'"'"'"'"'"', but ... oh well. - ("\\Sw\\('\\)\\([^\\'\n]\\|\\\\.[^\\'\n \"}]*\\)\\('\\)" (1 "|") (3 "|")) - ;; The \ is not escaping in \(x,y) -> x + y. - ("\\(\\\\\\)(" (1 ".")) - ;; The second \ in a gap does not quote the subsequent char. - ;; It's probably not worth the trouble, tho. - ;; ("^[ \t]*\\(\\\\\\)" (1 ".")) - ;; Deal with instances of `--' which don't form a comment. - ("\\s_\\{3,\\}" (0 (if (string-match "\\`-*\\'" (match-string 0)) - ;; Sequence of hyphens. Do nothing in - ;; case of things like `{---'. - nil - "_"))))) ; other symbol sequence - -(defconst haskell-bird-syntactic-keywords - (cons '("^[^\n>]" (0 "<")) - haskell-basic-syntactic-keywords)) - -(defconst haskell-latex-syntactic-keywords - (append - '(("^\\\\begin{code}\\(\n\\)" 1 "!") - ;; Note: buffer is widened during font-locking. - ("\\`\\(.\\|\n\\)" (1 "!")) ; start comment at buffer start - ("^\\(\\\\\\)end{code}$" 1 "!")) - haskell-basic-syntactic-keywords)) - -(defcustom haskell-font-lock-haddock (boundp 'font-lock-doc-face) - "If non-nil try to highlight Haddock comments specially." - :type 'boolean - :group 'haskell) - -(defvar haskell-font-lock-seen-haddock nil) -(make-variable-buffer-local 'haskell-font-lock-seen-haddock) - -(defun haskell-syntactic-face-function (state) - "`font-lock-syntactic-face-function' for Haskell." - (cond - ((nth 3 state) font-lock-string-face) ; as normal - ;; Else comment. If it's from syntax table, use default face. - ((or (eq 'syntax-table (nth 7 state)) - (and (eq haskell-literate 'bird) - (memq (char-before (nth 8 state)) '(nil ?\n)))) - haskell-literate-comment-face) - ;; Try and recognize Haddock comments. From what I gather from its - ;; documentation, its comments can take the following forms: - ;; a) {-| ... -} - ;; b) {-^ ... -} - ;; c) -- | ... - ;; d) -- ^ ... - ;; e) -- ... - ;; Where `e' is the tricky one: it is only a Haddock comment if it - ;; follows immediately another Haddock comment. Even an empty line - ;; breaks such a sequence of Haddock comments. It is not clear if `e' - ;; can follow any other case, so I interpreted it as following only cases - ;; c,d,e (not a or b). In any case, this `e' is expensive since it - ;; requires extra work for each and every non-Haddock comment, so I only - ;; go through the more expensive check if we've already seen a Haddock - ;; comment in the buffer. - ((and haskell-font-lock-haddock - (save-excursion - (goto-char (nth 8 state)) - (or (looking-at "\\(-- \\|{-\\)[|^]") - (and haskell-font-lock-seen-haddock - (looking-at "-- ") - (let ((doc nil) - pos) - (while (and (not doc) - (setq pos (line-beginning-position)) - (forward-comment -1) - (eq (line-beginning-position 2) pos) - (looking-at "--\\( [|^]\\)?")) - (setq doc (match-beginning 1))) - doc))))) - (set (make-local-variable 'haskell-font-lock-seen-haddock) t) - font-lock-doc-face) - (t font-lock-comment-face))) - -(defconst haskell-font-lock-keywords - (haskell-font-lock-keywords-create nil) - "Font lock definitions for non-literate Haskell.") - -(defconst haskell-font-lock-bird-literate-keywords - (haskell-font-lock-keywords-create 'bird) - "Font lock definitions for Bird-style literate Haskell.") - -(defconst haskell-font-lock-latex-literate-keywords - (haskell-font-lock-keywords-create 'latex) - "Font lock definitions for LaTeX-style literate Haskell.") - -(defun haskell-font-lock-choose-keywords () - (let ((literate (if (boundp 'haskell-literate) haskell-literate))) - (case literate - (bird haskell-font-lock-bird-literate-keywords) - ((latex tex) haskell-font-lock-latex-literate-keywords) - (t haskell-font-lock-keywords)))) - -(defun haskell-font-lock-choose-syntactic-keywords () - (let ((literate (if (boundp 'haskell-literate) haskell-literate))) - (case literate - (bird haskell-bird-syntactic-keywords) - ((latex tex) haskell-latex-syntactic-keywords) - (t haskell-basic-syntactic-keywords)))) - -(defun haskell-font-lock-defaults-create () - "Locally set `font-lock-defaults' for Haskell." - (set (make-local-variable 'font-lock-defaults) - '(haskell-font-lock-choose-keywords - nil nil ((?\' . "w") (?_ . "w")) nil - (font-lock-syntactic-keywords - . haskell-font-lock-choose-syntactic-keywords) - (font-lock-syntactic-face-function - . haskell-syntactic-face-function) - ;; Get help from font-lock-syntactic-keywords. - (parse-sexp-lookup-properties . t)))) - -;; The main functions. -(defun turn-on-haskell-font-lock () - "Turns on font locking in current buffer for Haskell 1.4 scripts. - -Changes the current buffer's `font-lock-defaults', and adds the -following variables: - - `haskell-keyword-face' for reserved keywords and syntax, - `haskell-constructor-face' for data- and type-constructors, class names, - and module names, - `haskell-operator-face' for symbolic and alphanumeric operators, - `haskell-default-face' for ordinary code. - -The variables are initialised to the following font lock default faces: - - `haskell-keyword-face' `font-lock-keyword-face' - `haskell-constructor-face' `font-lock-type-face' - `haskell-operator-face' `font-lock-function-name-face' - `haskell-default-face' - -Two levels of fontification are defined: level one (the default) -and level two (more colour). The former does not colour operators. -Use the variable `font-lock-maximum-decoration' to choose -non-default levels of fontification. For example, adding this to -.emacs: - - (setq font-lock-maximum-decoration '((haskell-mode . 2) (t . 0))) - -uses level two fontification for `haskell-mode' and default level for -all other modes. See documentation on this variable for further -details. - -To alter an attribute of a face, add a hook. For example, to change -the foreground colour of comments to brown, add the following line to -.emacs: - - (add-hook 'haskell-font-lock-hook - (lambda () - (set-face-foreground 'haskell-comment-face \"brown\"))) - -Note that the colours available vary from system to system. To see -what colours are available on your system, call -`list-colors-display' from emacs. - -To turn font locking on for all Haskell buffers, add this to .emacs: - - (add-hook 'haskell-mode-hook 'turn-on-haskell-font-lock) - -To turn font locking on for the current buffer, call -`turn-on-haskell-font-lock'. To turn font locking off in the current -buffer, call `turn-off-haskell-font-lock'. - -Bird-style literate Haskell scripts are supported: If the value of -`haskell-literate-bird-style' (automatically set by the Haskell mode -of Moss&Thorn) is non-nil, a Bird-style literate script is assumed. - -Invokes `haskell-font-lock-hook' if not nil." - (haskell-font-lock-defaults-create) - (run-hooks 'haskell-font-lock-hook) - (turn-on-font-lock)) - -(defun turn-off-haskell-font-lock () - "Turns off font locking in current buffer." - (font-lock-mode -1)) - -;; Provide ourselves: - -(provide 'haskell-font-lock) - -;; arch-tag: 89fd122e-8378-4c7f-83a3-1f49a64e458d -;;; haskell-font-lock.el ends here diff --git a/.emacs.d.backup/haskell-mode/haskell-ghci.el b/.emacs.d.backup/haskell-mode/haskell-ghci.el deleted file mode 100644 index 8e1ea62..0000000 --- a/.emacs.d.backup/haskell-mode/haskell-ghci.el +++ /dev/null @@ -1,332 +0,0 @@ -;;; haskell-ghci.el --- A GHCi interaction mode - -;; Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation, Inc. -;; Copyright (C) 2001 Chris Webb -;; Copyright (C) 1998, 1999 Guy Lapalme - -;; Keywords: inferior mode, GHCi interaction mode, Haskell - -;;; This file is not part of GNU Emacs. - -;; This file 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 3, or (at your option) -;; any later version. - -;; This file 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: - -;; Purpose: -;; -;; To send a Haskell buffer to another buffer running a GHCi -;; interpreter. -;; -;; This mode is derived from version 1.1 of Guy Lapalme's -;; haskell-hugs.el, which can be obtained from: -;; -;; http://www.iro.umontreal.ca/~lapalme/Hugs-interaction.html -;; -;; This in turn was adapted from Chris Van Humbeeck's hugs-mode.el, -;; which can be obtained from: -;; -;; http://www-i2.informatik.rwth-aachen.de/Forschung/FP/Haskell/hugs-mode.el -;; -;; -;; Installation: -;; -;; To use with Moss and Thorn's haskell-mode.el -;; -;; http://www.haskell.org/haskell-mode -;; -;; add this to .emacs: -;; -;; (add-hook 'haskell-mode-hook 'turn-on-haskell-ghci) -;; -;; -;; Customisation: -;; -;; The name of the GHCi interpreter is in haskell-ghci-program-name. -;; -;; Arguments can be sent to the GHCi interpreter when it is started by -;; setting haskell-ghci-program-args (empty by default) to a list of -;; string args to pass it. This value can be set interactively by -;; calling C-c C-s with an argument (i.e. C-u C-c C-s). -;; -;; `haskell-ghci-hook' is invoked in the *ghci* buffer once GHCi is -;; started. -;; -;; All functions/variables start with `turn-{on,off}-haskell-ghci' or -;; `haskell-ghci-'. - -;;; Code: - -(defgroup haskell-ghci nil - "Major mode for interacting with an inferior GHCi session." - :group 'haskell - :prefix "haskell-ghci-") - -(defun turn-on-haskell-ghci () - "Turn on Haskell interaction mode with a GHCi interpreter running in an -another Emacs buffer named *ghci*. -Maps the following commands in the haskell keymap: - \\\\[haskell-ghci-start-process] to create the GHCi buffer and start a GHCi process in it. - \\[haskell-ghci-load-file] to save the current buffer and load it by sending the :load command to GHCi. - \\[haskell-ghci-reload-file] to send the :reload command to GHCi without saving the buffer. - \\[haskell-ghci-show-ghci-buffer] to show the GHCi buffer and go to it." - (local-set-key "\C-c\C-s" 'haskell-ghci-start-process) - (local-set-key "\C-c\C-l" 'haskell-ghci-load-file) - (local-set-key "\C-c\C-r" 'haskell-ghci-reload-file) - (local-set-key "\C-c\C-n" 'haskell-ghci-locate-next-error) - (local-set-key "\C-c\C-b" 'haskell-ghci-show-ghci-buffer)) - -(defun turn-off-haskell-ghci () - "Turn off Haskell interaction mode with a GHCi interpreter within a buffer." - (local-unset-key "\C-c\C-s") - (local-unset-key "\C-c\C-l") - (local-unset-key "\C-c\C-r") - (local-unset-key "\C-c\C-b")) - -(define-derived-mode haskell-ghci-mode comint-mode "Haskell GHCi" - "Major mode for interacting with an inferior GHCi session. - -The commands available from within a Haskell script are: - \\\\[haskell-ghci-start-process] to create the GHCi buffer and start a GHCi process in it. - \\[haskell-ghci-load-file] to save the current buffer and load it by sending the :load command to GHCi. - \\[haskell-ghci-reload-file] to send the :reload command to GHCi without saving the buffer. - \\[haskell-ghci-show-ghci-buffer] to show the GHCi buffer and go to it. - -\\Commands: -\\[comint-send-input] after end of GHCi output sends line as input to GHCi. -\\[comint-send-input] before end of GHCI output copies rest of line and sends it to GHCI as input. -\\[comint-kill-input] and \\[backward-kill-word] are kill commands, imitating normal Unix input editing. -\\[comint-interrupt-subjob] interrupts the comint or its current subjob if any. -\\[comint-stop-subjob] stops, likewise. \\[comint-quit-subjob] sends quit signal.") - - -;; GHCi interface: - -(require 'comint) -(require 'shell) - -(defvar haskell-ghci-process nil - "The active GHCi subprocess corresponding to current buffer.") - -(defvar haskell-ghci-process-buffer nil - "*Buffer used for communication with GHCi subprocess for current buffer.") - -(defcustom haskell-ghci-program-name "ghci" - "*The name of the GHCi interpreter program." - :type 'string - :group 'haskell-ghci) - -(defcustom haskell-ghci-program-args nil - "*A list of string args to pass when starting the GHCi interpreter." - :type '(repeat string) - :group 'haskell-ghci) - -(defvar haskell-ghci-load-end nil - "Position of the end of the last load command.") - -(defvar haskell-ghci-error-pos nil - "Position of the end of the last load command.") - -(defvar haskell-ghci-send-end nil - "Position of the end of the last send command.") - -(defun haskell-ghci-start-process (arg) - "Start a GHCi process and invoke `haskell-ghci-hook' if not nil. -Prompt for a list of args if called with an argument." - (interactive "P") - (if arg - ;; XXX [CDW] Fix to use more natural 'string' version of the - ;; XXX arguments rather than a sexp. - (setq haskell-ghci-program-args - (read-minibuffer (format "List of args for %s:" - haskell-ghci-program-name) - (prin1-to-string haskell-ghci-program-args)))) - - ;; Start the GHCi process in a new comint buffer. - (message "Starting GHCi process `%s'." haskell-ghci-program-name) - (setq haskell-ghci-process-buffer - (apply 'make-comint - "ghci" haskell-ghci-program-name nil - haskell-ghci-program-args)) - (setq haskell-ghci-process - (get-buffer-process haskell-ghci-process-buffer)) - - ;; Select GHCi buffer temporarily. - (set-buffer haskell-ghci-process-buffer) - (haskell-ghci-mode) - (make-local-variable 'shell-cd-regexp) - (make-local-variable 'shell-dirtrackp) - - ;; Track directory changes using the `:cd' command. - (setq shell-cd-regexp ":cd") - (setq shell-dirtrackp t) - (add-hook 'comint-input-filter-functions 'shell-directory-tracker nil 'local) - - ;; GHCi prompt should be of the form `ModuleName> '. - (setq comint-prompt-regexp "^\\*?[A-Z][\\._a-zA-Z0-9]*\\( \\*?[A-Z][\\._a-zA-Z0-9]*\\)*> ") - - ;; History syntax of comint conflicts with Haskell, e.g. !!, so better - ;; turn it off. - (setq comint-input-autoexpand nil) - (run-hooks 'haskell-ghci-hook) - - ;; Clear message area. - (message "")) - -(defun haskell-ghci-wait-for-output () - "Wait until output arrives and go to the last input." - (while (progn - (goto-char comint-last-input-end) - (not (re-search-forward comint-prompt-regexp nil t))) - (accept-process-output haskell-ghci-process))) - -(defun haskell-ghci-send (&rest string) - "Send `haskell-ghci-process' the arguments (one or more strings). -A newline is sent after the strings and they are inserted into the -current buffer after the last output." - (haskell-ghci-wait-for-output) ; wait for prompt - (goto-char (point-max)) ; position for this input - (apply 'insert string) - (comint-send-input) - (setq haskell-ghci-send-end (marker-position comint-last-input-end))) - -(defun haskell-ghci-go (load-command cd) - "Save the current buffer and load its file into the GHCi process. -The first argument LOAD-COMMAND specifies how the file should be -loaded: as a new file (\":load \") or as a reload (\":reload \"). - -If the second argument CD is non-nil, change directory in the GHCi -process to the current buffer's directory before loading the file. - -If the variable `haskell-ghci-command' is set then its value will be -sent to the GHCi process after the load command. This can be used for a -top-level expression to evaluate." - (hack-local-variables) ; in case they've changed - (save-buffer) - (let ((file (if (string-equal load-command ":load ") - (concat "\"" buffer-file-name "\"") - "")) - (dir (expand-file-name default-directory)) - (cmd (and (boundp 'haskell-ghci-command) - haskell-ghci-command - (if (stringp haskell-ghci-command) - haskell-ghci-command - (symbol-name haskell-ghci-command))))) - (if (and haskell-ghci-process-buffer - (eq (process-status haskell-ghci-process) 'run)) - ;; Ensure the GHCi buffer is selected. - (set-buffer haskell-ghci-process-buffer) - ;; Start Haskell-GHCi process. - (haskell-ghci-start-process nil)) - - (if cd (haskell-ghci-send (concat ":cd " dir))) - ;; Wait until output arrives and go to the last input. - (haskell-ghci-wait-for-output) - (haskell-ghci-send load-command file) - ;; Error message search starts from last load command. - (setq haskell-ghci-load-end (marker-position comint-last-input-end)) - (setq haskell-ghci-error-pos haskell-ghci-load-end) - (if cmd (haskell-ghci-send cmd)) - ;; Wait until output arrives and go to the last input. - (haskell-ghci-wait-for-output))) - -(defun haskell-ghci-load-file (cd) - "Save a ghci buffer file and load its file. -If CD (prefix argument if interactive) is non-nil, change directory in -the GHCi process to the current buffer's directory before loading the -file. If there is an error, set the cursor at the error line otherwise -show the *ghci* buffer." - (interactive "P") - (haskell-ghci-gen-load-file ":load " cd)) - -(defun haskell-ghci-reload-file (cd) - "Save a ghci buffer file and load its file. -If CD (prefix argument if interactive) is non-nil, change the GHCi -process to the current buffer's directory before loading the file. -If there is an error, set the cursor at the error line otherwise show -the *ghci* buffer." - (interactive "P") - (haskell-ghci-gen-load-file ":reload " cd)) - -(defun haskell-ghci-gen-load-file (cmd cd) - "Save a ghci buffer file and load its file or reload depending on CMD. -If CD is non-nil, change the process to the current buffer's directory -before loading the file. If there is an error, set the cursor at the -error line otherwise show the *ghci* buffer." - - ;; Execute (re)load command. - (save-excursion (haskell-ghci-go cmd cd)) - - ;; Show *ghci* buffer. - (pop-to-buffer haskell-ghci-process-buffer) - (goto-char haskell-ghci-load-end) - - ;; Did we finish loading without error? - (if (re-search-forward - "^Ok, modules loaded" nil t) - (progn (goto-char (point-max)) - (recenter 2) - (message "There were no errors.")) - - ;; Something went wrong. If possible, be helpful and pinpoint the - ;; first error in the file whilst leaving the error visible in the - ;; *ghci* buffer. - (goto-char haskell-ghci-load-end) - (haskell-ghci-locate-next-error))) - - -(defun haskell-ghci-locate-next-error () - "Go to the next error shown in the *ghci* buffer." - (interactive) - (if (buffer-live-p haskell-ghci-process-buffer) - (progn (pop-to-buffer haskell-ghci-process-buffer) - (goto-char haskell-ghci-error-pos) - (if (re-search-forward - "^[^\/]*\\([^:\n]+\\):\\([0-9]+\\)" nil t) - (let ((efile (buffer-substring (match-beginning 1) - (match-end 1))) - (eline (string-to-int - (buffer-substring (match-beginning 2) - (match-end 2))))) - - (recenter 2) - (setq haskell-ghci-error-pos (point)) - (message "GHCi error on line %d of %s." - eline (file-name-nondirectory efile)) - (if (file-exists-p efile) - (progn (find-file-other-window efile) - (goto-line eline) - (recenter)))) - - ;; We got an error without a file and line number, so put the - ;; point at end of the *ghci* buffer ready to deal with it. - (goto-char (point-max)) - (recenter -2) - (message "No more errors found."))) - (message "No *ghci* buffer found."))) - -(defun haskell-ghci-show-ghci-buffer () - "Go to the *ghci* buffer." - (interactive) - (if (or (not haskell-ghci-process-buffer) - (not (buffer-live-p haskell-ghci-process-buffer))) - (haskell-ghci-start-process nil)) - (pop-to-buffer haskell-ghci-process-buffer)) - -(provide 'haskell-ghci) - -;; arch-tag: f0bade4b-288d-4329-9791-98c1e24167ac -;;; haskell-ghci.el ends here diff --git a/.emacs.d.backup/haskell-mode/haskell-hugs.el b/.emacs.d.backup/haskell-mode/haskell-hugs.el deleted file mode 100644 index 79fe625..0000000 --- a/.emacs.d.backup/haskell-mode/haskell-hugs.el +++ /dev/null @@ -1,316 +0,0 @@ -;;; haskell-hugs.el --- simplistic interaction mode with a - -;; Copyright 2004, 2005, 2006, 2007 Free Software Foundation, Inc. -;; Copyright 1998, 1999 Guy Lapalme - -;; Hugs interpreter for Haskell developped by -;; The University of Nottingham and Yale University, 1994-1997. -;; Web: http://www.haskell.org/hugs. -;; In standard Emacs terminology, this would be called -;; inferior-hugs-mode - -;; Keywords: Hugs inferior mode, Hugs interaction mode -;; URL: http://cvs.haskell.org/cgi-bin/cvsweb.cgi/fptools/CONTRIB/haskell-modes/emacs/haskell-hugs.el?rev=HEAD - -;; This file is not part of GNU Emacs. - -;; This file 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 3, or (at your option) -;; any later version. - -;; This file 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: - -;; Purpose: -;; -;; To send a Haskell buffer to another buffer running a Hugs interpreter -;; The functions are adapted from the Hugs Mode developed by -;; Chris Van Humbeeck -;; which used to be available at: -;; http://www-i2.informatik.rwth-aachen.de/Forschung/FP/Haskell/hugs-mode.el -;; -;; Installation: -;; -;; To use with the Haskell mode of -;; Moss&Thorn -;; add this to .emacs: -;; -;; (add-hook 'haskell-mode-hook 'turn-on-haskell-hugs) -;; -;; Customisation: -;; The name of the hugs interpreter is in variable -;; haskell-hugs-program-name -;; Arguments can be sent to the Hugs interpreter when it is called -;; by setting the value of the variable -;; haskell-hugs-program-args -;; which by default contains '("+.") so that the progress of the -;; interpreter is visible without any "^H" in the *hugs* Emacs buffer. -;; -;; This value can be interactively by calling C-cC-s with an -;; argument. -;; -;; If the command does not seem to respond, see the -;; content of the `comint-prompt-regexp' variable -;; to check that it waits for the appropriate Hugs prompt -;; the current value is appropriate for Hugs 1.3 and 1.4 -;; -;; -;; `haskell-hugs-hook' is invoked in the *hugs* once it is started. -;; -;;; All functions/variables start with -;;; `(turn-(on/off)-)haskell-hugs' or `haskell-hugs-'. - -(defgroup haskell-hugs nil - "Major mode for interacting with an inferior Hugs session." - :group 'haskell - :prefix "haskell-hugs-") - -(defun turn-on-haskell-hugs () - "Turn on Haskell interaction mode with a Hugs interpreter running in an -another Emacs buffer named *hugs*. -Maps the followind commands in the haskell keymap. - \\[haskell-hugs-load-file] - to save the current buffer and load it by sending the :load command - to Hugs. - \\[haskell-hugs-reload-file] - to send the :reload command to Hugs without saving the buffer. - \\[haskell-hugs-show-hugs-buffer] - to show the Hugs buffer and go to it." - (local-set-key "\C-c\C-s" 'haskell-hugs-start-process) - (local-set-key "\C-c\C-l" 'haskell-hugs-load-file) - (local-set-key "\C-c\C-r" 'haskell-hugs-reload-file) - (local-set-key "\C-c\C-b" 'haskell-hugs-show-hugs-buffer)) - -(defun turn-off-haskell-hugs () - "Turn off Haskell interaction mode with a Hugs interpreter within a buffer." - (local-unset-key "\C-c\C-s") - (local-unset-key "\C-c\C-l") - (local-unset-key "\C-c\C-r") - (local-unset-key "\C-c\C-b")) - -(define-derived-mode haskell-hugs-mode comint-mode "Haskell Hugs" -;; called by haskell-hugs-start-process, -;; itself called by haskell-hugs-load-file -;; only when the file is loaded the first time - "Major mode for interacting with an inferior Hugs session. - -The commands available from within a Haskell script are: - \\\\[haskell-hugs-load-file] - to save the current buffer and load it by sending the :load command - to Hugs. - \\[haskell-hugs-reload-file] - to send the :reload command to Hugs without saving the buffer. - \\[haskell-hugs-show-hugs-buffer] - to show the Hugs buffer and go to it. - -\\ -Commands: -Return at end of buffer sends line as input. -Return not at end copies rest of line to end and sends it. -\\[comint-kill-input] and \\[backward-kill-word] are kill commands, -imitating normal Unix input editing. -\\[comint-interrupt-subjob] interrupts the comint or its current -subjob if any. -\\[comint-stop-subjob] stops, likewise. - \\[comint-quit-subjob] sends quit signal." - ) - -;; Hugs-interface - -(require 'comint) -(require 'shell) - -(defvar haskell-hugs-process nil - "The active Hugs subprocess corresponding to current buffer.") - -(defvar haskell-hugs-process-buffer nil - "*Buffer used for communication with Hugs subprocess for current buffer.") - -(defcustom haskell-hugs-program-name "hugs" - "*The name of the command to start the Hugs interpreter." - :type 'string - :group 'haskell-hugs) - -(defcustom haskell-hugs-program-args '("+.") - "*A list of string args to send to the hugs process." - :type '(repeat string) - :group 'haskell-hugs) - -(defvar haskell-hugs-load-end nil - "Position of the end of the last load command.") - -(defvar haskell-hugs-send-end nil - "Position of the end of the last send command.") - -(defalias 'run-hugs 'haskell-hugs-start-process) - -(defun haskell-hugs-start-process (arg) - "Start a Hugs process and invokes `haskell-hugs-hook' if not nil. -Prompts for a list of args if called with an argument." - (interactive "P") - (message "Starting `hugs-process' %s" haskell-hugs-program-name) - (if arg - (setq haskell-hugs-program-args - (read-minibuffer "List of args for Hugs:" - (prin1-to-string haskell-hugs-program-args)))) - (setq haskell-hugs-process-buffer - (apply 'make-comint - "hugs" haskell-hugs-program-name nil - haskell-hugs-program-args)) - (setq haskell-hugs-process - (get-buffer-process haskell-hugs-process-buffer)) - ;; Select Hugs buffer temporarily - (set-buffer haskell-hugs-process-buffer) - (haskell-hugs-mode) - (make-local-variable 'shell-cd-regexp) - (make-local-variable 'shell-dirtrackp) - (setq shell-cd-regexp ":cd") - (setq shell-dirtrackp t) - (add-hook 'comint-input-filter-functions 'shell-directory-tracker nil 'local) - ; ? or module name in Hugs 1.4 - (setq comint-prompt-regexp "^\? \\|^[A-Z][_a-zA-Z0-9\.]*> ") - ;; comint's history syntax conflicts with Hugs syntax, eg. !! - (setq comint-input-autoexpand nil) - (run-hooks 'haskell-hugs-hook) - (message "") - ) - -(defun haskell-hugs-wait-for-output () - "Wait until output arrives and go to the last input." - (while (progn - (goto-char comint-last-input-end) - (and - (not (re-search-forward comint-prompt-regexp nil t)) - (accept-process-output haskell-hugs-process))))) - -(defun haskell-hugs-send (&rest string) - "Send `haskell-hugs-process' the arguments (one or more strings). -A newline is sent after the strings and they are inserted into the -current buffer after the last output." - ;; Wait until output arrives and go to the last input. - (haskell-hugs-wait-for-output) - ;; Position for this input. - (goto-char (point-max)) - (apply 'insert string) - (comint-send-input) - (setq haskell-hugs-send-end (marker-position comint-last-input-end))) - -(defun haskell-hugs-go (load-command cd) - "Save the current buffer and load its file into the Hugs process. -The first argument LOAD-COMMAND specifies how the file should be -loaded: as a new file (\":load \") or as a reload (\":reload \"). - -If the second argument CD is non-nil, change the Haskell-Hugs process to the -current buffer's directory before loading the file. - -If the variable `haskell-hugs-command' is set then its value will be sent to -the Hugs process after the load command. This can be used for a -top-level expression to evaluate." - (hack-local-variables) ;; In case they've changed - (save-buffer) - (let ((file (if (string-equal load-command ":load ") - (concat "\"" buffer-file-name "\"") - "")) - (dir (expand-file-name default-directory)) - (cmd (and (boundp 'haskell-hugs-command) - haskell-hugs-command - (if (stringp haskell-hugs-command) - haskell-hugs-command - (symbol-name haskell-hugs-command))))) - (if (and haskell-hugs-process-buffer - (eq (process-status haskell-hugs-process) 'run)) - ;; Ensure the Hugs buffer is selected. - (set-buffer haskell-hugs-process-buffer) - ;; Start Haskell-Hugs process. - (haskell-hugs-start-process nil)) - - (if cd (haskell-hugs-send (concat ":cd " dir))) - ;; Wait until output arrives and go to the last input. - (haskell-hugs-wait-for-output) - (haskell-hugs-send load-command file) - ;; Error message search starts from last load command. - (setq haskell-hugs-load-end (marker-position comint-last-input-end)) - (if cmd (haskell-hugs-send cmd)) - ;; Wait until output arrives and go to the last input. - (haskell-hugs-wait-for-output))) - -(defun haskell-hugs-load-file (cd) - "Save a hugs buffer file and load its file. -If CD (prefix argument if interactive) is non-nil, change the Hugs -process to the current buffer's directory before loading the file. -If there is an error, set the cursor at the error line otherwise show -the Hugs buffer." - (interactive "P") - (haskell-hugs-gen-load-file ":load " cd) - ) - -(defun haskell-hugs-reload-file (cd) - "Save a hugs buffer file and load its file. -If CD (prefix argument if interactive) is non-nil, change the Hugs -process to the current buffer's directory before loading the file. -If there is an error, set the cursor at the error line otherwise show -the Hugs buffer." - (interactive "P") - (haskell-hugs-gen-load-file ":reload " cd) - ) - -(defun haskell-hugs-gen-load-file (cmd cd) - "Save a hugs buffer file and load its file or reload depending on CMD. -If CD is non-nil, change the process to the current buffer's directory -before loading the file. If there is an error, set the cursor at the -error line otherwise show the Hugs buffer." - (save-excursion (haskell-hugs-go cmd cd)) - ;; Ensure the Hugs buffer is selected. - (set-buffer haskell-hugs-process-buffer) - ;; Error message search starts from last load command. - (goto-char haskell-hugs-load-end) - (if (re-search-forward - "^ERROR \"\\([^ ]*\\)\"\\( (line \\([0-9]*\\))\\|\\)" nil t) - (let ((efile (buffer-substring (match-beginning 1) - (match-end 1))) - (eline (if (match-beginning 3) - (string-to-int (buffer-substring (match-beginning 3) - (match-end 3))))) - (emesg (buffer-substring (1+ (point)) - (save-excursion (end-of-line) (point))))) - (pop-to-buffer haskell-hugs-process-buffer) ; show *hugs* buffer - (goto-char (point-max)) - (recenter) - (message "Hugs error %s %s" - (file-name-nondirectory efile) emesg) - (if (file-exists-p efile) - (progn (find-file-other-window efile) - (if eline (goto-line eline)) - (recenter))) - ) - (pop-to-buffer haskell-hugs-process-buffer) ; show *hugs* buffer - (goto-char (point-max)) - (message "There were no errors.") - (recenter 2) ; show only the end... - ) - ) - -(defun haskell-hugs-show-hugs-buffer () - "Goes to the Hugs buffer." - (interactive) - (if (or (not haskell-hugs-process-buffer) - (not (buffer-live-p haskell-hugs-process-buffer))) - (haskell-hugs-start-process nil)) - (pop-to-buffer haskell-hugs-process-buffer) - ) - -(provide 'haskell-hugs) - -;; arch-tag: c2a621e9-d743-4361-a459-983fbf1d4589 -;;; haskell-hugs.el ends here diff --git a/.emacs.d.backup/haskell-mode/haskell-indent.el b/.emacs.d.backup/haskell-mode/haskell-indent.el deleted file mode 100644 index 8b03550..0000000 --- a/.emacs.d.backup/haskell-mode/haskell-indent.el +++ /dev/null @@ -1,1581 +0,0 @@ -;;; haskell-indent.el --- "semi-intelligent" indentation module for Haskell Mode - -;; Copyright 2004, 2005, 2007, 2008, 2009 Free Software Foundation, Inc. -;; Copyright 1997-1998 Guy Lapalme - -;; Author: 1997-1998 Guy Lapalme - -;; Keywords: indentation Haskell layout-rule -;; Version: 1.2 -;; URL: http://www.iro.umontreal.ca/~lapalme/layout/index.html - -;;; This file is not part of GNU Emacs. - -;; This file 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 3, or (at your option) -;; any later version. - -;; This file 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: - -;; Purpose: -;; -;; To support automatic indentation of Haskell programs using -;; the layout rule descrived in section 1.5 and appendix B.3 of the -;; the Haskell report. The rationale and the implementation principles -;; are described in an article to appear in Journal of Functional Programming. -;; "Dynamic tabbing for automatic indentation with the layout rule" -;; -;; It supports literate scripts. -;; Haskell indentation is performed -;; within \begin{code}...\end{code} sections of a literate script -;; and in lines beginning with > with Bird style literate script -;; TAB aligns to the left column outside of these sections. -;; -;; Installation: -;; -;; To turn indentation on for all Haskell buffers under the Haskell -;; mode of Moss&Thorn -;; add this to .emacs: -;; -;; (add-hook 'haskell-mode-hook 'turn-on-haskell-indent) -;; -;; Otherwise, call `turn-on-haskell-indent'. -;; -;; -;; Customisation: -;; The "standard" offset for statements is 4 spaces. -;; It can be changed by setting the variable "haskell-indent-offset" to -;; another value -;; -;; The default number of blanks after > in a Bird style literate script -;; is 1; it can be changed by setting the variable -;; "haskell-indent-literate-Bird-default-offset" -;; -;; `haskell-indent-hook' is invoked if not nil. -;; -;; All functions/variables start with -;; `(turn-(on/off)-)haskell-indent' or `haskell-indent-'. - -;; This file can also be used as a hook for the Hugs Mode developed by -;; Chris Van Humbeeck -;; It can be obtained at: -;; http://www-i2.informatik.rwth-aachen.de/Forschung/FP/Haskell/hugs-mode.el -;; -;; For the Hugs mode put the following in your .emacs -;; -;;(setq auto-mode-alist (append auto-mode-alist '(("\\.hs\\'" . hugs-mode)))) -;;(autoload 'hugs-mode "hugs-mode" "Go into hugs mode" t) -;; -;; If only the indentation mode is used then replace the two -;; preceding lines with -;;(setq auto-mode-alist (append auto-mode-alist -;; '(("\\.hs\\'" . turn-on-haskell-indent)))) -;;(autoload 'turn-on-haskell-indent "hindent" "Indentation mode for Haskell" t) -;; -;; For indentation in both cases then add the following to your .emacs -;;(add-hook 'hugs-mode-hook 'turn-on-haskell-indent) -;;(autoload 'haskell-indent-cycle "hindent" "Indentation cycle for Haskell" t) -;; - -;;; Code: - -(eval-when-compile (require 'cl)) ;need defs of push and pop -(defvar haskell-literate) - -(defgroup haskell-indent nil - "Haskell indentation." - :group 'haskell - :prefix "haskell-indent-") - -(defcustom haskell-indent-offset 4 - "Indentation of Haskell statements with respect to containing block." - :type 'integer - :group 'haskell-indent) - -(defcustom haskell-indent-literate-Bird-default-offset 1 - "Default number of blanks after > in a Bird style literate script." - :type 'integer - :group 'haskell-indent) - -(defcustom haskell-indent-rhs-align-column 0 - "Column on which to align right-hand sides (use 0 for ad-hoc alignment)." - :type 'integer - :group 'haskell-indent) - -(defun haskell-indent-point-to-col (apoint) - "Return the column number of APOINT." - (save-excursion - (goto-char apoint) - (current-column))) - -(defconst haskell-indent-start-keywords-re - (concat "\\<" - (regexp-opt '("class" "data" "import" "infix" "infixl" "infixr" - "instance" "module" "newtype" "primitive" "type") t) - "\\>") - "Regexp describing keywords to complete when standing at the first word -of a line.") - - -;; Customizations for different kinds of environments -;; in which dealing with low-level events are different. -(defun haskell-indent-mark-active () - (if (featurep 'xemacs) - (if zmacs-regions - zmacs-region-active-p - t) - mark-active)) - -;; for pushing indentation information - -(defvar haskell-indent-info) ;Used with dynamic scoping. - -(defun haskell-indent-push-col (col &optional name) - "Push indentation information for the column COL. -The info is followed by NAME (if present). -Makes sure that the same indentation info is not pushed twice. -Uses free var `haskell-indent-info'." - (let ((tmp (cons col name))) - (if (member tmp haskell-indent-info) - haskell-indent-info - (push tmp haskell-indent-info)))) - -(defun haskell-indent-push-pos (pos &optional name) - "Pushes indentation information for the column corresponding to POS -followed by NAME (if present)." - (haskell-indent-push-col (haskell-indent-point-to-col pos) name)) - -;; (defvar haskell-indent-tab-align nil -;; "Align all indentations on TAB stops.") - -(defun haskell-indent-column+offset (column offset) - (unless offset (setq offset haskell-indent-offset)) - (setq column (+ column offset)) - ;; (if (and haskell-indent-tab-align (> offset 0)) - ;; (* 8 (/ (+ column 7) 8)) - column) ;; ) - -(defun haskell-indent-push-pos-offset (pos &optional offset) - "Pushes indentation information for the column corresponding to POS -followed by an OFFSET (if present use its value otherwise use -`haskell-indent-offset')." - (haskell-indent-push-col (haskell-indent-column+offset - (haskell-indent-point-to-col pos) - offset))) - -;; redefinition of some Emacs function for dealing with -;; Bird Style literate scripts - -(defun haskell-indent-bolp () - "`bolp' but dealing with Bird-style literate scripts." - (or (bolp) - (and (eq haskell-literate 'bird) - (<= (current-column) (1+ haskell-indent-literate-Bird-default-offset)) - (eq (char-after (line-beginning-position)) ?\>)))) - -(defun haskell-indent-empty-line-p () - "Checks if the current line is empty; deals with Bird style scripts." - (save-excursion - (beginning-of-line) - (if (and (eq haskell-literate 'bird) - (eq (following-char) ?\>)) - (forward-char 1)) - (looking-at "[ \t]*$"))) - -(defun haskell-indent-back-to-indentation () - "`back-to-indentation' function but dealing with Bird-style literate scripts." - (if (and (eq haskell-literate 'bird) - (progn (beginning-of-line) (eq (following-char) ?\>))) - (progn - (forward-char 1) - (skip-chars-forward " \t")) - (back-to-indentation))) - -(defun haskell-indent-current-indentation () - "`current-indentation' function but dealing with Bird-style literate -scripts." - (if (eq haskell-literate 'bird) - (save-excursion - (haskell-indent-back-to-indentation) - (current-column)) - (current-indentation))) - -(defun haskell-indent-backward-to-indentation (n) - "`backward-to-indentation' function but dealing with Bird-style literate -scripts." - (if (eq haskell-literate 'bird) - (progn - (forward-line (- n)) - (haskell-indent-back-to-indentation)) - (backward-to-indentation n))) - -(defun haskell-indent-forward-line (&optional n) - "`forward-line' function but dealing with Bird-style literate scripts." - (prog1 - (forward-line n) - (if (and (eq haskell-literate 'bird) (eq (following-char) ?\>)) - (progn (forward-char 1) ; skip > and initial blanks... - (skip-chars-forward " \t"))))) - -(defun haskell-indent-line-to (n) - "`indent-line-to' function but dealing with Bird-style literate scripts." - (if (eq haskell-literate 'bird) - (progn - (beginning-of-line) - (if (eq (following-char) ?\>) - (delete-char 1)) - (delete-horizontal-space) ; remove any starting TABs so - (indent-line-to n) ; that indent-line only adds spaces - (save-excursion - (beginning-of-line) - (if (> n 0) (delete-char 1)) ; delete the first space before - (insert ?\>))) ; inserting a > - (indent-line-to n))) - -(defun haskell-indent-skip-blanks-and-newlines-forward (end) - "Skips forward blanks, tabs and newlines until END taking -account of Bird style literate scripts." - (skip-chars-forward " \t\n" end) - (if (eq haskell-literate 'bird) - (while (and (bolp) (eq (following-char) ?\>)) - (forward-char 1) ; skip > - (skip-chars-forward " \t\n" end)))) - -(defun haskell-indent-skip-blanks-and-newlines-backward (start) - "Skips backward blanks, tabs and newlines upto START -taking account of Bird style literate scripts." - (skip-chars-backward " \t\n" start) - (if (eq haskell-literate 'bird) - (while (and (eq (current-column) 1) - (eq (preceding-char) ?\>)) - (forward-char -1) ; skip back > - (skip-chars-backward " \t\n" start)))) - -;; specific functions for literate code - -(defun haskell-indent-within-literate-code () - "Checks if point is within a part of literate Haskell code and if so -returns its start otherwise returns NIL: -If it is Bird Style, then returns the position of the > -otherwise returns the ending position \\begin{code}." - (save-excursion - (case haskell-literate - (bird - (beginning-of-line) - (if (or (eq (following-char) ?\>) - (and (bolp) (forward-line -1) (eq (following-char) ?\>))) - (progn - (while (and (zerop (forward-line -1)) - (eq (following-char) ?\>))) - (if (not (eq (following-char) ?\>)) - (forward-line)) - (point)))) - ;; Look for a \begin{code} or \end{code} line. - ((latex tex) - (if (re-search-backward - "^\\(\\\\begin{code}$\\)\\|\\(\\\\end{code}$\\)" nil t) - ;; within a literate code part if it was a \\begin{code}. - (match-end 1))) - (t (error "haskell-indent-within-literate-code: should not happen!"))))) - -(defun haskell-indent-put-region-in-literate (beg end &optional arg) - "Put lines of the region as a piece of literate code. -With C-u prefix arg, remove indication that the region is literate code. -It deals with both Bird style and non Bird-style scripts." - (interactive "r\nP") - (unless haskell-literate - (error "Cannot put a region in literate in a non literate script")) - (if (eq haskell-literate 'bird) - (let ((comment-start "> ") ; Change dynamic bindings for - (comment-start-skip "^> ?") ; comment-region. - (comment-end "") - (comment-end-skip "\n") - (comment-style 'plain)) - (comment-region beg end arg)) - ;; Not Bird style. - (if arg ; Remove the literate indication. - (save-excursion - (goto-char end) ; Remove end. - (if (re-search-backward "^\\\\end{code}[ \t\n]*\\=" - (line-beginning-position -2) t) - (delete-region (point) (line-beginning-position 2))) - (goto-char beg) ; Remove end. - (beginning-of-line) - (if (looking-at "\\\\begin{code}") - (kill-line 1))) - (save-excursion ; Add the literate indication. - (goto-char end) - (unless (bolp) (newline)) - (insert "\\end{code}\n") - (goto-char beg) - (unless (bolp) (newline)) - (insert "\\begin{code}\n"))))) - - ;;; Start of indentation code - -(defcustom haskell-indent-look-past-empty-line t - "If nil, indentation engine will not look past an empty line for layout points." - :type 'boolean) - -(defun haskell-indent-start-of-def () - "Return the position of the start of a definition. -The start of a def is expected to be recognizable by starting in column 0, -unless `haskell-indent-look-past-empty-line' is nil, in which case we -take a coarser approximation and stop at the first empty line." - (save-excursion - (let ((start-code (and haskell-literate - (haskell-indent-within-literate-code))) - (top-col (if (eq haskell-literate 'bird) 2 0)) - (save-point (point))) - ;; determine the starting point of the current piece of code - (setq start-code (if start-code (1+ start-code) (point-min))) - ;; go backward until the first preceding empty line - (haskell-indent-forward-line -1) - (while (and (if haskell-indent-look-past-empty-line - (or (> (haskell-indent-current-indentation) top-col) - (haskell-indent-empty-line-p)) - (and (> (haskell-indent-current-indentation) top-col) - (not (haskell-indent-empty-line-p)))) - (> (point) start-code) - (= 0 (haskell-indent-forward-line -1)))) - ;; go forward after the empty line - (if (haskell-indent-empty-line-p) - (haskell-indent-forward-line 1)) - (setq start-code (point)) - ;; find the first line of code which is not a comment - (forward-comment (point-max)) - (if (> (point) save-point) - start-code - (point))))) - -(defun haskell-indent-open-structure (start end) - "If any structure (list or tuple) is not closed, between START and END, -returns the location of the opening symbol, nil otherwise." - (save-excursion - (nth 1 (parse-partial-sexp start end)))) - -(defun haskell-indent-in-string (start end) - "If a string is not closed , between START and END, returns the -location of the opening symbol, nil otherwise." - (save-excursion - (let ((pps (parse-partial-sexp start end))) - (if (nth 3 pps) (nth 8 pps))))) - -(defun haskell-indent-in-comment (start end) - "Check, starting from START, if END is at or within a comment. -Returns the location of the start of the comment, nil otherwise." - (let (pps) - (assert (<= start end)) - (cond ((= start end) nil) - ((nth 4 (save-excursion (setq pps (parse-partial-sexp start end)))) - (nth 8 pps)) - ;; We also want to say that we are *at* the beginning of a comment. - ((and (not (nth 8 pps)) - (>= (point-max) (+ end 2)) - (nth 4 (save-excursion - (setq pps (parse-partial-sexp end (+ end 2)))))) - (nth 8 pps))))) - -(defvar haskell-indent-off-side-keywords-re - "\\<\\(do\\|let\\|of\\|where\\)\\>[ \t]*") - -(defun haskell-indent-type-at-point () - "Return the type of the line (also puts information in `match-data')." - (cond - ((haskell-indent-empty-line-p) 'empty) - ((haskell-indent-in-comment (point-min) (point)) 'comment) - ((looking-at "\\(\\([a-zA-Z]\\(\\sw\\|'\\)*\\)\\|_\\)[ \t\n]*") 'ident) - ((looking-at "\\(|[^|]\\)[ \t\n]*") 'guard) - ((looking-at "\\(=[^>=]\\|::\\|->\\|<-\\)[ \t\n]*") 'rhs) - (t 'other))) - -(defvar haskell-indent-current-line-first-ident "" - "Global variable that keeps track of the first ident of the line to indent.") - - -(defun haskell-indent-contour-line (start end) - "Generate contour information between START and END points." - (if (< start end) - (save-excursion - (goto-char end) - (haskell-indent-skip-blanks-and-newlines-backward start) - (let ((cur-col (current-column)) ; maximum column number - (fl 0) ; number of lines that forward-line could not advance - contour) - (while (and (> cur-col 0) (= fl 0) (>= (point) start)) - (haskell-indent-back-to-indentation) - (if (< (point) start) (goto-char start)) - (and (not (member (haskell-indent-type-at-point) - '(empty comment))) ; skip empty and comment lines - (< (current-column) cur-col) ; less indented column found - (push (point) contour) ; new contour point found - (setq cur-col (current-column))) - (setq fl (haskell-indent-forward-line -1))) - contour)))) - -(defun haskell-indent-next-symbol (end) - "Puts point to the next following symbol." - (skip-syntax-forward ")" end) - (if (< (point) end) - (progn - (forward-sexp 1) - (haskell-indent-skip-blanks-and-newlines-forward end)))) - -(defun haskell-indent-next-symbol-safe (end) - "Puts point to the next following symbol, or to end if there are no more symbols in the sexp." - (condition-case errlist (haskell-indent-next-symbol end) - (error (goto-char end)))) - -(defun haskell-indent-separate-valdef (start end) - "Returns a list of positions for important parts of a valdef." - (save-excursion - (let (valname valname-string aft-valname - guard aft-guard - rhs-sign aft-rhs-sign - type) - ;; "parse" a valdef separating important parts - (goto-char start) - (setq type (haskell-indent-type-at-point)) - (if (or (memq type '(ident other))) ; possible start of a value def - (progn - (if (eq type 'ident) - (progn - (setq valname (match-beginning 0)) - (setq valname-string (match-string 0)) - (goto-char (match-end 0))) - (skip-chars-forward " \t" end) - (setq valname (point)) ; type = other - (haskell-indent-next-symbol-safe end)) - (while (and (< (point) end) - (setq type (haskell-indent-type-at-point)) - (or (memq type '(ident other)))) - (if (null aft-valname) - (setq aft-valname (point))) - (haskell-indent-next-symbol-safe end)))) - (if (and (< (point) end) (eq type 'guard)) ; start of a guard - (progn - (setq guard (match-beginning 0)) - (goto-char (match-end 0)) - (while (and (< (point) end) - (setq type (haskell-indent-type-at-point)) - (not (eq type 'rhs))) - (if (null aft-guard) - (setq aft-guard (point))) - (haskell-indent-next-symbol-safe end)))) - (if (and (< (point) end) (eq type 'rhs)) ; start of a rhs - (progn - (setq rhs-sign (match-beginning 0)) - (goto-char (match-end 0)) - (if (< (point) end) - (setq aft-rhs-sign (point))))) - (list valname valname-string aft-valname - guard aft-guard rhs-sign aft-rhs-sign)))) - -(defsubst haskell-indent-no-otherwise (guard) - "Check if there is no otherwise at GUARD." - (save-excursion - (goto-char guard) - (not (looking-at "|[ \t]*otherwise\\>")))) - - -(defun haskell-indent-guard (start end end-visible indent-info) - "Finds indentation information for a line starting with a guard." - (save-excursion - (let* ((haskell-indent-info indent-info) - (sep (haskell-indent-separate-valdef start end)) - (valname (nth 0 sep)) - (guard (nth 3 sep)) - (rhs-sign (nth 5 sep))) - ;; push information indentation for the visible part - (if (and guard (< guard end-visible) (haskell-indent-no-otherwise guard)) - (haskell-indent-push-pos guard) - (if rhs-sign - (haskell-indent-push-pos rhs-sign) ; probably within a data definition... - (if valname - (haskell-indent-push-pos-offset valname)))) - haskell-indent-info))) - -(defun haskell-indent-rhs (start end end-visible indent-info) - "Finds indentation information for a line starting with a rhs." - (save-excursion - (let* ((haskell-indent-info indent-info) - (sep (haskell-indent-separate-valdef start end)) - (valname (nth 0 sep)) - (guard (nth 3 sep)) - (rhs-sign (nth 5 sep))) - ;; push information indentation for the visible part - (if (and rhs-sign (< rhs-sign end-visible)) - (haskell-indent-push-pos rhs-sign) - (if (and guard (< guard end-visible)) - (haskell-indent-push-pos-offset guard) - (if valname ; always visible !! - (haskell-indent-push-pos-offset valname)))) - haskell-indent-info))) - -(defconst haskell-indent-decision-table - (let ((or "\\)\\|\\(")) - (concat "\\(" - "1.1.11" or ; 1= vn gd rh arh - "1.1.10" or ; 2= vn gd rh - "1.1100" or ; 3= vn gd agd - "1.1000" or ; 4= vn gd - "1.0011" or ; 5= vn rh arh - "1.0010" or ; 6= vn rh - "110000" or ; 7= vn avn - "100000" or ; 8= vn - "001.11" or ; 9= gd rh arh - "001.10" or ;10= gd rh - "001100" or ;11= gd agd - "001000" or ;12= gd - "000011" or ;13= rh arh - "000010" or ;14= rh - "000000" ;15= - "\\)"))) - -(defun haskell-indent-find-case (test) - "Find the index that matches in the decision table." - (if (string-match haskell-indent-decision-table test) - ;; use the fact that the resulting match-data is a list of the form - ;; (0 6 [2*(n-1) nil] 0 6) where n is the number of the matching regexp - ;; so n= ((length match-data)/2)-1 - (- (/ (length (match-data 'integers)) 2) 1) - (error "haskell-indent-find-case: impossible case: %s" test))) - -(defun haskell-indent-empty (start end end-visible indent-info) - "Finds indentation points for an empty line." - (save-excursion - (let* ((haskell-indent-info indent-info) - (sep (haskell-indent-separate-valdef start end)) - (valname (pop sep)) - (valname-string (pop sep)) - (aft-valname (pop sep)) - (guard (pop sep)) - (aft-guard (pop sep)) - (rhs-sign (pop sep)) - (aft-rhs-sign (pop sep)) - (last-line (= end end-visible)) - (test (string - (if valname ?1 ?0) - (if (and aft-valname (< aft-valname end-visible)) ?1 ?0) - (if (and guard (< guard end-visible)) ?1 ?0) - (if (and aft-guard (< aft-guard end-visible)) ?1 ?0) - (if (and rhs-sign (< rhs-sign end-visible)) ?1 ?0) - (if (and aft-rhs-sign (< aft-rhs-sign end-visible)) ?1 ?0)))) - (if (and valname-string ; special case for start keywords - (string-match haskell-indent-start-keywords-re valname-string)) - (progn - (haskell-indent-push-pos valname) - ;; very special for data keyword - (if (string-match "\\" valname-string) - (if rhs-sign (haskell-indent-push-pos rhs-sign) - (haskell-indent-push-pos-offset valname)) - (haskell-indent-push-pos-offset valname))) - (case ; general case - (haskell-indent-find-case test) - ;; "1.1.11" 1= vn gd rh arh - (1 (haskell-indent-push-pos valname) - (haskell-indent-push-pos valname valname-string) - (if (haskell-indent-no-otherwise guard) (haskell-indent-push-pos guard "| ")) - (haskell-indent-push-pos aft-rhs-sign)) - ;; "1.1.10" 2= vn gd rh - (2 (haskell-indent-push-pos valname) - (haskell-indent-push-pos valname valname-string) - (if last-line - (haskell-indent-push-pos-offset guard) - (if (haskell-indent-no-otherwise guard) (haskell-indent-push-pos guard "| ")))) - ;; "1.1100" 3= vn gd agd - (3 (haskell-indent-push-pos valname) - (haskell-indent-push-pos aft-guard) - (if last-line (haskell-indent-push-pos-offset valname))) - ;; "1.1000" 4= vn gd - (4 (haskell-indent-push-pos valname) - (if last-line (haskell-indent-push-pos-offset guard 2))) - ;; "1.0011" 5= vn rh arh - (5 (haskell-indent-push-pos valname) - (if (or (and aft-valname (= (char-after rhs-sign) ?\=)) - (= (char-after rhs-sign) ?\:)) - (haskell-indent-push-pos valname valname-string)) - (haskell-indent-push-pos aft-rhs-sign)) - ;; "1.0010" 6= vn rh - (6 (haskell-indent-push-pos valname) - (haskell-indent-push-pos valname valname-string) - (if last-line (haskell-indent-push-pos-offset valname))) - ;; "110000" 7= vn avn - (7 (haskell-indent-push-pos valname) - (if last-line - (haskell-indent-push-pos aft-valname) - (haskell-indent-push-pos valname valname-string))) - ;; "100000" 8= vn - (8 (haskell-indent-push-pos valname)) - ;; "001.11" 9= gd rh arh - (9 (if (haskell-indent-no-otherwise guard) (haskell-indent-push-pos guard "| ")) - (haskell-indent-push-pos aft-rhs-sign)) - ;; "001.10" 10= gd rh - (10 (if (haskell-indent-no-otherwise guard) (haskell-indent-push-pos guard "| ")) - (if last-line (haskell-indent-push-pos-offset guard))) - ;; "001100" 11= gd agd - (11 (if (haskell-indent-no-otherwise guard) (haskell-indent-push-pos guard "| ")) - (haskell-indent-push-pos aft-guard)) - ;; "001000" 12= gd - (12 (if (haskell-indent-no-otherwise guard) (haskell-indent-push-pos guard "| ")) - (if last-line (haskell-indent-push-pos-offset guard 2))) - ;; "000011" 13= rh arh - (13 (haskell-indent-push-pos aft-rhs-sign)) - ;; "000010" 14= rh - (14 (if last-line (haskell-indent-push-pos-offset rhs-sign 2 ))) - ;; "000000" 15= - (t (error "haskell-indent-empty: %s impossible case" test )))) - haskell-indent-info))) - -(defun haskell-indent-ident (start end end-visible indent-info) - "Finds indentation points for a line starting with an identifier." - (save-excursion - (let* - ((haskell-indent-info indent-info) - (sep (haskell-indent-separate-valdef start end)) - (valname (pop sep)) - (valname-string (pop sep)) - (aft-valname (pop sep)) - (guard (pop sep)) - (aft-guard (pop sep)) - (rhs-sign (pop sep)) - (aft-rhs-sign (pop sep)) - (last-line (= end end-visible)) - (is-where - (string-match "where[ \t]*" haskell-indent-current-line-first-ident)) - (diff-first ; not a function def with the same name - (not(string= valname-string haskell-indent-current-line-first-ident))) - ;; (is-type-def - ;; (and rhs-sign (eq (char-after rhs-sign) ?\:))) - (test (string - (if valname ?1 ?0) - (if (and aft-valname (< aft-valname end-visible)) ?1 ?0) - (if (and guard (< guard end-visible)) ?1 ?0) - (if (and aft-guard (< aft-guard end-visible)) ?1 ?0) - (if (and rhs-sign (< rhs-sign end-visible)) ?1 ?0) - (if (and aft-rhs-sign (< aft-rhs-sign end-visible)) ?1 ?0)))) - (if (and valname-string ; special case for start keywords - (string-match haskell-indent-start-keywords-re valname-string)) - (progn - (haskell-indent-push-pos valname) - (if (string-match "\\" valname-string) - ;; very special for data keyword - (if aft-rhs-sign (haskell-indent-push-pos aft-rhs-sign) - (haskell-indent-push-pos-offset valname)) - (if (not (string-match - haskell-indent-start-keywords-re - haskell-indent-current-line-first-ident)) - (haskell-indent-push-pos-offset valname)))) - (if (string= haskell-indent-current-line-first-ident "::") - (if valname (haskell-indent-push-pos valname)) - (case ; general case - (haskell-indent-find-case test) - ;; "1.1.11" 1= vn gd rh arh - (1 (if is-where - (haskell-indent-push-pos guard) - (haskell-indent-push-pos valname) - (if diff-first (haskell-indent-push-pos aft-rhs-sign)))) - ;; "1.1.10" 2= vn gd rh - (2 (if is-where - (haskell-indent-push-pos guard) - (haskell-indent-push-pos valname) - (if last-line - (haskell-indent-push-pos-offset guard)))) - ;; "1.1100" 3= vn gd agd - (3 (if is-where - (haskell-indent-push-pos-offset guard) - (haskell-indent-push-pos valname) - (if diff-first - (haskell-indent-push-pos aft-guard)))) - ;; "1.1000" 4= vn gd - (4 (if is-where - (haskell-indent-push-pos guard) - (haskell-indent-push-pos valname) - (if last-line - (haskell-indent-push-pos-offset guard 2)))) - ;; "1.0011" 5= vn rh arh - (5 (if is-where - (haskell-indent-push-pos-offset valname) - (haskell-indent-push-pos valname) - (if diff-first - (haskell-indent-push-pos aft-rhs-sign)))) - ;; "1.0010" 6= vn rh - (6 (if is-where - (haskell-indent-push-pos-offset valname) - (haskell-indent-push-pos valname) - (if last-line - (haskell-indent-push-pos-offset valname)))) - ;; "110000" 7= vn avn - (7 (if is-where - (haskell-indent-push-pos-offset valname) - (haskell-indent-push-pos valname) - (if last-line - (haskell-indent-push-pos aft-valname)))) - ;; "100000" 8= vn - (8 (if is-where - (haskell-indent-push-pos-offset valname) - (haskell-indent-push-pos valname))) - ;; "001.11" 9= gd rh arh - (9 (if is-where - (haskell-indent-push-pos guard) - (haskell-indent-push-pos aft-rhs-sign))) - ;; "001.10" 10= gd rh - (10 (if is-where - (haskell-indent-push-pos guard) - (if last-line - (haskell-indent-push-pos-offset guard)))) - ;; "001100" 11= gd agd - (11 (if is-where - (haskell-indent-push-pos guard) - (if (haskell-indent-no-otherwise guard) - (haskell-indent-push-pos aft-guard)))) - ;; "001000" 12= gd - (12 (if last-line (haskell-indent-push-pos-offset guard 2))) - ;; "000011" 13= rh arh - (13 (haskell-indent-push-pos aft-rhs-sign)) - ;; "000010" 14= rh - (14 (if last-line (haskell-indent-push-pos-offset rhs-sign 2))) - ;; "000000" 15= - (t (error "haskell-indent-ident: %s impossible case" test ))))) - haskell-indent-info))) - -(defun haskell-indent-other (start end end-visible indent-info) - "Finds indentation points for a non-empty line starting with something other -than an identifier, a guard or rhs." - (save-excursion - (let* ((haskell-indent-info indent-info) - (sep (haskell-indent-separate-valdef start end)) - (valname (pop sep)) - (valname-string (pop sep)) - (aft-valname (pop sep)) - (guard (pop sep)) - (aft-guard (pop sep)) - (rhs-sign (pop sep)) - (aft-rhs-sign (pop sep)) - (last-line (= end end-visible)) - (test (string - (if valname ?1 ?0) - (if (and aft-valname (< aft-valname end-visible)) ?1 ?0) - (if (and guard (< guard end-visible)) ?1 ?0) - (if (and aft-guard (< aft-guard end-visible)) ?1 ?0) - (if (and rhs-sign (< rhs-sign end-visible)) ?1 ?0) - (if (and aft-rhs-sign (< aft-rhs-sign end-visible)) ?1 ?0)))) - (if (and valname-string ; special case for start keywords - (string-match haskell-indent-start-keywords-re valname-string)) - (haskell-indent-push-pos-offset valname) - (case ; general case - (haskell-indent-find-case test) - ;; "1.1.11" 1= vn gd rh arh - (1 (haskell-indent-push-pos aft-rhs-sign)) - ;; "1.1.10" 2= vn gd rh - (2 (if last-line - (haskell-indent-push-pos-offset guard) - (haskell-indent-push-pos-offset rhs-sign 2))) - ;; "1.1100" 3= vn gd agd - (3 (haskell-indent-push-pos aft-guard)) - ;; "1.1000" 4= vn gd - (4 (haskell-indent-push-pos-offset guard 2)) - ;; "1.0011" 5= vn rh arh - (5 (haskell-indent-push-pos valname) - (haskell-indent-push-pos aft-rhs-sign)) - ;; "1.0010" 6= vn rh - (6 (if last-line - (haskell-indent-push-pos-offset valname) - (haskell-indent-push-pos-offset rhs-sign 2))) - ;; "110000" 7= vn avn - (7 (haskell-indent-push-pos-offset aft-valname)) - ;; "100000" 8= vn - (8 (haskell-indent-push-pos valname)) - ;; "001.11" 9= gd rh arh - (9 (haskell-indent-push-pos aft-rhs-sign)) - ;; "001.10" 10= gd rh - (10 (if last-line - (haskell-indent-push-pos-offset guard) - (haskell-indent-push-pos-offset rhs-sign 2))) - ;; "001100" 11= gd agd - (11 (if (haskell-indent-no-otherwise guard) - (haskell-indent-push-pos aft-guard))) - ;; "001000" 12= gd - (12 (if last-line (haskell-indent-push-pos-offset guard 2))) - ;; "000011" 13= rh arh - (13 (haskell-indent-push-pos aft-rhs-sign)) - ;; "000010" 14= rh - (14 (if last-line (haskell-indent-push-pos-offset rhs-sign 2))) - ;; "000000" 15= - (t (error "haskell-indent-other: %s impossible case" test )))) - haskell-indent-info))) - -(defun haskell-indent-valdef-indentation (start end end-visible curr-line-type - indent-info) - "Find indentation information for a value definition." - (let ((haskell-indent-info indent-info)) - (if (< start end-visible) - (case curr-line-type - (empty (haskell-indent-empty start end end-visible indent-info)) - (ident (haskell-indent-ident start end end-visible indent-info)) - (guard (haskell-indent-guard start end end-visible indent-info)) - (rhs (haskell-indent-rhs start end end-visible indent-info)) - (comment (error "Comment indent should never happen")) - (other (haskell-indent-other start end end-visible indent-info))) - haskell-indent-info))) - -(defun haskell-indent-line-indentation (line-start line-end end-visible - curr-line-type indent-info) - "Compute indentation info between LINE-START and END-VISIBLE. -Separate a line of program into valdefs between offside keywords -and find indentation info for each part." - (save-excursion - ;; point is (already) at line-start - (assert (eq (point) line-start)) - (let ((haskell-indent-info indent-info) - (start (or (haskell-indent-in-comment line-start line-end) - (haskell-indent-in-string line-start line-end)))) - (if start ; if comment at the end - (setq line-end start)) ; end line before it - ;; loop on all parts separated by off-side-keywords - (while (and (re-search-forward haskell-indent-off-side-keywords-re - line-end t) - (not (or (haskell-indent-in-comment line-start (point)) - (haskell-indent-in-string line-start (point))))) - (let ((beg-match (match-beginning 0)) ; save beginning of match - (end-match (match-end 0))) ; save end of match - ;; Do not try to find indentation points if off-side-keyword at - ;; the start... - (if (or (< line-start beg-match) - ;; Actually, if we're looking at a "let" inside a "do", we - ;; should add the corresponding indentation point. - (eq (char-after beg-match) ?l)) - (setq haskell-indent-info - (haskell-indent-valdef-indentation line-start beg-match - end-visible - curr-line-type - haskell-indent-info))) - ;; ...but keep the start of the line if keyword alone on the line - (if (= line-end end-match) - (haskell-indent-push-pos beg-match)) - (setq line-start end-match) - (goto-char line-start))) - (haskell-indent-valdef-indentation line-start line-end end-visible - curr-line-type haskell-indent-info)))) - - -(defun haskell-indent-layout-indent-info (start contour-line) - (let ((haskell-indent-info nil) - (curr-line-type (haskell-indent-type-at-point)) - line-start line-end end-visible) - (save-excursion - (if (eq curr-line-type 'ident) - (let ; guess the type of line - ((sep - (haskell-indent-separate-valdef - (point) (line-end-position)))) - ;; if the first ident is where or the start of a def - ;; keep it in a global variable - (setq haskell-indent-current-line-first-ident - (if (string-match "where[ \t]*" (nth 1 sep)) - (nth 1 sep) - (if (nth 5 sep) ; is there a rhs-sign - (if (= (char-after (nth 5 sep)) ?\:) ;is it a typdef - "::" (nth 1 sep)) - ""))))) - (while contour-line ; explore the contour points - (setq line-start (pop contour-line)) - (goto-char line-start) - (setq line-end (line-end-position)) - (setq end-visible ; visible until the column of the - (if contour-line ; next contour point - (save-excursion - (move-to-column - (haskell-indent-point-to-col (car contour-line))) - (point)) - line-end)) - (unless (or (haskell-indent-open-structure start line-start) - (haskell-indent-in-comment start line-start)) - (setq haskell-indent-info - (haskell-indent-line-indentation line-start line-end - end-visible curr-line-type - haskell-indent-info))))) - haskell-indent-info)) - -(defun haskell-indent-find-matching-start (regexp limit &optional pred start) - (let ((open (haskell-indent-open-structure limit (point)))) - (if open (setq limit (1+ open)))) - (unless start (setq start (point))) - (when (re-search-backward regexp limit t) - (let ((nestedcase (match-end 1)) - (outer (or (haskell-indent-in-string limit (point)) - (haskell-indent-in-comment limit (point)) - (haskell-indent-open-structure limit (point)) - (if (and pred (funcall pred start)) (point))))) - (cond - (outer - (goto-char outer) - (haskell-indent-find-matching-start regexp limit pred start)) - (nestedcase - ;; Nested case. - (and (haskell-indent-find-matching-start regexp limit pred) - (haskell-indent-find-matching-start regexp limit pred start))) - (t (point)))))) - -(defun haskell-indent-filter-let-no-in (start) - "Return non-nil if point is in front of a `let' that has no `in'. -START is the position of the presumed `in'." - ;; We're looking at either `in' or `let'. - (when (looking-at "let") - (ignore-errors - (save-excursion - (forward-word 1) - (forward-comment (point-max)) - (if (looking-at "{") - (progn - (forward-sexp 1) - (forward-comment (point-max)) - (< (point) start)) - ;; Use the layout rule to see whether this let is already closed - ;; without an `in'. - (let ((col (current-column))) - (while (progn (forward-line 1) (haskell-indent-back-to-indentation) - (< (point) start)) - (when (< (current-column) col) - (setq col nil) - (goto-char start))) - (null col))))))) - -(defun haskell-indent-comment (open start) - "Compute indent info for comments and text inside comments. -OPEN is the start position of the comment in which point is." - ;; Ideally we'd want to guess whether it's commented out code or - ;; whether it's text. Instead, we'll assume it's text. - (save-excursion - (if (= open (point)) - ;; We're actually just in front of a comment: align with following - ;; code or with comment on previous line. - (let ((prev-line-info - (cond - ((eq (char-after) ?\{) nil) ;Align as if it were code. - ((and (forward-comment -1) - (> (line-beginning-position 3) open)) - ;; We're after another comment and there's no empty line - ;; between us. - (list (list (haskell-indent-point-to-col (point))))) - (t nil)))) ;Else align as if it were code - ;; Align with following code. - (forward-comment (point-max)) - ;; There are several possible indentation points for this code-line, - ;; but the only valid indentation point for the comment is the one - ;; that the user will select for the code-line. Obviously we can't - ;; know that, so we just assume that the code-line is already at its - ;; proper place. - ;; Strictly speaking "assume it's at its proper place" would mean - ;; we'd just use (current-column), but since this is using info from - ;; lines further down and it's common to reindent line-by-line, - ;; we'll align not with the current indentation, but with the - ;; one that auto-indentation "will" select. - (append - prev-line-info - (let ((indent-info (save-excursion - (haskell-indent-indentation-info start))) - (col (current-column))) - ;; Sort the indent-info so that the current indentation comes - ;; out first. - (setq indent-info - (sort indent-info - (lambda (x y) - (<= (abs (- col (car x))) (abs (- col (car y))))))) - indent-info))) - - ;; We really are inside a comment. - (if (looking-at "-}") - (progn - (forward-char 2) - (forward-comment -1) - (list (list (1+ (haskell-indent-point-to-col (point)))))) - (let ((offset (if (looking-at "--?") - (- (match-beginning 0) (match-end 0))))) - (forward-line -1) ;Go to previous line. - (haskell-indent-back-to-indentation) - (if (< (point) start) (goto-char start)) - - (list (list (if (looking-at comment-start-skip) - (if offset - (+ 2 offset (haskell-indent-point-to-col (point))) - (haskell-indent-point-to-col (match-end 0))) - (haskell-indent-point-to-col (point)))))))))) - -(defcustom haskell-indent-thenelse 0 - "If non-nil, \"then\" and \"else\" are indented. -This is necessary in the \"do\" layout under Haskell-98. -See http://hackage.haskell.org/trac/haskell-prime/wiki/DoAndIfThenElse" - :type 'integer) - -(defun haskell-indent-closing-keyword (start) - (let ((open (save-excursion - (haskell-indent-find-matching-start - (case (char-after) - (?i "\\<\\(?:\\(in\\)\\|let\\)\\>") - (?o "\\<\\(?:\\(of\\)\\|case\\)\\>") - (?t "\\<\\(?:\\(then\\)\\|if\\)\\>") - (?e "\\<\\(?:\\(else\\)\\|if\\)\\>")) - start - (if (eq (char-after) ?i) - ;; Filter out the `let's that have no `in'. - 'haskell-indent-filter-let-no-in))))) - ;; For a "hanging let/case/if at EOL" we should use a different - ;; indentation scheme. - (save-excursion - (goto-char open) - (if (haskell-indent-hanging-p) - (setq open (haskell-indent-virtual-indentation start)))) - ;; FIXME: we should try and figure out if the `if' is in a `do' layout - ;; before using haskell-indent-thenelse. - (list (list (+ (if (memq (char-after) '(?t ?e)) haskell-indent-thenelse 0) - (haskell-indent-point-to-col open)))))) - -(defcustom haskell-indent-after-keywords - '(("where" 2 0) - ("of" 2) - ("do" 2) - ("in" 2 0) - ("{" 2) - "if" - "then" - "else" - "let") - "Keywords after which indentation should be indented by some offset. -Each keyword info can have the following forms: - - KEYWORD | (KEYWORD OFFSET [OFFSET-HANGING]) - -If absent OFFSET-HANGING defaults to OFFSET. -If absent OFFSET defaults to `haskell-indent-offset'. - -OFFSET-HANGING is the offset to use in the case where the keyword -is at the end of an otherwise-non-empty line." - :type '(repeat (choice string - (cons :tag "" (string :tag "keyword:") - (cons :tag "" (integer :tag "offset") - (choice (const nil) - (list :tag "" - (integer :tag "offset-pending")))))))) - -(defun haskell-indent-skip-lexeme-forward () - (and (zerop (skip-syntax-forward "w")) - (skip-syntax-forward "_") - (skip-syntax-forward "(") - (skip-syntax-forward ")"))) - -(defvar haskell-indent-inhibit-after-offset nil) - -(defun haskell-indent-offset-after-info () - "Return the info from `haskell-indent-after-keywords' for keyword at point." - (let ((id (buffer-substring - (point) - (save-excursion - (haskell-indent-skip-lexeme-forward) - (point))))) - (or (assoc id haskell-indent-after-keywords) - (car (member id haskell-indent-after-keywords))))) - -(defcustom haskell-indent-dont-hang '("(") - "Lexemes that should never be considered as hanging." - :type '(repeat string)) - -(defun haskell-indent-hanging-p () - ;; A Hanging keyword is one that's at the end of a line except it's not at - ;; the beginning of a line. - (not (or (= (current-column) (haskell-indent-current-indentation)) - (save-excursion - (let ((lexeme - (buffer-substring - (point) - (progn (haskell-indent-skip-lexeme-forward) (point))))) - (or (member lexeme haskell-indent-dont-hang) - (> (line-end-position) - (progn (forward-comment (point-max)) (point))))))))) - -(defun haskell-indent-after-keyword-column (offset-info start &optional default) - (unless offset-info - (setq offset-info (haskell-indent-offset-after-info))) - (unless default (setq default haskell-indent-offset)) - (setq offset-info - (if haskell-indent-inhibit-after-offset '(0) (cdr-safe offset-info))) - (if (not (haskell-indent-hanging-p)) - (haskell-indent-column+offset (current-column) - (or (car offset-info) default)) - ;; The keyword is hanging at the end of the line. - (haskell-indent-column+offset - (haskell-indent-virtual-indentation start) - (or (cadr offset-info) (car offset-info) default)))) - -(defun haskell-indent-inside-paren (open) - ;; there is an open structure to complete - (if (looking-at "\\s)\\|[;,]") - ;; A close-paren or a , or ; can only correspond syntactically to - ;; the open-paren at `open'. So there is no ambiguity. - (progn - (if (or (and (eq (char-after) ?\;) (eq (char-after open) ?\()) - (and (eq (char-after) ?\,) (eq (char-after open) ?\{))) - (message "Mismatched punctuation: `%c' in %c...%c" - (char-after) (char-after open) - (if (eq (char-after open) ?\() ?\) ?\}))) - (save-excursion - (goto-char open) - (list (list - (if (haskell-indent-hanging-p) - (haskell-indent-virtual-indentation nil) - (haskell-indent-point-to-col open)))))) - ;; There might still be layout within the open structure. - (let* ((end (point)) - (basic-indent-info - ;; Anything else than a ) is subject to layout. - (if (looking-at "\\s.\\|\\$ ") - (haskell-indent-point-to-col open) ; align a punct with ( - (let ((follow (save-excursion - (goto-char (1+ open)) - (haskell-indent-skip-blanks-and-newlines-forward end) - (point)))) - (if (= follow end) - (save-excursion - (goto-char open) - (haskell-indent-after-keyword-column nil nil 1)) - (haskell-indent-point-to-col follow))))) - (open-column (haskell-indent-point-to-col open)) - (contour-line (haskell-indent-contour-line (1+ open) end))) - (if (null contour-line) - (list (list basic-indent-info)) - (let ((indent-info - (haskell-indent-layout-indent-info - (1+ open) contour-line))) - ;; Fix up indent info. - (let ((base-elem (assoc open-column indent-info))) - (if base-elem - (progn (setcar base-elem basic-indent-info) - (setcdr base-elem nil)) - (setq indent-info - (append indent-info (list (list basic-indent-info))))) - indent-info)))))) - -(defun haskell-indent-virtual-indentation (start) - "Compute the \"virtual indentation\" of text at point. -The \"virtual indentation\" is the indentation that text at point would have -had, if it had been placed on its own line." - (let ((col (current-column)) - (haskell-indent-inhibit-after-offset (haskell-indent-hanging-p))) - (if (save-excursion (skip-chars-backward " \t") (bolp)) - ;; If the text is indeed on its own line, than the virtual indent is - ;; the current indentation. - col - ;; Else, compute the indentation that it would have had. - (let ((info (haskell-indent-indentation-info start)) - (max -1)) - ;; `info' is a list of possible indent points. Each indent point is - ;; assumed to correspond to a different parse. So we need to find - ;; the parse that corresponds to the case at hand (where there's no - ;; line break), which is assumed to always be the - ;; deepest indentation. - (dolist (x info) - (setq x (car x)) - ;; Sometimes `info' includes the current indentation (or yet - ;; deeper) by mistake, because haskell-indent-indentation-info - ;; wasn't designed to be called on a piece of text that is not at - ;; BOL. So ignore points past `col'. - (if (and (> x max) (not (>= x col))) - (setq max x))) - ;; In case all the indent points are past `col', just use `col'. - (if (>= max 0) max col))))) - -(defun haskell-indent-indentation-info (&optional start) - "Return a list of possible indentations for the current line. -These are then used by `haskell-indent-cycle'. -START if non-nil is a presumed start pos of the current definition." - (unless start (setq start (haskell-indent-start-of-def))) - (let (open contour-line) - (cond - ;; in string? - ((setq open (haskell-indent-in-string start (point))) - (list (list (+ (haskell-indent-point-to-col open) - (if (looking-at "\\\\") 0 1))))) - - ;; in comment ? - ((setq open (haskell-indent-in-comment start (point))) - (haskell-indent-comment open start)) - - ;; Closing the declaration part of a `let' or the test exp part of a case. - ((looking-at "\\(?:in\\|of\\|then\\|else\\)\\>") - (haskell-indent-closing-keyword start)) - - ;; Right after a special keyword. - ((save-excursion - (forward-comment (- (point-max))) - (when (and (not (zerop (skip-syntax-backward "w"))) - (setq open (haskell-indent-offset-after-info))) - (list (list (haskell-indent-after-keyword-column open start)))))) - - ;; open structure? ie ( { [ - ((setq open (haskell-indent-open-structure start (point))) - (haskell-indent-inside-paren open)) - - ;; full indentation - ((setq contour-line (haskell-indent-contour-line start (point))) - (haskell-indent-layout-indent-info start contour-line)) - - (t - ;; simple contour just one indentation at start - (list (list (if (and (eq haskell-literate 'bird) - (eq (haskell-indent-point-to-col start) 1)) - ;; for a Bird style literate script put default offset - ;; in the case of no indentation - (1+ haskell-indent-literate-Bird-default-offset) - (haskell-indent-point-to-col start)))))))) - -(defvar haskell-indent-last-info nil) - - -(defun haskell-indent-cycle () - "Indentation cycle. -We stay in the cycle as long as the TAB key is pressed." - (interactive "*") - (if (and haskell-literate - (not (haskell-indent-within-literate-code))) - ;; use the ordinary tab for text... - (funcall (default-value 'indent-line-function)) - (let ((marker (if (> (current-column) (haskell-indent-current-indentation)) - (point-marker))) - (bol (progn (beginning-of-line) (point)))) - (haskell-indent-back-to-indentation) - (unless (and (eq last-command this-command) - (eq bol (car haskell-indent-last-info))) - (save-excursion - (setq haskell-indent-last-info - (list bol (haskell-indent-indentation-info) 0 0)))) - - (let* ((il (nth 1 haskell-indent-last-info)) - (index (nth 2 haskell-indent-last-info)) - (last-insert-length (nth 3 haskell-indent-last-info)) - (indent-info (nth index il))) - - (haskell-indent-line-to (car indent-info)) ; insert indentation - (delete-char last-insert-length) - (setq last-insert-length 0) - (let ((text (cdr indent-info))) - (if text - (progn - (insert text) - (setq last-insert-length (length text))))) - - (setq haskell-indent-last-info - (list bol il (% (1+ index) (length il)) last-insert-length)) - - (if (= (length il) 1) - (message "Sole indentation") - (message "Indent cycle (%d)..." (length il))) - - (if marker - (goto-char (marker-position marker))))))) - -(defun haskell-indent-region (start end) - (error "Auto-reindentation of a region is not supported")) - -;;; alignment functions - -(defun haskell-indent-shift-columns (dest-column region-stack) - "Shifts columns in region-stack to go to DEST-COLUMN. -Elements of the stack are pairs of points giving the start and end -of the regions to move." - (let (reg col diffcol reg-end) - (while (setq reg (pop region-stack)) - (setq reg-end (copy-marker (cdr reg))) - (goto-char (car reg)) - (setq col (current-column)) - (setq diffcol (- dest-column col)) - (if (not (zerop diffcol)) - (catch 'end-of-buffer - (while (<= (point) (marker-position reg-end)) - (if (< diffcol 0) - (backward-delete-char-untabify (- diffcol) nil) - (insert-char ?\ diffcol)) - (end-of-line 2) ; should be (forward-line 1) - (if (eobp) ; but it adds line at the end... - (throw 'end-of-buffer nil)) - (move-to-column col))))))) - -(defun haskell-indent-align-def (p-arg type) - "Align guards or rhs within the current definition before point. -If P-ARG is t align all defs up to the mark. -TYPE is either 'guard or 'rhs." - (save-excursion - (let (start-block end-block - (maxcol (if (eq type 'rhs) haskell-indent-rhs-align-column 0)) - contour sep defname defnamepos - defcol pos lastpos - regstack eqns-start start-found) - ;; find the starting and ending boundary points for alignment - (if p-arg - (if (mark) ; aligning everything in the region - (progn - (when (> (mark) (point)) (exchange-point-and-mark)) - (setq start-block - (save-excursion - (goto-char (mark)) - (line-beginning-position))) - (setq end-block - (progn (if (haskell-indent-bolp) - (haskell-indent-forward-line -1)) - (line-end-position)))) - (error "The mark is not set for aligning definitions")) - ;; aligning the current definition - (setq start-block (haskell-indent-start-of-def)) - (setq end-block (line-end-position))) - ;; find the start of the current valdef using the contour line - ;; in reverse order because we need the nearest one from the end - (setq contour - (reverse (haskell-indent-contour-line start-block end-block))) - (setq pos (car contour)) ; keep the start of the first contour - ;; find the nearest start of a definition - (while (and (not defname) contour) - (goto-char (pop contour)) - (if (haskell-indent-open-structure start-block (point)) - nil - (setq sep (haskell-indent-separate-valdef (point) end-block)) - (if (nth 5 sep) ; is there a rhs? - (progn (setq defnamepos (nth 0 sep)) - (setq defname (nth 1 sep)))))) - ;; start building the region stack - (if defnamepos - (progn ; there is a valdef - ;; find the start of each equation or guard - (if p-arg ; when indenting a region - ;; accept any start of id or pattern as def name - (setq defname "\\<\\|(")) - (setq defcol (haskell-indent-point-to-col defnamepos)) - (goto-char pos) - (setq end-block (line-end-position)) - (catch 'top-of-buffer - (while (and (not start-found) - (>= (point) start-block)) - (if (<= (haskell-indent-current-indentation) defcol) - (progn - (move-to-column defcol) - (if (and (looking-at defname) ; start of equation - (not (haskell-indent-open-structure start-block (point)))) - (push (cons (point) 'eqn) eqns-start) - ;; found a less indented point not starting an equation - (setq start-found t))) - ;; more indented line - (haskell-indent-back-to-indentation) - (if (and (eq (haskell-indent-type-at-point) 'guard) ; start of a guard - (not (haskell-indent-open-structure start-block (point)))) - (push (cons (point) 'gd) eqns-start))) - (if (bobp) - (throw 'top-of-buffer nil) - (haskell-indent-backward-to-indentation 1)))) - ;; remove the spurious guards before the first equation - (while (and eqns-start (eq (cdar eqns-start) 'gd)) - (pop eqns-start)) - ;; go through each equation to find the region to indent - (while eqns-start - (let ((eqn (caar eqns-start))) - (setq lastpos (if (cdr eqns-start) - (save-excursion - (goto-char (caadr eqns-start)) - (haskell-indent-forward-line -1) - (line-end-position)) - end-block)) - (setq sep (haskell-indent-separate-valdef eqn lastpos))) - (if (eq type 'guard) - (setq pos (nth 3 sep)) - ;; check if what follows a rhs sign is more indented or not - (let ((rhs (nth 5 sep)) - (aft-rhs (nth 6 sep))) - (if (and rhs aft-rhs - (> (haskell-indent-point-to-col rhs) - (haskell-indent-point-to-col aft-rhs))) - (setq pos aft-rhs) - (setq pos rhs)))) - (if pos - (progn ; update region stack - (push (cons pos (or lastpos pos)) regstack) - (setq maxcol ; find the highest column number - (max maxcol - (progn ;find the previous non-empty column - (goto-char pos) - (skip-chars-backward - " \t" - (line-beginning-position)) - (if (haskell-indent-bolp) - ;;if on an empty prefix - (haskell-indent-point-to-col pos) ;keep original indent - (1+ (haskell-indent-point-to-col (point))))))))) - (pop eqns-start)) - ;; now shift according to the region stack - (if regstack - (haskell-indent-shift-columns maxcol regstack))))))) - -(defun haskell-indent-align-guards-and-rhs (start end) - "Align the guards and rhs of functions in the region which must be active." - ;; The `start' and `end' args are dummys right now: they're just there so - ;; we can use the "r" interactive spec which properly signals an error. - (interactive "*r") - (haskell-indent-align-def t 'guard) - (haskell-indent-align-def t 'rhs)) - -;;; insertion functions - -(defun haskell-indent-insert-equal () - "Insert an = sign and align the previous rhs of the current function." - (interactive "*") - (if (or (haskell-indent-bolp) - (/= (preceding-char) ?\ )) - (insert ?\ )) - (insert "= ") - (haskell-indent-align-def (haskell-indent-mark-active) 'rhs)) - -(defun haskell-indent-insert-guard (&optional text) - "Insert and align a guard sign (|) followed by optional TEXT. -Alignment works only if all guards are to the south-east of their |." - (interactive "*") - (let ((pc (if (haskell-indent-bolp) ?\012 - (preceding-char))) - (pc1 (or (char-after (- (point) 2)) 0))) - ;; check what guard to insert depending on the previous context - (if (= pc ?\ ) ; x = any char other than blank or | - (if (/= pc1 ?\|) - (insert "| ") ; after " x" - ()) ; after " |" - (if (= pc ?\|) - (if (= pc1 ?\|) - (insert " | ") ; after "||" - (insert " ")) ; after "x|" - (insert " | "))) ; general case - (if text (insert text)) - (haskell-indent-align-def (haskell-indent-mark-active) 'guard))) - -(defun haskell-indent-insert-otherwise () - "Insert a guard sign (|) followed by 'otherwise' and align the -previous guards of the current function." - (interactive "*") - (haskell-indent-insert-guard "otherwise") - (haskell-indent-insert-equal)) - -(defun haskell-indent-insert-where () - "Insert and a where keyword at point and indent the resulting -line with an indentation cycle." - (interactive "*") - (insert "where ") - (haskell-indent-cycle)) - - -;;; haskell-indent-mode - -(defvar haskell-indent-mode nil - "Indicates if the semi-intelligent Haskell indentation mode is in effect -in the current buffer.") -(make-variable-buffer-local 'haskell-indent-mode) - -(defvar haskell-indent-map - (let ((map (make-sparse-keymap))) - ;; Removed: remapping DEL seems a bit naughty --SDM - ;; (define-key map "\177" 'backward-delete-char-untabify) - ;; The binding to TAB is already handled by indent-line-function. --Stef - ;; (define-key map "\t" 'haskell-indent-cycle) - (define-key map [?\C-c ?\C-=] 'haskell-indent-insert-equal) - (define-key map [?\C-c ?\C-|] 'haskell-indent-insert-guard) - ;; Alternate binding, in case C-c C-| is too inconvenient to type. - ;; Duh, C-g is a special key, let's not use it here. - ;; (define-key map [?\C-c ?\C-g] 'haskell-indent-insert-guard) - (define-key map [?\C-c ?\C-o] 'haskell-indent-insert-otherwise) - (define-key map [?\C-c ?\C-w] 'haskell-indent-insert-where) - (define-key map [?\C-c ?\C-.] 'haskell-indent-align-guards-and-rhs) - (define-key map [?\C-c ?\C->] 'haskell-indent-put-region-in-literate) - map)) - -(defun turn-on-haskell-indent () - "Turn on ``intelligent'' haskell indentation mode." - (set (make-local-variable 'indent-line-function) 'haskell-indent-cycle) - (set (make-local-variable 'indent-region-function) 'haskell-indent-region) - (setq haskell-indent-mode t) - ;; Activate our keymap. - (let ((map (current-local-map))) - (while (and map (not (eq map haskell-indent-map))) - (setq map (keymap-parent map))) - (if map - ;; haskell-indent-map is already active: nothing to do. - nil - ;; Put our keymap on top of the others. We could also put it in - ;; second place, or in a minor-mode. The minor-mode approach would be - ;; easier, but it's harder for the user to override it. This approach - ;; is the closest in behavior compared to the previous code that just - ;; used a bunch of local-set-key. - (set-keymap-parent haskell-indent-map (current-local-map)) - ;; Protect our keymap. - (setq map (make-sparse-keymap)) - (set-keymap-parent map haskell-indent-map) - (use-local-map map))) - (run-hooks 'haskell-indent-hook)) - -(defun turn-off-haskell-indent () - "Turn off ``intelligent'' haskell indentation mode that deals with -the layout rule of Haskell." - (kill-local-variable 'indent-line-function) - ;; Remove haskell-indent-map from the local map. - (let ((map (current-local-map))) - (while map - (let ((parent (keymap-parent map))) - (if (eq haskell-indent-map parent) - (set-keymap-parent map (keymap-parent parent)) - (setq map parent))))) - (setq haskell-indent-mode nil)) - -;; Put this minor mode on the global minor-mode-alist. -(or (assq 'haskell-indent-mode (default-value 'minor-mode-alist)) - (setq-default minor-mode-alist - (append (default-value 'minor-mode-alist) - '((haskell-indent-mode " Ind"))))) - -;;;###autoload -(defun haskell-indent-mode (&optional arg) - "``intelligent'' Haskell indentation mode that deals with -the layout rule of Haskell. \\[haskell-indent-cycle] starts the cycle -which proposes new possibilities as long as the TAB key is pressed. -Any other key or mouse click terminates the cycle and is interpreted -except for RET which merely exits the cycle. -Other special keys are: - \\[haskell-indent-insert-equal] - inserts an = - \\[haskell-indent-insert-guard] - inserts an | - \\[haskell-indent-insert-otherwise] - inserts an | otherwise = -these functions also align the guards and rhs of the current definition - \\[haskell-indent-insert-where] - inserts a where keyword - \\[haskell-indent-align-guards-and-rhs] - aligns the guards and rhs of the region - \\[haskell-indent-put-region-in-literate] - makes the region a piece of literate code in a literate script - -Invokes `haskell-indent-hook' if not nil." - (interactive "P") - (setq haskell-indent-mode - (if (null arg) (not haskell-indent-mode) - (> (prefix-numeric-value arg) 0))) - (if haskell-indent-mode - (turn-on-haskell-indent) - (turn-off-haskell-indent))) - -(provide 'haskell-indent) - -;; arch-tag: e4e5e90a-12e2-4002-b5cb-7b2375710013 -;;; haskell-indent.el ends here diff --git a/.emacs.d.backup/haskell-mode/haskell-indentation.el b/.emacs.d.backup/haskell-mode/haskell-indentation.el deleted file mode 100644 index b9f83cd..0000000 --- a/.emacs.d.backup/haskell-mode/haskell-indentation.el +++ /dev/null @@ -1,856 +0,0 @@ -;;; haskell-indentation.el -- indentation module for Haskell Mode - -;; Copyright 2009 Kristof Bastiaensen - -;; Author: 2009 Kristof Bastiaensen - -;; This file is not part of GNU Emacs. - -;; This file 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 3, or (at your option) -;; any later version. - -;; This file 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: - -;; Installation: -;; -;; To turn indentation on for all Haskell buffers under Haskell mode -;; add this to .emacs: -;; -;; (add-hook haskell-mode-hook 'turn-on-haskell-indentation) -;; -;; Otherwise, call `haskell-indentation-mode'. -;; - -;;; Code: - -(defgroup haskell-indentation nil - "Haskell indentation." - :group 'haskell - :prefix "haskell-indentation-") - -(defcustom haskell-indentation-cycle-warn t - "Warn before moving to the leftmost indentation, if you tab at the rightmost one." - :type 'boolean - :group 'haskell-indentation) - -(defcustom haskell-indentation-layout-offset 2 - "Extra indentation to add before expressions in a haskell layout list." - :type 'integer - :group 'haskell-indentation) - -(defcustom haskell-indentation-starter-offset 1 - "Extra indentation after an opening keyword (e.g. let)." - :type 'integer - :group 'haskell-indentation) - -(defcustom haskell-indentation-left-offset 2 - "Extra indentation after an indentation to the left (e.g. after do)." - :type 'integer - :group 'haskell-indentation) - -(defcustom haskell-indentation-ifte-offset 2 - "Extra indentation after the keywords `if' `then' or `else'." - :type 'integer - :group 'haskell-indentation) - -(when (featurep 'xemacs) - (defun syntax-ppss (&rest pos) - (parse-partial-sexp (point-min) (or pos (point))))) - -(defconst haskell-indentation-mode-map - (let ((keymap (make-sparse-keymap))) - (define-key keymap [?\r] 'haskell-newline-and-indent) - (define-key keymap [backspace] 'haskell-indentation-delete-backward-char) - (define-key keymap [?\C-d] 'haskell-indentation-delete-char) - keymap)) - -;;;###autoload -(define-minor-mode haskell-indentation-mode - "Haskell indentation mode that deals with the layout rule. -It rebinds RET, DEL and BACKSPACE, so that indentations can be -set and deleted as if they were real tabs. It supports -autofill-mode." - :lighter " Ind" - :keymap haskell-indentation-mode-map - (kill-local-variable 'indent-line-function) - (kill-local-variable 'normal-auto-fill-function) - (when haskell-indentation-mode - (setq max-lisp-eval-depth (max max-lisp-eval-depth 600)) ;; set a higher limit for recursion - (set (make-local-variable 'indent-line-function) - 'haskell-indentation-indent-line) - (set (make-local-variable 'normal-auto-fill-function) - 'haskell-indentation-auto-fill-function) - (set (make-local-variable 'haskell-indent-last-position) - nil))) - -(defun turn-on-haskell-indentation () - "Turn on the haskell-indentation minor mode" - (interactive) - (haskell-indentation-mode t)) - -(put 'parse-error - 'error-conditions - '(error parse-error)) -(put 'parse-error 'error-message "Parse error") - -(defun parse-error (&rest args) - (signal 'parse-error (apply 'format args))) - -(defmacro on-parse-error (except &rest body) - `(condition-case parse-error-string - (progn ,@body) - (parse-error - ,except - (message "%s" (cdr parse-error-string))))) - -(defun kill-indented-line (&optional arg) - "`kill-line' for indented text. -Preserves indentation and removes extra whitespace" - (interactive "P") - (let ((col (current-column)) - (old-point (point))) - (cond ((or (and (numberp arg) (< arg 0)) - (and (not (looking-at "[ \t]*$")) - (or (not (numberp arg)) (zerop arg)))) - ;use default behavior when calling with a negative argument - ;or killing (once) from the middle of a line - (kill-line arg)) - ((and (skip-chars-backward " \t") ;always true - (bolp) - (save-excursion - (forward-line arg) - (not (looking-at "[ \t]*$")))) - ; killing from an empty line: - ; preserve indentation of the next line - (kill-region (point) - (save-excursion - (forward-line arg) - (point))) - (skip-chars-forward " \t") - (if (> (current-column) col) - (move-to-column col))) - (t ; killing from not empty line: - ; kill all indentation - (goto-char old-point) - (kill-region (point) - (save-excursion - (forward-line arg) - (skip-chars-forward " \t") - (point))))))) - -(defun haskell-indentation-auto-fill-function () - (when (> (current-column) fill-column) - (while (> (current-column) fill-column) - (skip-syntax-backward "-") - (skip-syntax-backward "^-")) - (let ((auto-fill-function nil) - (indent (car (last (haskell-indentation-find-indentations))))) - (newline) - (indent-to indent) - (end-of-line)))) - -(defun haskell-indentation-reindent (col) - (beginning-of-line) - (delete-region (point) - (progn (skip-syntax-forward "-") - (point))) - (indent-to col)) - -(defun haskell-newline-and-indent () - (interactive) - (on-parse-error (newline) - (let* ((cc (current-column)) - (ci (current-indentation)) - (indentations (haskell-indentation-find-indentations))) - (skip-syntax-forward "-") - (if (prog1 (and (eolp) - (not (= (current-column) ci))) - (newline)) - (haskell-indentation-reindent - (max (haskell-indentation-butlast indentations) - (haskell-indentation-matching-indentation - ci indentations))) - (haskell-indentation-reindent (haskell-indentation-matching-indentation - cc indentations)))))) - -(defun haskell-indentation-one-indentation (col indentations) - (let* ((last-pair (last indentations))) - (cond ((null indentations) - col) - ((null (cdr indentations)) - (car indentations)) - ((<= col (car last-pair)) - col) - (t (car last-pair))))) - -(defun haskell-indentation-butlast (indentations) - (when (consp (cdr indentations)) - (while (cddr indentations) - (setq indentations (cdr indentations)))) - (car indentations)) - -(defun haskell-indentation-next-indentation (col indentations) - "Find the lefmost indentation which is greater than COL." - (catch 'return - (while indentations - (if (or (< col (car indentations)) - (null (cdr indentations))) - (throw 'return (car indentations)) - (setq indentations (cdr indentations)))) - col)) - -(defun haskell-indentation-previous-indentation (col indentations) - "Find the rightmost indentation which is less than COL." - (and indentations - (> col (car indentations)) - (catch 'return - (while indentations - (if (or (null (cdr indentations)) - (<= col (cadr indentations))) - (throw 'return (car indentations)) - (setq indentations (cdr indentations)))) - col))) - -(defun haskell-indentation-matching-indentation (col indentations) - "Find the leftmost indentation which is greater than or equal to COL." - (catch 'return - (while indentations - (if (or (<= col (car indentations)) - (null (cdr indentations))) - (throw 'return (car indentations)) - (setq indentations (cdr indentations)))) - col)) - -(defun haskell-indentation-indent-line () - (when (save-excursion - (beginning-of-line) - (not (nth 8 (syntax-ppss)))) - (let ((ci (current-indentation)) - (start-column (current-column))) - (cond ((> (current-column) ci) - (save-excursion - (move-to-column ci) - (haskell-indentation-reindent - (haskell-indentation-one-indentation - ci (haskell-indentation-find-indentations))))) - - ((= (current-column) ci) - (haskell-indentation-reindent - (haskell-indentation-next-indentation - ci (haskell-indentation-find-indentations)))) - - (t (move-to-column ci) - (haskell-indentation-reindent - (haskell-indentation-matching-indentation - ci (haskell-indentation-find-indentations))))) - (cond ((not (= (current-column) start-column)) - (setq haskell-indent-last-position nil)) - ((not haskell-indentation-cycle-warn) - (haskell-indentation-reindent - (haskell-indentation-next-indentation - -1 - (haskell-indentation-find-indentations)))) - ((not (eql (point) haskell-indent-last-position)) - (message "Press TAB again to go to the leftmost indentation") - (setq haskell-indent-last-position (point))) - (t - (haskell-indentation-reindent - (haskell-indentation-next-indentation - -1 - (haskell-indentation-find-indentations)))))))) - -(defun haskell-indentation-delete-backward-char (n) - (interactive "p") - (on-parse-error (backward-delete-char 1) - (cond - ((and delete-selection-mode - mark-active - (not (= (point) (mark)))) - (delete-region (mark) (point))) - ((or (= (current-column) 0) - (> (current-column) (current-indentation)) - (nth 8 (syntax-ppss))) - (delete-backward-char n)) - (t (let* ((ci (current-indentation)) - (pi (haskell-indentation-previous-indentation - ci (haskell-indentation-find-indentations)))) - (save-excursion - (cond (pi - (move-to-column pi) - (delete-region (point) - (progn (move-to-column ci) - (point)))) - (t - (beginning-of-line) - (delete-region (max (point-min) (- (point) 1)) - (progn (move-to-column ci) - (point))))))))))) - -(defun haskell-indentation-delete-char (n) - (interactive "p") - (on-parse-error (delete-char 1) - (cond - ((and delete-selection-mode - mark-active - (not (= (point) (mark)))) - (delete-region (mark) (point))) - ((or (eolp) - (>= (current-column) (current-indentation)) - (nth 8 (syntax-ppss))) - (delete-char n)) - (t - (let* ((ci (current-indentation)) - (pi (haskell-indentation-previous-indentation - ci (haskell-indentation-find-indentations)))) - (save-excursion - (if (and pi (> pi (current-column))) - (move-to-column pi)) - (delete-region (point) - (progn (move-to-column ci) - (point))))))))) - -(defun haskell-indentation-goto-least-indentation () - (beginning-of-line) - (catch 'return - (while (not (bobp)) - (forward-comment (- (buffer-size))) - (beginning-of-line) - (let ((ps (nth 8 (syntax-ppss)))) - (when ps ;; inside comment or string - (goto-char ps))) - (when (= 0 (current-indentation)) - (throw 'return nil)))) - (beginning-of-line) - (when (bobp) - (forward-comment (buffer-size)))) - -;; Dynamically scoped variables. -(defvar following-token) -(defvar current-token) -(defvar left-indent) -(defvar starter-indent) -(defvar current-indent) -(defvar layout-indent) -(defvar parse-line-number) -(defvar possible-indentations) -(defvar indentation-point) - -(defun haskell-indentation-parse-to-indentations () - (save-excursion - (skip-syntax-forward "-") - (let ((indentation-point (point)) - (layout-indent 0) - (parse-line-number 0) - (current-indent haskell-indentation-layout-offset) - (starter-indent haskell-indentation-layout-offset) - (left-indent haskell-indentation-layout-offset) - (case-fold-search nil) - current-token - following-token - possible-indentations) - (haskell-indentation-goto-least-indentation) - (if (<= indentation-point (point)) - '(0) - (setq current-token (haskell-indentation-peek-token)) - (catch 'parse-end - (haskell-indentation-toplevel) - (when (not (equal current-token 'end-tokens)) - (parse-error "illegal token: %s" current-token))) - possible-indentations)))) - -(defun haskell-indentation-find-indentations () - (let ((ppss (syntax-ppss))) - (cond - ((nth 3 ppss) '(0)) - ((nth 4 ppss) - (if (save-excursion - (and (skip-syntax-forward "-") - (eolp) - (not (> (forward-line 1) 0)) - (not (nth 4 (syntax-ppss))))) - (haskell-indentation-parse-to-indentations) - '(0))) - (t - (haskell-indentation-parse-to-indentations))))) - -(defconst haskell-indentation-toplevel-list - '(("module" . haskell-indentation-module) - ("data" . haskell-indentation-data) - ("type" . haskell-indentation-data) - ("newtype" . haskell-indentation-data) - ("class" . haskell-indentation-class-declaration) - ("instance" . haskell-indentation-class-declaration ))) - -(defconst haskell-indentation-type-list - '(("::" . (lambda () (haskell-indentation-statement-right #'haskell-indentation-type))) - ("(" . (lambda () (haskell-indentation-list #'haskell-indentation-type - ")" "," nil))) - ("[" . (lambda () (haskell-indentation-list #'haskell-indentation-type - "]" "," nil))) - ("{" . (lambda () (haskell-indentation-list #'haskell-indentation-type - "}" "," nil))))) - -(defconst haskell-indentation-expression-list - '(("data" . haskell-indentation-data) - ("type" . haskell-indentation-data) - ("newtype" . haskell-indentation-data) - ("if" . (lambda () (haskell-indentation-phrase - '(haskell-indentation-expression - "then" haskell-indentation-expression - "else" haskell-indentation-expression)))) - ("let" . (lambda () (haskell-indentation-phrase - '(haskell-indentation-declaration-layout - "in" haskell-indentation-expression)))) - ("do" . (lambda () (haskell-indentation-with-starter - #'haskell-indentation-expression-layout nil))) - ("case" . (lambda () (haskell-indentation-phrase - '(haskell-indentation-expression - "of" haskell-indentation-case-layout)))) - ("\\" . (lambda () (haskell-indentation-phrase - '(haskell-indentation-expression - "->" haskell-indentation-expression)))) - ("where" . (lambda () (haskell-indentation-with-starter - #'haskell-indentation-declaration-layout nil))) - ("::" . (lambda () (haskell-indentation-statement-right #'haskell-indentation-type))) - ("=" . (lambda () (haskell-indentation-statement-right #'haskell-indentation-expression))) - ("<-" . (lambda () (haskell-indentation-statement-right #'haskell-indentation-expression))) - ("(" . (lambda () (haskell-indentation-list #'haskell-indentation-expression - ")" '(list "," "->") nil))) - ("[" . (lambda () (haskell-indentation-list #'haskell-indentation-expression - "]" "," "|"))) - ("{" . (lambda () (haskell-indentation-list #'haskell-indentation-expression - "}" "," nil))))) - -(defun haskell-indentation-expression-layout () - (haskell-indentation-layout #'haskell-indentation-expression)) - -(defun haskell-indentation-declaration-layout () - (haskell-indentation-layout #'haskell-indentation-declaration)) - -(defun haskell-indentation-case-layout () - (haskell-indentation-layout #'haskell-indentation-case)) - -(defun haskell-indentation-fundep () - (haskell-indentation-with-starter - (lambda () (haskell-indentation-separated - #'haskell-indentation-fundep1 "," nil)) - nil)) - -(defun haskell-indentation-fundep1 () - (let ((current-indent (current-column))) - (while (member current-token '(value "->")) - (haskell-indentation-read-next-token)) - (when (and (equal current-token 'end-tokens) - (member following-token '(value "->"))) - (haskell-indentation-add-indentation current-indent)))) - -(defun haskell-indentation-toplevel () - (haskell-indentation-layout - (lambda () - (let ((parser (assoc current-token haskell-indentation-toplevel-list))) - (if parser - (funcall (cdr parser)) - (haskell-indentation-declaration)))))) - -(defun haskell-indentation-type () - (let ((current-indent (current-column))) - (catch 'return - (while t - (cond - ((member current-token '(value operator "->")) - (haskell-indentation-read-next-token)) - - ((equal current-token 'end-tokens) - (when (member following-token - '(value operator no-following-token - "->" "(" "[" "{" "::")) - (haskell-indentation-add-indentation current-indent)) - (throw 'return nil)) - - (t (let ((parser (assoc current-token haskell-indentation-type-list))) - (if (not parser) - (throw 'return nil) - (funcall (cdr parser)))))))))) - -(defun haskell-indentation-data () - (haskell-indentation-with-starter - (lambda () - (when (equal current-token "instance") - (haskell-indentation-read-next-token)) - (haskell-indentation-type) - (cond ((equal current-token "=") - (haskell-indentation-with-starter - (lambda () (haskell-indentation-separated #'haskell-indentation-type "|" "deriving")) - nil)) - ((equal current-token "where") - (haskell-indentation-with-starter - #'haskell-indentation-expression-layout nil)))) - nil)) - -(defun haskell-indentation-class-declaration () - (haskell-indentation-with-starter - (lambda () - (haskell-indentation-type) - (when (equal current-token "|") - (haskell-indentation-fundep)) - (when (equal current-token "where") - (haskell-indentation-with-starter - #'haskell-indentation-expression-layout nil))) - nil)) - -(defun haskell-indentation-module () - (haskell-indentation-with-starter - (lambda () - (let ((current-indent (current-column))) - (haskell-indentation-read-next-token) - (when (equal current-token "(") - (haskell-indentation-list - #'haskell-indentation-module-export - ")" "," nil)) - (when (equal current-token 'end-tokens) - (haskell-indentation-add-indentation current-indent) - (throw 'parse-end nil)) - (when (equal current-token "where") - (haskell-indentation-read-next-token) - (when (equal current-token 'end-tokens) - (haskell-indentation-add-layout-indent) - (throw 'parse-end nil)) - (haskell-indentation-layout #'haskell-indentation-toplevel)))) - nil)) - -(defun haskell-indentation-module-export () - (cond ((equal current-token "module") - (let ((current-indent (current-column))) - (haskell-indentation-read-next-token) - (cond ((equal current-token 'end-tokens) - (haskell-indentation-add-indentation current-indent)) - ((equal current-token 'value) - (haskell-indentation-read-next-token))))) - (t (haskell-indentation-type)))) - -(defun haskell-indentation-list (parser end sep stmt-sep) - (haskell-indentation-with-starter - `(lambda () (haskell-indentation-separated #',parser - ,sep - ,stmt-sep)) - end)) - -(defun haskell-indentation-with-starter (parser end) - (let ((starter-column (current-column)) - (current-indent current-indent) - (left-indent (if (= (current-column) (current-indentation)) - (current-column) left-indent))) - (haskell-indentation-read-next-token) - (when (equal current-token 'end-tokens) - (if (equal following-token end) - (haskell-indentation-add-indentation starter-column) - (haskell-indentation-add-indentation - (+ left-indent haskell-indentation-left-offset))) - (throw 'parse-end nil)) - (let* ((current-indent (current-column)) - (starter-indent (min starter-column current-indent)) - (left-indent (if end (+ current-indent haskell-indentation-starter-offset) - left-indent))) - (funcall parser) - (cond ((equal current-token 'end-tokens) - (when (equal following-token end) - (haskell-indentation-add-indentation starter-indent)) - (when end (throw 'parse-end nil))) ;; add no indentations - ((equal current-token end) - (haskell-indentation-read-next-token)) ;; continue - (end (parse-error "Illegal token: %s" current-token)))))) - -(defun haskell-indentation-case () - (haskell-indentation-expression) - (cond ((equal current-token 'end-tokens) - (haskell-indentation-add-indentation current-indent)) - ((equal current-token "|") - (haskell-indentation-with-starter - (lambda () (haskell-indentation-separated #'haskell-indentation-case "|" nil)) - nil)) - ((equal current-token "->") - (haskell-indentation-statement-right #'haskell-indentation-expression)) - ;; otherwise fallthrough - )) - -(defun haskell-indentation-statement-right (parser) - (haskell-indentation-read-next-token) - (when (equal current-token 'end-tokens) - (haskell-indentation-add-indentation - (+ left-indent haskell-indentation-left-offset)) - (throw 'parse-end nil)) - (let ((current-indent (current-column))) - (funcall parser))) - -(defun haskell-indentation-simple-declaration () - (haskell-indentation-expression) - (cond ((equal current-token "=") - (haskell-indentation-statement-right #'haskell-indentation-expression)) - ((equal current-token "::") - (haskell-indentation-statement-right #'haskell-indentation-type)) - ((and (equal current-token 'end-tokens) - (equal following-token "=")) - (haskell-indentation-add-indentation current-indent) - (throw 'parse-end nil)))) - -(defun haskell-indentation-declaration () - (haskell-indentation-expression) - (cond ((equal current-token "|") - (haskell-indentation-with-starter - (lambda () (haskell-indentation-separated #'haskell-indentation-expression "," "|")) - nil)) - ((equal current-token 'end-tokens) - (when (member following-token '("|" "=" "::" ",")) - (haskell-indentation-add-indentation current-indent) - (throw 'parse-end nil))))) - -(defun haskell-indentation-layout (parser) - (if (equal current-token "{") - (haskell-indentation-list parser "}" ";" nil) - (haskell-indentation-implicit-layout-list parser))) - -(defun haskell-indentation-expression-token (token) - (member token '("if" "let" "do" "case" "\\" "(" "[" "::" - value operator no-following-token))) - -(defun haskell-indentation-expression () - (let ((current-indent (current-column))) - (catch 'return - (while t - (cond - ((member current-token '(value operator)) - (haskell-indentation-read-next-token)) - - ((equal current-token 'end-tokens) - (cond ((equal following-token "where") - (haskell-indentation-add-indentation - (+ left-indent haskell-indentation-left-offset))) - ((haskell-indentation-expression-token following-token) - (haskell-indentation-add-indentation - current-indent))) - (throw 'return nil)) - - (t (let ((parser (assoc current-token haskell-indentation-expression-list))) - (when (null parser) - (throw 'return nil)) - (funcall (cdr parser)) - (when (and (equal current-token 'end-tokens) - (equal (car parser) "let") - (= haskell-indentation-layout-offset current-indent) - (haskell-indentation-expression-token following-token)) - ;; inside a layout, after a let construct - (haskell-indentation-add-layout-indent) - (throw 'parse-end nil)) - (unless (member (car parser) '("(" "[" "{" "do" "case")) - (throw 'return nil))))))))) - -(defun haskell-indentation-test-indentations () - (interactive) - (let ((indentations (save-excursion (haskell-indentation-find-indentations))) - (str "") - (pos 0)) - (while indentations - (when (>= (car indentations) pos) - (setq str (concat str (make-string (- (car indentations) pos) ?\ ) - "|")) - (setq pos (+ 1 (car indentations)))) - (setq indentations (cdr indentations))) - (end-of-line) - (newline) - (insert str))) - -(defun haskell-indentation-separated (parser separator stmt-separator) - (catch 'return - (while t - (funcall parser) - (cond ((if (listp separator) (member current-token separator) (equal current-token separator)) - (haskell-indentation-at-separator)) - - ((equal current-token stmt-separator) - (setq starter-indent (current-column)) - (haskell-indentation-at-separator)) - - ((equal current-token 'end-tokens) - (cond ((or (equal following-token separator) - (equal following-token stmt-separator)) - (haskell-indentation-add-indentation starter-indent) - (throw 'parse-end nil))) - (throw 'return nil)) - - (t (throw 'return nil)))))) - -(defun haskell-indentation-at-separator () - (let ((separator-column - (and (= (current-column) (current-indentation)) - (current-column)))) - (haskell-indentation-read-next-token) - (cond ((eq current-token 'end-tokens) - (haskell-indentation-add-indentation current-indent) - (throw 'return nil)) - (separator-column ;; on the beginning of the line - (setq current-indent (current-column)) - (setq starter-indent separator-column))))) - -(defun haskell-indentation-implicit-layout-list (parser) - (let* ((layout-indent (current-column)) - (current-indent (current-column)) - (left-indent (current-column))) - (catch 'return - (while t - (let ((left-indent left-indent)) - (funcall parser)) - (cond ((member current-token '(layout-next ";")) - (haskell-indentation-read-next-token)) - ((equal current-token 'end-tokens) - (when (or (haskell-indentation-expression-token following-token) - (equal following-token ";")) - (haskell-indentation-add-layout-indent)) - (throw 'return nil)) - (t (throw 'return nil)))))) - ;; put haskell-indentation-read-next-token outside the current-indent definition - ;; so it will not return 'layout-end again - (when (eq current-token 'layout-end) - (haskell-indentation-read-next-token))) ;; leave layout at 'layout-end or illegal token - -(defun haskell-indentation-phrase (phrase) - (haskell-indentation-with-starter - `(lambda () (haskell-indentation-phrase-rest ',phrase)) - nil)) - -(defun haskell-indentation-phrase-rest (phrase) - (let ((starter-line parse-line-number)) - (let ((current-indent (current-column))) - (funcall (car phrase))) - (cond - ((equal current-token 'end-tokens) - (cond ((null (cdr phrase))) ;; fallthrough - ((equal following-token (cadr phrase)) - (haskell-indentation-add-indentation starter-indent) - (throw 'parse-end nil)) - ((equal (cadr phrase) "in") - (when (= left-indent layout-indent) - (haskell-indentation-add-layout-indent) - (throw 'parse-end nil))) - (t (throw 'parse-end nil)))) - - ((null (cdr phrase))) - - ((equal (cadr phrase) current-token) - (let* ((on-new-line (= (current-column) (current-indentation))) - (lines-between (- parse-line-number starter-line)) - (left-indent (if (<= lines-between 0) - left-indent - starter-indent))) - (haskell-indentation-read-next-token) - (when (equal current-token 'end-tokens) - (haskell-indentation-add-indentation - (cond ((member (cadr phrase) '("then" "else")) - (+ starter-indent haskell-indentation-ifte-offset)) - ((member (cadr phrase) '("in" "->")) - ;; expression ending in another expression - (if on-new-line - (+ left-indent haskell-indentation-starter-offset) - left-indent)) - (t (+ left-indent haskell-indentation-left-offset)))) - (throw 'parse-end nil)) - (haskell-indentation-phrase-rest (cddr phrase)))) - - ((equal (cadr phrase) "in")) ;; fallthrough - (t (parse-error "Expecting %s" (cadr phrase)))))) - -(defun haskell-indentation-add-indentation (indent) - (haskell-indentation-push-indentation - (if (<= indent layout-indent) - (+ layout-indent haskell-indentation-layout-offset) - indent))) - -(defun haskell-indentation-add-layout-indent () - (haskell-indentation-push-indentation layout-indent)) - -(defun haskell-indentation-push-indentation (indent) - (when (or (null possible-indentations) - (< indent (car possible-indentations))) - (setq possible-indentations - (cons indent possible-indentations)))) - -(defun haskell-indentation-token-test () - (let ((current-token nil) - (following-token nil) - (layout-indent 0) - (indentation-point (mark))) - (haskell-indentation-read-next-token))) - -(defun haskell-indentation-read-next-token () - (cond ((eq current-token 'end-tokens) - 'end-tokens) - ((eq current-token 'layout-end) - (cond ((> layout-indent (current-column)) - 'layout-end) - ((= layout-indent (current-column)) - (setq current-token 'layout-next)) - ((< layout-indent (current-column)) - (setq current-token (haskell-indentation-peek-token))))) - ((eq current-token 'layout-next) - (setq current-token (haskell-indentation-peek-token))) - ((> layout-indent (current-column)) - (setq current-token 'layout-end)) - (t - (haskell-indentation-skip-token) - (if (>= (point) indentation-point) - (progn - (setq following-token - (if (= (point) indentation-point) - (haskell-indentation-peek-token) - 'no-following-token)) - (setq current-token 'end-tokens)) - (when (= (current-column) (current-indentation)) - ;; on a new line - (setq current-indent (current-column)) - (setq left-indent (current-column)) - (setq parse-line-number (+ parse-line-number 1))) - (cond ((> layout-indent (current-column)) - (setq current-token 'layout-end)) - ((= layout-indent (current-column)) - (setq current-token 'layout-next)) - (t (setq current-token (haskell-indentation-peek-token)))))))) - -(defun haskell-indentation-peek-token () - (cond ((looking-at "\\(if\\|then\\|else\\|let\\|in\\|do\\|case\\|of\\|where\\|module\\|deriving\\|data\\|type\\|newtype\\|class\\|instance\\)\\([^A-Za-z']\\|$\\)") - (match-string 1)) - ((looking-at "[][(){}[,;]") - (match-string 0)) - ((looking-at "\\(\\\\\\|->\\|<-\\|::\\|=\\||\\)\\([^-:!#$%&*+./<=>?@\\\\^|~]\\|$\\)") - (match-string 1)) - ((looking-at"[-:!#$%&*+./<=>?@\\\\^|~`]" ) - 'operator) - (t 'value))) - -(defun haskell-indentation-skip-token () - "Skip to the next token." - (if (or (looking-at "'\\([^\\']\\|\\\\.\\)*'") - (looking-at "\"\\([^\\\"]\\|\\\\.\\)*\"") - (looking-at "[A-Z][A-Z_a-z0-9']*\\(\\.[A-Z_a-z][A-Z_a-z0-9']*\\)*") ; Allows hierarchical modules - (looking-at "[A-Z_a-z][A-Z_a-z0-9']*") ; Only unqualified vars can start with lowercase - (looking-at "[0-9][0-9oOxXeE+-]*") - (looking-at "[-:!#$%&*+./<=>?@\\\\^|~]+") - (looking-at "[](){}[,;]") - (looking-at "`[A-Za-z0-9']*`")) - (goto-char (match-end 0)) - ;; otherwise skip until space found - (skip-syntax-forward "^-")) - (forward-comment (buffer-size))) - -(provide 'haskell-indentation) -;;; haskell-indentation.el ends here diff --git a/.emacs.d.backup/haskell-mode/haskell-mode.el b/.emacs.d.backup/haskell-mode/haskell-mode.el deleted file mode 100644 index b13357f..0000000 --- a/.emacs.d.backup/haskell-mode/haskell-mode.el +++ /dev/null @@ -1,532 +0,0 @@ -;;; haskell-mode.el --- A Haskell editing mode -*-coding: iso-8859-1;-*- - -;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc -;; Copyright (C) 1992, 1997-1998 Simon Marlow, Graeme E Moss, and Tommy Thorn - -;; Authors: 1992 Simon Marlow -;; 1997-1998 Graeme E Moss and -;; Tommy Thorn , -;; 2001-2002 Reuben Thomas (>=v1.4) -;; 2003 Dave Love -;; Keywords: faces files Haskell -;; Version: v2.6.4 -;; URL: http://www.haskell.org/haskell-mode/ - -;; This file is not part of GNU Emacs. - -;; This file 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 3, or (at your option) -;; any later version. - -;; This file 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: - -;; Purpose: -;; -;; To provide a pleasant mode to browse and edit Haskell files, linking -;; into the following supported modules: -;; -;; `haskell-font-lock', Graeme E Moss and Tommy Thorn -;; Fontifies standard Haskell keywords, symbols, functions, etc. -;; -;; `haskell-decl-scan', Graeme E Moss -;; Scans top-level declarations, and places them in a menu. -;; -;; `haskell-doc', Hans-Wolfgang Loidl -;; Echoes types of functions or syntax of keywords when the cursor is idle. -;; -;; `haskell-indentation', Kristof Bastiaensen -;; Intelligent semi-automatic indentation, mark two. -;; -;; `haskell-indent', Guy Lapalme -;; Intelligent semi-automatic indentation. -;; -;; `haskell-simple-indent', Graeme E Moss and Heribert Schuetz -;; Simple indentation. -;; -;; `inf-haskell' -;; Interaction with an inferior Haskell process. -;; It replaces the previous two modules: -;; `haskell-hugs', Guy Lapalme -;; `haskell-ghci', Chris Web -;; -;; -;; This mode supports full Haskell 1.4 including literate scripts. -;; In some versions of (X)Emacs it may only support Latin-1, not Unicode. -;; -;; History: -;; -;; This mode is based on an editing mode by Simon Marlow 11/1/92 -;; and heavily modified by Graeme E Moss and Tommy Thorn 7/11/98. -;; -;; If you have any problems or suggestions specific to a supported -;; module, consult that module for a list of known bugs, and an -;; author to contact via email. For general problems or suggestions, -;; consult the list below, then email gem@cs.york.ac.uk and -;; thorn@irisa.fr quoting the version of the mode you are using, the -;; version of Emacs you are using, and a small example of the problem -;; or suggestion. -;; -;; Version 1.5 -;; Added autoload for haskell-indentation -;; -;; Version 1.43: -;; Various tweaks to doc strings and customization support from -;; Ville Skytt . -;; -;; Version 1.42: -;; Added autoload for GHCi inferior mode (thanks to Scott -;; Williams for the bug report and fix). -;; -;; Version 1.41: -;; Improved packaging, and made a couple more variables -;; interactively settable. -;; -;; Version 1.4: -;; Added GHCi mode from Chris Webb, and tidied up a little. -;; -;; Version 1.3: -;; The literate or non-literate style of a buffer is now indicated -;; by just the variable haskell-literate: nil, `bird', or `tex'. -;; For literate buffers with ambiguous style, the value of -;; haskell-literate-default is used. -;; -;; Version 1.2: -;; Separated off font locking, declaration scanning and simple -;; indentation, and made them separate modules. Modules can be -;; added easily now. Support for modules haskell-doc, -;; haskell-indent, and haskell-hugs. Literate and non-literate -;; modes integrated into one mode, and literate buffer indicated by -;; value of haskell-literate(-bird-style). -;; -;; Version 1.1: -;; Added support for declaration scanning under XEmacs via -;; func-menu. Moved operators to level two fontification. -;; -;; Version 1.0: -;; Added a nice indention support from Heribert Schuetz -;; : -;; -;; I have just hacked an Emacs Lisp function which you might prefer -;; to `indent-relative' in haskell-mode.el. See below. It is not -;; really Haskell-specific because it does not take into account -;; keywords like `do', `of', and `let' (where the layout rule -;; applies), but I already find it useful. -;; -;; Cleaned up the imenu support. Added support for literate scripts. -;; -;; Version 0.103 [HWL]: -;; From Hans Wolfgang Loidl : -;; -;; I (HWL) added imenu support by copying the appropriate functions -;; from hugs-mode. A menu-bar item "Declarations" is now added in -;; haskell mode. The new code, however, needs some clean-up. -;; -;; Version 0.102: -;; -;; Moved C-c C-c key binding to comment-region. Leave M-g M-g to do -;; the work. comment-start-skip is changed to comply with comment-start. -;; -;; Version 0.101: -;; -;; Altered indent-line-function to indent-relative. -;; -;; Version 0.100: -;; -;; First official release. - -;; Present Limitations/Future Work (contributions are most welcome!): -;; -;; . Would like RET in Bird-style literate mode to add a ">" at the -;; start of a line when previous line starts with ">". Or would -;; "> " be better? -;; -;; . Support for GreenCard? -;; - -;;; Code: - -(eval-when-compile (require 'cl)) - -;; All functions/variables start with `(literate-)haskell-'. - -;; Version of mode. -(defconst haskell-version "v2.6.4" - "`haskell-mode' version number.") -(defun haskell-version () - "Echo the current version of `haskell-mode' in the minibuffer." - (interactive) - (message "Using haskell-mode version %s" haskell-version)) - -(defgroup haskell nil - "Major mode for editing Haskell programs." - :group 'languages - :prefix "haskell-") - -;; Set load-path -;;;###autoload -(add-to-list 'load-path - (or (file-name-directory load-file-name) (car load-path))) - -;; Set up autoloads for the modules we supply -(autoload 'turn-on-haskell-decl-scan "haskell-decl-scan" - "Turn on Haskell declaration scanning." t) -(autoload 'turn-on-haskell-doc-mode "haskell-doc" - "Turn on Haskell Doc minor mode." t) -(autoload 'turn-on-haskell-indentation "haskell-indentation" - "Turn on advanced Haskell indentation." t) -(autoload 'turn-on-haskell-indent "haskell-indent" - "Turn on Haskell indentation." t) -(autoload 'turn-on-haskell-simple-indent "haskell-simple-indent" - "Turn on simple Haskell indentation." t) - -;; Functionality provided in other files. -(autoload 'haskell-ds-create-imenu-index "haskell-decl-scan") -(autoload 'haskell-font-lock-choose-keywords "haskell-font-lock") -(autoload 'haskell-doc-current-info "haskell-doc") - -;; Obsolete functions. -(defun turn-on-haskell-font-lock () - (turn-on-font-lock) - (message "turn-on-haskell-font-lock is obsolete. Use turn-on-font-lock instead.")) -(defun turn-on-haskell-hugs () (message "haskell-hugs is obsolete.")) -(defun turn-on-haskell-ghci () (message "haskell-ghci is obsolete.")) - - -;; Are we looking at a literate script? -(defvar haskell-literate nil - "*If not nil, the current buffer contains a literate Haskell script. -Possible values are: `bird' and `tex', for Bird-style and LaTeX-style -literate scripts respectively. Set by `haskell-mode' and -`literate-haskell-mode'. For an ambiguous literate buffer -- ie. does -not contain either \"\\begin{code}\" or \"\\end{code}\" on a line on -its own, nor does it contain \">\" at the start of a line -- the value -of `haskell-literate-default' is used.") -(make-variable-buffer-local 'haskell-literate) -(put 'haskell-literate 'safe-local-variable 'symbolp) -;; Default literate style for ambiguous literate buffers. -(defcustom haskell-literate-default 'bird - "Default value for `haskell-literate'. -Used if the style of a literate buffer is ambiguous. This variable should -be set to the preferred literate style." - :type '(choice (const bird) (const tex) (const nil))) - -;; Mode maps. -(defvar haskell-mode-map - (let ((map (make-sparse-keymap))) - ;; Bindings for the inferior haskell process: - ;; (define-key map [?\M-C-x] 'inferior-haskell-send-defun) - ;; (define-key map [?\C-x ?\C-e] 'inferior-haskell-send-last-sexp) - ;; (define-key map [?\C-c ?\C-r] 'inferior-haskell-send-region) - (define-key map [?\C-c ?\C-z] 'switch-to-haskell) - (define-key map [?\C-c ?\C-l] 'inferior-haskell-load-file) - ;; I think it makes sense to bind inferior-haskell-load-and-run to C-c - ;; C-r, but since it used to be bound to `reload' until june 2007, I'm - ;; going to leave it out for now. - ;; (define-key map [?\C-c ?\C-r] 'inferior-haskell-load-and-run) - (define-key map [?\C-c ?\C-b] 'switch-to-haskell) - ;; (define-key map [?\C-c ?\C-s] 'inferior-haskell-start-process) - ;; That's what M-; is for. - ;; (define-key map "\C-c\C-c" 'comment-region) - - (define-key map (kbd "C-c C-t") 'inferior-haskell-type) - (define-key map (kbd "C-c C-i") 'inferior-haskell-info) - (define-key map (kbd "C-c M-.") 'inferior-haskell-find-definition) - (define-key map (kbd "C-c C-d") 'inferior-haskell-find-haddock) - - (define-key map [remap delete-indentation] 'haskell-delete-indentation) - map) - "Keymap used in Haskell mode.") - -(easy-menu-define haskell-mode-menu haskell-mode-map - "Menu for the Haskell major mode." - ;; Suggestions from Pupeno : - ;; - choose the underlying interpreter - ;; - look up docs - `("Haskell" - ["Indent line" indent-according-to-mode] - ["Indent region" indent-region mark-active] - ["(Un)Comment region" comment-region mark-active] - "---" - ["Start interpreter" switch-to-haskell] - ["Load file" inferior-haskell-load-file] - "---" - ,(if (default-boundp 'eldoc-documentation-function) - ["Doc mode" eldoc-mode - :style toggle :selected (bound-and-true-p eldoc-mode)] - ["Doc mode" haskell-doc-mode - :style toggle :selected (and (boundp 'haskell-doc-mode) haskell-doc-mode)]) - ["Customize" (customize-group 'haskell)] - )) - -;; Syntax table. -(defvar haskell-mode-syntax-table - (let ((table (make-syntax-table))) - (modify-syntax-entry ?\ " " table) - (modify-syntax-entry ?\t " " table) - (modify-syntax-entry ?\" "\"" table) - (modify-syntax-entry ?\' "\'" table) - (modify-syntax-entry ?_ "w" table) - (modify-syntax-entry ?\( "()" table) - (modify-syntax-entry ?\) ")(" table) - (modify-syntax-entry ?\[ "(]" table) - (modify-syntax-entry ?\] ")[" table) - - (cond ((featurep 'xemacs) - ;; I don't know whether this is equivalent to the below - ;; (modulo nesting). -- fx - (modify-syntax-entry ?{ "(}5" table) - (modify-syntax-entry ?} "){8" table) - (modify-syntax-entry ?- "_ 1267" table)) - (t - ;; In Emacs 21, the `n' indicates that they nest. - ;; The `b' annotation is actually ignored because it's only - ;; meaningful on the second char of a comment-starter, so - ;; on Emacs 20 and before we get wrong results. --Stef - (modify-syntax-entry ?\{ "(}1nb" table) - (modify-syntax-entry ?\} "){4nb" table) - (modify-syntax-entry ?- "_ 123" table))) - (modify-syntax-entry ?\n ">" table) - - (let (i lim) - (map-char-table - (lambda (k v) - (when (equal v '(1)) - ;; The current Emacs 22 codebase can pass either a char - ;; or a char range. - (if (consp k) - (setq i (car k) - lim (cdr k)) - (setq i k - lim k)) - (while (<= i lim) - (when (> i 127) - (modify-syntax-entry i "_" table)) - (setq i (1+ i))))) - (standard-syntax-table))) - - (modify-syntax-entry ?\` "$`" table) - (modify-syntax-entry ?\\ "\\" table) - (mapc (lambda (x) - (modify-syntax-entry x "_" table)) - ;; Some of these are actually OK by default. - "!#$%&*+./:<=>?@^|~") - (unless (featurep 'mule) - ;; Non-ASCII syntax should be OK, at least in Emacs. - (mapc (lambda (x) - (modify-syntax-entry x "_" table)) - (concat "" - "")) - (mapc (lambda (x) - (modify-syntax-entry x "w" table)) - (concat "" - "" - "" - ""))) - table) - "Syntax table used in Haskell mode.") - -(defun haskell-ident-at-point () - "Return the identifier under point, or nil if none found. -May return a qualified name." - (save-excursion - (let ((case-fold-search nil)) - (multiple-value-bind (start end) - (if (looking-at "\\s_") - (values (progn (skip-syntax-backward "_") (point)) - (progn (skip-syntax-forward "_") (point))) - (values - (progn (skip-syntax-backward "w'") - (skip-syntax-forward "'") (point)) - (progn (skip-syntax-forward "w'") (point)))) - ;; If we're looking at a module ID that qualifies further IDs, add - ;; those IDs. - (goto-char start) - (while (and (looking-at "[[:upper:]]") (eq (char-after end) ?.) - ;; It's a module ID that qualifies further IDs. - (goto-char (1+ end)) - (save-excursion - (when (not (zerop (skip-syntax-forward - (if (looking-at "\\s_") "_" "w'")))) - (setq end (point)))))) - ;; If we're looking at an ID that's itself qualified by previous - ;; module IDs, add those too. - (goto-char start) - (if (eq (char-after) ?.) (forward-char 1)) ;Special case for "." - (while (and (eq (char-before) ?.) - (progn (forward-char -1) - (not (zerop (skip-syntax-backward "w'")))) - (skip-syntax-forward "'") - (looking-at "[[:upper:]]")) - (setq start (point))) - ;; This is it. - (buffer-substring-no-properties start end))))) - -(defun haskell-delete-indentation (&optional arg) - "Like `delete-indentation' but ignoring Bird-stlye \">\"." - (interactive "*P") - (let ((fill-prefix (or fill-prefix (if (eq haskell-literate 'bird) ">")))) - (delete-indentation arg))) - -;; Various mode variables. - -(defcustom haskell-mode-hook nil - "Hook run after entering Haskell mode. Do not select more than one of the three indentation modes." - :type 'hook - :options '(turn-on-haskell-indent turn-on-haskell-indentation turn-on-font-lock turn-on-eldoc-mode - turn-on-simple-indent turn-on-haskell-doc-mode imenu-add-menubar-index)) - -(defvar eldoc-print-current-symbol-info-function) - -;; The main mode functions -;;;###autoload -(define-derived-mode haskell-mode fundamental-mode "Haskell" - "Major mode for editing Haskell programs. -Blank lines separate paragraphs, comments start with `-- '. -\\ -Literate scripts are supported via `literate-haskell-mode'. -The variable `haskell-literate' indicates the style of the script in the -current buffer. See the documentation on this variable for more details. - -Modules can hook in via `haskell-mode-hook'. The following modules -are supported with an `autoload' command: - - `haskell-decl-scan', Graeme E Moss - Scans top-level declarations, and places them in a menu. - - `haskell-doc', Hans-Wolfgang Loidl - Echoes types of functions or syntax of keywords when the cursor is idle. - - `haskell-indentation', Kristof Bastiaensen - Intelligent semi-automatic indentation Mk2 - - `haskell-indent', Guy Lapalme - Intelligent semi-automatic indentation. - - `haskell-simple-indent', Graeme E Moss and Heribert Schuetz - Simple indentation. - -Module X is activated using the command `turn-on-X'. For example, -`haskell-indent' is activated using `turn-on-haskell-indent'. -For more information on a module, see the help for its `X-mode' -function. Some modules can be deactivated using `turn-off-X'. (Note -that `haskell-doc' is irregular in using `turn-(on/off)-haskell-doc-mode'.) - -Use `haskell-version' to find out what version this is. - -Invokes `haskell-mode-hook'." - (set (make-local-variable 'paragraph-start) (concat "^$\\|" page-delimiter)) - (set (make-local-variable 'paragraph-separate) paragraph-start) - (set (make-local-variable 'comment-start) "-- ") - (set (make-local-variable 'comment-padding) 0) - (set (make-local-variable 'comment-start-skip) "[-{]-[ \t]*") - (set (make-local-variable 'comment-end) "") - (set (make-local-variable 'comment-end-skip) "[ \t]*\\(-}\\|\\s>\\)") - (set (make-local-variable 'parse-sexp-ignore-comments) t) - ;; Set things up for eldoc-mode. - (set (make-local-variable 'eldoc-documentation-function) - 'haskell-doc-current-info) - ;; Set things up for imenu. - (set (make-local-variable 'imenu-create-index-function) - 'haskell-ds-create-imenu-index) - ;; Set things up for font-lock. - (set (make-local-variable 'font-lock-defaults) - '(haskell-font-lock-choose-keywords - nil nil ((?\' . "w") (?_ . "w")) nil - (font-lock-syntactic-keywords - . haskell-font-lock-choose-syntactic-keywords) - (font-lock-syntactic-face-function - . haskell-syntactic-face-function) - ;; Get help from font-lock-syntactic-keywords. - (parse-sexp-lookup-properties . t))) - ;; Haskell's layout rules mean that TABs have to be handled with extra care. - ;; The safer option is to avoid TABs. The second best is to make sure - ;; TABs stops are 8 chars apart, as mandated by the Haskell Report. --Stef - (set (make-local-variable 'indent-tabs-mode) nil) - (set (make-local-variable 'tab-width) 8) - (setq haskell-literate nil)) - -;;;###autoload -(define-derived-mode literate-haskell-mode haskell-mode "LitHaskell" - "As `haskell-mode' but for literate scripts." - (setq haskell-literate - (save-excursion - (goto-char (point-min)) - (cond - ((re-search-forward "^\\\\\\(begin\\|end\\){code}$" nil t) 'tex) - ((re-search-forward "^>" nil t) 'bird) - (t haskell-literate-default)))) - (if (eq haskell-literate 'bird) - ;; fill-comment-paragraph isn't much use there, and even gets confused - ;; by the syntax-table text-properties we add to mark the first char - ;; of each line as a comment-starter. - (set (make-local-variable 'fill-paragraph-handle-comment) nil)) - (set (make-local-variable 'mode-line-process) - '("/" (:eval (symbol-name haskell-literate))))) - -;;;###autoload(add-to-list 'auto-mode-alist '("\\.\\(?:[gh]s\\|hi\\)\\'" . haskell-mode)) -;;;###autoload(add-to-list 'auto-mode-alist '("\\.l[gh]s\\'" . literate-haskell-mode)) - -(defcustom haskell-hoogle-command - (if (executable-find "hoogle") "hoogle") - "Name of the command to use to query Hoogle. -If nil, use the Hoogle web-site." - :type '(choice (const :tag "Use Web-site" nil) - string)) - -;;;###autoload -(defun haskell-hoogle (query) - "Do a Hoogle search for QUERY." - (interactive - (let ((def (haskell-ident-at-point))) - (if (and def (symbolp def)) (setq def (symbol-name def))) - (list (read-string (if def - (format "Hoogle query (default %s): " def) - "Hoogle query: ") - nil nil def)))) - (if (null haskell-hoogle-command) - (browse-url (format "http://haskell.org/hoogle/?q=%s" query)) - (if (fboundp 'help-setup-xref) - (help-setup-xref (list 'haskell-hoogle query) (interactive-p))) - (with-output-to-temp-buffer - (if (fboundp 'help-buffer) (help-buffer) "*Help*") - (with-current-buffer standard-output - (start-process "hoogle" (current-buffer) haskell-hoogle-command - query))))) - -;;;###autoload -(defalias 'hoogle 'haskell-hoogle) - -;;;###autoload -(defun haskell-hayoo (query) - "Do a Hayoo search for QUERY." - (interactive - (let ((def (haskell-ident-at-point))) - (if (and def (symbolp def)) (setq def (symbol-name def))) - (list (read-string (if def - (format "Hayoo query (default %s): " def) - "Hayoo query: ") - nil nil def)))) - (browse-url (format "http://holumbus.fh-wedel.de/hayoo/hayoo.html?query=%s" query))) - -;;;###autoload -(defalias 'hayoo 'haskell-hayoo) - - -;; Provide ourselves: - -(provide 'haskell-mode) - -;; arch-tag: b2237ec0-ddb0-4c86-9339-52d410264980 -;;; haskell-mode.el ends here diff --git a/.emacs.d.backup/haskell-mode/haskell-simple-indent.el b/.emacs.d.backup/haskell-mode/haskell-simple-indent.el deleted file mode 100644 index 708ccf1..0000000 --- a/.emacs.d.backup/haskell-mode/haskell-simple-indent.el +++ /dev/null @@ -1,154 +0,0 @@ -;;; haskell-simple-indent.el --- Simple indentation module for Haskell Mode - -;; Copyright (C) 1998 Heribert Schuetz, Graeme E Moss - -;; Authors: -;; 1998 Heribert Schuetz and -;; Graeme E Moss -;; Keywords: indentation files Haskell -;; Version: 1.0 -;; URL: http://www.cs.york.ac.uk/~gem/haskell-mode/simple-indent.html - -;; This file is not part of GNU Emacs. - -;; This file 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 3, or (at your option) -;; any later version. - -;; This file 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: - -;; Purpose: -;; -;; To support simple indentation of Haskell scripts. -;; -;; -;; Installation: -;; -;; To bind TAB to the indentation command for all Haskell buffers, add -;; this to .emacs: -;; -;; (add-hook 'haskell-mode-hook 'turn-on-haskell-simple-indent) -;; -;; Otherwise, call `turn-on-haskell-simple-indent'. -;; -;; -;; Customisation: -;; -;; None supported. -;; -;; -;; History: -;; -;; If you have any problems or suggestions, after consulting the list -;; below, email gem@cs.york.ac.uk quoting the version of you are -;; using, the version of Emacs you are using, and a small example of -;; the problem or suggestion. -;; -;; Version 1.0: -;; Brought over from Haskell mode v1.1. -;; -;; Present Limitations/Future Work (contributions are most welcome!): -;; -;; (None so far.) - -;;; Code: - -;; All functions/variables start with -;; `(turn-(on/off)-)haskell-simple-indent'. - -;; Version. -(defconst haskell-simple-indent-version "1.2" - "`haskell-simple-indent' version number.") -(defun haskell-simple-indent-version () - "Echo the current version of `haskell-simple-indent' in the minibuffer." - (interactive) - (message "Using haskell-simple-indent version %s" - haskell-simple-indent-version)) - -;; Partly stolen from `indent-relative' in indent.el: -(defun haskell-simple-indent () - "Space out to under next visible indent point. -Indent points are positions of non-whitespace following whitespace in -lines preceeding point. A position is visible if it is to the left of -the first non-whitespace of every nonblank line between the position and -the current line. If there is no visible indent point beyond the current -column, `tab-to-tab-stop' is done instead." - (interactive) - (let* ((start-column (current-column)) - (invisible-from nil) ; `nil' means infinity here - (indent - (catch 'haskell-simple-indent-break - (save-excursion - (while (progn (beginning-of-line) - (not (bobp))) - (forward-line -1) - (if (not (looking-at "[ \t]*\n")) - (let ((this-indentation (current-indentation))) - (if (or (not invisible-from) - (< this-indentation invisible-from)) - (if (> this-indentation start-column) - (setq invisible-from this-indentation) - (let ((end (line-beginning-position 2))) - (move-to-column start-column) - ;; Is start-column inside a tab on this line? - (if (> (current-column) start-column) - (backward-char 1)) - (or (looking-at "[ \t]") - (skip-chars-forward "^ \t" end)) - (skip-chars-forward " \t" end) - (let ((col (current-column))) - (throw 'haskell-simple-indent-break - (if (or (= (point) end) - (and invisible-from - (> col invisible-from))) - invisible-from - col))))))))))))) - (if indent - (let ((opoint (point-marker))) - (indent-line-to indent) - (if (> opoint (point)) - (goto-char opoint)) - (set-marker opoint nil)) - (tab-to-tab-stop)))) - -(defvar haskell-simple-indent-old) - -;; The main functions. -(defun turn-on-haskell-simple-indent () - "Set `indent-line-function' to a simple indentation function. -TAB will now move the cursor to the next indent point in the previous -nonblank line. An indent point is a non-whitespace character following -whitespace. - -Runs `haskell-simple-indent-hook'. - -Use `haskell-simple-indent-version' to find out what version this is." - (set (make-local-variable 'haskell-simple-indent-old) indent-line-function) - (set (make-local-variable 'indent-line-function) 'haskell-simple-indent) - (run-hooks 'haskell-simple-indent-hook)) - -(defun turn-off-haskell-simple-indent () - "Return `indent-line-function' to original value. -I.e. the value before `turn-on-haskell-simple-indent' was called." - (when (local-variable-p 'haskell-simple-indent-old) - (setq indent-line-function haskell-simple-indent-old) - (kill-local-variable 'haskell-simple-indent-old))) - -;; Provide ourselves: - -(provide 'haskell-simple-indent) - -;; arch-tag: 18a08122-723b-485e-b958-e1cf8218b816 -;;; haskell-simple-indent.el ends here diff --git a/.emacs.d.backup/haskell-mode/haskell-site-file.el b/.emacs.d.backup/haskell-mode/haskell-site-file.el deleted file mode 100644 index d0657bd..0000000 --- a/.emacs.d.backup/haskell-mode/haskell-site-file.el +++ /dev/null @@ -1,274 +0,0 @@ - -;;;### (autoloads (haskell-c-mode) "haskell-c" "haskell-c.el" (19189 -;;;;;; 21847)) -;;; Generated autoloads from haskell-c.el - -(add-to-list 'auto-mode-alist '("\\.hsc\\'" . haskell-c-mode)) - -(autoload 'haskell-c-mode "haskell-c" "\ -Major mode for Haskell FFI files. - -\(fn)" t nil) - -;;;*** - -;;;### (autoloads (haskell-cabal-mode) "haskell-cabal" "haskell-cabal.el" -;;;;;; (19189 21847)) -;;; Generated autoloads from haskell-cabal.el - -(add-to-list 'auto-mode-alist '("\\.cabal\\'" . haskell-cabal-mode)) - -(autoload 'haskell-cabal-mode "haskell-cabal" "\ -Major mode for Cabal package description files. - -\(fn)" t nil) - -;;;*** - -;;;### (autoloads (haskell-decl-scan-mode) "haskell-decl-scan" "haskell-decl-scan.el" -;;;;;; (19189 21847)) -;;; Generated autoloads from haskell-decl-scan.el - -(autoload 'haskell-decl-scan-mode "haskell-decl-scan" "\ -Minor mode for declaration scanning for Haskell mode. -Top-level declarations are scanned and listed in the menu item \"Declarations\". -Selecting an item from this menu will take point to the start of the -declaration. - -\\[haskell-ds-forward-decl] and \\[haskell-ds-backward-decl] move forward and backward to the start of a declaration. - -Under XEmacs, the following keys are also defined: - -\\[fume-list-functions] lists the declarations of the current buffer, -\\[fume-prompt-function-goto] prompts for a declaration to move to, and -\\[fume-mouse-function-goto] moves to the declaration whose name is at point. - -This may link with `haskell-doc' (only for Emacs currently). - -For non-literate and LaTeX-style literate scripts, we assume the -common convention that top-level declarations start at the first -column. For Bird-style literate scripts, we assume the common -convention that top-level declarations start at the third column, -ie. after \"> \". - -Anything in `font-lock-comment-face' is not considered for a -declaration. Therefore, using Haskell font locking with comments -coloured in `font-lock-comment-face' improves declaration scanning. - -To turn on declaration scanning for all Haskell buffers, add this to -.emacs: - - (add-hook 'haskell-mode-hook 'turn-on-haskell-decl-scan) - -To turn declaration scanning on for the current buffer, call -`turn-on-haskell-decl-scan'. - -Literate Haskell scripts are supported: If the value of -`haskell-literate' (automatically set by the Haskell mode of -Moss&Thorn) is `bird', a Bird-style literate script is assumed. If it -is nil or `tex', a non-literate or LaTeX-style literate script is -assumed, respectively. - -Invokes `haskell-decl-scan-mode-hook'. - -\(fn &optional ARG)" t nil) - -;;;*** - -;;;### (autoloads (haskell-doc-show-type haskell-doc-mode) "haskell-doc" -;;;;;; "haskell-doc.el" (19189 21847)) -;;; Generated autoloads from haskell-doc.el - -(autoload 'haskell-doc-mode "haskell-doc" "\ -Enter `haskell-doc-mode' for showing fct types in the echo area. -See variable docstring. - -\(fn &optional ARG)" t nil) - -(defalias 'turn-on-haskell-doc-mode 'haskell-doc-mode) - -(autoload 'haskell-doc-show-type "haskell-doc" "\ -Show the type of the function near point. -For the function under point, show the type in the echo area. -This information is extracted from the `haskell-doc-prelude-types' alist -of prelude functions and their types, or from the local functions in the -current buffer. - -\(fn &optional SYM)" t nil) - -;;;*** - -;;;### (autoloads (haskell-indent-mode) "haskell-indent" "haskell-indent.el" -;;;;;; (19189 21847)) -;;; Generated autoloads from haskell-indent.el - -(autoload 'haskell-indent-mode "haskell-indent" "\ -``intelligent'' Haskell indentation mode that deals with -the layout rule of Haskell. \\[haskell-indent-cycle] starts the cycle -which proposes new possibilities as long as the TAB key is pressed. -Any other key or mouse click terminates the cycle and is interpreted -except for RET which merely exits the cycle. -Other special keys are: - \\[haskell-indent-insert-equal] - inserts an = - \\[haskell-indent-insert-guard] - inserts an | - \\[haskell-indent-insert-otherwise] - inserts an | otherwise = -these functions also align the guards and rhs of the current definition - \\[haskell-indent-insert-where] - inserts a where keyword - \\[haskell-indent-align-guards-and-rhs] - aligns the guards and rhs of the region - \\[haskell-indent-put-region-in-literate] - makes the region a piece of literate code in a literate script - -Invokes `haskell-indent-hook' if not nil. - -\(fn &optional ARG)" t nil) - -;;;*** - -;;;### (autoloads (haskell-indentation-mode) "haskell-indentation" -;;;;;; "haskell-indentation.el" (19189 21847)) -;;; Generated autoloads from haskell-indentation.el - -(autoload 'haskell-indentation-mode "haskell-indentation" "\ -Haskell indentation mode that deals with the layout rule. -It rebinds RET, DEL and BACKSPACE, so that indentations can be -set and deleted as if they were real tabs. It supports -autofill-mode. - -\(fn &optional ARG)" t nil) - -;;;*** - -;;;### (autoloads (haskell-hayoo haskell-hoogle literate-haskell-mode -;;;;;; haskell-mode) "haskell-mode" "haskell-mode.el" (19189 21847)) -;;; Generated autoloads from haskell-mode.el - -(add-to-list 'load-path (or (file-name-directory load-file-name) (car load-path))) - -(autoload 'haskell-mode "haskell-mode" "\ -Major mode for editing Haskell programs. -Blank lines separate paragraphs, comments start with `-- '. -\\ -Literate scripts are supported via `literate-haskell-mode'. -The variable `haskell-literate' indicates the style of the script in the -current buffer. See the documentation on this variable for more details. - -Modules can hook in via `haskell-mode-hook'. The following modules -are supported with an `autoload' command: - - `haskell-decl-scan', Graeme E Moss - Scans top-level declarations, and places them in a menu. - - `haskell-doc', Hans-Wolfgang Loidl - Echoes types of functions or syntax of keywords when the cursor is idle. - - `haskell-indentation', Kristof Bastiaensen - Intelligent semi-automatic indentation Mk2 - - `haskell-indent', Guy Lapalme - Intelligent semi-automatic indentation. - - `haskell-simple-indent', Graeme E Moss and Heribert Schuetz - Simple indentation. - -Module X is activated using the command `turn-on-X'. For example, -`haskell-indent' is activated using `turn-on-haskell-indent'. -For more information on a module, see the help for its `X-mode' -function. Some modules can be deactivated using `turn-off-X'. (Note -that `haskell-doc' is irregular in using `turn-(on/off)-haskell-doc-mode'.) - -Use `haskell-version' to find out what version this is. - -Invokes `haskell-mode-hook'. - -\(fn)" t nil) - -(autoload 'literate-haskell-mode "haskell-mode" "\ -As `haskell-mode' but for literate scripts. - -\(fn)" t nil) -(add-to-list 'auto-mode-alist '("\\.\\(?:[gh]s\\|hi\\)\\'" . haskell-mode)) -(add-to-list 'auto-mode-alist '("\\.l[gh]s\\'" . literate-haskell-mode)) - -(autoload 'haskell-hoogle "haskell-mode" "\ -Do a Hoogle search for QUERY. - -\(fn QUERY)" t nil) - -(defalias 'hoogle 'haskell-hoogle) - -(autoload 'haskell-hayoo "haskell-mode" "\ -Do a Hayoo search for QUERY. - -\(fn QUERY)" t nil) - -(defalias 'hayoo 'haskell-hayoo) - -;;;*** - -;;;### (autoloads (inferior-haskell-find-haddock inferior-haskell-find-definition -;;;;;; inferior-haskell-info inferior-haskell-type inferior-haskell-load-file -;;;;;; switch-to-haskell) "inf-haskell" "inf-haskell.el" (19189 -;;;;;; 21847)) -;;; Generated autoloads from inf-haskell.el - -(defalias 'run-haskell 'switch-to-haskell) - -(autoload 'switch-to-haskell "inf-haskell" "\ -Show the inferior-haskell buffer. Start the process if needed. - -\(fn &optional ARG)" t nil) - -(autoload 'inferior-haskell-load-file "inf-haskell" "\ -Pass the current buffer's file to the inferior haskell process. -If prefix arg \\[universal-argument] is given, just reload the previous file. - -\(fn &optional RELOAD)" t nil) - -(autoload 'inferior-haskell-type "inf-haskell" "\ -Query the haskell process for the type of the given expression. -If optional argument `insert-value' is non-nil, insert the type above point -in the buffer. This can be done interactively with the \\[universal-argument] prefix. -The returned info is cached for reuse by `haskell-doc-mode'. - -\(fn EXPR &optional INSERT-VALUE)" t nil) - -(autoload 'inferior-haskell-info "inf-haskell" "\ -Query the haskell process for the info of the given expression. - -\(fn SYM)" t nil) - -(autoload 'inferior-haskell-find-definition "inf-haskell" "\ -Attempt to locate and jump to the definition of the given expression. - -\(fn SYM)" t nil) - -(autoload 'inferior-haskell-find-haddock "inf-haskell" "\ -Find and open the Haddock documentation of SYM. -Make sure to load the file into GHCi or Hugs first by using C-c C-l. -Only works for functions in a package installed with ghc-pkg, or -whatever the value of `haskell-package-manager-name' is. - -This function needs to find which package a given module belongs -to. In order to do this, it computes a module-to-package lookup -alist, which is expensive to compute (it takes upwards of five -seconds with more than about thirty installed packages). As a -result, we cache it across sessions using the cache file -referenced by `inferior-haskell-module-alist-file'. We test to -see if this is newer than `haskell-package-conf-file' every time -we load it. - -\(fn SYM)" t nil) - -;;;*** - -;;;### (autoloads nil nil ("haskell-font-lock.el" "haskell-ghci.el" -;;;;;; "haskell-hugs.el" "haskell-simple-indent.el") (19189 21847 -;;;;;; 934450)) - -;;;*** - diff --git a/.emacs.d.backup/haskell-mode/indent.hs b/.emacs.d.backup/haskell-mode/indent.hs deleted file mode 100644 index 88daf5e..0000000 --- a/.emacs.d.backup/haskell-mode/indent.hs +++ /dev/null @@ -1,157 +0,0 @@ -------------------------------------------------------------------------- --- Comments with allcaps `FIXME' indicate places where the indentation -- --- fails to find the correct indentation, whereas comments with -- --- lowercase `fixme' indicate places where impossible indentations -- --- are uselessly proposed. -- -------------------------------------------------------------------------- - --- compute the list of binary digits corresponding to an integer --- Note: the least significant bit is the first element of the list -bdigits :: Int -> [Int] -bdigits 0 = [0] -bdigits 1 = [1] -bdigits n | n>1 = n `mod` 2 : - bdigits (n `div` 2) - | otherwise = error "bdigits of a negative number" - --- compute the value of an integer given its list of binary digits --- Note: the least significant bit is the first element of the list -bvalue :: [Int]->Int -bvalue [] = error "bvalue of []" -bvalue s = bval 1 s - where - bval e [] = 0 - bval e [] = 0 -- fixme: can't align with `where'. - bval e (b:bs) | b==0 || b=="dd of " = b*e + bval (2*e) bs - | otherwise = error "ill digit" -- Spurious 3rd step. - foo - --- fixme: tab on the line above should insert `bvalue' at some point. - -{- text - indentation - inside comments - -} -toto a = ( hello - , there -- indentation of leading , and ; - -- indentation of this comment. - , my friends ) - -lili x = do let ofs x = 1 - print x - -titi b = - let -- fixme: can't indent at column 0 - x = let toto = 1 - tata = 2 -- fixme: can't indent lower than `toto'. - in - toto in - do expr1 - {- text - - indentation - - inside comments - -} - let foo s = let fro = 1 - fri = 2 -- fixme: can't indent lower than `fro'. - in - hello - foo2 = bar2 -- fixme: can't align with arg `s' in foo. - foo1 = bar2 -- fixme: Can't be column 0. - expr2 - -tata c = - let bar = case foo -- fixme: can't be col 0. - of 1 -> blabla - 2 -> blibli -- fixme: only one possible indentation here. - bar = case foo of - _ -> blabla - bar' = case foo - of _ -> blabla - toto -> plulu - -turlu d = if test - then - ifturl - else - adfaf - -turlu d = if test then - ifturl - else - sg - -turly fg = toto - where - hello = 2 - - --- test from John Goerzen - -x myVariableThing = case myVariablething of - Just z -> z - Nothing -> 0 -- fixme: "spurious" additional indents. - -foo = let x = 1 in toto - titi -- FIXME - -foo = let foo x y = toto - where - toto = 2 - -instance Show Toto where - foo x 4 = 50 - -data Toto = Foo - | Bar - deriving (Show) -- FIXME - -foo = let toto x = do let bar = 2 - return 1 - in 3 - - eval env (Llambda x e) = -- FIXME: sole indentation is self??? - Vfun (\v -> eval (\y -> if (x == y) then v else env y) -- FIXME - e) -- FIXME - -foo = case findprop attr props of - Just x -> x - -data T = T { granularity :: (Int, Int, Int, Int) -- FIXME: self indentation? - , items :: Map (Int, Int, Int, Int) [Item] } - -foo = case foo of - [] -> - case bar of - [] -> - return () - (x:xs) -> -- FIXME - -bar = do toto - if titi - then tutu -- FIXME - else tata -- FIXME - -insert :: Ord a => a -> b -> TreeMap a b -> TreeMap a b -insert x v Empty = Node 0 x v Empty Empty -insert x v (Node d x' v' t1 t2) - | x == x' = Node d x v t1 t2 - | x < x' = Node ? x' v' (insert x v t1 Empty) t2 - | -- FIXME: wrong indent *if at EOB* - - -tinsertb x v (Node x' v' d1 t1 d2 t2) - | x == x' = (1 + max d1 d2, Node x v d1 t1 d2 t2) - | x < x' = - case () of - _ | d1' <= d2 + 1 => (1 + max d1' d2, Node x' v' d1' t1' d2 t2) - -- d1' == d2 + 2: Need to rotate to rebalance. FIXME CRASH - else let (Node x'' v'' d1'' t1'' d2'' t2'') = t1' - -test = if True then - toto - else if False then - tata -- FIXME - else -- FIXME - titi - --- arch-tag: de0069e3-c0a0-495c-b441-d4ff6e0509b1 diff --git a/.emacs.d.backup/haskell-mode/inf-haskell.el b/.emacs.d.backup/haskell-mode/inf-haskell.el deleted file mode 100644 index ace187f..0000000 --- a/.emacs.d.backup/haskell-mode/inf-haskell.el +++ /dev/null @@ -1,720 +0,0 @@ -;;; inf-haskell.el --- Interaction with an inferior Haskell process. - -;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. - -;; Author: Stefan Monnier -;; Keywords: Haskell - -;; This file 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 3, or (at your option) -;; any later version. - -;; This file 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: - -;; The code is made of 2 parts: a major mode for the buffer that holds the -;; inferior process's session and a minor mode for use in source buffers. - -;; Todo: - -;; - Check out Shim for ideas. -;; - i-h-load-buffer and i-h-send-region. - -;;; Code: - -(require 'comint) -(require 'shell) ;For directory tracking. -(require 'compile) -(require 'haskell-mode) -(eval-when-compile (require 'cl)) - -;; XEmacs compatibility. - -(unless (fboundp 'subst-char-in-string) - (defun subst-char-in-string (fromchar tochar string &optional inplace) - ;; This is Haskell-mode, we don't want no stinkin' `aset'. - (apply 'string (mapcar (lambda (c) (if (eq c fromchar) tochar c)) string)))) - -(unless (fboundp 'make-temp-file) - (defun make-temp-file (prefix &optional dir-flag) - (catch 'done - (while t - (let ((f (make-temp-name (expand-file-name prefix (temp-directory))))) - (condition-case () - (progn - (if dir-flag (make-directory f) - (write-region "" nil f nil 'silent nil)) - (throw 'done f)) - (file-already-exists t))))))) - -(unless (fboundp 'replace-regexp-in-string) - (defun replace-regexp-in-string (regexp rep string) - (replace-in-string string regexp rep))) - -;; Here I depart from the inferior-haskell- prefix. -;; Not sure if it's a good idea. -(defcustom haskell-program-name - ;; Arbitrarily give preference to hugs over ghci. - (or (cond - ((not (fboundp 'executable-find)) nil) - ((executable-find "hugs") "hugs \"+.\"") - ((executable-find "ghci") "ghci")) - "hugs \"+.\"") - "The name of the command to start the inferior Haskell process. -The command can include arguments." - ;; Custom only supports the :options keyword for a few types, e.g. not - ;; for string. - ;; :options '("hugs \"+.\"" "ghci") - :group 'haskell - :type '(choice string (repeat string))) - -(defconst inferior-haskell-info-xref-re - "\t-- Defined at \\(.+\\):\\([0-9]+\\):\\([0-9]+\\)\\(?:-\\([0-9]+\\)\\)?$") - -(defconst inferior-haskell-module-re - "\t-- Defined in \\(.+\\)$" - "Regular expression for matching module names in :info.") - -(defconst inferior-haskell-error-regexp-alist - ;; The format of error messages used by Hugs. - `(("^ERROR \"\\(.+?\\)\"\\(:\\| line \\)\\([0-9]+\\) - " 1 3) - ;; Format of error messages used by GHCi. - ("^\\(.+?\\):\\([0-9]+\\):\\(\\([0-9]+\\):\\)?\\( \\|\n *\\)\\(Warning\\)?" - 1 2 4 ,@(if (fboundp 'compilation-fake-loc) - '((6) nil (5 '(face nil font-lock-multiline t))))) - ;; Runtime exceptions, from ghci. - ("^\\*\\*\\* Exception: \\(.+?\\):(\\([0-9]+\\),\\([0-9]+\\))-(\\([0-9]+\\),\\([0-9]+\\)): .*" - 1 ,@(if (fboundp 'compilation-fake-loc) '((2 . 4) (3 . 5)) '(2 3))) - ;; GHCi uses two different forms for line/col ranges, depending on - ;; whether it's all on the same line or not :-( In Emacs-23, I could use - ;; explicitly numbered subgroups to merge the two patterns. - ("^\\*\\*\\* Exception: \\(.+?\\):\\([0-9]+\\):\\([0-9]+\\)-\\([0-9]+\\): .*" - 1 2 ,(if (fboundp 'compilation-fake-loc) '(3 . 4) 3)) - ;; Info messages. Not errors per se. - ,@(when (fboundp 'compilation-fake-loc) - `(;; Other GHCi patterns used in type errors. - ("^[ \t]+at \\(.+\\):\\([0-9]+\\):\\([0-9]+\\)-\\([0-9]+\\)$" - 1 2 (3 . 4) 0) - ;; Foo.hs:318:80: - ;; Ambiguous occurrence `Bar' - ;; It could refer to either `Bar', defined at Zork.hs:311:5 - ;; or `Bar', imported from Bars at Frob.hs:32:0-16 - ;; (defined at Location.hs:97:5) - ("[ (]defined at \\(.+\\):\\([0-9]+\\):\\([0-9]+\\))?$" 1 2 3 0) - ("imported from .* at \\(.+\\):\\([0-9]+\\):\\([0-9]+\\)-\\([0-9]+\\)$" - 1 2 (3 . 4) 0) - ;; Info xrefs. - (,inferior-haskell-info-xref-re 1 2 (3 . 4) 0)))) - "Regexps for error messages generated by inferior Haskell processes. -The format should be the same as for `compilation-error-regexp-alist'.") - -(defcustom inferior-haskell-find-project-root t - "If non-nil, try and find the project root directory of this file. -This will either look for a Cabal file or a \"module\" statement in the file." - :type 'boolean) - -(define-derived-mode inferior-haskell-mode comint-mode "Inf-Haskell" - "Major mode for interacting with an inferior Haskell process." - (set (make-local-variable 'comint-prompt-regexp) - "^\\*?[A-Z][\\._a-zA-Z0-9]*\\( \\*?[A-Z][\\._a-zA-Z0-9]*\\)*> ") - (set (make-local-variable 'comint-input-autoexpand) nil) - (add-hook 'comint-output-filter-functions 'inferior-haskell-spot-prompt nil t) - - ;; Setup directory tracking. - (set (make-local-variable 'shell-cd-regexp) ":cd") - (condition-case nil - (shell-dirtrack-mode 1) - (error ;The minor mode function may not exist or not accept an arg. - (set (make-local-variable 'shell-dirtrackp) t) - (add-hook 'comint-input-filter-functions 'shell-directory-tracker - nil 'local))) - - ;; Setup `compile' support so you can just use C-x ` and friends. - (set (make-local-variable 'compilation-error-regexp-alist) - inferior-haskell-error-regexp-alist) - (set (make-local-variable 'compilation-first-column) 0) ;GHCI counts from 0. - (if (and (not (boundp 'minor-mode-overriding-map-alist)) - (fboundp 'compilation-shell-minor-mode)) - ;; If we can't remove compilation-minor-mode bindings, at least try to - ;; use compilation-shell-minor-mode, so there are fewer - ;; annoying bindings. - (compilation-shell-minor-mode 1) - ;; Else just use compilation-minor-mode but without its bindings because - ;; things like mouse-2 are simply too annoying. - (compilation-minor-mode 1) - (let ((map (make-sparse-keymap))) - (dolist (keys '([menu-bar] [follow-link])) - ;; Preserve some of the bindings. - (define-key map keys (lookup-key compilation-minor-mode-map keys))) - (add-to-list 'minor-mode-overriding-map-alist - (cons 'compilation-minor-mode map))))) - -(defun inferior-haskell-string-to-strings (string) - "Split the STRING into a list of strings." - (let ((i (string-match "[\"]" string))) - (if (null i) (split-string string) ; no quoting: easy - (append (unless (eq i 0) (split-string (substring string 0 i))) - (let ((rfs (read-from-string string i))) - (cons (car rfs) - (inferior-haskell-string-to-strings - (substring string (cdr rfs))))))))) - -(defun inferior-haskell-command (arg) - (inferior-haskell-string-to-strings - (if (null arg) haskell-program-name - (read-string "Command to run haskell: " haskell-program-name)))) - -(defvar inferior-haskell-buffer nil - "The buffer in which the inferior process is running.") - -(defun inferior-haskell-start-process (command) - "Start an inferior haskell process. -With universal prefix \\[universal-argument], prompts for a COMMAND, -otherwise uses `haskell-program-name'. -It runs the hook `inferior-haskell-hook' after starting the process and -setting up the inferior-haskell buffer." - (interactive (list (inferior-haskell-command current-prefix-arg))) - (setq inferior-haskell-buffer - (apply 'make-comint "haskell" (car command) nil (cdr command))) - (with-current-buffer inferior-haskell-buffer - (inferior-haskell-mode) - (run-hooks 'inferior-haskell-hook))) - -(defun inferior-haskell-process (&optional arg) - (or (if (buffer-live-p inferior-haskell-buffer) - (get-buffer-process inferior-haskell-buffer)) - (progn - (let ((current-prefix-arg arg)) - (call-interactively 'inferior-haskell-start-process)) - ;; Try again. - (inferior-haskell-process arg)))) - -;;;###autoload -(defalias 'run-haskell 'switch-to-haskell) -;;;###autoload -(defun switch-to-haskell (&optional arg) - "Show the inferior-haskell buffer. Start the process if needed." - (interactive "P") - (let ((proc (inferior-haskell-process arg))) - (pop-to-buffer (process-buffer proc)))) - -(eval-when-compile - (unless (fboundp 'with-selected-window) - (defmacro with-selected-window (win &rest body) - `(save-selected-window - (select-window ,win) - ,@body)))) - -(defcustom inferior-haskell-wait-and-jump nil - "If non-nil, wait for file loading to terminate and jump to the error." - :type 'boolean - :group 'haskell) - -(defvar inferior-haskell-seen-prompt nil) -(make-variable-buffer-local 'inferior-haskell-seen-prompt) - -(defun inferior-haskell-spot-prompt (string) - (let ((proc (get-buffer-process (current-buffer)))) - (when proc - (save-excursion - (goto-char (process-mark proc)) - (if (re-search-backward comint-prompt-regexp - (line-beginning-position) t) - (setq inferior-haskell-seen-prompt t)))))) - -(defun inferior-haskell-wait-for-prompt (proc &optional timeout) - "Wait until PROC sends us a prompt. -The process PROC should be associated to a comint buffer." - (with-current-buffer (process-buffer proc) - (while (progn - (goto-char comint-last-input-end) - (not (or inferior-haskell-seen-prompt - (setq inferior-haskell-seen-prompt - (re-search-forward comint-prompt-regexp nil t)) - (not (accept-process-output proc timeout)))))) - (unless inferior-haskell-seen-prompt - (error "Can't find the prompt.")))) - -(defvar inferior-haskell-cabal-buffer nil) - -(defun inferior-haskell-cabal-of-buf (buf) - (require 'haskell-cabal) - (with-current-buffer buf - (or (and (buffer-live-p inferior-haskell-cabal-buffer) - inferior-haskell-cabal-buffer) - (and (not (local-variable-p 'inferior-haskell-cabal-buffer - ;; XEmacs needs this argument. - (current-buffer))) - (set (make-local-variable 'inferior-haskell-cabal-buffer) - (haskell-cabal-find-file)))))) - -(defun inferior-haskell-find-project-root (buf) - (with-current-buffer buf - (let ((cabal (inferior-haskell-cabal-of-buf buf))) - (or (when cabal - (with-current-buffer cabal - (let ((hsd (haskell-cabal-get-setting "hs-source-dirs"))) - (if (null hsd) - ;; If there's a Cabal file with no Hs-Source-Dirs, then - ;; just use the Cabal file's directory. - default-directory - ;; If there is an HSD, then check that it's an existing - ;; dir (otherwise, it may be a list of dirs and we don't - ;; know what to do with those). If it doesn't exist, then - ;; give up. - (if (file-directory-p hsd) (expand-file-name hsd)))))) - ;; If there's no Cabal file or it's not helpful, try to look for - ;; a "module" statement and count the number of "." in the - ;; module name. - (save-excursion - (goto-char (point-min)) - (let ((case-fold-search nil)) - (when (re-search-forward - "^module[ \t]+\\([^- \t\n]+\\.[^- \t\n]+\\)[ \t]+where\\>" nil t) - (let* ((dir default-directory) - (module (match-string 1)) - (pos 0)) - (while (string-match "\\." module pos) - (setq pos (match-end 0)) - (setq dir (expand-file-name ".." dir))) - ;; Let's check that the module name matches the file name, - ;; otherwise the project root is probably not what we think. - (if (eq t (compare-strings - (file-name-sans-extension buffer-file-name) - nil nil - (expand-file-name - (replace-regexp-in-string "\\." "/" module) - dir) - nil nil t)) - dir - ;; If they're not equal, it means the local directory - ;; hierarchy doesn't match the module name. This seems - ;; odd, so let's warn the user about it. May help us - ;; debug this code as well. - (message "Ignoring inconsistent `module' info: %s in %s" - module buffer-file-name) - nil))))))))) - - - -;;;###autoload -(defun inferior-haskell-load-file (&optional reload) - "Pass the current buffer's file to the inferior haskell process. -If prefix arg \\[universal-argument] is given, just reload the previous file." - (interactive "P") - ;; Save first, so we're sure that `buffer-file-name' is non-nil afterward. - (save-buffer) - (let ((buf (current-buffer)) - (file buffer-file-name) - (proc (inferior-haskell-process))) - (with-current-buffer (process-buffer proc) - (compilation-forget-errors) - (let ((parsing-end (marker-position (process-mark proc))) - root) - ;; Go to the root of the Cabal project, if applicable. - (when (and inferior-haskell-find-project-root - (setq root (inferior-haskell-find-project-root buf))) - ;; Not sure if it's useful/needed and if it actually works. - (unless (equal default-directory root) - (setq default-directory root) - (inferior-haskell-send-command - proc (concat ":cd " default-directory))) - (setq file (file-relative-name file))) - (inferior-haskell-send-command - proc (if reload ":reload" - (concat ":load \"" - ;; Espace the backslashes that may occur in file names. - (replace-regexp-in-string "[\\\"]" "\\\\\&" file) - "\""))) - ;; Move the parsing-end marker *after* sending the command so - ;; that it doesn't point just to the insertion point. - ;; Otherwise insertion may move the marker (if done with - ;; insert-before-markers) and we'd then miss some errors. - (if (boundp 'compilation-parsing-end) - (if (markerp compilation-parsing-end) - (set-marker compilation-parsing-end parsing-end) - (setq compilation-parsing-end parsing-end)))) - (with-selected-window (display-buffer (current-buffer)) - (goto-char (point-max))) - ;; Use compilation-auto-jump-to-first-error if available. - ;; (if (and (boundp 'compilation-auto-jump-to-first-error) - ;; compilation-auto-jump-to-first-error - ;; (boundp 'compilation-auto-jump-to-next)) - ;; (setq compilation-auto-jump-to-next t) - (when inferior-haskell-wait-and-jump - (inferior-haskell-wait-for-prompt proc) - (ignore-errors ;Don't beep if there were no errors. - (next-error)))))) ;; ) - -(defvar inferior-haskell-run-command ":main") - -(defun inferior-haskell-load-and-run (command) - "Pass the current buffer's file to haskell and then run a COMMAND." - (interactive - (list - (if (and inferior-haskell-run-command (not current-prefix-arg)) - inferior-haskell-run-command - (read-string "Command to run: " nil nil inferior-haskell-run-command)))) - (setq inferior-haskell-run-command command) - (let* ((inferior-haskell-errors nil) - (neh (lambda () (setq inferior-haskell-errors t)))) - (unwind-protect - (let ((inferior-haskell-wait-and-jump t)) - (add-hook 'next-error-hook neh) - (inferior-haskell-load-file)) - (remove-hook 'next-error-hook neh)) - (unless inferior-haskell-errors - (inferior-haskell-send-command (inferior-haskell-process) command) - (switch-to-haskell)))) - -(defun inferior-haskell-send-command (proc str) - (setq str (concat str "\n")) - (with-current-buffer (process-buffer proc) - (inferior-haskell-wait-for-prompt proc) - (goto-char (process-mark proc)) - (insert-before-markers str) - (move-marker comint-last-input-end (point)) - (setq inferior-haskell-seen-prompt nil) - (comint-send-string proc str))) - -(defun inferior-haskell-reload-file () - "Tell the inferior haskell process to reread the current buffer's file." - (interactive) - (inferior-haskell-load-file 'reload)) - -;;;###autoload -(defun inferior-haskell-type (expr &optional insert-value) - "Query the haskell process for the type of the given expression. -If optional argument `insert-value' is non-nil, insert the type above point -in the buffer. This can be done interactively with the \\[universal-argument] prefix. -The returned info is cached for reuse by `haskell-doc-mode'." - (interactive - (let ((sym (haskell-ident-at-point))) - (list (read-string (if (> (length sym) 0) - (format "Show type of (default %s): " sym) - "Show type of: ") - nil nil sym) - current-prefix-arg))) - (if (string-match "\\`\\s_+\\'" expr) (setq expr (concat "(" expr ")"))) - (let* ((proc (inferior-haskell-process)) - (type - (with-current-buffer (process-buffer proc) - (let ((parsing-end ; Remember previous spot. - (marker-position (process-mark proc)))) - (inferior-haskell-send-command proc (concat ":type " expr)) - ;; Find new point. - (inferior-haskell-wait-for-prompt proc) - (goto-char (point-max)) - ;; Back up to the previous end-of-line. - (end-of-line 0) - ;; Extract the type output - (buffer-substring-no-properties - (save-excursion (goto-char parsing-end) - (line-beginning-position 2)) - (point)))))) - (if (not (string-match (concat "^\\(" (regexp-quote expr) "[ \t\n]+::[ \t\n]*\\(.\\|\n\\)*\\)") - type)) - (error "No type info: %s" type) - (progn - (setf type (match-string 1 type)) - ;; Cache for reuse by haskell-doc. - (when (and (boundp 'haskell-doc-mode) haskell-doc-mode - (boundp 'haskell-doc-user-defined-ids) - ;; Haskell-doc only works for idents, not arbitrary expr. - (string-match "\\`(?\\(\\s_+\\|\\(\\sw\\|\\s'\\)+\\)?[ \t]*::[ \t]*" - type)) - (let ((sym (match-string 1 type))) - (setq haskell-doc-user-defined-ids - (cons (cons sym (substring type (match-end 0))) - (delq (assoc sym haskell-doc-user-defined-ids) - haskell-doc-user-defined-ids))))) - - (if (interactive-p) (message "%s" type)) - (when insert-value - (beginning-of-line) - (insert type "\n")) - type)))) - -;;;###autoload -(defun inferior-haskell-info (sym) - "Query the haskell process for the info of the given expression." - (interactive - (let ((sym (haskell-ident-at-point))) - (list (read-string (if (> (length sym) 0) - (format "Show info of (default %s): " sym) - "Show info of: ") - nil nil sym)))) - (let ((proc (inferior-haskell-process))) - (with-current-buffer (process-buffer proc) - (let ((parsing-end ; Remember previous spot. - (marker-position (process-mark proc)))) - (inferior-haskell-send-command proc (concat ":info " sym)) - ;; Find new point. - (inferior-haskell-wait-for-prompt proc) - (goto-char (point-max)) - ;; Move to previous end-of-line - (end-of-line 0) - (let ((result - (buffer-substring-no-properties - (save-excursion (goto-char parsing-end) - (line-beginning-position 2)) - (point)))) - ;; Move back to end of process buffer - (goto-char (point-max)) - (if (interactive-p) (message "%s" result)) - result))))) - -;;;###autoload -(defun inferior-haskell-find-definition (sym) - "Attempt to locate and jump to the definition of the given expression." - (interactive - (let ((sym (haskell-ident-at-point))) - (list (read-string (if (> (length sym) 0) - (format "Find definition of (default %s): " sym) - "Find definition of: ") - nil nil sym)))) - (let ((info (inferior-haskell-info sym))) - (if (not (string-match inferior-haskell-info-xref-re info)) - (error "No source information available") - (let ((file (match-string-no-properties 1 info)) - (line (string-to-number - (match-string-no-properties 2 info))) - (col (string-to-number - (match-string-no-properties 3 info)))) - (when file - (with-current-buffer (process-buffer (inferior-haskell-process)) - ;; The file name is relative to the process's cwd. - (setq file (expand-file-name file))) - ;; Push current location marker on the ring used by `find-tag' - (require 'etags) - (ring-insert find-tag-marker-ring (point-marker)) - (pop-to-buffer (find-file-noselect file)) - (when line - (goto-line line) - (when col (move-to-column col)))))))) - -;;; Functions to find the documentation of a given function. -;; -;; TODO for this section: -;; -;; * Support fetching of local Haddock docs pulled directly from source files. -;; * Display docs locally? w3m? - -(defcustom inferior-haskell-use-web-docs - 'fallback - "Whether to use the online documentation. Possible values: -`never', meaning always use local documentation, unless the local -file doesn't exist, when do nothing, `fallback', which means only -use the online documentation when the local file doesn't exist, -or `always', meaning always use the online documentation, -regardless of existance of local files. Default is `fallback'." - :group 'haskell - :type '(choice (const :tag "Never" never) - (const :tag "As fallback" fallback) - (const :tag "Always" always))) - -(defcustom inferior-haskell-web-docs-base - "http://haskell.org/ghc/docs/latest/html/libraries/" - "The base URL of the online libraries documentation. This will -only be used if the value of `inferior-haskell-use-web-docs' is -`always' or `fallback'." - :group 'haskell - :type 'string) - -(defcustom haskell-package-manager-name "ghc-pkg" - "Name of the program to consult regarding package details." - :group 'haskell - :type 'string) - -(defcustom haskell-package-conf-file - (condition-case nil - (with-temp-buffer - (call-process "ghc" nil t nil "--print-libdir") - (expand-file-name "package.conf" - (buffer-substring (point-min) (1- (point-max))))) - ;; Don't use `ignore-errors' because this form is not byte-compiled :-( - (error nil)) - "Where the package configuration file for the package manager resides. -By default this is set to `ghc --print-libdir`/package.conf." - :group 'haskell - :type 'string) - -(defun inferior-haskell-get-module (sym) - "Fetch the module in which SYM is defined." - (let ((info (inferior-haskell-info sym))) - (unless (string-match inferior-haskell-module-re info) - (error - "No documentation information available. Did you forget to C-c C-l?")) - (match-string-no-properties 1 info))) - -(defun inferior-haskell-query-ghc-pkg (&rest args) - "Send ARGS to ghc-pkg, or whatever the value of -`haskell-package-manager' is. Insert the output into the current -buffer." - (apply 'call-process haskell-package-manager-name nil t nil args)) - -(defun inferior-haskell-get-package-list () - "Get the list of packages from ghc-pkg, or whatever -`haskell-package-manager-name' is." - (with-temp-buffer - (inferior-haskell-query-ghc-pkg "--simple-output" "list") - (split-string (buffer-substring (point-min) (point-max))))) - -(defun inferior-haskell-compute-module-alist () - "Compute a list mapping modules to package names and haddock URLs using ghc-pkg." - (message "Generating module alist...") - (let ((module-alist ())) - (with-temp-buffer - (dolist (package (inferior-haskell-get-package-list)) - (erase-buffer) - (inferior-haskell-query-ghc-pkg "describe" package) - - (let ((package-w/o-version - (replace-regexp-in-string "[-.0-9]*\\'" "" package)) - ;; Find the Haddock documentation URL for this package - (haddock - (progn - (goto-char (point-min)) - (when (re-search-forward "haddock-html:[ \t]+\\(.*[^ \t\n]\\)" - nil t) - (match-string 1))))) - - ;; Fetch the list of exposed modules for this package - (goto-char (point-min)) - (when (re-search-forward "^exposed-modules:\\(.*\\(\n[ \t].*\\)*\\)" - nil t) - (dolist (module (split-string (match-string 1))) - (push (list module package-w/o-version haddock) - module-alist))))) - - (message "Generating module alist... done") - module-alist))) - - -(defcustom inferior-haskell-module-alist-file - ;; (expand-file-name "~/.inf-haskell-module-alist") - (expand-file-name (concat "inf-haskell-module-alist-" - (number-to-string (user-uid))) - (if (fboundp 'temp-directory) - (temp-directory) - temporary-file-directory)) - "Where to save the module -> package lookup table. -Set this to `nil' to never cache to a file." - :group 'haskell - :type '(choice (const :tag "Don't cache to file" nil) string)) - -(defvar inferior-haskell-module-alist nil - "Association list of modules to their packages. -Each element is of the form (MODULE PACKAGE HADDOCK), where -MODULE is the name of a module, -PACKAGE is the package it belongs to, and -HADDOCK is the path to that package's Haddock documentation. - -This is calculated on-demand using `inferior-haskell-compute-module-alist'. -It's also cached in the file `inferior-haskell-module-alist-file', -so that it can be obtained more quickly next time.") - -(defun inferior-haskell-module-alist () - "Get the module alist from cache or ghc-pkg's info." - (or - ;; If we already have computed the alist, use it... - inferior-haskell-module-alist - (setq inferior-haskell-module-alist - (or - ;; ...otherwise try to read it from the cache file... - (and - inferior-haskell-module-alist-file - (file-readable-p inferior-haskell-module-alist-file) - (file-newer-than-file-p inferior-haskell-module-alist-file - haskell-package-conf-file) - (with-temp-buffer - (insert-file-contents inferior-haskell-module-alist-file) - (goto-char (point-min)) - (prog1 (read (current-buffer)) - (message "Read module alist from file cache.")))) - - ;; ...or generate it again and save it in a file for later. - (let ((alist (inferior-haskell-compute-module-alist))) - (when inferior-haskell-module-alist-file - (with-temp-buffer - (print alist (current-buffer)) - ;; Do the write to a temp file first, then rename it. - ;; This makes it more atomic, and suffers from fewer security - ;; holes related to race conditions if the file is in /tmp. - (let ((tmp (make-temp-file inferior-haskell-module-alist-file))) - (write-region (point-min) (point-max) tmp) - (rename-file tmp inferior-haskell-module-alist-file - 'ok-if-already-exists)))) - alist))))) - -(defvar inferior-haskell-ghc-internal-ident-alist - ;; FIXME: Fill this table, ideally semi-automatically. - '(("GHC.Base.return" . "Control.Monad.return") - ("GHC.List" . "Data.List"))) - -(defun inferior-haskell-map-internal-ghc-ident (ident) - "Try to translate some internal GHC identifier to its alter ego in haskell docs." - (let ((head ident) - (tail "") - remapped) - (while (and (not - (setq remapped - (cdr (assoc head - inferior-haskell-ghc-internal-ident-alist)))) - (string-match "\\.[^.]+\\'" head)) - (setq tail (concat (match-string 0 head) tail)) - (setq head (substring head 0 (match-beginning 0)))) - (concat (or remapped head) tail))) - -;;;###autoload -(defun inferior-haskell-find-haddock (sym) - "Find and open the Haddock documentation of SYM. -Make sure to load the file into GHCi or Hugs first by using C-c C-l. -Only works for functions in a package installed with ghc-pkg, or -whatever the value of `haskell-package-manager-name' is. - -This function needs to find which package a given module belongs -to. In order to do this, it computes a module-to-package lookup -alist, which is expensive to compute (it takes upwards of five -seconds with more than about thirty installed packages). As a -result, we cache it across sessions using the cache file -referenced by `inferior-haskell-module-alist-file'. We test to -see if this is newer than `haskell-package-conf-file' every time -we load it." - (interactive - (let ((sym (haskell-ident-at-point))) - (list (read-string (if (> (length sym) 0) - (format "Find documentation of (default %s): " sym) - "Find documentation of: ") - nil nil sym)))) - (setq sym (inferior-haskell-map-internal-ghc-ident sym)) - (let* (;; Find the module and look it up in the alist - (module (inferior-haskell-get-module sym)) - (alist-record (assoc module (inferior-haskell-module-alist))) - (package (nth 1 alist-record)) - (file-name (concat (subst-char-in-string ?. ?- module) ".html")) - (local-path (concat (nth 2 alist-record) "/" file-name)) - (url (if (or (eq inferior-haskell-use-web-docs 'always) - (and (not (file-exists-p local-path)) - (eq inferior-haskell-use-web-docs 'fallback))) - (concat inferior-haskell-web-docs-base package "/" file-name - ;; Jump to the symbol anchor within Haddock. - "#v:" sym) - (and (file-exists-p local-path) - (concat "file://" local-path))))) - (if url (browse-url url) (error "Local file doesn't exist.")))) - -(provide 'inf-haskell) - -;; arch-tag: 61804287-63dd-4052-bc0e-90f691b34b40 -;;; inf-haskell.el ends here diff --git a/.emacs.d.backup/highlight-parenthesis.el b/.emacs.d.backup/highlight-parenthesis.el deleted file mode 100644 index 8df50ab..0000000 --- a/.emacs.d.backup/highlight-parenthesis.el +++ /dev/null @@ -1,157 +0,0 @@ -;;; highlight-parentheses.el --- highlight surrounding parentheses -;; -;; Copyright (C) 2007, 2009 Nikolaj Schumacher -;; -;; Author: Nikolaj Schumacher -;; Version: 1.0.1 -;; Keywords: faces, matching -;; URL: http://nschum.de/src/emacs/highlight-parentheses/ -;; Compatibility: GNU Emacs 22.x, GNU Emacs 23.x -;; -;; This file is NOT 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 -;; 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, see . -;; -;;; Commentary: -;; -;; Add the following to your .emacs file: -;; (require 'highlight-parentheses) -;; -;; Enable `highlight-parentheses-mode'. -;; -;;; Change Log: -;; -;; 2009-03-19 (1.0.1) -;; Added setter for color variables. -;; -;; 2007-07-30 (1.0) -;; Added background highlighting and faces. -;; -;; 2007-05-15 (0.9.1) -;; Support for defcustom. -;; -;; 2007-04-26 (0.9) -;; Initial Release. -;; -;;; Code: - -(eval-when-compile (require 'cl)) - -(defgroup highlight-parentheses nil - "Highlight surrounding parentheses" - :group 'faces - :group 'matching) - -(defun hl-paren-set (variable value) - (set variable value) - (when (fboundp 'hl-paren-color-update) - (hl-paren-color-update))) - -(defcustom hl-paren-colors - '("firebrick1" "IndianRed1" "IndianRed3" "IndianRed4") - "*List of colors for the highlighted parentheses. -The list starts with the the inside parentheses and moves outwards." - :type '(repeat color) - :set 'hl-paren-set - :group 'highlight-parentheses) - -(defcustom hl-paren-background-colors nil - "*List of colors for the background highlighted parentheses. -The list starts with the the inside parentheses and moves outwards." - :type '(repeat color) - :set 'hl-paren-set - :group 'highlight-parentheses) - -(defface hl-paren-face nil - "*Face used for highlighting parentheses. -Color attributes might be overriden by `hl-paren-colors' and -`hl-paren-background-colors'." - :group 'highlight-parentheses) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(defvar hl-paren-overlays nil - "This buffers currently active overlays.") -(make-variable-buffer-local 'hl-paren-overlays) - -(defvar hl-paren-last-point 0 - "The last point for which parentheses were highlighted. -This is used to prevent analyzing the same context over and over.") -(make-variable-buffer-local 'hl-paren-last-point) - -(defun hl-paren-highlight () - "Highlight the parentheses around point." - (unless (= (point) hl-paren-last-point) - (setq hl-paren-last-point (point)) - (let ((overlays hl-paren-overlays) - pos1 pos2 - (pos (point))) - (save-excursion - (condition-case err - (while (and (setq pos1 (cadr (syntax-ppss pos1))) - (cddr overlays)) - (move-overlay (pop overlays) pos1 (1+ pos1)) - (when (setq pos2 (scan-sexps pos1 1)) - (move-overlay (pop overlays) (1- pos2) pos2) - )) - (error nil)) - (goto-char pos)) - (dolist (ov overlays) - (move-overlay ov 1 1))))) - -;;;###autoload -(define-minor-mode highlight-parentheses-mode - "Minor mode to highlight the surrounding parentheses." - nil " hl-p" nil - (if highlight-parentheses-mode - (progn - (hl-paren-create-overlays) - (add-hook 'post-command-hook 'hl-paren-highlight nil t)) - (mapc 'delete-overlay hl-paren-overlays) - (kill-local-variable 'hl-paren-overlays) - (kill-local-variable 'hl-paren-point) - (remove-hook 'post-command-hook 'hl-paren-highlight t))) - -;;; overlays ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(defun hl-paren-create-overlays () - (let ((fg hl-paren-colors) - (bg hl-paren-background-colors) - attributes) - (while (or fg bg) - (setq attributes (face-attr-construct 'hl-paren-face)) - (when (car fg) - (setq attributes (plist-put attributes :foreground (car fg)))) - (pop fg) - (when (car bg) - (setq attributes (plist-put attributes :background (car bg)))) - (pop bg) - (dotimes (i 2) ;; front and back - (push (make-overlay 0 0) hl-paren-overlays) - (overlay-put (car hl-paren-overlays) 'face attributes))) - (setq hl-paren-overlays (nreverse hl-paren-overlays)))) - -(defun hl-paren-color-update () - (dolist (buffer (buffer-list)) - (with-current-buffer buffer - (when hl-paren-overlays - (mapc 'delete-overlay hl-paren-overlays) - (setq hl-paren-overlays nil) - (hl-paren-create-overlays) - (let ((hl-paren-last-point -1)) ;; force update - (hl-paren-highlight)))))) - -(provide 'highlight-parentheses) - -;;; highlight-parentheses.el ends here diff --git a/.emacs.d.backup/irblack.el b/.emacs.d.backup/irblack.el deleted file mode 100644 index 38efe13..0000000 --- a/.emacs.d.backup/irblack.el +++ /dev/null @@ -1,118 +0,0 @@ -;; IR_Black Color Theme for Emacs. -;; -;; David Zhou -;; -;; The IR_Black theme is originally from: -;; -;; http://blog.infinitered.com/entries/show/8 -;; -(require 'color-theme) - -;; White #EEEEEE #FFFFFF -;; Black #4E4E4E #7C7C7C ? / dim gray -;; Blue #96CBFE #FFFFCB slate blue -;; Green #A8FF60 #CEFFAB DarkOliveGreen2 -;; Cyan #C6C5FE #DFDFFE steel blue -;; Red #FF6C60 #FFB6B0 -;; Magenta #FF73FD #FF9CFE -;; Yellow #FFFFB6 #FFFFCB pale goldenrod - -(defun color-theme-irblack () - "IR_black theme taken from Vim" - (interactive) - (color-theme-install - '(color-theme-irblack - ((background-color . "black") - (background-mode . dark) - (border-color . "gray10") - (cursor-color . "DarkOliveGreen2") - (foreground-color . "#F6F3E8") - (mouse-color . "DarkOliveGreen2")) - (default ((t (:foreground "#F6F3E8")))) - (vertical-border ((t (:background "gray20")))) - (blue ((t (:foreground "blue")))) - (border-glyph ((t (nil)))) - (buffers-tab ((t (:background "#141414" :foreground "#cacaca")))) - (font-lock-comment-face ((t (:foreground "dim gray")))) - (font-lock-constant-face ((t (:foreground "light green")))) - (font-lock-doc-string-face ((t (:foreground "DarkOliveGreen2")))) - (font-lock-function-name-face ((t (:foreground "burlywood")))) - (font-lock-builtin-face ((t (:foreground "slate blue")))) - (font-lock-keyword-face ((t (:foreground "slate blue")))) - (font-lock-preprocessor-face ((t (:foreground "slate blue")))) - (font-lock-reference-face ((t (:foreground "steel blue")))) - - (font-lock-regexp-grouping-backslash ((t (:foreground "#E9C062")))) - (font-lock-regexp-grouping-construct ((t (:foreground "red")))) - - (linum ((t (:background "black" :foreground "dim gray")))) - - (minibuffer-prompt ((t (:foreground "#888888")))) - (ido-subdir ((t (:foreground "#CF6A4C")))) - (ido-first-match ((t (:foreground "#8F9D6A")))) - (ido-only-match ((t (:foreground "#8F9D6A")))) - - (font-lock-string-face ((t (:foreground "DarkOliveGreen2")))) - (font-lock-type-face ((t (:foreground "pale goldenrod")))) - (font-lock-variable-name-face ((t (:foreground "steel blue")))) - (font-lock-warning-face ((t (:background "#CC1503" :foreground "#FFFFFF")))) - (gui-element ((t (:background "#D4D0C8" :foreground "black")))) - (fringe ((t (:background "grey10")))) - (region ((t (:background "dark red")))) - (mode-line ((t (:background "dim gray" :foreground "dark gray")))) - (mode-line-buffer-id ((t (:bold t :background "dim gray" : foreground "dark gray" :weight bold)))) - (highlight ((t (:background "#111111")))) - (highline-face ((t (:background "SeaGreen")))) - (left-margin ((t (nil)))) - (text-cursor ((t (:background "yellow" :foreground "black")))) - (toolbar ((t (nil)))) - (show-paren-mismatch ((t (:background "#FF1100")))) - (underline ((nil (:underline nil)))) - - ;; whitespace - (trailing-whitespace ((t (:background "gray22")))) - ;; mumamo - ;(mumamo-background-chunk-major ((t (:background "#000000")))) - ;(mumamo-background-chunk-submode ((t (:background "#222222")))) - ;(mumamo-background-chunk-submode1 ((t (:background "#0A0A0A")))) - ;(mumamo-background-chunk-submode2 ((t (:background "#0A0A0A")))) - ;(mumamo-background-chunk-submode3 ((t (:background "#0A0A0A")))) - ;(mumamo-background-chunk-submode4 ((t (:background "#0A0A0A")))) - - ;; diff-mode - (diff-added ((t (:background "#253B22" :foreground "#F8F8F8")))) - (diff-removed ((t (:background "#420E09" :foreground "#F8F8F8")))) - (diff-content ((t nil))) - (diff-header ((t (:background "#0E2231" :foreground "#F8F8F8")))) - - - ;; nxml - ;(nxml-delimiter ((t (:foreground "#96CBFE")))) - ;(nxml-name ((t (:foreground "#96CBFE")))) - ;(nxml-element-local-name ((t (:foreground "#96CBFE")))) - ;(nxml-attribute-local-name ((t (:foreground "#FFD7B1")))) - - ;; erc - ;(erc-default-face ((t (nil)))) - ;(erc-direct-msg-face ((t (:foreground "#007998")))) - ;(erc-input-face ((t (:foreground "#feffff")))) - ;(erc-bold-face ((t (:bold t :weight bold)))) - ;(erc-inverse-face ((t (:background "Black" :foreground "White")))) - ;(erc-underline-face ((t (:underline t)))) - ;(erc-prompt-face ((t (:foreground "#c3c6c8")))) - ;(erc-notice-face ((t (:foreground "#7c7c7c")))) - ;(erc-action-face ((t (:bold t :weight bold)))) - ;(erc-error-face ((t (:foreground "#007998")))) - ;(erc-timestamp-face ((t (:foreground "#7c7c7c")))) - ;(erc-nick-default-face ((t (:foreground "#feffff")))) - ;(erc-nick-msg-face ((t (:bold t :foreground "#007998" :weight bold)))) - ;; erc-dangerous-host-face - ;; erc-keyword-face - (erc-current-nick-face ((t (:foreground "#007998")))) - - ;; (erc-command-indicator-face ((t (:bold t :weight bold)))) - ;; (erc-header-line ((t (:background "grey90" :foreground "grey20")))) - ;; (erc-my-nick-face ((t (:bold t :foreground "brown" :weight bold)))) - ))) - -(provide 'irblack) diff --git a/.emacs.d.backup/parenface.el b/.emacs.d.backup/parenface.el deleted file mode 100644 index 4edf06b..0000000 --- a/.emacs.d.backup/parenface.el +++ /dev/null @@ -1,38 +0,0 @@ -;;; parenface.el --- Provide a face for parens in lisp modes. -;; By Dave Pearson -;; $Revision: 1.1 $ - -;; Add a paren-face to emacs and add support for it to the various lisp modes. -;; -;; Based on some code that Boris Schaefer posted -;; to comp.lang.scheme in message <87hf8g9nw5.fsf@qiwi.uncommon-sense.net>. - -(defvar paren-face 'paren-face) - -(defface paren-face - '((((class color)) - (:foreground "DimGray"))) - "Face for displaying a paren." - :group 'faces) - -(defmacro paren-face-add-support (keywords) - "Generate a lambda expression for use in a hook." - `(lambda () - (let* ((regexp "(\\|)") - (match (assoc regexp ,keywords))) - (unless (eq (cdr match) paren-face) - (setq ,keywords (append (list (cons regexp paren-face)) ,keywords)))))) - -;; Keep the compiler quiet. -(eval-when-compile - (defvar scheme-font-lock-keywords-2 nil) - (defvar lisp-font-lock-keywords-2 nil)) - -(add-hook 'scheme-mode-hook (paren-face-add-support scheme-font-lock-keywords-2)) -(add-hook 'lisp-mode-hook (paren-face-add-support lisp-font-lock-keywords-2)) -(add-hook 'emacs-lisp-mode-hook (paren-face-add-support lisp-font-lock-keywords-2)) -(add-hook 'lisp-interaction-mode-hook (paren-face-add-support lisp-font-lock-keywords-2)) - -(provide 'parenface) - -;; parenface.el ends here diff --git a/.emacs.d.backup/themes/color-theme-example.el b/.emacs.d.backup/themes/color-theme-example.el deleted file mode 100644 index f73b4f6..0000000 --- a/.emacs.d.backup/themes/color-theme-example.el +++ /dev/null @@ -1,22 +0,0 @@ -(eval-when-compile - (require 'color-theme)) - -(defun color-theme-example () - "Example theme. Carbon copy of color-theme-gnome contributed by Jonadab." - (interactive) - (color-theme-install - '(color-theme-example - ((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))))))) diff --git a/.emacs.d.backup/themes/color-theme-library.el b/.emacs.d.backup/themes/color-theme-library.el deleted file mode 100644 index d194708..0000000 --- a/.emacs.d.backup/themes/color-theme-library.el +++ /dev/null @@ -1,13539 +0,0 @@ -;;; color-theme-library.el --- The real color theme functions - -;; Copyright (C) 2005, 2006 Xavier Maillard -;; Copyright (C) 2005, 2006 Brian Palmer - -;; Version: 0.0.9 -;; Keywords: faces -;; Author: Brian Palmer, Xavier Maillard -;; Maintainer: Xavier Maillard -;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ColorTheme - -;; This file is not (YET) 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. - -;; Code: -(eval-when-compile - (require 'color-theme)) - -(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"))))))) - - -(defun color-theme-renegade () - "Renegade BBS styled color theme. Works well in X and terminals. -Created by Dave Benjamin Dec 23 2005." - (interactive) - (color-theme-install - '(color-theme-renegade - ((background-color . "black") - (background-mode . dark) - (border-color . "black") - (cursor-color . "black") - (foreground-color . "cyan3") - (mouse-color . "white")) - (default ((t (nil)))) - (bold ((t (:bold t :foreground "cyan" :weight bold)))) - (bold-italic ((t (:italic t :bold t :foreground "cyan" :slant italic :weight bold)))) - (fixed-pitch ((t (:family "courier")))) - (font-lock-builtin-face ((t (:bold t :foreground "cornflower blue" :weight bold)))) - (font-lock-comment-face ((t (:bold t :foreground "yellow" :weight bold)))) - (font-lock-constant-face ((t (:foreground "magenta3")))) - (font-lock-doc-face ((t (:bold t :weight bold :foreground "red")))) - (font-lock-function-name-face ((t (:foreground "gray")))) - (font-lock-keyword-face ((t (:bold t :foreground "cyan" :weight bold)))) - (font-lock-string-face ((t (:bold t :foreground "red" :weight bold)))) - (font-lock-type-face ((t (:bold t :foreground "cyan" :weight bold)))) - (font-lock-variable-name-face ((t (:foreground "cyan3")))) - (font-lock-warning-face ((t (:bold t :foreground "red" :weight bold)))) - (fringe ((t (:background "gray32")))) - (highlight ((t (:background "blue")))) - (isearch ((t (:background "blue" :foreground "cyan3")))) - (isearch-lazy-highlight-face ((t (:background "turquoise3" :foreground "black")))) - (menu ((t (nil)))) - (mode-line ((t (:bold t :background "blue3" :foreground "white" :box (:line-width -1 :style released-button) :weight bold)))) - (mouse ((t (:background "white")))) - (region ((t (:bold t :background "white" :foreground "blue" :weight bold)))) - (scroll-bar ((t (nil)))) - (trailing-whitespace ((t (:background "red")))) - (underline ((t (:underline t)))) - (variable-pitch ((t (:family "helv"))))))) - -;;; color-theme-library.el ends here diff --git a/.emacs.hunner.el b/.emacs.hunner.el deleted file mode 100644 index 1a9eed8..0000000 --- a/.emacs.hunner.el +++ /dev/null @@ -1,378 +0,0 @@ -;; (require 'cl) - -(mapc (lambda (x) (add-to-list 'load-path (expand-file-name x))) - '("~/.emacs.d" - )) - -(defun require-all (packages) - (mapcar #'require packages)) - -(require-all '( - color-theme - irblack - parenface - bar-cursor - tls - erc - )) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; GLOBAL -(color-theme-initialize) - -;; (if window-system -;; (set-background-color "black") -;; ()) -(color-theme-irblack) -;(if window-system -; (color-theme-gentooish) -; (color-theme-dark-laptop)) -;(load-file "~/.emacs.d/color-theme-twilight.el") -;(color-theme-twilight) -;(load-file "~/.emacs.d/color-theme-inkpot.el") -;(color-theme-inkpot) - -;; OS X settings -;; (setq mac-option-key-is-meta nil) -;; (setq mac-command-key-is-meta t) -;; (setq mac-command-modifier 'meta) -;; (setq mac-option-modifier nil) - -(bar-cursor-mode 1) -(menu-bar-mode 0) -(scroll-bar-mode -1) -(tool-bar-mode 0) -(setq linum-format "%3d ") -(setq-default indent-tabs-mode nil) -(setq indent-tabs-mode nil) -(setq make-backup-files nil) -(set-language-environment "UTF-8") -(set-input-method "japanese-ascii") ; C-x C-m C-\ -(winner-mode t) -;;(display-battery-mode t) ;; broken on 10.9.2 -(setq display-time-24hr-format t) -(display-time-mode t) -(line-number-mode 1) -(column-number-mode 1) - -(tooltip-mode nil) -(setq midnight-mode t) -(setq column-number-mode nil) -(setq size-indication-mode nil) -(setq mode-line-position nil) -(mouse-avoidance-mode 'animate) -(ido-mode t) - -;; Ido and uniquify options from http://curiousprogrammer.wordpress.com/2009/07/13/my-emacs-defaults/ -(setq ido-enable-flex-matching t) -(setq ido-create-new-buffer 'always) -(setq uniquify-buffer-name-style 'reverse) -(setq uniquify-separator "|") -(setq uniquify-after-kill-buffer-p t) -(setq uniquify-ignore-buffers-re "^\\*") - -(global-set-key "\C-m" 'reindent-then-newline-and-indent) ;No tabs -(global-set-key "\C-a" 'beginning-of-line-text) - -(defun indent-or-expand (arg) - "Either indent according to mode, or expand the word preceding - point." - (interactive "*P") - (if (and - (or (bobp) (= ?w (char-syntax (char-before)))) - (or (eobp) (not (= ?w (char-syntax (char-after)))))) - (dabbrev-expand arg) - (indent-according-to-mode))) -(global-set-key [C-tab] 'indent-according-to-mode) - -(autoload 'copy-from-above-command "misc" - "Copy characters from previous nonblank line, starting just above point. - - \(fn &optional arg)" - 'interactive) -(global-set-key [up] 'copy-from-above-command) -(global-set-key [down] (lambda () - (interactive) - (forward-line 1) - (open-line 1) - (copy-from-above-command))) -(global-set-key [right] (lambda () - (interactive) - (copy-from-above-command 1))) -(global-set-key [left] (lambda () - (interactive) - (copy-from-above-command -1) - (forward-char -1) - (delete-char -1))) - -;; Proxy for ssh tunnel + privoxy -;; (setq url-proxy-services '(("no_proxy" . "localhost") -;; ("http" . "localhost:8118"))) - -(setq save-place-file "~/.emacs.d/saveplace") ;; keep my ~/ clean -(setq-default save-place t) ;; activate it for all buffers -(require 'saveplace) ;; Need to require after setq - -(setq backup-directory-alist - `((".*" . "~/.emacs.d/backups/"))) -(setq auto-save-file-name-transforms - `((".*" "~/.emacs.d/backups/" t))) - -;; Enable ergoemacs layout -;; (setenv "ERGOEMACS_KEYBOARD_LAYOUT" "dv") ; US Dvorak layout -;; (load "~/.emacs.d/ergoemacs-keybindings-5.1/ergoemacs-mode") -;; (ergoemacs-mode 1) - -;; Highlight bad whitespace -(global-whitespace-mode t) -(setq whitespace-style (quote (tabs tab-mark))) -(setq-default show-trailing-whitespace t) - -;; Make % work like vi -(global-set-key "%" 'match-paren) -(defun match-paren (arg) - "Go to the matching paren if on a paren; otherwise insert %." - (interactive "p") - (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1)) - ((looking-at "\\s\)") (forward-char 1) (backward-list 1)) - (t (self-insert-command (or arg 1))))) - -;; Prevent Emacs from stupidly auto-changing my working directory -;; (defun find-file-save-default-directory () -;; (interactive) -;; (setq saved-default-directory default-directory) -;; (ido-find-file) -;; (setq default-directory saved-default-directory)) -;; (global-set-key "\C-x\C-f" 'find-file-save-default-directory) - -;; Enable mit-scheme -(setq scheme-program-name - "/opt/boxen/homebrew/bin/mit-scheme") -(require 'xscheme) - -;; Give killing lines advice -(defadvice kill-ring-save (before slick-copy activate compile) - "When called interactively with no active region, copy a single line instead." - (interactive - (if mark-active (list (region-beginning) (region-end)) - (message "Copied line") - (list (line-beginning-position) - (line-beginning-position 2))))) -(defadvice kill-region (before slick-cut activate compile) - "When called interactively with no active region, kill a single line instead." - (interactive - (if mark-active (list (region-beginning) (region-end)) - (list (line-beginning-position) - (line-beginning-position 2))))) - -;; Tip of the day! -(defun totd () - (interactive) - (random t) ;; seed with time-of-day - (with-output-to-temp-buffer "*Tip of the day*" - (let* ((commands (loop for s being the symbols - when (commandp s) collect s)) - (command (nth (random (length commands)) commands))) - (princ - (concat "Your tip for the day is:\n" - "========================\n\n" - (describe-function command) - "\n\nInvoke with:\n\n" - (with-temp-buffer - (where-is command t) - (buffer-string))))))) - -;; Set my location sunrise-sunset -(setq calendar-latitude 45.4) -(setq calendar-longitude -122.6) -(setq calendar-location-name "Portland, OR") -;; (setq calendar-latitude 17.5) -;; (setq calendar-longitude 78.5) -;; (setq calendar-location-name "Hyderabad, India") - -;; Start the server for emacsclient -;(server-start) - -;; Custom key maps -(defun set-keys (commands) - (mapcar (lambda (x) - (global-set-key (read-kbd-macro (first x)) (second x))) - commands)) -(set-keys '( - ("C-c t" totd) - ("C-c n" global-linum-mode) - ("C-c s p" (lambda () (interactive) - (if (shellfm-running-p) - (shellfm-pause) - ((shellfm 1) (shellfm-station-recommended 1))))) - ("C-c s n" shellfm-skip-track) - ("C-c s r" shellfm-station-recommended) - ("C-c s s" shellfm-station-artist) - ("C-c s m" shellfm-station-playlist) - ("C-c s l" shellfm-love-track) - ("C-c s a" shellfm-add-to-playlist) - ("C-c s q" shellfm 0) - ("C-c s i" shellfm-track-info) - ("C-c e" ido-erc-buffer) - ("C-S-" shrink-window-horizontally) - ("C-S-" enlarge-window-horizontally) - ("C-S-" shrink-window) - ("C-S-" enlarge-window) - ("M-s" save-buffer) - ("M-p" ctrl-y-in-vi) - ("M-n" ctrl-e-in-vi) - ("M-N" make-frame) - ("M-W" delete-frame) - ("M-w" ido-kill-buffer) - ("M-1" delete-other-windows) - ("M-!" delete-window) - ("M-2" split-window-horizontally) - ("M-@" split-window-vertically) - ("M-a" beginning-of-line) - ("M-o" other-window) - ("M-O" other-window) - ("M-`" next-window) - ("M-~" previous-window) - ("M-RET" toggle-fullscreen) - )) - -;;toggle full-screen -(defun toggle-fullscreen () -(interactive) -(set-frame-parameter - nil - 'fullscreen - (if (frame-parameter nil 'fullscreen) - nil - 'fullboth))) - -;; (global-set-key [(meta return)] 'toggle-fullscreen) - -;; Transparency -(set-frame-parameter (selected-frame) 'alpha '(85 85)) -(add-to-list 'default-frame-alist '(alpha 85 85)) -;; (set-frame-font "Droid Sans Mono Dotted-12") -(eval-when-compile (require 'cl)) -(defun toggle-transparency () - (interactive) - (if (/= - (cadr (find 'alpha (frame-parameters nil) :key #'car)) - 40) - (set-frame-parameter nil 'alpha '(40 40)) - (set-frame-parameter nil 'alpha '(85 85)))) -(global-set-key (kbd "C-c T") 'toggle-transparency) - -;; Vim-like scrolling -(defun ctrl-e-in-vi (n) - (interactive "p") - (scroll-up n)) - -(defun ctrl-y-in-vi (n) - (interactive "p") - (scroll-down n)) - -;; (global-set-key (kbd "") -;; (lambda () (interactive) -;; (if (shellfm-running-p) -;; (shellfm-skip-track) -;; (shellfm 1)))) - -;; ERC stuff -;; (setq erc-encoding-coding-alist (quote (("#lisp" . utf-8) -;; ("#nihongo" . iso-2022-jp) -;; ("#" . iso-latin-1) -;; ("#" . iso-latin-1)))) -;; (autoload 'erc "erc") -;; (add-hook 'erc-mode-hook -;; '(lambda () -;; (setq scroll-margin 0) -;; (setq erc-scrolltobottom-mode 1))) -;; (load "~/.emacs.d/erc-bip") ;; Passwords here -;; (defun ido-erc-buffer() -;; (interactive) -;; (switch-to-buffer -;; (ido-completing-read "Channel:" -;; (save-excursion -;; (delq -;; nil -;; (mapcar (lambda (buf) -;; (when (buffer-live-p buf) -;; (with-current-buffer buf -;; (and (eq major-mode 'erc-mode) -;; (buffer-name buf))))) -;; (buffer-list))))))) - - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Haskell mode -;; -(load "~/.emacs.d/haskell-mode/haskell-site-file") -(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode) -(add-hook 'haskell-mode-hook 'turn-on-haskell-indentation) -;;(add-hook 'haskell-mode-hook 'turn-on-haskell-indent) -;;(add-hook 'haskell-mode-hook 'turn-on-haskell-simple-indent) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Generic Lisp / Emacs Lisp -;; from http://www.emacswiki.org/emacs/AutoIndentation - -(defadvice yank (after indent-region activate) - (if (member major-mode '(clojure-mode emacs-lisp-mode lisp-mode)) - (let ((mark-even-if-inactive t)) - (indent-region (region-beginning) (region-end) nil)))) - -(defun tab-fix () - (local-set-key [tab] 'indent-or-expand)) -(defun slime-tab-fix () - (local-set-key [tab] 'slime-complete-symbol)) -(add-hook 'emacs-lisp-mode-hook 'tab-fix) -(add-hook 'lisp-mode-hook 'slime-tab-fix) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Translation -(autoload 'babel "babel" - "Use a web translation service to translate the message MSG." t) -(autoload 'babel-region "babel" - "Use a web translation service to translate the current region." t) -(autoload 'babel-as-string "babel" - "Use a web translation service to translate MSG, returning a string." t) -(autoload 'babel-buffer "babel" - "Use a web translation service to translate the current buffer." t) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Custom -(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. - '(blink-cursor-mode nil) - '(case-fold-search t) - '(comint-scroll-to-bottom-on-input t) - '(fancy-splash-image "") -;; '(frame-background-mode (quote dark)) - '(ido-decorations (quote ("" "" " | " " | ..." "[" "]" " [No match]" " [Matched]" " [Not readable]" " [Too big]" " [Confirm]"))) - '(ido-everywhere t) - '(inhibit-startup-screen t) - '(lisp-loop-forms-indentation 6) - '(lisp-loop-keyword-indentation 6) - '(lisp-simple-loop-indentation 6) - '(mode-line-format (quote ("%e--[" mode-line-buffer-identification "]" (vc-mode vc-mode) " " mode-line-modes " " global-mode-string " %-"))) - '(mode-line-in-non-selected-windows t) - '(mode-line-modes (quote ("%[" "(" (:propertize ("" mode-name)) ("" mode-line-process) (:propertize ("" minor-mode-alist)) "%n" ")" "%]"))) - '(mumamo-background-colors nil) - '(require-final-newline t) - '(savehist-mode t nil (savehist)) - '(scroll-conservatively 100000) - '(scroll-down-aggressively 0.0) - '(scroll-margin 4) - '(scroll-step 1) - '(scroll-up-aggressively 0.0) - '(show-paren-mode t nil (paren))) -(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. - '(mumamo-border-face-in ((t nil))) - '(mumamo-border-face-out ((t nil)))) diff --git a/.gemrc b/.gemrc deleted file mode 100644 index be43970..0000000 --- a/.gemrc +++ /dev/null @@ -1 +0,0 @@ -gem: --no-ri --no-rdoc --no-document diff --git a/.gnupg/hkps.pool.sks-keyservers.net.pem b/.gnupg/hkps.pool.sks-keyservers.net.pem deleted file mode 100644 index 24a2ad2..0000000 --- a/.gnupg/hkps.pool.sks-keyservers.net.pem +++ /dev/null @@ -1,32 +0,0 @@ ------BEGIN CERTIFICATE----- -MIIFizCCA3OgAwIBAgIJAK9zyLTPn4CPMA0GCSqGSIb3DQEBBQUAMFwxCzAJBgNV -BAYTAk5PMQ0wCwYDVQQIDARPc2xvMR4wHAYDVQQKDBVza3Mta2V5c2VydmVycy5u -ZXQgQ0ExHjAcBgNVBAMMFXNrcy1rZXlzZXJ2ZXJzLm5ldCBDQTAeFw0xMjEwMDkw -MDMzMzdaFw0yMjEwMDcwMDMzMzdaMFwxCzAJBgNVBAYTAk5PMQ0wCwYDVQQIDARP -c2xvMR4wHAYDVQQKDBVza3Mta2V5c2VydmVycy5uZXQgQ0ExHjAcBgNVBAMMFXNr -cy1rZXlzZXJ2ZXJzLm5ldCBDQTCCAiIwDQYJKoZIhvcNAQEBBQADggIPADCCAgoC -ggIBANdsWy4PXWNUCkS3L//nrd0GqN3dVwoBGZ6w94Tw2jPDPifegwxQozFXkG6I -6A4TK1CJLXPvfz0UP0aBYyPmTNadDinaB9T4jIwd4rnxl+59GiEmqkN3IfPsv5Jj -MkKUmJnvOT0DEVlEaO1UZIwx5WpfprB3mR81/qm4XkAgmYrmgnLXd/pJDAMk7y1F -45b5zWofiD5l677lplcIPRbFhpJ6kDTODXh/XEdtF71EAeaOdEGOvyGDmCO0GWqS -FDkMMPTlieLA/0rgFTcz4xwUYj/cD5e0ZBuSkYsYFAU3hd1cGfBue0cPZaQH2HYx -Qk4zXD8S3F4690fRhr+tki5gyG6JDR67aKp3BIGLqm7f45WkX1hYp+YXywmEziM4 -aSbGYhx8hoFGfq9UcfPEvp2aoc8u5sdqjDslhyUzM1v3m3ZGbhwEOnVjljY6JJLx -MxagxnZZSAY424ZZ3t71E/Mn27dm2w+xFRuoy8JEjv1d+BT3eChM5KaNwrj0IO/y -u8kFIgWYA1vZ/15qMT+tyJTfyrNVV/7Df7TNeWyNqjJ5rBmt0M6NpHG7CrUSkBy9 -p8JhimgjP5r0FlEkgg+lyD+V79H98gQfVgP3pbJICz0SpBQf2F/2tyS4rLm+49rP -fcOajiXEuyhpcmzgusAj/1FjrtlynH1r9mnNaX4e+rLWzvU5AgMBAAGjUDBOMB0G -A1UdDgQWBBTkwyoJFGfYTVISTpM8E+igjdq28zAfBgNVHSMEGDAWgBTkwyoJFGfY -TVISTpM8E+igjdq28zAMBgNVHRMEBTADAQH/MA0GCSqGSIb3DQEBBQUAA4ICAQAR -OXnYwu3g1ZjHyley3fZI5aLPsaE17cOImVTehC8DcIphm2HOMR/hYTTL+V0G4P+u -gH+6xeRLKSHMHZTtSBIa6GDL03434y9CBuwGvAFCMU2GV8w92/Z7apkAhdLToZA/ -X/iWP2jeaVJhxgEcH8uPrnSlqoPBcKC9PrgUzQYfSZJkLmB+3jEa3HKruy1abJP5 -gAdQvwvcPpvYRnIzUc9fZODsVmlHVFBCl2dlu/iHh2h4GmL4Da2rRkUMlbVTdioB -UYIvMycdOkpH5wJftzw7cpjsudGas0PARDXCFfGyKhwBRFY7Xp7lbjtU5Rz0Gc04 -lPrhDf0pFE98Aw4jJRpFeWMjpXUEaG1cq7D641RpgcMfPFvOHY47rvDTS7XJOaUT -BwRjmDt896s6vMDcaG/uXJbQjuzmmx3W2Idyh3s5SI0GTHb0IwMKYb4eBUIpQOnB -cE77VnCYqKvN1NVYAqhWjXbY7XasZvszCRcOG+W3FqNaHOK/n/0ueb0uijdLan+U -f4p1bjbAox8eAOQS/8a3bzkJzdyBNUKGx1BIK2IBL9bn/HravSDOiNRSnZ/R3l9G -ZauX0tu7IIDlRCILXSyeazu0aj/vdT3YFQXPcvt5Fkf5wiNTo53f72/jYEJd6qph -WrpoKqrwGwTpRUCMhYIUt65hsTxCiJJ5nKe39h46sg== ------END CERTIFICATE----- diff --git a/.gvimrc b/.gvimrc deleted file mode 100644 index 2c4fa76..0000000 --- a/.gvimrc +++ /dev/null @@ -1,5 +0,0 @@ -if has("gui_macvim") - set transp=2 - set fuoptions=maxvert,maxhorz - nmap :set invfullscreen -endif diff --git a/.hammerspoon/init.lua b/.hammerspoon/init.lua deleted file mode 100644 index 023ba80..0000000 --- a/.hammerspoon/init.lua +++ /dev/null @@ -1,59 +0,0 @@ -hs.grid.GRIDHEIGHT = 2 -hs.grid.GRIDWIDTH = 2 -hs.grid.MARGINX = 0 -hs.grid.MARGINY = 0 - -k = hs.hotkey.modal.new({"cmd","shift"}, "space") - -function k:entered() hs.alert.show('↩') end -function k:exited() hs.alert.show('⎋') end - -local top = {x=0,y=0,w=2,h=1} -local bottom = {x=0,y=1,w=2,h=1} -local left = {x=0,y=0,w=1,h=2} -local right = {x=1,y=0,w=1,h=2} -local topleft = {x=0,y=0,w=1,h=1} -local topright = {x=1,y=0,w=1,h=1} -local bottomleft = {x=0,y=1,w=1,h=1} -local bottomright = {x=1,y=1,w=1,h=1} -local full = {x=0,y=0,w=2,h=2} -local first = hs.screen.allScreens()[3] -local second = hs.screen.allScreens()[2] -local third = hs.screen.allScreens()[1] - -function sendTo(area) - local win = hs.window.focusedWindow() - local screen = win:screen() - hs.grid.set(win,area,screen) -end - -function selectWindow() - hs.hints.windowHints() -end - -function moveToScreen(screen) - local win = hs.window.focusedWindow() - win:moveToScreen(screen) -end - -k:bind({}, 'escape', function() k:exit() end) -k:bind({}, 'h', function() sendTo(left) end) -k:bind({}, 'j', function() sendTo(bottom) end) -k:bind({}, 'k', function() sendTo(top) end) -k:bind({}, 'l', function() sendTo(right) end) -k:bind({}, 'y', function() sendTo(topleft) end) -k:bind({}, 'u', function() sendTo(topright) end) -k:bind({}, 'b', function() sendTo(bottomleft) end) -k:bind({}, 'n', function() sendTo(bottomright) end) -k:bind({}, 'f', function() sendTo(full) end) - -hs.hotkey.bind({"cmd","ctrl"}, 'f', function() selectWindow() end) -k:bind({"shift"}, 'a', function() moveToScreen(first) end) -k:bind({"shift"}, 'o', function() moveToScreen(second) end) -k:bind({"shift"}, 'e', function() moveToScreen(third) end) - -function reload_config(files) - hs.reload() -end -hs.pathwatcher.new(os.getenv("HOME") .. "/.hammerspoon/", reload_config):start() -hs.alert.show("Config loaded") diff --git a/.irbrc b/.irbrc deleted file mode 100644 index 8969b63..0000000 --- a/.irbrc +++ /dev/null @@ -1,4 +0,0 @@ -require 'rubygems' -require 'interactive_editor' -require 'utility_belt' - diff --git a/.khdrc b/.khdrc deleted file mode 100644 index d47a0a8..0000000 --- a/.khdrc +++ /dev/null @@ -1,166 +0,0 @@ -# sample config for khd - -# set border color for different modes -khd mode default on_enter chunkc border::color 0xddbdd322 -khd mode switcher on_enter chunkc border::color 0xddd5c4a1 -khd mode ytd on_enter chunkc border::color 0xddd75f5f -khd mode swap on_enter chunkc border::color 0xdd458588 -khd mode tree on_enter chunkc border::color 0xddfabd2f -khd mode space on_enter chunkc border::color 0xddb16286 -khd mode info on_enter chunkc border::color 0xddcd950c - - -# 0x2A is \ -# toggle between modes -ctrl - 0x2A : khd -e "mode activate switcher" -switcher + ctrl - 0x2A : khd -e "mode activate default" -ytd + ctrl - 0x2A : khd -e "mode activate default" -swap + ctrl - 0x2A : khd -e "mode activate default" -space + ctrl - 0x2A : khd -e "mode activate default" -tree + ctrl - 0x2A : khd -e "mode activate default" -info + ctrl - 0x2A : khd -e "mode activate default" - -switcher - y : khd -e "mode activate ytd" -switcher - m : khd -e "mode activate swap" -switcher - s : khd -e "mode activate space" -switcher - t : khd -e "mode activate tree" -switcher - i : khd -e "mode activate info" - - - -# switcher mode -switcher - r : khd -e "reload" # reload config - -#switcher - return : open -na /Applications/Hyper.app;\ -# khd -e "mode activate default" - -cmd - return : osascript /Users/hunner/local/bin/terminal.scpt -#cmd - return : osascript /Users/hunner/local/bin/iterm_window.scpt -cmd + ctrl + alt - 9 : osascript /Users/hunner/local/bin/grayscale.scpt - -cmd + alt - h : chunkc tiling::window --focus west -cmd + alt - j : chunkc tiling::window --focus south -cmd + alt - k : chunkc tiling::window --focus north -cmd + alt - l : chunkc tiling::window --focus east - -ctrl + shift - 1 : chunkc tiling::window --send-to-desktop 1 -ctrl + shift - 2 : chunkc tiling::window --send-to-desktop 2 -ctrl + shift - 3 : chunkc tiling::window --send-to-desktop 3 -ctrl + shift - 4 : chunkc tiling::window --send-to-desktop 4 -ctrl + shift - 5 : chunkc tiling::window --send-to-desktop 5 -ctrl + shift - 6 : chunkc tiling::window --send-to-desktop 6 -ctrl + shift - 7 : chunkc tiling::window --send-to-desktop 7 -ctrl + shift - 8 : chunkc tiling::window --send-to-desktop 8 -ctrl + shift - 9 : chunkc tiling::window --send-to-desktop 9 -ctrl + shift - 0 : chunkc tiling::window --send-to-desktop 10 -ctrl + shift + alt - 1 : chunkc tiling::window --send-to-desktop 11 -ctrl + shift + alt - 2 : chunkc tiling::window --send-to-desktop 12 -ctrl + shift + alt - 3 : chunkc tiling::window --send-to-desktop 13 -ctrl + shift + alt - 4 : chunkc tiling::window --send-to-desktop 14 -ctrl + shift + alt - 5 : chunkc tiling::window --send-to-desktop 15 -ctrl + shift + alt - 6 : chunkc tiling::window --send-to-desktop 16 - -# Focus display -switcher - 1 : chunkc tiling::monitor -f 1 ; khd -e "mode activate default" -switcher - 2 : chunkc tiling::monitor -f 2 ; khd -e "mode activate default" -switcher - 3 : chunkc tiling::monitor -f 3 ; khd -e "mode activate default" - -# Move window to display -swap + shift - 1 : chunkc tiling::window --send-to-monitor 1 ; khd -e "mode activate default" -swap + shift - 2 : chunkc tiling::window --send-to-monitor 2 ; khd -e "mode activate default" -swap + shift - 3 : chunkc tiling::window --send-to-monitor 3 ; khd -e "mode activate default" - -## ytd mode -#ytd - x : ytc play;\ -# khd -e "mode activate default" -# -#ytd - s : ytc mkfav;\ -# khd -e "mode activate default" -# -## 0x32 == < -#ytd - 0x32 : ytc fav -#ytd - z : ytc prev -#ytd - c : ytc next -#ytd - v : ytc stop -#ytd - a : ytc volup -#ytd - d : ytc voldown -#ytd - right : ytc seekfw -#ytd - left : ytc seekbk - -# Swap windows around -swap - h : chunkc tiling::window --swap west -swap - j : chunkc tiling::window --swap south -swap - k : chunkc tiling::window --swap north -swap - l : chunkc tiling::window --swap east - -# Move windows around -swap + shift - h : chunkc tiling::window --warp west -swap + shift - j : chunkc tiling::window --warp south -swap + shift - k : chunkc tiling::window --warp north -swap + shift - l : chunkc tiling::window --warp east - -# toggle window float -swap - t : chunkc tiling::window --toggle float - -# toggle window native fullscreen -swap - f : chunkc tiling::window --toggle native-fullscreen - -# toggle sticky, float and resize to picture-in-picture size -swap - s : chunkc tiling::window --toggle sticky;\ - chunkc tiling::window --warp-floating pip-right - -# Change space mode -space - a : chunkc tiling::desktop --layout bsp -space - s : chunkc tiling::desktop --layout monocle -space - d : chunkc tiling::desktop --layout float - -# Change padding -space - p : chunkc tiling::desktop --padding inc -space + shift - p : chunkc tiling::desktop --padding dec - -# Change gap -space - g : chunkc tiling::desktop --gap inc -space + shift - g : chunkc tiling::desktop --gap dec - -space + shift - x : kwmc space -g decrease horizontal -space + shift - y : kwmc space -g decrease vertical - -# Increase window padding -space - h : chunkc tiling::window --use-temporary-ratio 0.05 --adjust-window-edge west -space - j : chunkc tiling::window --use-temporary-ratio 0.05 --adjust-window-edge south -space - k : chunkc tiling::window --use-temporary-ratio 0.05 --adjust-window-edge south -space - l : chunkc tiling::window --use-temporary-ratio 0.05 --adjust-window-edge south - -# Decrease window padding -space + shift - h : chunkc tiling::window --use-temporary-ratio -0.05 --adjust-window-edge west -space + shift - j : chunkc tiling::window --use-temporary-ratio -0.05 --adjust-window-edge south -space + shift - k : chunkc tiling::window --use-temporary-ratio -0.05 --adjust-window-edge south -space + shift - l : chunkc tiling::window --use-temporary-ratio -0.05 --adjust-window-edge south - - -# tree mode -tree - f : chunkc tiling::window -z fullscreen -tree - d : chunkc tiling::window -z parent -tree - w : chunkc tiling::window -t focused -tree - r : chunkc tree rotate 90 - -tree - s : kwmc window -c split - mode toggle;\ - khd -e "mode activate default" - -tree - c : kwmc window -c type toggle;\ - khd -e "mode activate default" - -tree - h : kwmc window -c expand 0.05 west -tree - j : kwmc window -c expand 0.05 south -tree - k : kwmc window -c expand 0.05 north -tree - l : kwmc window -c expand 0.05 east -tree + shift - h : kwmc window -c reduce 0.05 west -tree + shift - j : kwmc window -c reduce 0.05 south -tree + shift - k : kwmc window -c reduce 0.05 north -tree + shift - l : kwmc window -c reduce 0.05 east - -tree - p : kwmc tree -pseudo create -tree + shift - p : kwmc tree -pseudo destroy - -tree - o : kwmc window -s prev -tree + shift - o : kwmc window -s next diff --git a/.kwm/kwmrc b/.kwm/kwmrc deleted file mode 100644 index 4be6241..0000000 --- a/.kwm/kwmrc +++ /dev/null @@ -1,156 +0,0 @@ -/* -This is a sample config for Kwm - -The following statements can be used to set Kwms internal directory structure. - - This is the root folder for Kwms files, the only thing this actually - specifies is the location of the 'init' script which Kwm runs upon startup. - Defaults to $HOME/.kwm - - kwm_home /path/to/.kwm - - This is the root folder in which all files included using 'include' must reside. - Defaults to $HOME/.kwm - - kwm_include /path/to/.kwm/include - - This is the folder in which all bsp-layouts managed by 'tree load' and 'tree save' - is loaded from / saved to. Defaults to $HOME/.kwm/layouts - - kwm_layouts /path/to/.kwm/layouts - -Commands prefixed with 'kwmc' will call -local functions corresponding to the -kwmc syntax. - -To run an external program or command, -use the prefix 'exec' followed by command. -e.g 'exec mvim' would open macvim - -Read file and execute commands as -if they were written inside kwmrc. - -include filename - -e.g: window-rules in a separate file called 'rules' - include rules -*/ - -# Set default values for screen padding -kwmc config padding 30 10 10 10 - -# Set default values for container gaps -kwmc config gap 10 10 - -# Default tiling mode for Kwm (bsp | monocle | float) -kwmc config tiling monocle - -# Automatically float windows that fail to resize -kwmc config float-non-resizable on - -# Automatically resize the window to its container -kwmc config lock-to-container on - -# Set focus-follows-mouse-mode to autoraise -kwmc config focus-follows-mouse on - -/* - Focus-follows-mouse is temporarily disabled when - a floating window has focus -*/ -kwmc config standby-on-float on - -# Center window when made floating -kwmc config center-on-float on - -/* - The mouse will automatically move to the center - of the focused window -*/ -kwmc config mouse-follows-focus on - -/* - Allows a window to be moved by dragging, - when a modifier key and left-click is held down. - - Allows a window to be resized by dragging - when a modifier key and right-click is held down. -*/ -kwmc config mouse-drag on - -# The modifier keys to be held down to initiate mouse-drag -kwmc config mouse-drag mod shift+ctrl - -# Allow window focus to wrap-around -kwmc config cycle-focus on - -/* -Override default settings for space 1 on screen 0 - kwmc config space 0 1 mode monocle - kwmc config space 0 1 padding 100 100 100 100 - kwmc config space 0 1 gap 40 40 -*/ - -/* -Override default settings for screen 1 - kwmc config display 1 mode bsp - kwmc config display 1 padding 100 100 100 100 - kwmc config display 1 gap 40 40 -*/ - -# Set default container split-ratio -kwmc config split-ratio 0.5 - -# New splits become the left leaf-node -kwmc config spawn left - -/* - Add custom tiling rules for applications that - does not get tiled by Kwm by default. - This is because some applications do not have the - AXWindowRole and AXStandardWindowSubRole -*/ -kwmc rule owner="iTerm2" properties={role="AXDialog"} - -// Emacs is special? -kwmc config add-role AXWindow Emacs -kwmc rule owner="Emacs" properties={role="AXStandardWindow"} - -/* -The following commands create rules that -blacklists an application from Kwms tiling - - kwmc rule owner="Steam" properties={float="true"} - kwmc rule owner="Photoshop" properties={float="true"} - kwmc rule owner="VOX" properties={float="true"} -*/ -kwmc rule owner="Lightroom" properties={float="true"} -kwmc rule owner="Adobe Lightroom CC" properties={float="true"} -kwmc rule owner="Stickies" properties={float="true"} -kwmc rule owner="Steam" properties={float="true"} -kwmc rule owner="App Store" properties={float="true"} -kwmc rule owner="Finder" properties={role="AXDialog"} -kwmc rule owner="Finder" role="AXDialog" properties={float="true"} -kwmc rule owner="System Preferences" properties={float="true"} -kwmc rule owner="Arq" properties={float="true"} -kwmc rule owner="Hyper" properties={role="AXDialog"} - -/* -The following command creates a rule that -captures an application to the given screen, -if the screen exists. - - kwmc rule owner="iTunes" properties={display="1"} -*/ - -# Enable border for focused window -kwmc config border focused on -kwmc config border focused size 2 -kwmc config border focused color 0xFFBDD322 -kwmc config border focused radius 6 - -# Enable border for marked window -kwmc config border marked on -kwmc config border marked size 2 -kwmc config border marked color 0xFFCC5577 -kwmc config border marked radius 6 diff --git a/.muttrc-old b/.muttrc-old deleted file mode 100644 index 89a46eb..0000000 --- a/.muttrc-old +++ /dev/null @@ -1,84 +0,0 @@ -# Account information -set from="hunter@puppet.com" -set imap_user="hunter@puppet.com" -source '~/.muttpassword.sh|' -set realname="Hunter Haugen" -set folder="imaps://imap.gmail.com:993" -set spoolfile="+INBOX" -set postponed="+[Gmail]/Drafts" - - -# Cache message headers for quick retrieval -set header_cache=~/.mutt/cache/headers -set message_cachedir=~/.mutt/cache/bodies -set certificate_file=~/.mutt/certificates - -# ? -set imap_keepalive=280 - -# Sort like gmail sorts it: freshest-thread first -set sort=threads -set sort_aux=reverse-last-date-received -# Automatically poll subscribed mailboxes for new mail -set imap_check_subscribed=yes -# Display download progress every 5K -set net_inc=5 -# Don't skip past end of message on -set pager_stop=yes - -# Don't copy sent mail; gmail does it -unset record -set copy=no -# Don't move mail out of inbox on delete; gmail does it -set move=no - -# Pretty it up -# ---- -# default list of header fields to weed out when displaying mail -# ignore them all and then unignore what you want to see -ignore * -unignore Date To From: Cc Subject X-Tts X-Label -unignore x-mailing-list: posted-to: -unignore x-mailer: -hdr_order Date To From: Cc Subject X-Tts X-Label -color normal default default -color header color148 default '^(Cc|Date|To|From|Subject):' -color header brightwhite default '^(X-Mailer|X-Label|X-Tts):' -color hdrdefault cyan default - -color index white default ~N -color index brightwhite default ~O -color index magenta default ~F -color index brightblack default ~D - -color tree magenta default -color quoted magenta default -color quoted1 white default -color quoted2 brightred default -color quoted3 brightmagenta default - -#color body cyan default "((ftp|http|https)://|news:)[^ >)\"\t]+" -color body magenta default "[-a-z_0-9.+]+@[-a-z_0-9.]+\.[a-z]{2,3}" -color error color88 default -color indicator black color148 -color signature brightblack default -color status color148 black -color tilde blue default - -# Key bindings -bind pager h display-toggle-weed -bind pager J next-thread -bind pager K previous-thread -bind pager R group-reply - -# Macros -macro index,pager c "?" "open a different folder" -macro index ,cu "T.*\n;WN;WO^T.*\n" "catch up" -macro generic,pager ,sm ":source $HOME/.muttrc\r" "Resource .muttrc without restart" -# Gmail macros -macro index,pager y "unset trash\n" "Archive message" -macro index,pager gi "=INBOX" "Go to inbox" -macro index,pager ga "=[Gmail]/All Mail" "Go to all mail" -macro index,pager gs "=[Gmail]/Sent Mail" "Go to sent mail" -macro index,pager gd "=[Gmail]/Drafts" "Go to drafts" - diff --git a/.oldvim/vim/backups/.gitignore b/.oldvim/vim/backups/.gitignore deleted file mode 100644 index d6b7ef3..0000000 --- a/.oldvim/vim/backups/.gitignore +++ /dev/null @@ -1,2 +0,0 @@ -* -!.gitignore diff --git a/.oldvim/vim/colors/inkpot.vim b/.oldvim/vim/colors/inkpot.vim deleted file mode 100644 index d9dcf1a..0000000 --- a/.oldvim/vim/colors/inkpot.vim +++ /dev/null @@ -1,217 +0,0 @@ -" Vim color file -" Name: inkpot.vim -" Maintainer: Ciaran McCreesh -" Homepage: http://github.com/ciaranm/inkpot/ -" -" This should work in the GUI, rxvt-unicode (88 colour mode) and xterm (256 -" colour mode). It won't work in 8/16 colour terminals. -" -" To use a black background, :let g:inkpot_black_background = 1 - -set background=dark -hi clear -if exists("syntax_on") - syntax reset -endif - -let colors_name = "inkpot" - -" map a urxvt cube number to an xterm-256 cube number -fun! M(a) - return strpart("0135", a:a, 1) + 0 -endfun - -" map a urxvt colour to an xterm-256 colour -fun! X(a) - if &t_Co == 88 - return a:a - else - if a:a == 8 - return 237 - elseif a:a < 16 - return a:a - elseif a:a > 79 - return 232 + (3 * (a:a - 80)) - else - let l:b = a:a - 16 - let l:x = l:b % 4 - let l:y = (l:b / 4) % 4 - let l:z = (l:b / 16) - return 16 + M(l:x) + (6 * M(l:y)) + (36 * M(l:z)) - endif - endif -endfun - -if ! exists("g:inkpot_black_background") - let g:inkpot_black_background = 0 -endif - -if has("gui_running") - if ! g:inkpot_black_background - hi Normal gui=NONE guifg=#cfbfad guibg=#1e1e27 - else - hi Normal gui=NONE guifg=#cfbfad guibg=#000000 - endif - - hi CursorLine guibg=#2e2e37 - hi CursorColumn guibg=#2e2e37 - - hi IncSearch gui=BOLD guifg=#303030 guibg=#cd8b60 - hi Search gui=NONE guifg=#303030 guibg=#ad7b57 - hi ErrorMsg gui=BOLD guifg=#ffffff guibg=#ce4e4e - hi WarningMsg gui=BOLD guifg=#ffffff guibg=#ce8e4e - hi ModeMsg gui=BOLD guifg=#7e7eae guibg=NONE - hi MoreMsg gui=BOLD guifg=#7e7eae guibg=NONE - hi Question gui=BOLD guifg=#ffcd00 guibg=NONE - - hi StatusLine gui=BOLD guifg=#b9b9b9 guibg=#3e3e5e - hi User1 gui=BOLD guifg=#00ff8b guibg=#3e3e5e - hi User2 gui=BOLD guifg=#7070a0 guibg=#3e3e5e - hi StatusLineNC gui=NONE guifg=#b9b9b9 guibg=#3e3e5e - hi VertSplit gui=NONE guifg=#b9b9b9 guibg=#3e3e5e - - hi WildMenu gui=BOLD guifg=#eeeeee guibg=#6e6eaf - - hi MBENormal guifg=#cfbfad guibg=#2e2e3f - hi MBEChanged guifg=#eeeeee guibg=#2e2e3f - hi MBEVisibleNormal guifg=#cfcfcd guibg=#4e4e8f - hi MBEVisibleChanged guifg=#eeeeee guibg=#4e4e8f - - hi DiffText gui=NONE guifg=#ffffcd guibg=#4a2a4a - hi DiffChange gui=NONE guifg=#ffffcd guibg=#306b8f - hi DiffDelete gui=NONE guifg=#ffffcd guibg=#6d3030 - hi DiffAdd gui=NONE guifg=#ffffcd guibg=#306d30 - - hi Cursor gui=NONE guifg=#404040 guibg=#8b8bff - hi lCursor gui=NONE guifg=#404040 guibg=#8fff8b - hi CursorIM gui=NONE guifg=#404040 guibg=#8b8bff - - hi Folded gui=NONE guifg=#cfcfcd guibg=#4b208f - hi FoldColumn gui=NONE guifg=#8b8bcd guibg=#2e2e2e - - hi Directory gui=NONE guifg=#00ff8b guibg=NONE - hi LineNr gui=NONE guifg=#8b8bcd guibg=#2e2e2e - hi NonText gui=BOLD guifg=#8b8bcd guibg=NONE - hi SpecialKey gui=BOLD guifg=#ab60ed guibg=NONE - hi Title gui=BOLD guifg=#af4f4b guibg=NONE - hi Visual gui=NONE guifg=#eeeeee guibg=#4e4e8f - - hi Comment gui=NONE guifg=#cd8b00 guibg=NONE - hi Constant gui=NONE guifg=#ffcd8b guibg=NONE - hi String gui=NONE guifg=#ffcd8b guibg=#404040 - hi Error gui=NONE guifg=#ffffff guibg=#6e2e2e - hi Identifier gui=NONE guifg=#ff8bff guibg=NONE - hi Ignore gui=NONE - hi Number gui=NONE guifg=#f0ad6d guibg=NONE - hi PreProc gui=NONE guifg=#409090 guibg=NONE - hi Special gui=NONE guifg=#c080d0 guibg=NONE - hi SpecialChar gui=NONE guifg=#c080d0 guibg=#404040 - hi Statement gui=NONE guifg=#808bed guibg=NONE - hi Todo gui=BOLD guifg=#303030 guibg=#d0a060 - hi Type gui=NONE guifg=#ff8bff guibg=NONE - hi Underlined gui=BOLD guifg=#df9f2d guibg=NONE - hi TaglistTagName gui=BOLD guifg=#808bed guibg=NONE - - hi perlSpecialMatch gui=NONE guifg=#c080d0 guibg=#404040 - hi perlSpecialString gui=NONE guifg=#c080d0 guibg=#404040 - - hi cSpecialCharacter gui=NONE guifg=#c080d0 guibg=#404040 - hi cFormat gui=NONE guifg=#c080d0 guibg=#404040 - - hi doxygenBrief gui=NONE guifg=#fdab60 guibg=NONE - hi doxygenParam gui=NONE guifg=#fdd090 guibg=NONE - hi doxygenPrev gui=NONE guifg=#fdd090 guibg=NONE - hi doxygenSmallSpecial gui=NONE guifg=#fdd090 guibg=NONE - hi doxygenSpecial gui=NONE guifg=#fdd090 guibg=NONE - hi doxygenComment gui=NONE guifg=#ad7b20 guibg=NONE - hi doxygenSpecial gui=NONE guifg=#fdab60 guibg=NONE - hi doxygenSpecialMultilineDesc gui=NONE guifg=#ad600b guibg=NONE - hi doxygenSpecialOnelineDesc gui=NONE guifg=#ad600b guibg=NONE - - if v:version >= 700 - hi Pmenu gui=NONE guifg=#eeeeee guibg=#4e4e8f - hi PmenuSel gui=BOLD guifg=#eeeeee guibg=#2e2e3f - hi PmenuSbar gui=BOLD guifg=#eeeeee guibg=#6e6eaf - hi PmenuThumb gui=BOLD guifg=#eeeeee guibg=#6e6eaf - - hi SpellBad gui=undercurl guisp=#cc6666 - hi SpellRare gui=undercurl guisp=#cc66cc - hi SpellLocal gui=undercurl guisp=#cccc66 - hi SpellCap gui=undercurl guisp=#66cccc - - hi MatchParen gui=NONE guifg=#cfbfad guibg=#4e4e8f - endif -else - if ! g:inkpot_black_background - "exec "hi Normal cterm=NONE ctermfg=" . X(79) . " ctermbg=" . X(80) - else - exec "hi Normal cterm=NONE ctermfg=" . X(79) . " ctermbg=" . X(16) - endif - - exec "hi IncSearch cterm=BOLD ctermfg=" . X(80) . " ctermbg=" . X(73) - exec "hi Search cterm=NONE ctermfg=" . X(80) . " ctermbg=" . X(52) - exec "hi ErrorMsg cterm=BOLD ctermfg=" . X(16) . " ctermbg=" . X(48) - exec "hi WarningMsg cterm=BOLD ctermfg=" . X(16) . " ctermbg=" . X(68) - exec "hi ModeMsg cterm=BOLD ctermfg=" . X(38) . " ctermbg=" . "NONE" - exec "hi MoreMsg cterm=BOLD ctermfg=" . X(38) . " ctermbg=" . "NONE" - exec "hi Question cterm=BOLD ctermfg=" . X(52) . " ctermbg=" . "NONE" - - exec "hi StatusLine cterm=BOLD ctermfg=" . X(85) . " ctermbg=" . X(81) - exec "hi User1 cterm=BOLD ctermfg=" . X(28) . " ctermbg=" . X(81) - exec "hi User2 cterm=BOLD ctermfg=" . X(39) . " ctermbg=" . X(81) - exec "hi StatusLineNC cterm=NONE ctermfg=" . X(84) . " ctermbg=" . X(81) - exec "hi VertSplit cterm=NONE ctermfg=" . X(84) . " ctermbg=" . X(81) - - exec "hi WildMenu cterm=BOLD ctermfg=" . X(87) . " ctermbg=" . X(38) - - exec "hi MBENormal ctermfg=" . X(85) . " ctermbg=" . X(81) - exec "hi MBEChanged ctermfg=" . X(87) . " ctermbg=" . X(81) - exec "hi MBEVisibleNormal ctermfg=" . X(85) . " ctermbg=" . X(82) - exec "hi MBEVisibleChanged ctermfg=" . X(87) . " ctermbg=" . X(82) - - exec "hi DiffText cterm=NONE ctermfg=" . X(79) . " ctermbg=" . X(34) - exec "hi DiffChange cterm=NONE ctermfg=" . X(79) . " ctermbg=" . X(17) - exec "hi DiffDelete cterm=NONE ctermfg=" . X(79) . " ctermbg=" . X(32) - exec "hi DiffAdd cterm=NONE ctermfg=" . X(79) . " ctermbg=" . X(20) - - exec "hi Folded cterm=NONE ctermfg=" . X(79) . " ctermbg=" . X(35) - exec "hi FoldColumn cterm=NONE ctermfg=" . X(39) . " ctermbg=" . X(80) - - exec "hi Directory cterm=NONE ctermfg=" . X(28) . " ctermbg=" . "NONE" - exec "hi LineNr cterm=NONE ctermfg=" . X(39) . " ctermbg=" . X(80) - exec "hi NonText cterm=BOLD ctermfg=" . X(39) . " ctermbg=" . "NONE" - exec "hi SpecialKey cterm=BOLD ctermfg=" . X(55) . " ctermbg=" . "NONE" - exec "hi Title cterm=BOLD ctermfg=" . X(48) . " ctermbg=" . "NONE" - exec "hi Visual cterm=NONE ctermfg=" . X(79) . " ctermbg=" . X(38) - - exec "hi Comment cterm=NONE ctermfg=" . X(52) . " ctermbg=" . "NONE" - exec "hi Constant cterm=NONE ctermfg=" . X(73) . " ctermbg=" . "NONE" - exec "hi String cterm=NONE ctermfg=" . X(73) . " ctermbg=" . X(81) - exec "hi Error cterm=NONE ctermfg=" . X(79) . " ctermbg=" . X(32) - exec "hi Identifier cterm=NONE ctermfg=" . X(53) . " ctermbg=" . "NONE" - exec "hi Ignore cterm=NONE" - exec "hi Number cterm=NONE ctermfg=" . X(69) . " ctermbg=" . "NONE" - exec "hi PreProc cterm=NONE ctermfg=" . X(25) . " ctermbg=" . "NONE" - exec "hi Special cterm=NONE ctermfg=" . X(55) . " ctermbg=" . "NONE" - exec "hi SpecialChar cterm=NONE ctermfg=" . X(55) . " ctermbg=" . X(81) - exec "hi Statement cterm=NONE ctermfg=" . X(27) . " ctermbg=" . "NONE" - exec "hi Todo cterm=BOLD ctermfg=" . X(16) . " ctermbg=" . X(57) - exec "hi Type cterm=NONE ctermfg=" . X(71) . " ctermbg=" . "NONE" - exec "hi Underlined cterm=BOLD ctermfg=" . X(77) . " ctermbg=" . "NONE" - exec "hi TaglistTagName cterm=BOLD ctermfg=" . X(39) . " ctermbg=" . "NONE" - - if v:version >= 700 - exec "hi Pmenu cterm=NONE ctermfg=" . X(87) . " ctermbg=" . X(82) - exec "hi PmenuSel cterm=BOLD ctermfg=" . X(87) . " ctermbg=" . X(38) - exec "hi PmenuSbar cterm=BOLD ctermfg=" . X(87) . " ctermbg=" . X(39) - exec "hi PmenuThumb cterm=BOLD ctermfg=" . X(87) . " ctermbg=" . X(39) - - exec "hi SpellBad cterm=NONE ctermbg=" . X(32) - exec "hi SpellRare cterm=NONE ctermbg=" . X(33) - exec "hi SpellLocal cterm=NONE ctermbg=" . X(36) - exec "hi SpellCap cterm=NONE ctermbg=" . X(21) - exec "hi MatchParen cterm=NONE ctermbg=" . X(14) . "ctermfg=" . X(25) - endif -endif - -" vim: set et : diff --git a/.oldvim/vim/colors/ir_black.vim b/.oldvim/vim/colors/ir_black.vim deleted file mode 100644 index f4f3cb3..0000000 --- a/.oldvim/vim/colors/ir_black.vim +++ /dev/null @@ -1,220 +0,0 @@ -" ir_black color scheme -" More at: http://blog.infinitered.com/entries/show/8 - - -" ******************************************************************************** -" Standard colors used in all ir_black themes: -" Note, x:x:x are RGB values -" -" normal: #f6f3e8 -" -" string: #A8FF60 168:255:96 -" string inner (punc, code, etc): #00A0A0 0:160:160 -" number: #FF73FD 255:115:253 -" comments: #7C7C7C 124:124:124 -" keywords: #96CBFE 150:203:254 -" operators: white -" class: #FFFFB6 255:255:182 -" method declaration name: #FFD2A7 255:210:167 -" regular expression: #E9C062 233:192:98 -" regexp alternate: #FF8000 255:128:0 -" regexp alternate 2: #B18A3D 177:138:61 -" variable: #C6C5FE 198:197:254 -" -" Misc colors: -" red color (used for whatever): #FF6C60 255:108:96 -" light red: #FFB6B0 255:182:176 -" -" brown: #E18964 good for special -" -" lightpurpleish: #FFCCFF -" -" Interface colors: -" background color: black -" cursor (where underscore is used): #FFA560 255:165:96 -" cursor (where block is used): white -" visual selection: #1D1E2C -" current line: #151515 21:21:21 -" search selection: #07281C 7:40:28 -" line number: #3D3D3D 61:61:61 - - -" ******************************************************************************** -" The following are the preferred 16 colors for your terminal -" Colors Bright Colors -" Black #4E4E4E #7C7C7C -" Red #FF6C60 #FFB6B0 -" Green #A8FF60 #CEFFAB -" Yellow #FFFFB6 #FFFFCB -" Blue #96CBFE #FFFFCB -" Magenta #FF73FD #FF9CFE -" Cyan #C6C5FE #DFDFFE -" White #EEEEEE #FFFFFF - - -" ******************************************************************************** -set background=dark -hi clear - -if exists("syntax_on") - syntax reset -endif - -let colors_name = "ir_black" - - -"hi Example guifg=NONE guibg=NONE gui=NONE ctermfg=NONE ctermbg=NONE cterm=NONE - -" General colors -hi Normal guifg=#f6f3e8 guibg=black gui=NONE ctermfg=NONE ctermbg=NONE cterm=NONE -hi NonText guifg=#070707 guibg=black gui=NONE ctermfg=black ctermbg=NONE cterm=NONE - -hi Cursor guifg=black guibg=white gui=NONE ctermfg=black ctermbg=white cterm=reverse -hi LineNr guifg=#3D3D3D guibg=black gui=NONE ctermfg=darkgray ctermbg=NONE cterm=NONE - -hi VertSplit guifg=#202020 guibg=#202020 gui=NONE ctermfg=darkgray ctermbg=darkgray cterm=NONE -hi StatusLine guifg=#202020 guibg=#CCCCCC gui=italic ctermfg=white ctermbg=darkgray cterm=NONE -hi StatusLineNC guifg=#CCCCCC guibg=#202020 gui=NONE ctermfg=blue ctermbg=darkgray cterm=NONE - -hi Folded guifg=#a0a8b0 guibg=#384048 gui=NONE ctermfg=NONE ctermbg=NONE cterm=NONE -hi FoldColumn guifg=#a0a8b0 guibg=#384048 gui=NONE ctermfg=NONE ctermbg=NONE cterm=NONE -hi Title guifg=#f6f3e8 guibg=NONE gui=bold ctermfg=NONE ctermbg=NONE cterm=NONE -hi Visual guifg=NONE guibg=#262D51 gui=NONE ctermfg=NONE ctermbg=darkgray cterm=NONE - -hi SpecialKey guifg=#808080 guibg=#343434 gui=NONE ctermfg=NONE ctermbg=NONE cterm=NONE - -hi WildMenu guifg=green guibg=yellow gui=NONE ctermfg=black ctermbg=yellow cterm=NONE -hi PmenuSbar guifg=black guibg=white gui=NONE ctermfg=black ctermbg=white cterm=NONE -"hi Ignore guifg=gray guibg=black gui=NONE ctermfg=NONE ctermbg=NONE cterm=NONE - -hi Error guifg=NONE guibg=NONE gui=undercurl ctermfg=white ctermbg=red cterm=NONE guisp=#FF6C60 " undercurl color -hi ErrorMsg guifg=white guibg=#FF6C60 gui=BOLD ctermfg=white ctermbg=red cterm=NONE -hi WarningMsg guifg=white guibg=#FF6C60 gui=BOLD ctermfg=white ctermbg=red cterm=NONE - -" Message displayed in lower left, such as --INSERT-- -hi ModeMsg guifg=black guibg=#C6C5FE gui=BOLD ctermfg=black ctermbg=cyan cterm=BOLD - -" Diff colors -hi DiffAdd guifg=NONE guibg=#26512D gui=NONE ctermfg=NONE ctermbg=darkgray cterm=NONE -hi DiffChange guifg=NONE guibg=#262D51 gui=NONE ctermfg=NONE ctermbg=darkgray cterm=NONE -hi DiffText guifg=NONE guibg=#384048 gui=NONE ctermfg=NONE ctermbg=darkgray cterm=NONE -hi DiffDelete guifg=NONE guibg=#512D26 gui=NONE ctermfg=NONE ctermbg=darkgray cterm=NONE - -if version >= 700 " Vim 7.x specific colors - hi Cursor guifg=NONE guibg=NONE gui=reverse ctermfg=NONE ctermbg=NONE cterm=BOLD - hi CursorLine guifg=NONE guibg=#121212 gui=NONE ctermfg=NONE ctermbg=NONE cterm=BOLD - hi CursorColumn guifg=NONE guibg=#121212 gui=NONE ctermfg=NONE ctermbg=NONE cterm=BOLD - hi MatchParen guifg=#f6f3e8 guibg=#857b6f gui=BOLD ctermfg=white ctermbg=darkgray cterm=NONE - hi Pmenu guifg=#f6f3e8 guibg=#444444 gui=NONE ctermfg=NONE ctermbg=NONE cterm=NONE - hi PmenuSel guifg=#000000 guibg=#cae682 gui=NONE ctermfg=NONE ctermbg=NONE cterm=NONE - hi Search guifg=NONE guibg=NONE gui=underline ctermfg=NONE ctermbg=NONE cterm=underline -endif - -" Syntax highlighting -hi Comment guifg=#7C7C7C guibg=NONE gui=NONE ctermfg=darkgray ctermbg=NONE cterm=NONE -hi String guifg=#A8FF60 guibg=NONE gui=NONE ctermfg=green ctermbg=NONE cterm=NONE -hi Number guifg=#FF73FD guibg=NONE gui=NONE ctermfg=magenta ctermbg=NONE cterm=NONE - -hi Keyword guifg=#96CBFE guibg=NONE gui=NONE ctermfg=blue ctermbg=NONE cterm=NONE -hi PreProc guifg=#96CBFE guibg=NONE gui=NONE ctermfg=blue ctermbg=NONE cterm=NONE -hi Conditional guifg=#6699CC guibg=NONE gui=NONE ctermfg=blue ctermbg=NONE cterm=NONE " if else end - -hi Todo guifg=#8f8f8f guibg=NONE gui=NONE ctermfg=red ctermbg=NONE cterm=NONE -hi Constant guifg=#99CC99 guibg=NONE gui=NONE ctermfg=cyan ctermbg=NONE cterm=NONE - -hi Identifier guifg=#C6C5FE guibg=NONE gui=NONE ctermfg=cyan ctermbg=NONE cterm=NONE -hi Function guifg=#FFD2A7 guibg=NONE gui=NONE ctermfg=brown ctermbg=NONE cterm=NONE -hi Type guifg=#FFFFB6 guibg=NONE gui=NONE ctermfg=yellow ctermbg=NONE cterm=NONE -hi Statement guifg=#6699CC guibg=NONE gui=NONE ctermfg=lightblue ctermbg=NONE cterm=NONE - -hi Special guifg=#E18964 guibg=NONE gui=NONE ctermfg=white ctermbg=NONE cterm=NONE -hi Delimiter guifg=#00A0A0 guibg=NONE gui=NONE ctermfg=cyan ctermbg=NONE cterm=NONE -hi Operator guifg=white guibg=NONE gui=NONE ctermfg=white ctermbg=NONE cterm=NONE - -hi link Character Constant -hi link Boolean Constant -hi link Float Number -hi link Repeat Statement -hi link Label Statement -hi link Exception Statement -hi link Include PreProc -hi link Define PreProc -hi link Macro PreProc -hi link PreCondit PreProc -hi link StorageClass Type -hi link Structure Type -hi link Typedef Type -hi link Tag Special -hi link SpecialChar Special -hi link SpecialComment Special -hi link Debug Special - - -" Special for Ruby -hi rubyRegexp guifg=#B18A3D guibg=NONE gui=NONE ctermfg=brown ctermbg=NONE cterm=NONE -hi rubyRegexpDelimiter guifg=#FF8000 guibg=NONE gui=NONE ctermfg=brown ctermbg=NONE cterm=NONE -hi rubyEscape guifg=white guibg=NONE gui=NONE ctermfg=cyan ctermbg=NONE cterm=NONE -hi rubyInterpolationDelimiter guifg=#00A0A0 guibg=NONE gui=NONE ctermfg=blue ctermbg=NONE cterm=NONE -hi rubyControl guifg=#6699CC guibg=NONE gui=NONE ctermfg=blue ctermbg=NONE cterm=NONE "and break, etc -"hi rubyGlobalVariable guifg=#FFCCFF guibg=NONE gui=NONE ctermfg=lightblue ctermbg=NONE cterm=NONE "yield -hi rubyStringDelimiter guifg=#336633 guibg=NONE gui=NONE ctermfg=lightgreen ctermbg=NONE cterm=NONE -"rubyInclude -"rubySharpBang -"rubyAccess -"rubyPredefinedVariable -"rubyBoolean -"rubyClassVariable -"rubyBeginEnd -"rubyRepeatModifier -"hi link rubyArrayDelimiter Special " [ , , ] -"rubyCurlyBlock { , , } - -hi link rubyClass Keyword -hi link rubyModule Keyword -hi link rubyKeyword Keyword -hi link rubyOperator Operator -hi link rubyIdentifier Identifier -hi link rubyInstanceVariable Identifier -hi link rubyGlobalVariable Identifier -hi link rubyClassVariable Identifier -hi link rubyConstant Type - - -" Special for Java -" hi link javaClassDecl Type -hi link javaScopeDecl Identifier -hi link javaCommentTitle javaDocSeeTag -hi link javaDocTags javaDocSeeTag -hi link javaDocParam javaDocSeeTag -hi link javaDocSeeTagParam javaDocSeeTag - -hi javaDocSeeTag guifg=#CCCCCC guibg=NONE gui=NONE ctermfg=darkgray ctermbg=NONE cterm=NONE -hi javaDocSeeTag guifg=#CCCCCC guibg=NONE gui=NONE ctermfg=darkgray ctermbg=NONE cterm=NONE -"hi javaClassDecl guifg=#CCFFCC guibg=NONE gui=NONE ctermfg=white ctermbg=NONE cterm=NONE - - -" Special for XML -hi link xmlTag Keyword -hi link xmlTagName Conditional -hi link xmlEndTag Identifier - - -" Special for HTML -hi link htmlTag Keyword -hi link htmlTagName Conditional -hi link htmlEndTag Identifier - - -" Special for Javascript -hi link javaScriptNumber Number - - -" Special for Python -"hi link pythonEscape Keyword - - -" Special for CSharp -hi link csXmlTag Keyword - - -" Special for PHP diff --git a/.oldvim/vim/colors/relaxedgreen.vim b/.oldvim/vim/colors/relaxedgreen.vim deleted file mode 100644 index 9d2bf14..0000000 --- a/.oldvim/vim/colors/relaxedgreen.vim +++ /dev/null @@ -1,112 +0,0 @@ -" ---------------------------------------------------------------------------------------------------------------------------------- -" Filename: relaxedgreen.vim -" Last Modified: 13 Feb 2007 09:57:24 PM by Dave V -" Maintainer: Dave Vehrs (dvehrs at gmail.com) -" Copyright: 2002,2003,2004,2005,2006,2007 Dave Vehrs -" This script 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. -" Description: Vim colorscheme file. -" Install: Place this file in the users colors directory (~/.vim/colors) or -" in the shared colors directory (/usr/shared/vim/vim/colors/), -" then load it with :colorscheme relaxedgreen -" ---------------------------------------------------------------------------------------------------------------------------------- -set background=dark -hi clear -if exists("syntax_on") - syntax reset -endif -let g:colors_name = "relaxedgreen" -highlight Cursor term=reverse ctermfg=green ctermbg=blue guifg=#000000 guibg=#559955 -highlight CursorIM term=reverse ctermfg=black ctermbg=darkgreen guifg=#000000 guibg=#336633 -highlight CursorColumn term=none ctermbg=darkred guibg=#663333 -highlight CursorLine term=none ctermbg=darkblue guibg=#333366 -highlight Comment term=italic ctermfg=darkcyan ctermbg=black guifg=#00a594 -highlight Constant term=underline ctermfg=blue guifg=#0099dd -highlight Debug term=bold ctermfg=red ctermbg=black guifg=#dc0000 guibg=#000000 -highlight DiffAdd term=reverse ctermfg=black ctermbg=cyan guifg=#000000 guibg=#007200 -highlight DiffChange term=underline cterm=reverse ctermfg=darkgreen ctermbg=black guifg=#000000 guibg=#006700 -highlight DiffDelete term=standout ctermfg=black ctermbg=cyan guifg=#000000 guibg=#007200 -highlight DiffText term=bold ctermfg=green ctermbg=black guifg=#00ac00 guibg=#000000 -highlight Directory term=underline ctermfg=green ctermbg=black guifg=#336633 guibg=#000000 -highlight Error term=reverse,bold ctermfg=black ctermbg=red guifg=#000000 guibg=#dc0000 -highlight ErrorMsg term=reverse,bold ctermfg=white ctermbg=red guifg=#ffffff guibg=#dc0000 -highlight Folded ctermfg=darkgreen ctermbg=black guifg=#20de20 guibg=#000000 -highlight FoldColumn ctermfg=darkgreen ctermbg=black guifg=#20de20 guibg=#000000 -highlight Function term=standout ctermfg=darkgreen guifg=#22bb22 -highlight Identifier term=underline ctermfg=darkcyan gui=underline guifg=#008800 -highlight Ignore ctermfg=lightgreen guifg=#33bb33 -highlight IncSearch term=reverse ctermfg=black ctermbg=darkgreen guifg=#000000 guibg=#336633 -highlight LineNr term=bold ctermfg=green guifg=#00ff00 -highlight MatchParen term=bold ctermbg=green guifg=#009900 -highlight ModeMsg term=bold cterm=bold gui=bold -highlight MoreMsg term=bold cterm=bold gui=bold -highlight NonText ctermfg=brown guifg=#b26818 -highlight Normal ctermfg=gray ctermbg=black guifg=#aaaaaa guibg=#000000 -highlight Pmenu term=reverse ctermfg=black ctermbg=green guifg=#000000 guibg=#337733 -highlight PmenuSel term=bold ctermfg=black ctermbg=gray guifg=#000000 guibg=#999999 -highlight PmenuSbar term=reverse ctermfg=black ctermbg=green guifg=#000000 guibg=#337733 -highlight PmenuThumb term=reverse ctermfg=gray ctermbg=black guifg=#999999 guibg=#000000 -highlight PreProc term=standout ctermfg=darkgreen guifg=#22bb22 -highlight Question term=standout ctermfg=red guifg=#ff0000 -highlight Search term=reverse ctermfg=black ctermbg=darkgreen guifg=#000000 guibg=#228822 -highlight SignColumn ctermfg=darkgreen guifg=#20de20 guibg=#000000 -highlight Special term=bold ctermfg=green guifg=#00ff00 -highlight SpecialKey term=bold ctermfg=green guifg=#00ff00 -highlight SpellBad term=reverse cterm=underline ctermfg=red ctermbg=black gui=undercurl guisp=#ff0000 -highlight SpellCap term=reverse cterm=underline ctermfg=yellow ctermbg=black gui=undercurl guisp=#00ffff -highlight SpellLocal term=reverse cterm=underline ctermfg=blue ctermbg=black gui=undercurl guisp=#0000ff -highlight SpellRare term=reverse cterm=underline ctermfg=darkgreen ctermbg=black gui=undercurl guisp=#00ff00 -highlight Statement term=standout ctermfg=darkred guifg=#ac0000 -highlight StatusLine term=reverse ctermfg=darkgreen ctermbg=black gui=none guibg=#228822 guifg=#000000 -highlight StatusLineNC term=reverse ctermfg=darkgreen ctermbg=blue gui=none guibg=#336633 guifg=#000000 -highlight TabLine term=reverse cterm=reverse ctermfg=black ctermbg=green guibg=#222222 guifg=#228822 -highlight TabLineFill term=reverse cterm=reverse ctermfg=green ctermbg=black guibg=#222222 guifg=#226622 -highlight TabLineSel ctermfg=black ctermbg=green guibg=#228822 guifg=#222222 -highlight Title term=reverse ctermfg=black ctermbg=green guifg=#000000 guibg=#00ff00 -highlight Todo term=reverse cterm=reverse ctermfg=darkgreen ctermbg=black guibg=#336633 guifg=#000000 -highlight Type term=standout ctermfg=green guifg=#559955 -highlight Visual term=reverse cterm=reverse ctermfg=darkgreen guifg=#000000 guibg=#336633 -highlight VisualNOS term=reverse,bold cterm=reverse ctermbg=darkgreen guifg=#000000 guibg=#228822 -highlight VertSplit term=reverse ctermfg=darkgreen guifg=#336633 -highlight User1 term=standout cterm=bold ctermbg=darkgreen ctermfg=red gui=bold guibg=#228822 guifg=#FF0000 -highlight WarningMsg term=reverse ctermfg=black ctermbg=yellow guifg=#000000 guibg=#007a7a -highlight WildMenu term=reverse ctermfg=blue ctermbg=darkgreen guifg=#000099 guibg=#00ac00 - -" ---------------------------------------------------------------------------------------------------------------------------------- -" Common groups that link to other highlight definitions. - -highlight link Character Constant -highlight link Number Constant -highlight link Boolean Constant -highlight link String Constant - -highlight link Operator LineNr - -highlight link Float Number - -highlight link Define PreProc -highlight link Include PreProc -highlight link Macro PreProc -highlight link PreCondit PreProc - -highlight link Repeat Question - -highlight link Conditional Repeat - -highlight link Delimiter Special -highlight link SpecialChar Special -highlight link SpecialComment Special -highlight link Tag Special - -highlight link Exception Statement -highlight link Keyword Statement -highlight link Label Statement - -highlight link StorageClass Type -highlight link Structure Type -highlight link Typedef Type - -" ---------------------------------------------------------------------------------------------------------------------------------- -" vim:tw=132:ts=4:sw=4 diff --git a/.oldvim/vim/colors/smyck.vim b/.oldvim/vim/colors/smyck.vim deleted file mode 100644 index 12592ad..0000000 --- a/.oldvim/vim/colors/smyck.vim +++ /dev/null @@ -1,95 +0,0 @@ -" ---------------------------------------------------------------------------- -" Vim color file -" Maintainer: John-Paul Bader -" Last Change: 2012 April -" License: Beer Ware -" ---------------------------------------------------------------------------- - -" Reset Highlighting -hi clear -if exists("syntax_on") - syntax reset -endif - -set background=dark -set linespace=3 - -let g:colors_name = "smyck" - -hi Normal cterm=none ctermbg=none ctermfg=15 gui=none guibg=#282828 guifg=#F7F7F7 -hi LineNr cterm=none ctermbg=none ctermfg=8 gui=none guibg=#282828 guifg=#8F8F8F -hi StatusLine cterm=none ctermbg=8 ctermfg=15 gui=none guibg=#5D5D5D guifg=#FBFBFB -hi StatusLineNC cterm=none ctermbg=15 ctermfg=8 gui=none guibg=#5D5D5D guifg=#FBFBFB -hi Search cterm=none ctermbg=6 ctermfg=15 gui=none guibg=#2EB5C1 guifg=#F7F7F7 -hi IncSearch cterm=none ctermbg=3 ctermfg=8 gui=none guibg=#F6DC69 guifg=#8F8F8F -hi ColumnMargin cterm=none ctermbg=0 gui=none guibg=#000000 -hi Error cterm=none ctermbg=1 ctermfg=15 gui=none guifg=#F7F7F7 -hi ErrorMsg cterm=none ctermbg=1 ctermfg=15 gui=none guifg=#F7F7F7 -hi Folded cterm=none ctermbg=8 ctermfg=2 gui=none guibg=#3B3B3B guifg=#90AB41 -hi FoldColumn cterm=none ctermbg=8 ctermfg=2 gui=none guibg=#3B3B3B guifg=#90AB41 -hi NonText cterm=bold ctermbg=none ctermfg=8 gui=bold guifg=#8F8F8F -hi ModeMsg cterm=bold ctermbg=none ctermfg=10 gui=none -hi Pmenu cterm=none ctermbg=8 ctermfg=15 gui=none guibg=#8F8F8F guifg=#F7F7F7 -hi PmenuSel cterm=none ctermbg=15 ctermfg=8 gui=none guibg=#F7F7F7 guifg=#8F8F8F -hi PmenuSbar cterm=none ctermbg=15 ctermfg=8 gui=none guibg=#F7F7F7 guifg=#8F8F8F -hi SpellBad cterm=none ctermbg=1 ctermfg=15 gui=none guifg=#F7F7F7 -hi SpellCap cterm=none ctermbg=4 ctermfg=15 gui=none guifg=#F7F7F7 -hi SpellRare cterm=none ctermbg=4 ctermfg=15 gui=none guifg=#F7F7F7 -hi SpellLocal cterm=none ctermbg=4 ctermfg=15 gui=none guifg=#F7F7F7 -hi Visual cterm=none ctermbg=15 ctermfg=8 gui=none guibg=#F7F7F7 guifg=#8F8F8F -hi Directory cterm=none ctermbg=none ctermfg=4 gui=none guibg=#242424 guifg=#88CCE7 -hi SpecialKey cterm=none ctermbg=none ctermfg=8 gui=none guifg=#8F8F8F -hi DiffAdd cterm=bold ctermbg=2 ctermfg=15 -hi DiffChange cterm=bold ctermbg=4 ctermfg=15 -hi DiffDelete cterm=bold ctermbg=1 ctermfg=15 -hi DiffText cterm=bold ctermbg=3 ctermfg=8 -hi MatchParen cterm=none ctermbg=6 ctermfg=15 gui=none guibg=#2EB5C1 guifg=#F7F7F7 -hi CursorLine cterm=none ctermbg=238 ctermfg=none gui=none guibg=#424242 -hi CursorColumn cterm=none ctermbg=238 ctermfg=none gui=none guibg=#424242 -hi Title cterm=none ctermbg=none ctermfg=4 gui=none guifg=#88CCE7 - -" ---------------------------------------------------------------------------- -" Syntax Highlighting -" ---------------------------------------------------------------------------- -hi Keyword cterm=none ctermbg=none ctermfg=10 gui=none guifg=#D1FA71 -hi Comment cterm=none ctermbg=none ctermfg=8 gui=none guifg=#8F8F8F -hi Delimiter cterm=none ctermbg=none ctermfg=15 gui=none guifg=#F7F7F7 -hi Identifier cterm=none ctermbg=none ctermfg=12 gui=none guifg=#96D9F1 -hi Structure cterm=none ctermbg=none ctermfg=12 gui=none guifg=#9DEEF2 -hi Ignore cterm=none ctermbg=none ctermfg=8 gui=none guifg=bg -hi Constant cterm=none ctermbg=none ctermfg=12 gui=none guifg=#96D9F1 -hi PreProc cterm=none ctermbg=none ctermfg=10 gui=none guifg=#D1FA71 -hi Type cterm=none ctermbg=none ctermfg=12 gui=none guifg=#96D9F1 -hi Statement cterm=none ctermbg=none ctermfg=10 gui=none guifg=#D1FA71 -hi Special cterm=none ctermbg=none ctermfg=6 gui=none guifg=#d7d7d7 -hi String cterm=none ctermbg=none ctermfg=3 gui=none guifg=#F6DC69 -hi Number cterm=none ctermbg=none ctermfg=3 gui=none guifg=#F6DC69 -hi Underlined cterm=none ctermbg=none ctermfg=magenta gui=underline guibg=#272727 -hi Symbol cterm=none ctermbg=none ctermfg=9 gui=none guifg=#FAB1AB -hi Method cterm=none ctermbg=none ctermfg=15 gui=none guifg=#F7F7F7 -hi Interpolation cterm=none ctermbg=none ctermfg=6 gui=none guifg=#2EB5C1 - -" Erlang -hi link erlangAtom Keyword -hi link erlangBitType Keyword - -hi link rubyBeginend Keyword -hi link rubyClass Keyword -hi link rubyModule Keyword -hi link rubyKeyword Keyword -hi link rubyOperator Method -hi link rubyIdentifier Keyword -hi link rubyClassVariable Symbol -hi link rubyInstanceVariable Constant -hi link rubyGlobalVariable Constant -hi link rubyClassVariable Method -hi link rubyConstant Constant -hi link rubySymbol Symbol -hi link rubyFunction Constant -hi link rubyControl Keyword -hi link rubyConditional Keyword -hi link rubyInterpolation Interpolation -hi link rubyInterpolationDelimiter Interpolation -hi link rubyRailsMethod Method - - diff --git a/.oldvim/vim/filetype.vim b/.oldvim/vim/filetype.vim deleted file mode 100644 index ba988e8..0000000 --- a/.oldvim/vim/filetype.vim +++ /dev/null @@ -1,17 +0,0 @@ -" detect puppet filetypes - -if exists("did_load_filetypes") - finish -endif -augroup filetypedetect - au! BufRead,BufNewFile *.pp setfiletype puppet - "au! BufNewFile,BufRead *.rhtml set syn=eruby - "au! BufNewFile,BufRead *.haml setfiletype haml - "au! BufNewFile,BufRead *.rhtml setfiletype rhtml - au! BufNewFile,BufRead Vagrantfile setfiletype ruby - au! BufNewFile,BufRead *.rhtml setfiletype eruby - au! BufNewFile,BufRead *.s setfiletype asmx86 - au! BufNewFile,BufRead *.rl setfiletype ragel - au! BufRead,BufNewFile *.ijs,*.ijt,*.ijp,*.ijx setfiletype j - -augroup END diff --git a/.oldvim/vim/init.vim b/.oldvim/vim/init.vim deleted file mode 120000 index f22b132..0000000 --- a/.oldvim/vim/init.vim +++ /dev/null @@ -1 +0,0 @@ -/Users/hunner/.vimrc \ No newline at end of file diff --git a/.oldvim/vim/keymap/uniapl385_utf-8.vim b/.oldvim/vim/keymap/uniapl385_utf-8.vim deleted file mode 100644 index 1eec8fe..0000000 --- a/.oldvim/vim/keymap/uniapl385_utf-8.vim +++ /dev/null @@ -1,110 +0,0 @@ -" Mapping the unified APL keyboard to emit the apl385 unicode characters -" Original Author: Peter Keller -" Maintainer: Peter Keller -" Last Changed: 2008 Oct 23 -" This file is under the BSD license. - -let b:keymap_name = "uniapl385" - -loadkeymap -" row 1 of keyboard, lowercase and uppercase - " {diamond} - " {quotequad} - " {each} - " {ibeam} - " {negative} - " {deltilde} - " {lessthan} - " {gradedown} - " {lessthanequal} - " {gradeup} - " {equal} - " {reverse} - " {greaterorequal} - " {transpose} - " {morethan} - " {rotatefirstaxis} - " {notequalto} - " {log} - " {logicalor} - " {aplnor} - " {logicaland} - " {aplnand} - " {multiply} - " {factorial} - " {domino} - " {divide} - -" row 2 of keyboard, lowercase and uppercase - " {random} - " letter Q - " {omega} - " {hoot} - " {membership} - " {find} - " {rho} - " letter R - " {tilde} - " letter T - " {take} - " {quadup} - " {drop} - " {quaddown} - " {iota} - " {iotaunderbar} - " {circle} - " {squad} - " {power} - " letter P - " {assign} - " {quadleft} - " {goto} - " {quadright} - " {right tack} - " {left tack} - -" row 3 of keyboard, lowercase and uppercase - " {alpha} - " letter A - " {max} - " letter S - " {min} - " letter D - " {underbar} - " letter F - " {del} - " letter G - " {delta} - " {deltaunderbar} - " {jot} - " {quadjot} - " {quote} - " {squad} - " {quad} - " {sandwich} - " {execute} - " {match} - " {format} - " {notmatch} - -" row 4 of keyboard, lowercase and uppercase - " {enclose} - " letter Z - " {disclose} - " letter X - " {intersect} - " letter C - " {union} - " letter V - " {decode} - " letter B - " {encode} - " letter N - " {remainder} - " letter M - " {lamp} - " {commabar} - " {slopebar} -> " {paw} - " {slashbar} - " {random} diff --git a/.oldvim/vim/spell/eo.utf-8.spl b/.oldvim/vim/spell/eo.utf-8.spl deleted file mode 100644 index 3ad0e5c..0000000 Binary files a/.oldvim/vim/spell/eo.utf-8.spl and /dev/null differ diff --git a/.oldvim/vim/syntax/asmx86.vim b/.oldvim/vim/syntax/asmx86.vim deleted file mode 100644 index 82430c3..0000000 --- a/.oldvim/vim/syntax/asmx86.vim +++ /dev/null @@ -1,595 +0,0 @@ -" Vim syntax file -" Hacked by Adam, from the 68000 asm syntax.... -" x Language: Motorola 68000 Assembler -" x Maintainer: Steve Wall -" Last change: 2001 May 01 -" -" This is incomplete. In particular, support for 68020 and -" up and 68851/68881 co-processors is partial or non-existant. -" Feel free to contribute... -" - -" For version 5.x: Clear all syntax items -" For version 6.x: Quit when a syntax file was already loaded -if version < 600 - syntax clear -elseif exists("b:current_syntax") - finish -endif - -syn case ignore - -" syn region asmx86Comment start="#\(\(\(include\)\|\(define\)\|\(if\)\|\(ifndef\)\|\(endif\)\|\(end\)\|\(ifdef\)\)\s\)\!" end="$" - - - syn region asmx86Commenthash start="#\(\(define\)\|\(if\(n\=\(def\)\)\=\)\|\(include\)\|\(error\)\|\(end\(if\)\=\)\)\!" end="$" contains=asmx86Todo - -syn region asmx86Commenthash start="#" end="$" contains=asmx86Todo - - -syn match asmx86Operator "[-+*/]" " Must occur before Comments - -syn match asmx86PreProc "^\s*#\s*\(\(if\(n\=\(def\)\)\=\)\|\(end\(if\)\=\)\|\(define\)\|\(error\)\|\(else\)\)\>" - - -syn region asmx86Commentcpp start="\s*#\s*if\s\+0\+\>" end="\s*#\s*endif\>" contains=asmx86Todo -syn region asmx86Commentcxx start="//" end="$" contains=asmx86Todo -syn region asmx86Commentc start="/\*" end="\*/" contains=asmx86Todo - - -" Preprocessor, basics: - - -" First make ALL things that are behind #'s and the endline as comments. Then -" boil out the stuff that is vaild, like #defines, and such.... It's -" kinda tough, since we're allowing two conflicting syntaxes. But when we -" consider that the "#" mechanism in the pre-processor isn't ever seen by the -" underlying language, it begins to show itself, on why it is so weird. -" There's going to be "#"'es left behind by the cpp, so we need to remember -" that the assembler will see those as commments. We provide this commenting - - - -" Segment Registers -- -syn match asmx86Reg "%[cdefgs]s" - - -" Partial list of register symbols -" General Purpose Registers -- -"syn keyword asmx86Reg eax ax al ah -syn match asmx86Reg "%[abcd][xhl]" -syn match asmx86Reg "%e[abcd]x" -" syn keyword asmx86Reg ebx bx bl bh -" syn keyword asmx86Reg ecx cx cl ch -" syn keyword asmx86Reg edx dx dl dh - -" "Special" Registers -- -"syn keyword asmx86Reg ebp bp edi di esi si esp sp -syn match asmx86Reg "%[bs]p" -syn match asmx86Reg "%e[bs]p" -syn match asmx86Reg "%[ds]i" -syn match asmx86Reg "%e[ds]i" - - -" Protection, extra, and magic registers for all the OS-type fun stuff -- -syn match asmx86Reg "%[cd]r[0-3]" -syn match asmx86Reg "%[td]r[3-7]" -" syn keyword asmx86Reg cr0 cr1 cr2 cr3 -" syn keyword asmx86Reg tr3 tr4 tr5 tr6 tr7 -" syn keyword asmx86Reg dr0 dr1 dr2 dr3 dr4 dr5 dr6 dr7 - -syn keyword asmx86Reg gdtr ldtr idtr tr msw pdbr pfla - -" Page descriptor base register and page fault linear address - -" MC68010 -"syn keyword asmx86Reg vbr sfc sfcr dfc dfcr - -" MC68020 -"syn keyword asmx86Reg msp isp zpc cacr caar -"syn keyword asmx86Reg za0 za1 za2 za3 za4 za5 za6 za7 -"syn keyword asmx86Reg zd0 zd1 zd2 zd3 zd4 zd5 zd6 zd7 - -" MC68030 -"syn keyword asmx86Reg crp srp tc ac0 ac1 acusr tt0 tt1 mmusr - -" MC68040 -"syn keyword asmx86Reg dtt0 dtt1 itt0 itt1 urp - -" MC68851 registers -"syn keyword asmx86Reg cal val scc crp srp drp tc ac psr pcsr -"syn keyword asmx86Reg bac0 bac1 bac2 bac3 bac4 bac5 bac6 bac7 -"syn keyword asmx86Reg bad0 bad1 bad2 bad3 bad4 bad5 bad6 bad7 - -" MC68881/82 registers -"syn keyword asmx86Reg fp0 fp1 fp2 fp3 fp4 fp5 fp6 fp7 -"syn keyword asmx86Reg control status iaddr fpcr fpsr fpiar - - -"Not sure if this is the case for x86...... -" M68000 opcodes - order is important! -syn match asmx86Opcode "\" -syn match asmx86Opcode "\" -syn match asmx86Opcode "\" - -syn match asmx86Opcode "\" -syn match asmx86Opcode "\" -syn match asmx86Opcode "\" - -"" Main x86 branch instructions... - -syn match asmx86Opcode_br "\" -syn match asmx86Opcode_mv "\" -syn match asmx86Opcode_mv "\" -syn match asmx86Opcode_br "\" -syn match asmx86Opcode_mv "\" -syn match asmx86Opcode "\" - -syn match asmx86Opcode_mv "\" -syn match asmx86Opcode_mv "\" - -syn match asmx86Opcode "\" -syn match asmx86Opcode "\" -syn match asmx86Opcode "\" -syn match asmx86Opcode_mv "\" -syn match asmx86Opcode_mv "\" -syn match asmx86Opcode "\" - -syn match asmx86Opcode_mv "\" -syn match asmx86Opcode "\" -" syn match asmx86Opcode "\" -" syn match asmx86Opcode "\" -" syn match asmx86Opcode "\" -" syn match asmx86Opcode "\" -" syn match asmx86Opcode "\" -" syn match asmx86Opcode "\" -" syn match asmx86Opcode "\" -" syn match asmx86Opcode "\" -" syn match asmx86Opcode "\" -" syn match asmx86Opcode "\" -" syn match asmx86Opcode "\" -" syn match asmx86Opcode "\" -" syn match asmx86Opcode "\" -syn match hexNumber "$0x[0-9a-fA-F]\+\>" -syn match hexNumber "0x[0-9a-fA-F]\+\>" -syn match hexNumber "\<[0-9][0-9a-fA-F]*H\>" -syn match octNumber "@[0-7]\+\>" -syn match octNumber "\<[0-7]\+[QO]\>" -syn match binNumber "%[01]\+\>" -syn match binNumber "\<[01]\+B\>" -syn match decNumber "\<[0-9]\+D\=\>" -syn match floatE "_*E_*" contained -syn match floatExponent "_*E_*[-+]\=[0-9]\+" contained contains=floatE -syn match floatNumber "[-+]\=[0-9]\+_*E_*[-+]\=[0-9]\+" contains=floatExponent -syn match floatNumber "[-+]\=[0-9]\+\.[0-9]\+\(E[-+]\=[0-9]\+\)\=" contains=floatExponent -syn match floatNumber ":\([0-9a-f]\+_*\)\+" - -" Character string constants -"syn match asmx86StringError "'[ -~]*'" -"syn match asmx86StringError "'[ -~]*$" -"syn region asmx86String start="'" skip="''" end="'" oneline contains=asmx86CharError -syn match asmx86CharError "[^ -~]" contained - -" Immediate data -" syn match asmx86Immediate "#\$[0-9a-fA-F]\+" contains=hexNumber -" syn match asmx86Immediate "#[0-9][0-9a-fA-F]*H" contains=hexNumber -" syn match asmx86Immediate "#@[0-7]\+" contains=octNumber -" syn match asmx86Immediate "#[0-7]\+[QO]" contains=octNumber -" syn match asmx86Immediate "#%[01]\+" contains=binNumber -" syn match asmx86Immediate "#[01]\+B" contains=binNumber -" syn match asmx86Immediate "#[0-9]\+D\=" contains=decNumber -syn match asmx86Symbol "[a-z_?.][a-z0-9_?.$]*" contained -" syn match asmx86Immediate "#[a-z_?.][a-z0-9_?.]*" contains=asmx86Symbol - -" Special items for comments -syn keyword asmx86Todo contained TODO XXX FIXME CHANGED - -" Operators -syn match asmx86Operator "\.SIZEOF\." -syn match asmx86Operator "\.STARTOF\." -syn match asmx86Operator "<<" " shift left -syn match asmx86Operator ">>" " shift right -syn match asmx86Operator "&" " bit-wise logical and -syn match asmx86Operator "!" " bit-wise logical or -syn match asmx86Operator "!!" " exclusive or -syn match asmx86Operator "<>" " inequality -syn match asmx86Operator "=" " must be before other ops containing '=' -syn match asmx86Operator ">=" -syn match asmx86Operator "<=" -syn match asmx86Operator "==" " operand existance - used in macro definitions - -" Condition code style operators -syn match asmx86Operator "<[CV][CS]>" -syn match asmx86Operator "" -syn match asmx86Operator "" -syn match asmx86Operator "<[HM]I>" -syn match asmx86Operator "" -syn match asmx86Operator "" -syn match asmx86Operator "" - -" Include -syn match asmx86Include "\" -syn match asmx86Include display "^\s*#\s*include\>\s*["<]" contains=asmx86Included - - -" Comments -" syn match asmx86Comment ";.*" contains=asmx86Todo -" syn match asmx86Comment "#.*" contains=asmx86Todo -" syn match asmx86Comment "\s!.*"ms=s+1 contains=asmx86Todo -" syn match asmx86Comment "^\s*[*!].*" contains=asmx86Todo - -" Standard macros -syn match asmx86Cond "\" -syn match asmx86Cond "\" -syn match asmx86Cond "\" -syn match asmx86Cond "\" -syn match asmx86Repeat "\" -syn match asmx86Repeat "\" -syn match asmx86Repeat "\" -syn match asmx86Repeat "\" -syn match asmx86Repeat "\" - -" Macro definition -syn match asmx86Macro "\" -syn match asmx86Macro "\" -syn match asmx86Macro "\" -syn match asmx86MacroParam "\\[0-9]" - -" Conditional assembly -syn match asmx86PreCond "\" -syn match asmx86PreCond "\" -syn match asmx86PreCond "\" - -" Loop control -syn match asmx86PreCond "\" - -" Directives -syn match asmx86Directive "\" -syn match asmx86Directive "\" -syn match asmx86Directive "\" -syn match asmx86Directive "\" -syn match asmx86Directive "\<\(NO\)\=LIST\>" -syn match asmx86Directive "\" -syn match asmx86Directive "\" -syn match asmx86Directive "\" -syn match asmx86Directive "\" -syn match asmx86Directive "\<\(NO\)\=PAGE\>" -syn match asmx86Directive "\" -syn match asmx86Directive "\" -syn match asmx86Directive "\" -syn match asmx86Constraintconst "\.\(\(byte\)\|\(d\=word\)\)\>" - -syn case match - -" Define the default highlighting. -" For version 5.7 and earlier: only when not done already -" For version 5.8 and later: only when an item doesn't have highlighting yet -if version >= 508 || !exists("did_asmx86_syntax_inits") - if version < 508 - let did_asmx86_syntax_inits = 1 - command -nargs=+ HiLink hi link - else - command -nargs=+ HiLink hi def link - endif - - " The default methods for highlighting. Can be overridden later - " Comment Constant Error Identifier PreProc Special Statement Todo Type - " - " Constant Boolean Character Number String - " Identifier Function - " PreProc Define Include Macro PreCondit - " Special Debug Delimiter SpecialChar SpecialComment Tag - " Statement Conditional Exception Keyword Label Operator Repeat - " Type StorageClass Structure Typedef - - HiLink asmx86Comment DarkGrey - HiLink asmx86Commentcpp DarkGrey - HiLink asmx86Commentc DarkGrey - HiLink asmx86Commentcxx DarkGrey - HiLink asmx86Commenthash DarkGrey - HiLink asmx86Todo Todo - - HiLink hexNumber Number " Constant - HiLink octNumber Number " Constant - HiLink binNumber Number " Constant - HiLink decNumber Number " Constant - HiLink floatNumber Number " Constant - HiLink floatExponent Number " Constant - HiLink floatE SpecialChar " Statement - "HiLink floatE Number " Constant - - HiLink asmx86Immediate Identifier " Statement - "HiLink asmx86Symbol Constant - - HiLink asmx86String String " Constant - HiLink asmx86Included String " Constant - HiLink asmx86CharError Error - HiLink asmx86StringError Error - - HiLink asmx86Reg Identifier - HiLink asmx86Operator Identifier - - HiLink asmx86Include Include " PreProc - HiLink asmx86Macro Macro " PreProc - HiLink asmx86PreProc PreProc " PreProc - HiLink asmx86MacroParam Keyword " Statement - - HiLink asmx86Directive Special - HiLink asmx86PreCond Special - - HiLink asmx86Constraint Keyword - HiLink asmx86Constraintconst Type - - - HiLink asmx86Opcode Keyword - HiLink asmx86Opcode_mv Special - HiLink asmx86Opcode_pre Todo - HiLink asmx86Opcode_br Macro - HiLink asmx86Opcode_io String - HiLink asmx86Opcode_o2 String - -" We have "normal" opcodes, "move" opcodes, "prefix" opcodes, and "branch" -" opcodes..... Prefixes are rare, and we should alert them VERY specially - - HiLink asmx86Cond Conditional " Statement - HiLink asmx86Repeat Repeat " Statement - - HiLink asmx86Label Type - delcommand HiLink -endif - -let b:current_syntax = "asmx86" - -" vim: ts=8 sw=2 diff --git a/.oldvim/vim/syntax/haml.vim b/.oldvim/vim/syntax/haml.vim deleted file mode 100644 index f50a8b6..0000000 --- a/.oldvim/vim/syntax/haml.vim +++ /dev/null @@ -1,113 +0,0 @@ -" Vim syntax file -" Language: Haml (XHTML Abstraction Markup Language) -" Maintainer: Dmitry A. Ilyashevich -" License: This file can be redistribued and/or modified under the same terms -" as Vim itself. -" -" Version: 0.3 -" Last Change: 2008-03-16 -" Notes: Last synced with Haml 1.8 -" TODO: Support for indented multiline sections -" -" For version 5.x: Clear all syntax items -" For version 6.x: Quit when a syntax file was already loaded -" -" Changes: -" - David Bushong added support for Haml 1.8's == syntax for ruby strings; -" - Lasse Jansen make syntax highlighting of multiline ruby commands work -" ("|" at the end of the line). -" - -if version < 600 - syntax clear -elseif exists("b:current_syntax") - finish -endif - -if !exists("main_syntax") - let main_syntax = 'haml' -endif - -if version < 600 - so :p:h/html.vim - syn include @rubyTop :p:h/ruby.vim -else - runtime! syntax/html.vim - unlet b:current_syntax - syn include @rubyTop syntax/ruby.vim -endif - -syn region hamlLineTag start="^\s*%[a-zA-Z0-9\-_\:]\+" end="$" oneline keepend contains=hamlHtmlTag,hamlCssClassIncluded,hamlCssIdIncluded,hamlHtmlTagEnd,hamlRubyCodeIncluded,hamlRubyHash,hamlSpecialChar -syn region hamlLineTag start="^\s*%[a-zA-Z0-9\-_\:]\+" end="$" oneline keepend contains=hamlHtmlTag,hamlCssClassIncluded,hamlCssIdIncluded,hamlHtmlTagEnd,hamlRubyCodeIncluded,hamlRubyHash,hamlRubyStringIncluded -syn match hamlHtmlTagEnd "/$" contained -syn match hamlHtmlTag "^\s*%[a-zA-Z0-9\-_\:]\+" contained contains=htmlTagName -syn match hamlCssClassIncluded "\.[a-zA-Z0-9\-_\:]\+" contained -syn match hamlCssIdIncluded "\#[a-zA-Z0-9\-_\:]\+" contained - -syn region hamlLineClass start="^\s*\.[a-zA-Z0-9\-_\:]*" end="$" oneline keepend contains=hamlCssClass,hamlCssClassIncluded,hamlCssIdIncluded,hamlRubyCodeIncluded,hamlRubyStringIncluded -syn region hamlLineId start="^\s*\#[a-zA-Z0-9\-_\:]*" end="$" oneline keepend contains=hamlCssId,hamlCssClassIncluded,hamlCssIdIncluded,hamlRubyCodeIncluded,hamlRubyStringIncluded - -syn match hamlCssId "^\s*#[a-zA-Z0-9\-_\:]*" contained -syn match hamlCssClass "^\s*\.[a-zA-Z0-9\-_\:]*" contained - -syn region hamlRubyCodeIncluded matchgroup=Delimiter start="[=~-] " end="$" contained contains=@rubyTop,hamlRubyHash keepend -syn region hamlRubyHash matchgroup=Delimiter start="{" end="}" contained contains=@rubyTop keepend -syn region hamlRubyCode matchgroup=Delimiter start="^\s*[=~-]" end="$" contains=@rubyTop,hamlRubyHash keepend -syn region hamlRubyStringIncluded matchgroup=Delimiter start="== " end="$" contained contains=@rubyStringSpecial keepend -syn region hamlRubyString matchgroup=Delimiter start="^\s*==" end="$" contains=@rubyStringSpecial - - -syn match hamlPreDef "^\s*:[a-zA-Z0-9\-_\:]\+" -syn region hamlPreProc start="^\s*\\" end="$" -syn match hamlPreProc " |$" - -syn match hamlComment "^!!!.*$" -syn match hamlComment "^\s*/.*$" contains=hamlTodo,@Spell -syn keyword hamlTodo TODO FIXME XXX contained - -" special characters -syn match hamlSpecialChar contained "&#\=[0-9A-Za-z]\{1,8};" - - -" Define the default highlighting. -" For version 5.7 and earlier: only when not done already -" For version 5.8 and later: only when an item doesn't have highlighting yet -if version >= 508 || !exists("did_haml_syntax_inits") - if version < 508 - let did_haml_syntax_inits = 1 - command -nargs=+ HiLink hi link - else - command -nargs=+ HiLink hi def link - endif - - HiLink hamlLineClass hamlLineTag - HiLink hamlLineId hamlLineTag - HiLink hamlCssClassIncluded hamlCssClass - HiLink hamlCssIdIncluded Type - HiLink hamlCssId Type - HiLink hamlHtmlTagEnd hamlHtmlTag - HiLink hamlPreDef hamlHtmlTag - HiLink hamlRubyHash hamlLineTag - HiLink hamlRubyCode hamlLineTag - HiLink hamlRubyCodeIncluded hamlLineTag - HiLink hamlRubyString hamlLineTag - HiLink hamlRubyStringIncluded hamlLineTag - - HiLink hamlLineTag Text - HiLink hamlHtmlTag Statement - HiLink hamlCssClass Type - HiLink hamlPreProc PreProc - HiLink hamlComment Comment - HiLink hamlTodo Todo - - HiLink hamlSpecialChar Special - - delcommand HiLink -endif -let b:current_syntax = "haml" - -if main_syntax == 'haml' - unlet main_syntax -endif - -" vim: nowrap sw=2 sts=2 ts=8 ff=unix: diff --git a/.oldvim/vim/syntax/j.vim b/.oldvim/vim/syntax/j.vim deleted file mode 100644 index 154c562..0000000 --- a/.oldvim/vim/syntax/j.vim +++ /dev/null @@ -1,134 +0,0 @@ -" Vim syntax file -" Language: J -" Maintainer: Bill Lam -" Last Change: -" 2008 Apr 04 Initial commit -" 2009 Feb 13 UPload to jwiki - -" It is by no means complete. -" Send comments, suggestions and requests to the maintainer. - -if exists("b:current_syntax") - finish -endif - -if exists("j_minlines") - let b:j_minlines = j_minlines -else - let b:j_minlines = 15 -endif -exec "syn sync linebreaks=1 minlines=" . b:j_minlines - -" jVerb -" = < <. <: > >. >: _: + +. +: * *. *: - -. -: % %. %: ^ ^. $ $. $: ~. ~: | |. |: -" , ,. ,: ; ;: # #. #: ! /: \: [ [: ] { {. {: {:: }. }: ". ": ? ?. -" A. c. C. e. E. i. i: I. j. L. o. p. p: q: r. s: u: x: -" _9: _8: _7: _6: _5: _4: _3: _2: _1: 0: 1: 2: 3: 4: 5: 6: 7: 8: 9: -" jNoun -" a. a: _. _: -" jConjuction -" ^: . .. .: : :. :: ;. !. !: " ` `: @ @. @: & &. &: &.: d. D. D: H. L: S: T. -" jAdverb -" ~ / \ /. \. } b. f. M. t. t: - -syn match jName "\a\w*" -syn match jArgument "\<[xymnuv]\.\=\>" contained -syn match jNumber "[_0-9][_0-9\.a-zA-Z]*" - -syn match jConjunction "\." -syn match jConjunction ":" - -syn match jVerb "[-!#$%\*+,;<=>\?[\]^{|]" -syn match jConjunction "[\"&@`]" -syn match jAdverb "[/\\}~]" - -syn match jVerb "[-\"#\$%\*+,<>\?^{|}~]\." -syn match jConjunction "[!&@;:\.]\." -syn match jAdverb "[/\\]\." -syn match jVerb "p\.\." - -syn match jVerb "[-\"#\$%\*+,;<>\?\[{|}~/\\]:" -syn match jConjunction "[!&@^\.:]:" -syn match jConjunction "&\.:" -syn match jVerb "{::" -syn match jVerb "_\=\d:" - -syn match jVerb "[AcCeEiIjLopr]\." -syn match jConjunction "[dDHT]\." -syn match jAdverb "[bfMt]\." - -syn match jVerb "[ipqsux]:" -syn match jConjunction "[DLS]:" -syn match jAdverb "t:" - -syn match jNoun "[a_][\.:]" -syn match jCopula "=[\.:]" -syn match jParenthesis "[()]" - -syn match jControl "\ -" Last Change: $Revision: 50 $, $Date: 2003-06-08 21:01:12 +1000 (Sun, 08 Jun 2003) $ - -" Thanks to Michael Brailsford for help and suggestions - -" Quit when a syntax file was already loaded {{{ -if exists("b:current_syntax") - finish -endif -"}}} - -" Include java syntax {{{ -if version >= 600 - runtime! syntax/java.vim - unlet b:current_syntax -else - so $VIMRUNTIME/syntax/java.vim -endif -"}}} - -syn cluster jflexOptions contains=jflexOption,jflexCodeInclude,jflexComment,jflexMacroIdent,jflexMacroRegExp,jflexOptionError -syn cluster jflexRules contains=jflexRule,jflexComment,jflexActionCode,jflexRuleStates,jflexRegExp - -" java code section -syn region jflexStart start="/\*\|//\|import\|package\|class"me=s end="^%%"me=e-2 contains=@javaTop nextgroup=jflexOptionReg - -" %% -" options -syn region jflexOptionReg matchgroup=jflexSectionSep start="^%%" end="^%%"me=e-2 contains=@jflexOptions nextgroup=jflexRulesReg - -syn match jflexOptionError "%\i*" contained - -syn match jflexOption "^\(%s\|%x\)" contained -syn match jflexOption "^%state" contained -syn match jflexOption "^%states" contained -syn match jflexOption "^%xstate" contained -syn match jflexOption "^%xstates" contained -syn match jflexOption "^%char" contained -syn match jflexOption "^%line" contained -syn match jflexOption "^%column" contained -syn match jflexOption "^%byaccj" contained -syn match jflexOption "^%cup" contained -syn match jflexOption "^%cupsym" contained -syn match jflexOption "^%cupdebug" contained -syn match jflexOption "^%eofclose" contained -syn match jflexOption "^%class" contained -syn match jflexOption "^%function" contained -syn match jflexOption "^%type" contained -syn match jflexOption "^%integer" contained -syn match jflexOption "^%int" contained -syn match jflexOption "^%intwrap" contained -syn match jflexOption "^%yyeof" contained -syn match jflexOption "^%notunix" contained -syn match jflexOption "^%7bit" contained -syn match jflexOption "^%8bit" contained -syn match jflexOption "^%full" contained -syn match jflexOption "^%16bit" contained -syn match jflexOption "^%unicode" contained -syn match jflexOption "^%caseless" contained -syn match jflexOption "^%ignorecase" contained -syn match jflexOption "^%implements" contained -syn match jflexOption "^%extends" contained -syn match jflexOption "^%public" contained -syn match jflexOption "^%apiprivate" contained -syn match jflexOption "^%final" contained -syn match jflexOption "^%abstract" contained -syn match jflexOption "^%debug" contained -syn match jflexOption "^%standalone" contained -syn match jflexOption "^%switch" contained -syn match jflexOption "^%table" contained -syn match jflexOption "^%pack" contained -syn match jflexOption "^%include" contained -syn match jflexOption "^%buffer" contained -syn match jflexOption "^%initthrow" contained -syn match jflexOption "^%eofthrow" contained -syn match jflexOption "^%yylexthrow" contained -syn match jflexOption "^%throws" contained -syn match jflexOption "^%scannerror" contained - -syn match jflexMacroIdent "\I\i*\s*="me=e-1 contained nextgroup=jflexMacroRegExp - -syn region jflexMacroRegExp matchgroup=jflexOperator start="=" end="^\(%\|\I\|\i\|/\)"me=e-1 contains=NONE contained - -syn region jflexCodeInclude matchgroup=jflexCodeIncludeMark start="^%{" end="^%}" contains=@javaTop contained -syn region jflexCodeInclude matchgroup=jflexCodeIncludeMark start="^%init{" end="^%init}" contains=@javaTop contained -syn region jflexCodeInclude matchgroup=jflexCodeIncludeMark start="^%initthrow{" end="^%initthrow}" contains=@javaTop contained -syn region jflexCodeInclude matchgroup=jflexCodeIncludeMark start="^%eof{" end="^%eof}" contains=@javaTop contained -syn region jflexCodeInclude matchgroup=jflexCodeIncludeMark start="^%eofthrow{" end="^%eofthrow}" contains=@javaTop contained -syn region jflexCodeInclude matchgroup=jflexCodeIncludeMark start="^%yylexthrow{" end="^%yylexthrow}" contains=@javaTop contained -syn region jflexCodeInclude matchgroup=jflexCodeIncludeMark start="^%eofval{" end="^%eofval}" contains=@javaTop contained - -" rules (end pattern shouldn't occur, if it does anyway we just stay in jflexRulesReg) -syn region jflexRulesReg matchgroup=jflexSectionSep start="^%%" end="^%%"me=e-2 contains=@jflexRules - -" at first everything but strings is a regexp -syn match jflexRegExp "\([^\" \t]\|\\\"\)\+" contained - -" take out comments -syn match jflexComment "//.*" contained -syn region jflexComment start="/\*" end="\*/" contained contains=jflexComment - -" lex states -syn match jflexRuleStates "<\s*\I\i*\(\s*,\s*\I\i*\)*\s*>" contained skipnl skipwhite nextgroup=jflexStateGroup - -" action code (only after states braces and macro use) -syn region jflexActionCode matchgroup=Delimiter start="{" end="}" contained contains=@javaTop,jflexJavaBraces - -" macro use -syn match jflexRegExp "{\s*\I\i*\s*}" contained - -" state braces (only active after ) -syn region jflexStateGroup matchgroup=jflexRuleStates start="{$" start="{\s" end="}" contained contains=@jflexRules - -" string -syn region jflexRegExp matchgroup=String start=+"+ skip=+\\\\\|\\"+ end=+"+ contained - -" not to be confused with a state -syn match jflexRegExp "<>" contained - -" escape sequence -syn match jflexRegExp "\\." contained - - -" keep braces in actions balanced -syn region jflexJavaBraces start="{" end="}" contained contains=@javaTop,jflexJavaBraces - - -" syncing -syn sync clear -syn sync minlines=10 -syn sync match jflexSync grouphere jflexOptionReg "^%[a-z]" -syn sync match jflexSync grouphere jflexRulesReg "^<" - - -" highlighting -hi link jflexOption Special -hi link jflexMacroIdent Ident -hi link jflexMacroRegExp Macro -hi link jflexOptionError Error -hi link jflexComment Comment -hi link jflexOperator Operator -hi link jflexRuleStates Special -hi link jflexRegExp Function -hi jflexSectionSep guifg=yellow ctermfg=yellow guibg=blue ctermbg=blue gui=bold cterm=bold -hi link jflexCodeIncludeMark jflexSectionSep - -let b:current_syntax="jflex" diff --git a/.oldvim/vim/syntax/kpl.vim b/.oldvim/vim/syntax/kpl.vim deleted file mode 100644 index f4a1787..0000000 --- a/.oldvim/vim/syntax/kpl.vim +++ /dev/null @@ -1,74 +0,0 @@ -" Vim syntax file -" Language: KPL -" Maintainer: Adam Blinkinsop -" Last Change: 2007 Apr 17 -" Remark: A Kernel Programming Language used by the BLITZ tools. - -if version < 600 - syntax clear -elseif exists("b:current_syntax") - finish -endif - -" Comments -syntax region kplSingleLineComment start=/--/ end=/$/ contained -syntax region kplMultiLineComment start=/\/\*/ end=/\*\// contained -syntax cluster kplComment contains=kplSingleLineComment,kplMultiLineComment - -" Types -syntax keyword kplType char int double bool void typeOfNull anyType ptr to array of function returns -syntax region kplRecord matchgroup=kplType start=/record/ end=/endRecord/ contains=ALL - -" Expressions -syntax keyword kplOperator asPtrTo asInteger arraySize isInstanceOf isKindOf new alloc sizeOf -syntax match kplOp /[][.()<=>|&^!+*/%]/ contained -syntax keyword kplConstant null self super -syntax keyword kplBoolean true false -syntax match kplCharacter /'\\?.'/ -syntax match kplInteger /[0-9]+/ -syntax match kplHex /0x[0-9a-fA-F]+/ -syntax match kplFloat /[0-9]+\.[0-9]+(e[0-9]+)?/ -syntax region kplString start=/"/ end=/"/ skip=/\\"/ - -" Statements -syntax keyword kplConditional if elseIf else endIf switch endSwitch -syntax keyword kplRepeat while endWhile do until for endFor -syntax keyword kplStatement break continue free debug -syntax keyword kplLabel case default -syntax keyword kplException try catch throw endTry - -" Block Definitions -syntax keyword kplKeyword extends messages implements superclass fields uses renaming to const var errors type enum returns function[s] external endFunction infix prefix method[s] endMethod -syntax region kplInterface matchgroup=kplDefBlock start=/interface/ end=/endInterface/ contains=ALL -syntax region kplClass matchgroup=kplDefBlock start=/class/ end=/endClass/ contains=ALL -syntax region kplBehavior matchgroup=kplDefBlock start=/behavior/ end=/endBehavior/ contains=ALL - -" File Blocks -syntax region kplHeader matchgroup=kplFile start=/header/ end=/endHeader/ contains=ALLBUT,kplHeader,kplCode -syntax region kplCode matchgroup=kplFile start=/code/ end=/endCode/ contains=ALLBUT,kplHeader,kplCode - -syntax sync match kplCode grouphere kplCode 'code' -syntax sync match kplCode groupthere kplCode 'endCode' -syntax sync match kplHeader grouphere kplHeader 'region' -syntax sync match kplHeader groupthere kplHeader 'endRegion' - -hi def link kplSingleLineComment Comment -hi def link kplMultiLineComment Comment -hi def link kplType Type -hi def link kplOperator Operator -hi def link kplOp Operator -hi def link kplConstant Constant -hi def link kplBoolean Boolean -hi def link kplString String -hi def link kplCharacter Character -hi def link kplInteger Number -hi def link kplHex Number -hi def link kplFloat Float -hi def link kplConditional Conditional -hi def link kplRepeat Repeat -hi def link kplStatement Statement -hi def link kplLabel Label -hi def link kplException Exception -hi def link kplKeyword Keyword -hi def link kplFile Special -hi def link kplDefBlock Structure diff --git a/.oldvim/vim/syntax/lhaskell.vim b/.oldvim/vim/syntax/lhaskell.vim deleted file mode 100644 index 009f4e7..0000000 --- a/.oldvim/vim/syntax/lhaskell.vim +++ /dev/null @@ -1,144 +0,0 @@ -" Vim syntax file -" Language: Haskell with literate comments, Bird style, -" TeX style and plain text surrounding -" \begin{code} \end{code} blocks -" Maintainer: Haskell Cafe mailinglist -" Original Author: Arthur van Leeuwen -" Last Change: Jan 05, 2008 by Kalman Noel -" Version: 1.02 -" -" Thanks to Ian Lynagh for thoughtful comments on initial versions and -" for the inspiration for writing this in the first place. -" -" This style guesses as to the type of markup used in a literate haskell -" file and will highlight (La)TeX markup if it finds any -" This behaviour can be overridden, both glabally and locally using -" the lhs_markup variable or b:lhs_markup variable respectively. -" -" lhs_markup must be set to either tex or none to indicate that -" you always want (La)TeX highlighting or no highlighting -" must not be set to let the highlighting be guessed -" b:lhs_markup must be set to eiterh tex or none to indicate that -" you want (La)TeX highlighting or no highlighting for -" this particular buffer -" must not be set to let the highlighting be guessed -" -" -" 2004 February 18: New version, based on Ian Lynagh's TeX guessing -" lhaskell.vim, cweb.vim, tex.vim, sh.vim and fortran.vim -" 2004 February 20: Cleaned up the guessing and overriding a bit -" 2004 February 23: Cleaned up syntax highlighting for \begin{code} and -" \end{code}, added some clarification to the attributions -" 2008 January 05: Fixed broken highlighting when some totally common TeX -" environments or commands are used (document, section, ...) - - -" For version 5.x: Clear all syntax items -" For version 6.x: Quit when a syntax file was already loaded -if version < 600 - syntax clear -elseif exists("b:current_syntax") - finish -endif - -" First off, see if we can inherit a user preference for lhs_markup -if !exists("b:lhs_markup") - if exists("lhs_markup") - if lhs_markup =~ '\<\%(tex\|none\)\>' - let b:lhs_markup = matchstr(lhs_markup,'\<\%(tex\|none\)\>') - else - echohl WarningMsg | echo "Unknown value of lhs_markup" | echohl None - let b:lhs_markup = "unknown" - endif - else - let b:lhs_markup = "unknown" - endif -else - if b:lhs_markup !~ '\<\%(tex\|none\)\>' - let b:lhs_markup = "unknown" - endif -endif - -" Remember where the cursor is, and go to upperleft -let s:oldline=line(".") -let s:oldcolumn=col(".") -call cursor(1,1) - -" If no user preference, scan buffer for our guess of the markup to -" highlight. We only differentiate between TeX and plain markup, where -" plain is not highlighted. The heuristic for finding TeX markup is if -" one of the following occurs anywhere in the file: -" - \documentclass -" - \begin{env} (for env != code) -" - \part, \chapter, \section, \subsection, \subsubsection, etc -if b:lhs_markup == "unknown" - if search('%\|\\documentclass\|\\begin{\(code}\)\@!\|\\\(sub\)*section\|\\chapter|\\part','W') != 0 - let b:lhs_markup = "tex" - else - let b:lhs_markup = "plain" - endif -endif - -" If user wants us to highlight TeX syntax, read it. -if b:lhs_markup == "tex" - if version < 600 - source :p:h/tex.vim - set isk+=_ - else - runtime! syntax/tex.vim - unlet b:current_syntax - " Tex.vim removes "_" from 'iskeyword', but we need it for Haskell. - setlocal isk+=_ - endif -endif - -" Literate Haskell is Haskell in between text, so at least read Haskell -" highlighting -if version < 600 - syntax include @haskellTop :p:h/haskell.vim -else - syntax include @haskellTop syntax/haskell.vim -endif - - -" Where Haskell is nested within TeX -syntax cluster lhstex contains=tex.*Zone,texAbstract - -syntax region lhsHaskellBirdTrack start="^>" end="\%(^[^>]\)\@=" contains=@haskellTop,lhsBirdTrack containedIn=@lhstex -syntax region lhsHaskellBeginEndBlock start="^\\begin{code}\s*$" matchgroup=NONE end="\%(^\\end{code}.*$\)\@=" contains=@haskellTop,@beginCode containedIn=@lhstex - -syntax match lhsBirdTrack "^>" contained - -syntax match beginCodeBegin "^\\begin" nextgroup=beginCodeCode contained -syntax region beginCodeCode matchgroup=texDelimiter start="{" end="}" -syntax cluster beginCode contains=beginCodeBegin,beginCodeCode - -" Define the default highlighting. -" For version 5.7 and earlier: only when not done already -" For version 5.8 and later: only when an item doesn't have highlighting yet -if version >= 508 || !exists("did_tex_syntax_inits") - if version < 508 - let did_tex_syntax_inits = 1 - command -nargs=+ HiLink hi link - else - command -nargs=+ HiLink hi def link - endif - - HiLink lhsBirdTrack Comment - - HiLink beginCodeBegin texCmdName - HiLink beginCodeCode texSection - - delcommand HiLink -endif - -" Restore cursor to original position, as it may have been disturbed -" by the searches in our guessing code -call cursor (s:oldline, s:oldcolumn) - -unlet s:oldline -unlet s:oldcolumn - -let b:current_syntax = "lhaskell" - -" vim: ts=8 diff --git a/.oldvim/vim/syntax/old/eruby.vim b/.oldvim/vim/syntax/old/eruby.vim deleted file mode 100644 index f7ae5ac..0000000 --- a/.oldvim/vim/syntax/old/eruby.vim +++ /dev/null @@ -1,39 +0,0 @@ -" Vim syntax file -" Language: eruby -" Maintainer: Michael Brailsford -" Installation: -" To automatilcally load this file when a .rhtml file is opened, add the -" following lines to ~/.vim/filetype.vim: -" -" augroup filetypedetect -" au! BufRead,BufNewFile *.rhtml setfiletype eruby -" augroup END -" -" You will have to restart vim for this to take effect. In any case it -" is a good idea to read ":he new-filetype" so that you know what is going -" on, and why the above lines work. - -if version < 600 - syntax clear -elseif exists("b:current_syntax") - finish -endif - -"Source the html syntax file -ru! syntax/html.vim -"Set the filetype to html to load the html ftplugins -"set ft=html -unlet b:current_syntax - -"Put the ruby syntax file in @rubyTop -syn include @rubyTop syntax/ruby.vim - -syn region erubyBlock matchgroup=erubyRubyDelim start=#<%=\?# end=#%># keepend containedin=ALL contains=@rubyTop,erubyEnd -syn region erubyComment start=+<%#+ end=#%># keepend -syn match erubyEnd #\# - -hi link erubyRubyDelim todo -hi link erubyComment comment -hi link erubyEnd rubyControl - -" vim: set ts=4 sw=4: diff --git a/.oldvim/vim/syntax/old/rht.bak b/.oldvim/vim/syntax/old/rht.bak deleted file mode 100644 index b732153..0000000 --- a/.oldvim/vim/syntax/old/rht.bak +++ /dev/null @@ -1,11 +0,0 @@ -" load all of the HTML info -"source $VIMRUNTIME/syntax/html.vim -runtime! syntax/html.vim -unlet b:current_syntax - -" load all of the ruby info into @Ruby -syntax include @Ruby $VIMRUNTIME/syntax/ruby.vim -unlet b:current_syntax -syntax region rhtmlRuby start="<%" end="%" contains=@Ruby,rhtmlRuby - -let b:current_syntax = "rhtml" diff --git a/.oldvim/vim/syntax/old/rhtml.vim b/.oldvim/vim/syntax/old/rhtml.vim deleted file mode 100644 index c6bf6a3..0000000 --- a/.oldvim/vim/syntax/old/rhtml.vim +++ /dev/null @@ -1,25 +0,0 @@ -" HTML with embedded Ruby -" Language: HTML + Ruby -" Maintainer: Tobias DiPasquale -" Last Modified: 2002 Mar 07 -" Location: http://cbcg.net/rhtml.vim - -" for portability -if version < 600 - syntax clear -elseif exists("b:current_syntax") - finish -endif - -" load all of the HTML info -source $VIMRUNTIME/syntax/html.vim -unlet b:current_syntax - -" load all of the ruby info into @Ruby -syntax include @Ruby $VIMRUNTIME/syntax/ruby.vim -syntax region rhtmlRuby - \ start=/<%/ - \ end=/%>/ - \ contains=@Ruby, rhtmlRuby - -let b:current_syntax = "rhtml" diff --git a/.oldvim/vim/syntax/old/rhtmlaoeu.vim b/.oldvim/vim/syntax/old/rhtmlaoeu.vim deleted file mode 100644 index 9f463d2..0000000 --- a/.oldvim/vim/syntax/old/rhtmlaoeu.vim +++ /dev/null @@ -1,6 +0,0 @@ -" load all of the HTML info -source $VIMRUNTIME/syntax/html.vim -unlet b:current_syntax -syntax include @Ruby runtime! syntax/ruby.vim -syntax region rhtmlRuby start=+<%+ end=+%>+ contains=@Ruby,rhtmlRuby -let b:current_syntax="rhtml" diff --git a/.oldvim/vim/syntax/ragel.vim b/.oldvim/vim/syntax/ragel.vim deleted file mode 100644 index fa77e43..0000000 --- a/.oldvim/vim/syntax/ragel.vim +++ /dev/null @@ -1,149 +0,0 @@ -" Vim syntax file -" -" Language: Ragel -" Author: Adrian Thurston - -syntax clear - -" -" Outside code -" - -" Comments -syntax region ocComment start="\/\*" end="\*\/" -syntax match ocComment "\/\/.*$" - -" Anything preprocessor -syntax match ocPreproc "#\(.\|\\\n\)*$" -syntax region ocPreproc start="#" end="[^\\]$" - -" Strings -syntax match ocLiteral "'\(\\.\|[^'\\]\)*'" -syntax match ocLiteral "\"\(\\.\|[^\"\\]\)*\"" - -" C/C++ Keywords -syntax keyword ocType unsigned signed void char short int long float double bool -syntax keyword ocType inline static extern register const volatile auto -syntax keyword ocType union enum struct class typedef -syntax keyword ocType namespace template typename mutable -syntax keyword ocKeyword break continue default do else for -syntax keyword ocKeyword goto if return switch while -syntax keyword ocKeyword new delete this using friend public private protected sizeof -syntax keyword ocKeyword throw try catch operator typeid -syntax keyword ocKeyword and bitor xor compl bitand and_eq or_eq xor_eq not not_eq -syntax keyword ocKeyword static_cast dynamic_cast - -" Numbers -syntax match ocNumber "[0-9][0-9]*" -syntax match ocNumber "0x[0-9a-fA-F][0-9a-fA-F]*" - -" Booleans -syntax keyword ocBoolean true false - -" Identifiers -syntax match anyId "[a-zA-Z_][a-zA-Z_0-9]*" - -" Inline code only -syntax keyword fsmType fpc fc fcurs fbuf fblen ftargs fstack -syntax keyword fsmKeyword fhold fgoto fcall fret fentry fnext fexec fbreak - -syntax cluster rlItems contains=rlComment,rlLiteral,rlAugmentOps,rlOtherOps,rlKeywords,rlWrite,rlCodeCurly,rlCodeSemi,rlNumber,anyId,rlLabelColon,rlExprKeywords - -syntax region machineSpec1 matchgroup=beginRL start="%%{" end="}%%" contains=@rlItems -syntax region machineSpec2 matchgroup=beginRL start="%%[^{]"rs=e-1 end="$" keepend contains=@rlItems -syntax region machineSpec2 matchgroup=beginRL start="%%$" end="$" keepend contains=@rlItems - -" Comments -syntax match rlComment "#.*$" contained - -" Literals -syntax match rlLiteral "'\(\\.\|[^'\\]\)*'[i]*" contained -syntax match rlLiteral "\"\(\\.\|[^\"\\]\)*\"[i]*" contained -syntax match rlLiteral /\/\(\\.\|[^\/\\]\)*\/[i]*/ contained -syntax match rlLiteral "\[\(\\.\|[^\]\\]\)*\]" contained - -" Numbers -syntax match rlNumber "[0-9][0-9]*" contained -syntax match rlNumber "0x[0-9a-fA-F][0-9a-fA-F]*" contained - -" Operators -syntax match rlAugmentOps "[>$%@]" contained -syntax match rlAugmentOps "<>\|<" contained -syntax match rlAugmentOps "[>\<$%@][!\^/*~]" contained -syntax match rlAugmentOps "[>$%]?" contained -syntax match rlAugmentOps "<>[!\^/*~]" contained -syntax match rlAugmentOps "=>" contained -syntax match rlOtherOps "->" contained - -syntax match rlOtherOps ":>" contained -syntax match rlOtherOps ":>>" contained -syntax match rlOtherOps "<:" contained - -" Keywords -" FIXME: Enable the range keyword post 5.17. -" syntax keyword rlKeywords machine action context include range contained -syntax keyword rlKeywords machine action context include import export prepush postpop contained -syntax keyword rlExprKeywords when inwhen outwhen err lerr eof from to contained - -" Case Labels -syntax keyword caseLabelKeyword case contained -syntax cluster caseLabelItems contains=ocComment,ocPreproc,ocLiteral,ocType,ocKeyword,caseLabelKeyword,ocNumber,ocBoolean,anyId,fsmType,fsmKeyword -syntax match caseLabelColon "case" contains=@caseLabelItems -syntax match caseLabelColon "case[\t ]\+.*:$" contains=@caseLabelItems -syntax match caseLabelColon "case[\t ]\+.*:[^=:]"me=e-1 contains=@caseLabelItems - -" Labels -syntax match ocLabelColon "^[\t ]*[a-zA-Z_][a-zA-Z_0-9]*[ \t]*:$" contains=anyLabel -syntax match ocLabelColon "^[\t ]*[a-zA-Z_][a-zA-Z_0-9]*[ \t]*:[^=:]"me=e-1 contains=anyLabel - -syntax match rlLabelColon "[a-zA-Z_][a-zA-Z_0-9]*[ \t]*:$" contained contains=anyLabel -syntax match rlLabelColon "[a-zA-Z_][a-zA-Z_0-9]*[ \t]*:[^=:>]"me=e-1 contained contains=anyLabel -syntax match anyLabel "[a-zA-Z_][a-zA-Z_0-9]*" contained - -" All items that can go in a code block. - -syntax cluster inlineItems contains=rlCodeCurly,ocComment,ocPreproc,ocLiteral,ocType,ocKeyword,ocNumber,ocBoolean,ocLabelColon,anyId,fsmType,fsmKeyword,caseLabelColon - -" Blocks of code. rlCodeCurly is recursive. -syntax region rlCodeCurly matchgroup=NONE start="{" end="}" contained contains=@inlineItems -syntax region rlCodeSemi matchgroup=Type start="\" start="\" start="\" start="\" matchgroup=NONE end=";" contained contains=@inlineItems - -syntax region rlWrite matchgroup=Type start="\" matchgroup=NONE end="[;)]" contained contains=rlWriteKeywords,rlWriteOptions - -syntax keyword rlWriteKeywords init data exec exports start error first_final contained -syntax keyword rlWriteOptions noerror nofinal noprefix noend nocs contained - -" -" Sync at the start of machine specs. -" -" Match The ragel delimiters only if there quotes no ahead on the same line. -" On the open marker, use & to consume the leader. -syntax sync match ragelSyncPat grouphere NONE "^[^\'\"%]*%%{&^[^\'\"%]*" -syntax sync match ragelSyncPat grouphere NONE "^[^\'\"%]*%%[^{]&^[^\'\"%]*" -syntax sync match ragelSyncPat grouphere NONE "^[^\'\"]*}%%" - -" -" Specifying Groups -" -hi link ocComment Comment -hi link ocPreproc Macro -hi link ocLiteral String -hi link ocType Type -hi link ocKeyword Keyword -hi link ocNumber Number -hi link ocBoolean Boolean -hi link rlComment Comment -hi link rlNumber Number -hi link rlLiteral String -hi link rlAugmentOps Keyword -hi link rlExprKeywords Keyword -hi link rlWriteKeywords Keyword -hi link rlWriteOptions Keyword -hi link rlKeywords Type -hi link fsmType Type -hi link fsmKeyword Keyword -hi link anyLabel Label -hi link caseLabelKeyword Keyword -hi link beginRL Type - -let b:current_syntax = "ragel" diff --git a/.oldvim/vim/syntax/tmux.vim b/.oldvim/vim/syntax/tmux.vim deleted file mode 100644 index e68e63a..0000000 --- a/.oldvim/vim/syntax/tmux.vim +++ /dev/null @@ -1,102 +0,0 @@ -" Vim syntax file -" Language: tmux(1) configuration file -" Maintainer: Tiago Cunha -" Last Change: $Date: 2010/02/26 13:33:22 $ -" License: This file is placed in the public domain. - -if version < 600 - syntax clear -elseif exists("b:current_syntax") - finish -endif - -setlocal iskeyword+=- -syntax case match - -syn keyword tmuxAction any current none -syn keyword tmuxBoolean off on - -syn keyword tmuxCmds detach[-client] ls list-sessions neww new-window -syn keyword tmuxCmds bind[-key] unbind[-key] prev[ious-window] last[-window] -syn keyword tmuxCmds lsk list-keys set[-option] renamew rename-window selectw -syn keyword tmuxCmds select-window lsw list-windows attach[-session] -syn keyword tmuxCmds send-prefix refresh[-client] killw kill-window lsc -syn keyword tmuxCmds list-clients linkw link-window unlinkw unlink-window -syn keyword tmuxCmds next[-window] send[-keys] swapw swap-window -syn keyword tmuxCmds rename[-session] kill-session switchc switch-client -syn keyword tmuxCmds has[-session] copy-mode pasteb paste-buffer -syn keyword tmuxCmds new[-session] start[-server] kill-server setw -syn keyword tmuxCmds set-window-option show[-options] showw show-window-options -syn keyword tmuxCmds command-prompt setb set-buffer showb show-buffer lsb -syn keyword tmuxCmds list-buffers deleteb delete-buffer lscm list-commands -syn keyword tmuxCmds movew move-window select-prompt respawnw respawn-window -syn keyword tmuxCmds source[-file] info server-info clock-mode lock[-server] -syn keyword tmuxCmds saveb save-buffer downp down-pane killp -syn keyword tmuxCmds kill-pane resizep resize-pane selectp select-pane swapp -syn keyword tmuxCmds swap-pane splitw split-window upp up-pane choose-session -syn keyword tmuxCmds choose-window loadb load-buffer copyb copy-buffer suspendc -syn keyword tmuxCmds suspend-client findw find-window breakp break-pane nextl -syn keyword tmuxCmds next-layout rotatew rotate-window confirm[-before] -syn keyword tmuxCmds clearhist clear-history selectl select-layout if[-shell] -syn keyword tmuxCmds display[-message] setenv set-environment showenv -syn keyword tmuxCmds show-environment choose-client displayp display-panes -syn keyword tmuxCmds run[-shell] lockc lock-client locks lock-session lsp -syn keyword tmuxCmds list-panes pipep pipe-pane showmsgs show-messages capturep -syn keyword tmuxCmds capture-pane joinp join-pane - -syn keyword tmuxOptsSet prefix status status-fg status-bg bell-action -syn keyword tmuxOptsSet default-command history-limit status-left status-right -syn keyword tmuxOptsSet status-interval set-titles display-time buffer-limit -syn keyword tmuxOptsSet status-left-length status-right-length message-fg -syn keyword tmuxOptsSet message-bg lock-after-time default-path repeat-time -syn keyword tmuxOptsSet message-attr status-attr status-keys set-remain-on-exit -syn keyword tmuxOptsSet status-utf8 default-terminal visual-activity -syn keyword tmuxOptsSet visual-bell visual-content status-justify -syn keyword tmuxOptsSet terminal-overrides status-left-attr status-left-bg -syn keyword tmuxOptsSet status-left-fg status-right-attr status-right-bg -syn keyword tmuxOptsSet status-right-fg update-environment base-index -syn keyword tmuxOptsSet display-panes-colour display-panes-time default-shell -syn keyword tmuxOptsSet set-titles-string lock-command lock-server -syn keyword tmuxOptsSet mouse-select-pane message-limit quiet escape-time -syn keyword tmuxOptsSet pane-active-border-bg pane-active-border-fg -syn keyword tmuxOptsSet pane-border-bg pane-border-fg -syn keyword tmuxOptsSet display-panes-active-colour alternate-screen - -syn keyword tmuxOptsSetw monitor-activity aggressive-resize force-width -syn keyword tmuxOptsSetw force-height remain-on-exit uft8 mode-fg mode-bg -syn keyword tmuxOptsSetw mode-keys clock-mode-colour clock-mode-style -syn keyword tmuxOptsSetw xterm-keys mode-attr window-status-attr -syn keyword tmuxOptsSetw window-status-bg window-status-fg automatic-rename -syn keyword tmuxOptsSetw main-pane-width main-pane-height monitor-content -syn keyword tmuxOptsSetw window-status-current-attr window-status-current-bg -syn keyword tmuxOptsSetw window-status-current-fg mode-mouse synchronize-panes -syn keyword tmuxOptsSetw window-status-format window-status-current-format -syn keyword tmuxOptsSetw word-separators - -syn keyword tmuxTodo FIXME NOTE TODO XXX contained - -syn match tmuxKey /\(C-\|M-\|\^\)\p/ display -syn match tmuxNumber /\d\+/ display -syn match tmuxOptions /\s-\a\+/ display -syn match tmuxVariable /\w\+=/ display -syn match tmuxVariableExpansion /\${\=\w\+}\=/ display - -syn region tmuxComment start=/#/ end=/$/ contains=tmuxTodo display oneline -syn region tmuxString start=/"/ end=/"/ display oneline -syn region tmuxString start=/'/ end=/'/ display oneline - -hi def link tmuxAction Boolean -hi def link tmuxBoolean Boolean -hi def link tmuxCmds Keyword -hi def link tmuxComment Comment -hi def link tmuxKey Special -hi def link tmuxNumber Number -hi def link tmuxOptions Identifier -hi def link tmuxOptsSet Function -hi def link tmuxOptsSetw Function -hi def link tmuxString String -hi def link tmuxTodo Todo -hi def link tmuxVariable Constant -hi def link tmuxVariableExpansion Constant - -let b:current_syntax = "tmux" diff --git a/.oldvim/vimrc b/.oldvim/vimrc deleted file mode 100644 index 43f5ee6..0000000 --- a/.oldvim/vimrc +++ /dev/null @@ -1,1422 +0,0 @@ - -"----------------------------------------------------------------------- -"Hunner's vimrc based on BaSS & ciaran -"----------------------------------------------------------------------- - -"----------------------------------------------------------------------- -" terminal setup -"----------------------------------------------------------------------- -" {{{1 - -" Add path for windows -set rtp+=~/.vim - -" This may contain utf-8 script -scriptencoding utf-8 - -" Want utf8 at all times -set termencoding=utf-8 -set encoding=utf-8 -set fileencoding=utf-8 - -" change cursor colour depending upon mode -if exists('&t_SI') -" let &t_SI = "\]12;lightgoldenrod\x7" -" let &t_EI = "\]12;greenyellow\x7" -elseif has("gui") - set guicursor=n-v-c:block-Cursor/lCursor,ve:ver35-Cursor,o:hor50-Cursor,i-ci:ver25-Cursor/lCursor,r-cr:hor20-Cursor/lCursor,sm:block-Cursor-blinkwait175-blinkoff150-blinkon175 -endif - -" Clear autocommands for re-sourceing -autocmd! - - -" }}}1 - -"----------------------------------------------------------------------- -" settings -"----------------------------------------------------------------------- -" {{{1 - -" Don't be compatible with vi {{{2 -set nocompatible - -" Use old regex engine to speed ruby syntax up -if v:version >= 703 && has("patch970") - set re=1 -endif - -" Enable a nice big viminfo file {{{2 -set viminfo='1000,f1,:1000,/1000 -set history=500 - -" Return to last line on reopening file {{{2 -if has("autocmd") - autocmd BufReadPost * - \ if line("'\"") > 1 && line("'\"") <= line("$") | exe "normal! g`\"" | endif -endif - -" Abbreviate output of commands {{{2 -set shortmess=a - -" Make backspace delete lots of things {{{2 -set backspace=indent,eol,start - -" Don't create backups {{{2 -"set nobackup - -" Show us the command we're typing {{{2 -set showcmd - -" Highlight matching parens {{{2 -set showmatch - -" Search options: incremental search, highlight search {{{2 -set hlsearch -set incsearch - -" Case insensitivity for searching {{{2 -set ignorecase -set infercase - -" Show full tags when doing search completion {{{2 -set showfulltag - -" Speed up macros with lazyredraw {{{2 -set lazyredraw - -" No annoying error noises {{{2 -set noerrorbells -set visualbell t_vb= -if has("autocmd") - autocmd GUIEnter * set visualbell t_vb= -endif - -" Scroll buffers of 3x2 {{{2 -set scrolloff=3 -set sidescrolloff=2 - -" Wrap on < > [ ] too {{{2 -set whichwrap+=<,>,[,] - -" Use the cool tab complete wildmenu {{{2 -set wildmenu -set wildignore+=*.o,*~,.lo -set suffixes+=.in,.a,.1 -set complete=.,w,b,u - -" Allow edit buffers to be hidden {{{2 -set hidden - -" Enable syntax highlighting {{{2 -if has("syntax") - syntax on -endif - -" enable virtual edit in vblock mode, and one past the end {{{2 -set virtualedit=block - -" Set our fonts {{{2 -"if has("gui_kde") -" set guifont=Terminus/12/-1/5/50/0/0/0/0/0 -"elseif has("gui_gtk") -" set guifont=Terminus\ 12 -"elseif has("gui_running") -" set guifont=-xos4-terminus-medium-r-normal--12-140-72-72-c-80-iso8859-1 -"endif - -" Try to load a nice colourscheme {{{2 -if ! has("gui_running") - set t_Co=256 - colors inkpot -else - colors ir_black - " Turn off the menubar so we don't get key accelerators with Meta. - " Don't include the toolbar - set guioptions=aegit -endif -" set background=light gives a different style, feel free to choose between them. -set background=dark -"colors peaksea - -" No icky toolbar, menu or scrollbars in the GUI {{{2 -"if has('gui') -" set guioptions-=m -" set guioptions-=T -" set guioptions-=l -" set guioptions-=L -" set guioptions-=r -" set guioptions-=R -"end - -" By default, go for an indent of 4 and use spaces {{{2 -set expandtab -set shiftwidth=2 -set tabstop=2 - -" Do clever indent things. Don't make a # force column zero. {{{2 -set autoindent -set smartindent -inoremap # X# - -" Disable folds by default; toggle with zi {{{2 -if has("folding") - fun! ToggleFoldmethod() - if &foldmethod == "marker" - set foldmethod=syntax - else - set foldmethod=marker - endif - endfun - command! Tfdm call ToggleFoldmethod() - set nofoldenable - set foldmethod=manual - set foldlevelstart=0 " Start with all folds closed - "set foldclose=all " Close folds when cursor leaves them -endif - -" Syntax when printing {{{2 -set popt+=syntax:y - -" Enable filetype settings {{{2 -if has("eval") - filetype off " Off for vundle - filetype plugin on - filetype indent on -endif - -" Enable modelines only on secure vim versions {{{2 -if (v:version >= 604) - set modeline -else - set nomodeline -endif - -" Nice statusbar {{{2 -set laststatus=2 -set statusline= -set statusline+=%2*%-3.3n%0*\ " buffer number -set statusline+=%f\ " file name -if has("eval") - let g:scm_cache = {} - fun! ScmInfo() - let l:key = getcwd() - if ! has_key(g:scm_cache, l:key) - if (isdirectory(getcwd() . "/.git")) - let g:scm_cache[l:key] = "[" . substitute(readfile(getcwd() . "/.git/HEAD", "", 1)[0], - \ "^.*/", "", "") . "] " - else - let g:scm_cache[l:key] = "" - endif - endif - return g:scm_cache[l:key] - endfun - set statusline+=%{ScmInfo()} " scm info -endif -set statusline+=%h%1*%m%r%w%0* " flags -set statusline+=\[%{strlen(&ft)?&ft:'none'}, " filetype -set statusline+=%{&encoding}, " encoding -set statusline+=%{&fileformat}] " file format -if filereadable(expand("$VIM/vimfiles/plugin/vimbuddy.vim")) - set statusline+=\ %{VimBuddy()} " vim buddy -endif -set statusline+=%= " right align -set statusline+=%2*0x%-8B\ " current char -set statusline+=%-14.(%l,%c%V%)\ %<%P " offset - -" special statusbar for special windows -"if has("autocmd") -" au FileType qf -" \ if &buftype == "quickfix" | -" \ setlocal statusline=%2*%-3.3n%0* | -" \ setlocal statusline+=\ \[Compiler\ Messages\] | -" \ setlocal statusline+=%=%2*\ %<%P | -" \ endif -" -" fun! FixMiniBufExplorerTitle() -" if "-MiniBufExplorer-" == bufname("%") -" setlocal statusline=%2*%-3.3n%0* -" setlocal statusline+=\[Buffers\] -" setlocal statusline+=%=%2*\ %<%P -" endif -" endfun -" -" au BufWinEnter * -" \ let oldwinnr=winnr() | -" \ windo call FixMiniBufExplorerTitle() | -" \ exec oldwinnr . " wincmd w" -"endif - -" Nice window title {{{2 -if has('title') && (has('gui_running') || &title) - set titlestring= - set titlestring+=%f\ " file name - set titlestring+=%h%m%r%w " flags - "set titlestring+=\ -\ %{v:progname} " program name - set titlestring+=\ -\ %{substitute(getcwd(),\ $HOME,\ '~',\ '')} " working directory -endif - -" Backups and undos across edits {{{2 -if v:version >= 702 - set backupdir=~/.vim/backups -endif -" NB: :help usr_32.txt or undo-branches -if v:version >= 703 - set undodir=~/.vim/backups - set undofile -endif - -" Use blowfish for :X encryption {{{2 -" not with nvim -"if v:version >= 703 -" set cryptmethod=blowfish -"endif - -" If possible, try to use a narrow number column. {{{2 -if v:version >= 700 - try - setlocal numberwidth=3 - catch - endtry -endif - -" Include $HOME in cdpath {{{2 -if has("file_in_path") - let &cdpath=','.expand("$HOME").','.expand("$HOME").'/work' -endif - -" Better include path {{{2 -set path+=src/,include/ -let &inc.=' ["<]' - -" Show tabs and trailing whitespace visually {{{2 -if (&termencoding == "utf-8") || has("gui_running") - if v:version >= 700 - set list listchars=tab:»·,trail:·,extends:…,nbsp:‗ - else - set list listchars=tab:»·,trail:·,extends:… - endif -else - if v:version >= 700 - set list listchars=tab:>-,trail:.,extends:>,nbsp:_ - else - set list listchars=tab:>-,trail:.,extends:> - endif -endif -map :set noet:set sw=8:set ts=8 -map :set list! listchars - -" Re-align '=' signs {{{2 -vnoremap > :Align => -vnoremap = :Align = -"nnoremap = V%:'<,'>Align = - -" Show lines longer than 80 characters {{{2 -"au BufWinEnter * let w:m1=matchadd('Search', '\%<81v.\%>77v', -1) -"au BufWinEnter * let w:m2=matchadd('ErrorMsg', '\%>80v.\+', -1) - -" Fill folds with ' ' {{{2 -set fillchars=fold:\ - - -" }}}1 - -"----------------------------------------------------------------------- -" completion -"----------------------------------------------------------------------- -" {{{1 - -set dictionary=/usr/share/dict/words - - -" }}}1 - -"----------------------------------------------------------------------- -" miniBufExpl -"----------------------------------------------------------------------- -" {{{1 - -"let g:miniBufExplMapWindowNavVim = 1 -"let g:miniBufExplMapWindowNavArrows = 1 -"let g:miniBufExplMapCTabSwitchBufs = 1 -"let g:miniBufExplModSelTarget = 1 - - -" }}}1 - -"----------------------------------------------------------------------- -" autocmds -"----------------------------------------------------------------------- -" {{{1 - -" Show the column and/or line of the cursor {{{2 -"au VimEnter,BufEnter,WinEnter * set cursorcolumn " cursorline -"au WinLeave * set nocursorcolumn " nocursorline - -" content creation {{{2 -if has("autocmd") - augroup puppet " {{{3 - autocmd BufRead,BufNewFile *.pp - \ set tabstop=2 shiftwidth=2 softtabstop=2 et - augroup END - augroup text " {{{3 - autocmd BufRead,BufNewFile *.txt - \ set nonumber tw=80 - augroup END - augroup gnupg " {{{3 - autocmd BufRead,BufNewFile *.gpg - \ set nobackup - augroup END - augroup helphelp " {{{3 - " For help files, move them to the top window and make - " behave like (jump to tag) - "autocmd FileType help :call WindowToTop() - autocmd FileType help nmap - augroup END - augroup interplangs " {{{3 - autocmd BufNewFile *.rb 0put ='# vim: set sw=2 sts=2 et tw=80 :' | - \ 0put ='#!/usr/bin/env ruby' | set sw=2 sts=2 et tw=80 | - \ norm G - - autocmd FileType ruby set omnifunc=rubycomplete#Complete - autocmd FileType ruby let g:rubycomplete_buffer_loading=1 - autocmd FileType ruby let g:rubycomplete_classes_in_global=1 - - autocmd BufNewFile,BufRead *.rb,Rakefile - \ set tabstop=2 shiftwidth=2 softtabstop=2 expandtab | - \ setf ruby - - autocmd BufNewFile,BufRead *rhtml,*haml - \ set tabstop=2 shiftwidth=2 softtabstop=2 expandtab | - \ setf eruby - - autocmd BufNewFile,BufRead *.php - \ set ai - augroup END - augroup tex " {{{3 - autocmd BufNewFile *.tex - \ 0put ='% vim:set ft=tex spell:' - augroup END - augroup html " {{{3 - autocmd BufNewFile *.htm,*.html - \ 0put ='' | - \ $put ='' | - \ $put =' ' | - \ $put =' ' | - \ $put =' ' | - \ $put =' ' | - \ $put =' ' | - \ $put =' ' | - \ $put =' ' | - \ $put =' ' | - \ $put ='' | - \ $put ='' | - \ set sw=2 sts=2 et tw=80 | norm G - augroup END - augroup autotools " {{{3 - autocmd BufNewFile *.hh 0put ='/* vim: set sw=4 sts=4 et foldmethod=syntax : */' | - \ 1put ='' | call MakeIncludeGuards() | - \ 5put ='#include \"config.h\"' | - \ set sw=4 sts=4 et tw=80 | norm G - - autocmd BufNewFile *.c 0put ='/* vim: set sw=4 sts=4 et foldmethod=syntax : */' | - \ 1put ='' | 2put ='' | call setline(3, '#include "' . - \ substitute(expand("%:t"), ".c$", ".h", "") . '"') | - \ set sw=4 sts=4 et tw=80 | norm G - - autocmd BufNewFile *.cc 0put ='/* vim: set sw=4 sts=4 et foldmethod=syntax : */' | - \ 1put ='' | 2put ='' | call setline(3, '#include "' . - \ substitute(expand("%:t"), ".cc$", ".hh", "") . '"') | - \ set sw=4 sts=4 et tw=80 | norm G - - autocmd BufNewFile configure.ac - \ 0put ='dnl vim: set sw=8 sts=8 noet :' | - \ $put ='' | - \ call setline(line('$'), 'AC_INIT([' . substitute(expand('%:p:h'), - \ '^.\{-}/\([^/]\+\)\(/trunk\)\?$', '\1', '') . '], [0.1], [h.haugen@gmail.com])') | - \ $put ='AC_PREREQ(2.63)' | - \ $put ='AC_CONFIG_SRCDIR([])' | - \ $put ='AC_CONFIG_AUX_DIR(config)' | - \ $put ='AM_INIT_AUTOMAKE([foreign -Wall -Werror 1.10])' | - \ $put ='' | - \ $put ='dnl check for required programs' | - \ $put ='AC_PROG_CC dnl CXX' | - \ $put ='AC_PROG_INSTALL' | - \ $put ='AC_PROG_LN_S' | - \ $put ='AC_PROG_RANLIB' | - \ $put ='AC_PROG_MAKE_SET' | - \ $put ='' | - \ $put ='dnl output' | - \ $put ='AC_CONFIG_HEADERS([config.h])' | - \ $put ='AC_CONFIG_FILES([' | - \ $put =' Makefile' | - \ $put =' src/Makefile' | - \ $put ='])' | - \ $put ='AC_OUTPUT' | - \ set sw=8 sts=8 noet | - \ norm ggjjjjf] - - autocmd BufNewFile autogen.bash - \ 0put ='#!/usr/bin/env bash' | - \ 1put ='# vim: set sw=4 sts=4 et tw=80 :' | - \ $put ='run() {' | - \ $put ='echo \">>> $@\"' | - \ $put =' if ! $@ ; then' | - \ $put =' echo \"oops!\" 1>&2' | - \ $put =' exit 127' | - \ $put =' fi' | - \ $put ='}' | - \ $put ='' | - \ $put ='get() {' | - \ $put =' type ${1}-${2} &>/dev/null && echo ${1}-${2} && return' | - \ $put =' type ${1}${2//.} &>/dev/null && echo ${1}${2//.} && return' | - \ $put =' type ${1} &>/dev/null && echo ${1} && return' | - \ $put =' echo \"Could not find ${1} ${2}\" 1>&2' | - \ $put =' exit 127' | - \ $put ='}' | - \ $put ='' | - \ $put ='run mkdir -p config' | - \ $put ='run $(get libtoolize 2.2 ) --copy --force --automake' | - \ $put ='rm -f config.cache' | - \ $put ='run $(get aclocal 1.10 )' | - \ $put ='run $(get autoheader 2.63 )' | - \ $put ='run $(get autoconf 2.63 )' | - \ $put ='run $(get automake 1.10 ) -a --copy' | - \ set sw=4 sts=4 et tw=80 | - \ norm gg=Ggg - autocmd BufWritePost autogen.bash !chmod 744 % - - autocmd BufNewFile Makefile.am - \ 0put ='CLEANFILES = *~' | - \ if (! filereadable(expand("%:p:h:h") . '/Makefile.am')) | - \ $put ='MAINTAINERCLEANFILES = Makefile.in configure config/* aclocal.m4 \' | - \ $put ='' | - \ call setline(line('$'), "\t\t\tconfig.h config.h.in") | - \ $put ='SUBDIRS = src' | - \ $put ='AUTOMAKE_OPTIONS = foreign dist-bzip2' | - \ $put ='EXTRA_DIST = autogen.bash' | - \ $put ='' | - \ $put ='maintainer-clean-local:' | - \ $put =' -rmdir config' | - \ else | - \ $put ='MAINTAINERCLEANFILES = Makefile.in' | - \ $put ='bin_PROGRAMS = ' . substitute(expand('%:p:h'),'^.\{-}/\([^/]\+\)\(/src\)\?$', '\1', '') | - \ $put = substitute(expand('%:p:h'), '^.\{-}/\([^/]\+\)\(/src\)\?$','\1', '') . '_SOURCES = main.c' | - \ endif - - augroup END - augroup making " {{{3 - try - " if we have a vim which supports QuickFixCmdPost (vim7), - " give us an error window after running make, grep etc, but - " only if results are available. - autocmd QuickFixCmdPost * botright cwindow 6 - - autocmd QuickFixCmdPre make - \ let g:make_start_time=localtime() - - let g:paludis_configure_command = "! ./configure --prefix=/usr --sysconfdir=/etc" . - \ " --localstatedir=/var/lib --enable-qa " . - \ " --enable-ruby --enable-python --enable-vim --enable-bash-completion" . - \ " --enable-zsh-completion --with-repositories=all --with-clients=all --with-environments=all" . - \ " --enable-visibility --enable-gnu-ldconfig --enable-htmltidy" . - \ " --enable-ruby-doc --enable-python-doc --enable-xml" - - " Similarly, try to automatically run ./configure and / or - " autogen if necessary. - autocmd QuickFixCmdPre make - \ if ! filereadable('Makefile') | - \ if ! filereadable("configure") | - \ if filereadable("autogen.bash") | - \ exec "! ./autogen.bash" | - \ elseif filereadable("quagify.sh") | - \ exec "! ./quagify.sh" | - \ endif | - \ endif | - \ if filereadable("configure") | - \ if (isdirectory(getcwd() . "/paludis/util")) | - \ exec g:paludis_configure_command | - \ elseif (match(getcwd(), "libwrapiter") >= 0) | - \ exec "! ./configure --prefix=/usr --sysconfdir=/etc" | - \ else | - \ exec "! ./configure" | - \ endif | - \ endif | - \ endif - - autocmd QuickFixCmdPost make - \ let g:make_total_time=localtime() - g:make_start_time | - \ echo printf("Time taken: %dm%2.2ds", g:make_total_time / 60, - \ g:make_total_time % 60) - - autocmd QuickFixCmdPre * - \ let g:old_titlestring=&titlestring | - \ let &titlestring="[ " . expand("") . " ] " . &titlestring | - \ redraw - - autocmd QuickFixCmdPost * - \ let &titlestring=g:old_titlestring - - if hostname() == "snowmobile" - autocmd QuickFixCmdPre make - \ let g:active_line=getpid() . " vim:" . substitute(getcwd(), "^.*/", "", "") | - \ exec "silent !echo '" . g:active_line . "' >> ~/.config/awesome/active" - - autocmd QuickFixCmdPost make - \ exec "silent !sed -i -e '/^" . getpid() . " /d' ~/.config/awesome/active" - endif - - catch - endtry - augroup END -endif - - -" Preview window for :help CursorHold-example after updatetime {{{2 -au CursorHold *.[ch] nested call PreviewWord() -au CursorMoved *.[ch] nested call UnPreviewWord() -fun! UnPreviewWord() - if &previewwindow - return - endif - pclose -endfun -fun! PreviewWord() - if &previewwindow " don't do this in the preview window - return - endif - if &lines < 40 " not for small terminals - return - endif - let w = expand("") " get the word under cursor - if w =~ '\a' " if the word contains a letter - " Delete any existing highlight before showing another tag - silent! wincmd P " jump to preview window - if &previewwindow " if we really get there... - match none " delete existing highlight - wincmd p " back to old window - endif - - " Try displaying a matching tag for the word under the cursor - try - exe "ptag " . w - catch - return - endtry - - silent! wincmd P " jump to preview window - if &previewwindow " if we really get there... -" exe "wincmd J" " make the window appear below - if has("folding") - silent! .foldopen " don't want a closed fold - endif - call search("$", "b") " to end of previous line - let w = substitute(w, '\\', '\\\\', "") - call search('\<\V' . w . '\>') " position cursor on match - " Add a match highlight to the word at this position - hi previewWord term=bold cterm=underline gui=underline - exe 'match previewWord "\%' . line(".") . 'l\%' . col(".") . 'c\k*"' -" exe "normal " . &previewheight / 2 . "j" - wincmd p " back to old window - endif - endif -endfun - - -" }}}1 - -"----------------------------------------------------------------------- -" mappings -"----------------------------------------------------------------------- -" {{{1 - -" Go to buffers with S-left/right and ^w ,. {{{2 -nmap :bprev -nmap :bnext -nmap , :bprev -nmap . :bnext - -" Movement between windows with ^hjkl {{{2 -nmap h -nmap j -nmap k -nmap l -nmap h -nmap j -nmap k -nmap l - -" Move through buffers instead of tabs with gt/gT {{{2 -"nmap gT :bprev -"nmap gt :bnext - -" v_K is really really annoying; disable {{{2 -vmap K k - -" Puppet pkg sort with sp {{{2 -nmap sp vi[:sort - -" Delete a buffer but keep layout with ^w! {{{2 -if has("eval") - command! Kwbd enew|bw # - nmap ! :Kwbd -endif - -" quickfix things like '-' {{{2 -"nmap cwc :cclose -"nmap cwo :botright copen 5p -"nmap cn :cnext -"nmap cp :cprevious -nmap - :cnext -nmap _ :cprev -nmap :colder -nmap :cnewer - -" Make S-up/down do gk/gj {{{2 -inoremap gk -inoremap gj -noremap gk -noremap gj - -" Better Bépo movement {{{2 -noremap © h -noremap þ j -noremap ß k -noremap ® l - -" Make / page up/down {{{2 -"noremap -"noremap - -" Some spacemacs -> vim things {{{2 -noremap fs :w -noremap qq :q -inoremap - -" Scrolling with arrows controls the window {{{2 -noremap -noremap - -" Useful things from inside imode {{{2 -inoremap w :w -inoremap q gq}k$ - -" Commonly used commands {{{2 -"nmap :silent nohlsearch -"imap :silent nohlsearch -"nmap :Kwbd -"nmap c -"nmap :exec "make check TESTS_ENVIRONMENT=true LOG_COMPILER=true XFAIL_TESTS=" -"nmap :exec "make -C " . expand("%:p:h") . " check TESTS_ENVIRONMENT=true LOG_COMPILER=true XFAIL_TESTS=" -"nmap :make all-then-check -map :Tfdm -"nmap :exec "make -C " . expand("%:p:h") . " check" -nmap :make -nmap :echo "hi<" . synIDattr(synID(line("."),col("."),1),"name") . '> trans<' - \ . synIDattr(synID(line("."),col("."),0),"name") . "> lo<" - \ . synIDattr(synIDtrans(synID(line("."),col("."),1)),"name") . ">" -nmap :exec "make -C " . expand("%:p:h") -"nmap :exec "make -C " . expand("%:p:h") . " check SUBDIRS= check_PROGRAMS=" . GetCurrentTest() -" \ . " TESTS=" . GetCurrentTest() - -" Insert a single char {{{2 -noremap i ir - -" Split the line into a (n)ew line or an (o)pen line {{{2 -nmap n \i -nmap o \ik$ - -" Pull the following line to the cursor position {{{2 -noremap J :s/\%#\(.*\)\n\(.*\)/\2\1 - -" In normal mode, jj escapes {{{2 -inoremap jj - -" C-c and are not entirely the same, but I want them to be -inoremap -" ... but that doesn't seem to work, so -inoremap - -" Kill line like emacs {{{2 -"noremap "_dd - -" Select everything {{{2 -noremap gg ggVG - -" Reformat everything {{{2 -noremap gq gggqG - -" Reformat paragraph {{{2 -noremap gp gqap - -" Clear lines {{{2 -"noremap clr :s/^.*$//:nohls - -" Delete blank lines {{{2 -noremap dbl :g/^$/d:nohls - -" Enclose each selected line with markers {{{2 -noremap enc :execute - \ substitute(":'<,'>s/^.*/#&#/ \| :nohls", "#", input(">"), "g") - -" Edit something in the current directory {{{2 -noremap ed :e =expand("%:p:h")/ - -" Insert pry line {{{2 -noremap pry orequire'pry';binding.pry -noremap PRY Orequire'pry';binding.pry - -" Enable fancy % matching {{{2 -if has("eval") - runtime! macros/matchit.vim -endif - -" q: sucks {{{2 -"nmap q: :q - -" set up some more useful digraphs {{{2 -if has("digraphs") - digraph ., 8230 " ellipsis (…) -endif - -" What does this do? {{{2 -if has("eval") - " Work out include guard text - fun! IncludeGuardText() - let l:p = substitute(substitute(getcwd(), "/trunk", "", ""), '^.*/', "", "") - let l:t = substitute(expand("%"), "[./]", "_", "g") - return substitute(toupper(l:p . "_GUARD_" . l:t), "-", "_", "g") - endfun - - " Make include guards - fun! MakeIncludeGuards() - norm gg - /^$/ - norm 2O - call setline(line("."), "#ifndef " . IncludeGuardText()) - norm o - call setline(line("."), "#define " . IncludeGuardText() . " 1") - norm G - norm o - call setline(line("."), "#endif") - endfun - noremap ig :call MakeIncludeGuards() -endif - -" javascript folding {{{2 -if has("eval") - function! JavaScriptFold() - setl foldmethod=syntax - setl foldlevelstart=1 - syn region foldBraces start=/{/ end=/}/ transparent fold keepend extend - - function! FoldText() - return substitute(getline(v:foldstart), '{.*', '{...}', '') - endfunction - setl foldtext=FoldText() - endfunction - au FileType javascript call JavaScriptFold() - au FileType javascript setl fen -endif - -" fast buffer switching {{{2 -if v:version >= 700 && has("eval") - let g:switch_header_map = { - \ 'cc': 'hh', - \ 'hh': 'cc', - \ 'c': 'h', - \ 'h': 'c', - \ 'cpp': 'hpp', - \ 'hpp': 'cpp' } - - fun! SwitchTo(f, split) abort - if ! filereadable(a:f) - echoerr "File '" . a:f . "' does not exist" - else - if a:split - new - endif - if 0 != bufexists(a:f) - exec ':buffer ' . bufnr(a:f) - else - exec ':edit ' . a:f - endif - endif - endfun - - fun! SwitchHeader(split) abort - let filename = expand("%:p:r") - let suffix = expand("%:p:e") - if suffix == '' - echoerr "Cannot determine header file (no suffix)" - return - endif - - let new_suffix = g:switch_header_map[suffix] - if new_suffix == '' - echoerr "Don't know how to find the header (suffix is " . suffix . ")" - return - end - - call SwitchTo(filename . '.' . new_suffix, a:split) - endfun - - fun! SwitchTest(split) abort - let filename = expand("%:p:r") - let suffix = expand("%:p:e") - if -1 != match(filename, '_TEST$') - let new_filename = substitute(filename, '_TEST$', '.' . suffix, '') - else - let new_filename = filename . '_TEST.' . suffix - end - call SwitchTo(new_filename, a:split) - endfun - - fun! SwitchMakefile(split) abort - let dirname = expand("%:p:h") - if filereadable(dirname . "/Makefile.am.m4") - call SwitchTo(dirname . "/Makefile.am.m4", a:split) - elseif filereadable(dirname . "/Makefile.am") - call SwitchTo(dirname . "/Makefile.am", a:split) - else - call SwitchTo(dirname . "/Makefile", a:split) - endif - endfun - - noremap sh :call SwitchHeader(0) - noremap st :call SwitchTest(0) - noremap sk :call SwitchMakefile(0) - noremap ssh :call SwitchHeader(1) - noremap sst :call SwitchTest(1) - noremap ssk :call SwitchMakefile(1) -endif - -" super i_c-y / i_c-e {{{2 -if v:version >= 700 && has("eval") - fun! SuperYank(offset) - let l:cursor_pos = col(".") - let l:this_line = line(".") - let l:source_line = l:this_line + a:offset - let l:this_line_text = getline(l:this_line) - let l:source_line_text = getline(l:source_line) - let l:add_text = "" - - let l:motion = "" . nr2char(getchar()) - if -1 != match(l:motion, '\d') - let l:count = 0 - while -1 != match(l:motion, '\d') - let l:count = l:count * 10 + l:motion - let l:motion = "" . nr2char(getchar()) - endwhile - else - let l:count = 1 - endif - - if l:motion == "$" - let l:add_text = strpart(l:source_line_text, l:cursor_pos - 1) - elseif l:motion == "w" - let l:add_text = strpart(l:source_line_text, l:cursor_pos - 1) - let l:add_text = substitute(l:add_text, - \ '^\(\s*\%(\S\+\s*\)\{,' . l:count . '}\)\?.*', '\1', '') - elseif l:motion == "f" || l:motion == "t" - let l:add_text = strpart(l:source_line_text, l:cursor_pos - 1) - let l:char = nr2char(getchar()) - let l:pos = matchend(l:add_text, - \ '^\%([^' . l:char . ']\{-}' . l:char . '\)\{' . l:count . '}') - if -1 != l:pos - let l:add_text = strpart(l:add_text, 0, l:motion == "f" ? l:pos : l:pos - 1) - else - let l:add_text = '' - endif - else - echo "Unknown motion: " . l:motion - endif - - if l:add_text != "" - let l:new_text = strpart(l:this_line_text, 0, l:cursor_pos - 1) . - \ l:add_text . strpart(l:this_line_text, l:cursor_pos - 1) - call setline(l:this_line, l:new_text) - call cursor(l:this_line, l:cursor_pos + strlen(l:add_text)) - endif - endfun - - "inoremap y :call SuperYank(-1) - "inoremap e :call SuperYank(1) -endif - -" tab completion {{{2 -if has("eval") - function! CleverTab() - if strpart(getline('.'), 0, col('.') - 1) =~ '^\s*$' - return "\" - else - return "\" - endif - endfun - inoremap =CleverTab() - inoremap -endif - -" ^n Show number and fold columns in windows {{{2 -if has("eval") - function! FoldNumbers() - " If we're in a wide window, enable line numbers. - "if winwidth(0) >= 76 " 72 + 4, or should I use tw? - " Add folds, or cycle through number schemes - if &foldlevel < 99 && &foldenable && &foldcolumn == 0 - setlocal foldcolumn=1 - elseif (&foldlevel == 99 || ! &foldenable) && &foldcolumn != 0 - setlocal foldcolumn=0 - elseif ! &rnu && ! &nu - setlocal relativenumber - elseif &rnu - setlocal number - setlocal norelativenumber - elseif &nu - setlocal nonumber - endif - "else - " setlocal norelativenumber - " setlocal nonumber - " setlocal foldcolumn=0 - "endif - endfun - "autocmd WinEnter,BufWinEnter,BufNew * :call FoldNumbers() - noremap :call FoldNumbers() -endif - -" }}}1 - -"----------------------------------------------------------------------- -" abbreviations -"----------------------------------------------------------------------- -" {{{1 - -if has("eval") && has("autocmd") - fun! abbrev_cpp() - iabbrev raise throw - iabbrev jci const_iterator - iabbrev jcl class - iabbrev jco const - iabbrev jdb \bug - iabbrev jde \throws - iabbrev jdf /** \file/ - iabbrev jdg \ingroup - iabbrev jdn /** \namespace/ - iabbrev jdp \param - iabbrev jdt \test - iabbrev jdx /**/ - iabbrev jit iterator - iabbrev jns namespace - iabbrev jpr protected - iabbrev jpu public - iabbrev jpv private - iabbrev jsl std::list - iabbrev jsm std::map - iabbrev jss std::string - iabbrev jsv std::vector - iabbrev jty typedef - iabbrev jun using namespace - iabbrev jvi virtual - endfun - - augroup abbreviations - autocmd! - autocmd FileType cpp :call abbrev_cpp() - augroup END -endif -" NB: Need more of these for more than cpp - -" }}}1 - -"----------------------------------------------------------------------- -" special less.sh and man modes -"----------------------------------------------------------------------- -" {{{1 - -if has("eval") && has("autocmd") - fun! check_pager_mode() - if exists("g:loaded_less") && g:loaded_less - " we're in vimpager / less.sh / man mode - set laststatus=0 - set ruler - set foldmethod=manual - set foldlevel=99 - set nolist - endif - endfun - autocmd VimEnter * :call check_pager_mode() -endif - -" }}}1 - -"----------------------------------------------------------------------- -" plugin / script / app settings -"----------------------------------------------------------------------- -" {{{1 - -if has("eval") - " Perl specific options - let perl_include_pod=1 - let perl_fold=1 - let perl_fold_blocks=1 - - " Vim specific options - let g:vimsyntax_noerror=1 - let g:vimembedscript=0 - - " c specific options - let g:c_gnu=1 - let g:c_no_curly_error=1 - - " eruby options - "au Syntax * hi link erubyRubyDelim Directory - - " ruby options - let ruby_operators=1 - let ruby_space_errors=1 - - " php specific options - let php_sql_query=1 - let php_htmlInStrings=1 - - " Settings for taglist.vim - let Tlist_Use_Right_Window=1 - let Tlist_Auto_Open=0 - let Tlist_Enable_Fold_Column=0 - let Tlist_Compact_Format=1 - let Tlist_WinWidth=28 - let Tlist_Exit_OnlyWindow=1 - let Tlist_File_Fold_Auto_Close=1 - let Tlist_Inc_Winwidth=0 - "nnoremap :Tlist - - " Settings minibufexpl.vim - "let g:miniBufExplModSelTarget = 1 - "let g:miniBufExplWinFixHeight = 1 - "let g:miniBufExplWinMaxSize = 1 - " let g:miniBufExplForceSyntaxEnable = 1 - - " Settings for showmarks.vim - if has("gui_running") - let g:showmarks_enable=1 - else - let g:showmarks_enable=0 - let loaded_showmarks=1 - endif - - let g:showmarks_include="abcdefghijklmnopqrstuvwxyz" - "let g:showmarks_include="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" - - if has("autocmd") - fun! FixShowmarksColours() - if has('gui') - hi ShowMarksHLl gui=bold guifg=#a0a0e0 guibg=#2e2e2e - hi ShowMarksHLu gui=none guifg=#a0a0e0 guibg=#2e2e2e - hi ShowMarksHLo gui=none guifg=#a0a0e0 guibg=#2e2e2e - hi ShowMarksHLm gui=none guifg=#a0a0e0 guibg=#2e2e2e - hi SignColumn gui=none guifg=#f0f0f8 guibg=#2e2e2e - endif - endfun - if v:version >= 700 - autocmd VimEnter,Syntax,ColorScheme * call FixShowmarksColours() - else - autocmd VimEnter,Syntax * call FixShowmarksColours() - endif - endif - - " Settings for explorer.vim - let g:explHideFiles='^\.' - - " Settings for netrw - let g:netrw_list_hide='^\.,\~$' - - " Settings for :TOhtml - let html_number_lines=1 - let html_use_css=1 - let use_xhtml=1 - - " cscope settings - if has('cscope') && filereadable("/usr/bin/cscope") - set csto=0 - set cscopetag - set nocsverb - if filereadable("cscope.out") - cs add cscope.out - endif - set csverb - - let x = "sgctefd" - while x != "" - let y = strpart(x, 0, 1) | let x = strpart(x, 1) - exec "nmap " . y . " :cscope find " . y . - \ " =expand(\"\\")" - exec "nmap " . y . " :scscope find " . y . - \ " =expand(\"\\")" - endwhile - nnoremap i :cscope find i ^=expand("") - nnoremap i :scscope find i ^=expand("") - endif -endif - -" Vundle -filetype off " Off for vundle -set rtp+=~/.vim/bundle/vundle -call vundle#rc() -Bundle 'gmarik/vundle' -Bundle 'Align' -Bundle 'FuzzyFinder' -Bundle 'Gundo' -Bundle 'L9' -Bundle 'ShowMarks' -Bundle 'Tabular' -Bundle 'The-NERD-tree' -Bundle 'ctrlp.vim' -Bundle 'gnupg' -Bundle 'tpope/vim-markdown' -Bundle 'hunner/vim-puppet' -Bundle 'hunner/vim-plist' -Bundle 'vim-coffee-script' -Bundle 'syntastic' -if v:version >= 703 && has("patch584") - Bundle 'YouCompleteMe' -endif -Bundle 'rking/ag' - -filetype plugin indent on -" Brief help -" :BundleList - list configured bundles -" :BundleInstall(!) - install(update) bundles -" :BundleSearch(!) foo - search(or refresh cache first) for foo -" :BundleClean(!) - confirm(or auto-approve) removal of unused bundles -" -" see :h vundle for more details or wiki for FAQ -" NOTE: comments after Bundle command are not allowed.. - -" CtrlP -set wildignore+=*/tmp/*,*.so,*.swp,*.zip " Linux/MacOSX -set wildignore+=tmp\*,*.swp,*.zip,*.exe " Windows -set wildignore+=*/.git/*,*/.hg/*,*/.svn/* -let g:ctrlp_working_path_mode = 1 -let g:ctrlp_switch_buffer = 1 -let g:ctrlp_custom_ignore = '\.git$\|\.hg$\|\.svn$' - -" GuiTabLabel -function! GuiTabLabel() - let label = '' - let bufnrlist = tabpagebuflist(v:lnum) - - " Add '+' if one of the buffers in the tab page is modified - for bufnr in bufnrlist - if getbufvar(bufnr, "&modified") - let label = '+' - break - endif - endfor - - " Append the number of windows in the tab page if more than one - let wincount = tabpagewinnr(v:lnum, '$') - if wincount > 1 - let label .= wincount - endif - if label != '' - let label .= ' ' - endif - - " Append the buffer name - return label . bufname(bufnrlist[tabpagewinnr(v:lnum) - 1]) -endfunction - -set guitablabel=%{GuiTabLabel()} - -" }}}1 - -if v:version >= 703 - "----------------------------------------------------------------------- - " Default Fuf shortcuts Dvorakized from :help fuf-vimrc-example - "----------------------------------------------------------------------- - " {{{1 - "let g:fuf_modesDisable = [] - let g:fuf_modesDisable = ['mrucmd'] - "let g:fuf_mrufile_maxItem = 400 - "let g:fuf_mrucmd_maxItem = 400 - "nmap sh :FufBuffer - nmap st :FufFileWithCurrentBufferDir - nmap sT :FufFileWithFullCwd - nmap s :FufFile - nmap sn :FufCoverageFileChange - nmap sN :FufCoverageFileChange - "nmap s :FufCoverageFileRegister - nmap sd :FufDirWithCurrentBufferDir - nmap sD :FufDirWithFullCwd - nmap s :FufDir - nmap sb :FufMruFile - nmap sB :FufMruFileInCwd - " nmap sm :FufMruCmd - " nmap su :FufBookmarkFile - " nmap s :FufBookmarkFileAdd - " vmap s :FufBookmarkFileAddAsSelectedText - " nmap si :FufBookmarkDir - " nmap s :FufBookmarkDirAdd - "nmap sy :FufTag - "nmap sY :FufTag! - " nmap s :FufTagWithCursorWord! - " nmap s, :FufBufferTag - " nmap s< :FufBufferTag! - " vmap s, :FufBufferTagWithSelectedText! - " vmap s< :FufBufferTagWithSelectedText - " nmap s} :FufBufferTagWithCursorWord! - " nmap s. :FufBufferTagAll - " nmap s> :FufBufferTagAll! - " vmap s. :FufBufferTagAllWithSelectedText! - " vmap s> :FufBufferTagAllWithSelectedText - " nmap s] :FufBufferTagAllWithCursorWord! - " nmap sg :FufTaggedFile - " nmap sG :FufTaggedFile! - " nmap so :FufJumpList - " nmap sp :FufChangeList - " nmap sq :FufQuickfix - "nmap sf :FufLine - "nmap sx :FufHelp - " nmap se :FufEditDataFile - " nmap sr :FufRenewCache -endif - -" }}}1 - -"----------------------------------------------------------------------- -" final commands (clean this cruft up -- don't add more here) -"----------------------------------------------------------------------- -" {{{1 - -" mio -"let Tlist_Ctags_Cmd="/usr/bin/exuberant-ctags" -" plegado ident para python -au FileType python set foldmethod=indent -" plegado syntax para sgml,htmls,xml y xsl -au Filetype html,xml,xsl,sgml ",docbook -" explorador vertical -let g:explVertical=1 -" define leader como = -"let mapleader = "=" - -" Terminal companability -map -nmap [14~ -nmap [23~ -nmap [24~ -nmap [25~ -nmap [26~ -nmap [28~ -nmap [29~ -nmap [31~ -nmap [32~ -nmap [33~ -nmap [34~ - -map -map -map -map -map -map -map -map -map :vsplit ~/.vim/ref_full.vim -map :11vsplit ~/.vim/ref.vim -"map :Sexplore $HOME -map :2split ~/.vim/fun_ref.vim -noremap :set rnu! -noremap :set nu! -noremap gg=G2 -noremap ggg?G2 -noremap :set encoding=utf-8:set fenc=utf-8 -noremap :set encoding=iso8859-15:set fenc=iso8859-15 -"map :SpellProposeAlternatives -"map :SpellCheck -"map :let spell_language_list = "english,spanish" -"nnoremap :Tlist -"nnoremap :TlistSync -nnoremap :noh -map !!date -map :TC -nnoremap :X :x -nnoremap :W :w -nnoremap :Q :q -nnoremap :B :b -noremap rg :color relaxedgreen -noremap ip :color inkpot -noremap ir :color ir_black -noremap sm :color smyck -noremap mv :color macvim:set background=light -if v:version >= 703 - noremap f :FufFileWithCurrentBufferDir - noremap F :FufFile - noremap v :FufCoverageFile - noremap b :FufBuffer - noremap c :FufDirWithFullCwd - noremap u :FufRenewCache - noremap w :bdelete - noremap :FufHelp - noremap pf :CtrlPCurFile - noremap pF :CtrlPCurWD - noremap pv :CtrlPCurWD - noremap pb :CtrlPBuffer - noremap pc :CtrlPChange -elseif v:version >= 700 - noremap f :CtrlPCurFile - noremap F :CtrlPCurWD - noremap v :CtrlPCurWD - noremap b :CtrlPBuffer - noremap c :CtrlPChange -endif -noremap :syntax sync fromstart -inoremap :syntax sync fromstart -"syntax sync minlines=200 - -" Gundo - Vim's undo tree for humans -nnoremap :GundoToggle - -" NERD tree. Boo! -"nnoremap :NERDTreeToggle - -" Javac -"set makeprg=javac\ % -"set errorformat=%A%f:%l:\ %m,%-Z%p^,%-C%.%# - -" Spell -"let spell_executable = "aspell" -"let spell_language_list = "spanish,english" -set spelllang=en_us,eo - -" Comentiffy -let g:EnhCommentifyMultiPartBlocks = 'yes' -let g:EnhCommentifyAlignRight = 'yes' -" let g:EnhCommentifyRespectIndent = 'Yes' -let g:EnhCommentifyPretty = 'Yes' -" let g:EnhCommentifyUserBindings = 'yes' - -" turn off any existing search -if has("autocmd") - au VimEnter * nohls -endif - -" }}}1 - -"----------------------------------------------------------------------- -"ii irc stuff -"----------------------------------------------------------------------- -" {{{1 -" map c1 :.w! >> ~/irc/irc.cat.pdx.edu/indd -" map c2 :.w! >> ~/irc/irc.cat.pdx.edu/\#hack/indd -" map c3 :.w! >> ~/irc/irc.cat.pdx.edu/\#meow/indd -" map c4 :.w! >> ~/irc/irc.cat.pdx.edu/\#rtttoee/indd -" map c5 :.w! >> ~/irc/irc.cat.pdx.edu/\#robots/indd -" map c17 :.w! >> ~/irc/irc.cat.pdx.edu/\#cschat/indd -" imap /me ACTION - -" }}}1 - -"----------------------------------------------------------------------- -" vim: set sw=2 sts=2 et tw=72 fdm=marker: diff --git a/.rdebugrc b/.rdebugrc deleted file mode 100644 index d74c5f1..0000000 --- a/.rdebugrc +++ /dev/null @@ -1,3 +0,0 @@ -set autolist -set autoeval -set autoreload diff --git a/.rspec b/.rspec deleted file mode 100644 index 4e1e0d2..0000000 --- a/.rspec +++ /dev/null @@ -1 +0,0 @@ ---color diff --git a/.skhdrc b/.skhdrc deleted file mode 100644 index b56b619..0000000 --- a/.skhdrc +++ /dev/null @@ -1,613 +0,0 @@ -#### Default contents preserved for future reading -#### # NOTE(koekeishiya): A list of all built-in modifier and literal keywords can -#### # be found at https://github.com/koekeishiya/skhd/issues/1 -#### # -#### # A hotkey is written according to the following rules: -#### # -#### # hotkey = '<' | -#### # -#### # mode = 'name of mode' | ',' -#### # -#### # action = '[' ']' | '->' '[' ']' -#### # ':' | '->' ':' -#### # ';' | '->' ';' -#### # -#### # keysym = '-' | -#### # -#### # mod = 'modifier keyword' | '+' -#### # -#### # key = | -#### # -#### # literal = 'single letter or built-in keyword' -#### # -#### # keycode = 'apple keyboard kVK_ values (0x3C)' -#### # -#### # proc_map_lst = * -#### # -#### # proc_map = ':' -#### # -#### # string = '"' 'sequence of characters' '"' -#### # -#### # command = command is executed through '$SHELL -c' and -#### # follows valid shell syntax. if the $SHELL environment -#### # variable is not set, it will default to '/bin/bash'. -#### # when bash is used, the ';' delimeter can be specified -#### # to chain commands. -#### # -#### # to allow a command to extend into multiple lines, -#### # prepend '\' at the end of the previous line. -#### # -#### # an EOL character signifies the end of the bind. -#### # -#### # -> = keypress is not consumed by skhd -#### # -#### # NOTE(koekeishiya): A mode is declared according to the following rules: -#### # -#### # mode_decl = '::' '@' ':' | '::' ':' | -#### # '::' '@' | '::' -#### # -#### # name = desired name for this mode, -#### # -#### # @ = capture keypresses regardless of being bound to an action -#### # -#### # command = command is executed through '$SHELL -c' and -#### # follows valid shell syntax. if the $SHELL environment -#### # variable is not set, it will default to '/bin/bash'. -#### # when bash is used, the ';' delimeter can be specified -#### # to chain commands. -#### # -#### # to allow a command to extend into multiple lines, -#### # prepend '\' at the end of the previous line. -#### # -#### # an EOL character signifies the end of the bind. -#### -#### # add an on_enter command to the default mode -#### # :: default : chunkc border::color 0xff775759 -#### # -#### # defines a new mode 'test' with an on_enter command, that captures keypresses -#### # :: test @ : chunkc border::color 0xff24ccaa -#### # -#### # from 'default' mode, activate mode 'test' -#### # cmd - x ; test -#### # -#### # from 'test' mode, activate mode 'default' -#### # test < cmd - x ; default -#### # -#### # launch a new terminal instance when in either 'default' or 'test' mode -#### # default, test < cmd - return : open -na /Applications/Terminal.app -#### -#### # application specific bindings -#### # -#### # cmd - n [ -#### # "kitty" : echo "hello kitty" -#### # "qutebrowser" : echo "hello qutebrowser" -#### # "finder" : false -#### # ] -#### -#### # open terminal, blazingly fast compared to iTerm/Hyper -#### cmd - return : /Applications/Kitty.app/Contents/MacOS/kitty --single-instance -d ~ -#### -#### # open qutebrowser -#### cmd + shift - return : ~/Scripts/qtb.sh -#### -#### # open mpv -#### cmd - m : open -na /Applications/mpv.app $(pbpaste) -#### -#### # close focused window -#### alt - w : chunkc tiling::window --close -#### -#### # focus window -#### alt - h : chunkc tiling::window --focus west -#### alt - j : chunkc tiling::window --focus south -#### alt - k : chunkc tiling::window --focus north -#### alt - l : chunkc tiling::window --focus east -#### -#### cmd - j : chunkc tiling::window --focus prev -#### cmd - k : chunkc tiling::window --focus next -#### -#### # equalize size of windows -#### shift + alt - 0 : chunkc tiling::desktop --equalize -#### -#### # swap window -#### shift + alt - h : chunkc tiling::window --swap west -#### shift + alt - j : chunkc tiling::window --swap south -#### shift + alt - k : chunkc tiling::window --swap north -#### shift + alt - l : chunkc tiling::window --swap east -#### -#### # move window -#### shift + cmd - h : chunkc tiling::window --warp west -#### shift + cmd - j : chunkc tiling::window --warp south -#### shift + cmd - k : chunkc tiling::window --warp north -#### shift + cmd - l : chunkc tiling::window --warp east -#### -#### # make floating window fill screen -#### shift + alt - up : chunkc tiling::window --grid-layout 1:1:0:0:1:1 -#### -#### # make floating window fill left-half of screen -#### shift + alt - left : chunkc tiling::window --grid-layout 1:2:0:0:1:1 -#### -#### # make floating window fill right-half of screen -#### shift + alt - right : chunkc tiling::window --grid-layout 1:2:1:0:1:1 -#### -#### # create desktop, move window and follow focus -#### shift + cmd - n : chunkc tiling::desktop --create;\ -#### id=$(chunkc tiling::query --desktops-for-monitor $(chunkc tiling::query --monitor-for-desktop $(chunkc tiling::query --desktop id)));\ -#### chunkc tiling::window --send-to-desktop $(echo ${id##* });\ -#### chunkc tiling::desktop --focus $(echo ${id##* }) -#### -#### # create desktop and follow focus -#### cmd + alt - n : chunkc tiling::desktop --create;\ -#### id=$(chunkc tiling::query --desktops-for-monitor $(chunkc tiling::query --monitor-for-desktop $(chunkc tiling::query --desktop id)));\ -#### chunkc tiling::desktop --focus $(echo ${id##* }) -#### # destroy desktop -#### cmd + alt - w : chunkc tiling::desktop --annihilate -#### -#### # fast focus desktop -#### cmd + alt - x : chunkc tiling::desktop --focus $(chunkc get _last_active_desktop) -#### cmd + alt - z : chunkc tiling::desktop --focus prev -#### cmd + alt - c : chunkc tiling::desktop --focus next -#### cmd + alt - 1 : chunkc tiling::desktop --focus 1 -#### cmd + alt - 2 : chunkc tiling::desktop --focus 2 -#### cmd + alt - 3 : chunkc tiling::desktop --focus 3 -#### cmd + alt - 4 : chunkc tiling::desktop --focus 4 -#### cmd + alt - 5 : chunkc tiling::desktop --focus 5 -#### cmd + alt - 6 : chunkc tiling::desktop --focus 6 -#### # cmd + alt - 7 : chunkc tiling::desktop --focus 7 -#### -#### # send window to desktop -#### shift + alt - x : chunkc tiling::window --send-to-desktop $(chunkc get _last_active_desktop) -#### shift + alt - z : chunkc tiling::window --send-to-desktop prev -#### shift + alt - c : chunkc tiling::window --send-to-desktop next -#### shift + alt - 1 : chunkc tiling::window --send-to-desktop 1 -#### shift + alt - 2 : chunkc tiling::window --send-to-desktop 2 -#### shift + alt - 3 : chunkc tiling::window --send-to-desktop 3 -#### shift + alt - 4 : chunkc tiling::window --send-to-desktop 4 -#### shift + alt - 5 : chunkc tiling::window --send-to-desktop 5 -#### shift + alt - 6 : chunkc tiling::window --send-to-desktop 6 -#### # shift + alt - 7 : chunkc tiling::window --send-to-desktop 7 -#### -#### # send window to desktop and follow focus -#### shift + cmd - x : chunkc tiling::window --send-to-desktop $(chunkc get _last_active_desktop); chunkc tiling::desktop --focus $(chunkc get _last_active_desktop) -#### shift + cmd - z : chunkc tiling::window --send-to-desktop prev; chunkc tiling::desktop --focus prev -#### shift + cmd - c : chunkc tiling::window --send-to-desktop next; chunkc tiling::desktop --focus next -#### shift + cmd - 1 : chunkc tiling::window --send-to-desktop 1; chunkc tiling::desktop --focus 1 -#### shift + cmd - 2 : chunkc tiling::window --send-to-desktop 2; chunkc tiling::desktop --focus 2 -#### shift + cmd - 3 : chunkc tiling::window --send-to-desktop 3; chunkc tiling::desktop --focus 3 -#### shift + cmd - 4 : chunkc tiling::window --send-to-desktop 4; chunkc tiling::desktop --focus 4 -#### shift + cmd - 5 : chunkc tiling::window --send-to-desktop 5; chunkc tiling::desktop --focus 5 -#### shift + cmd - 6 : chunkc tiling::window --send-to-desktop 6; chunkc tiling::desktop --focus 6 -#### # shift + cmd - 7 : chunkc tiling::window --send-to-desktop 7; chunkc tiling::desktop --focus 7 -#### -#### # focus monitor -#### ctrl + alt - z : chunkc tiling::monitor -f prev -#### ctrl + alt - c : chunkc tiling::monitor -f next -#### ctrl + alt - 1 : chunkc tiling::monitor -f 1 -#### ctrl + alt - 2 : chunkc tiling::monitor -f 2 -#### ctrl + alt - 3 : chunkc tiling::monitor -f 3 -#### -#### # send window to monitor and follow focus -#### ctrl + cmd - z : chunkc tiling::window --send-to-monitor prev; chunkc tiling::monitor -f prev -#### ctrl + cmd - c : chunkc tiling::window --send-to-monitor next; chunkc tiling::monitor -f next -#### ctrl + cmd - 1 : chunkc tiling::window --send-to-monitor 1; chunkc tiling::monitor -f 1 -#### ctrl + cmd - 2 : chunkc tiling::window --send-to-monitor 2; chunkc tiling::monitor -f 2 -#### ctrl + cmd - 3 : chunkc tiling::window --send-to-monitor 3; chunkc tiling::monitor -f 3 -#### -#### # increase region size -#### shift + alt - a : chunkc tiling::window --use-temporary-ratio 0.1 --adjust-window-edge west -#### shift + alt - s : chunkc tiling::window --use-temporary-ratio 0.1 --adjust-window-edge south -#### shift + alt - w : chunkc tiling::window --use-temporary-ratio 0.1 --adjust-window-edge north -#### shift + alt - d : chunkc tiling::window --use-temporary-ratio 0.1 --adjust-window-edge east -#### -#### # decrease region size -#### shift + cmd - a : chunkc tiling::window --use-temporary-ratio -0.1 --adjust-window-edge west -#### shift + cmd - s : chunkc tiling::window --use-temporary-ratio -0.1 --adjust-window-edge south -#### shift + cmd - w : chunkc tiling::window --use-temporary-ratio -0.1 --adjust-window-edge north -#### shift + cmd - d : chunkc tiling::window --use-temporary-ratio -0.1 --adjust-window-edge east -#### -#### # set insertion point for focused container -#### ctrl + alt - f : chunkc tiling::window --use-insertion-point cancel -#### ctrl + alt - h : chunkc tiling::window --use-insertion-point west -#### ctrl + alt - j : chunkc tiling::window --use-insertion-point south -#### ctrl + alt - k : chunkc tiling::window --use-insertion-point north -#### ctrl + alt - l : chunkc tiling::window --use-insertion-point east -#### -#### # rotate tree -#### alt - r : chunkc tiling::desktop --rotate 90 -#### -#### # mirror tree y-axis -#### alt - y : chunkc tiling::desktop --mirror vertical -#### -#### # mirror tree x-axis -#### alt - x : chunkc tiling::desktop --mirror horizontal -#### -#### # toggle desktop offset -#### alt - a : chunkc tiling::desktop --toggle offset -#### -#### # toggle window fullscreen -#### alt - f : chunkc tiling::window --toggle fullscreen -#### -#### # toggle window native fullscreen -#### shift + alt - f : chunkc tiling::window --toggle native-fullscreen -#### -#### # toggle window parent zoom -#### alt - d : chunkc tiling::window --toggle parent -#### -#### # toggle window split type -#### alt - e : chunkc tiling::window --toggle split -#### -#### # toggle window fade -#### alt - q : chunkc tiling::window --toggle fade -#### -#### # float / unfloat window and center on screen -#### alt - t : chunkc tiling::window --toggle float;\ -#### chunkc tiling::window --grid-layout 4:4:1:1:2:2 -#### -#### # toggle sticky -#### alt - s : chunkc tiling::window --toggle sticky -#### -#### # toggle sticky, float and resize to picture-in-picture size -#### alt - p : chunkc tiling::window --toggle sticky;\ -#### chunkc tiling::window --grid-layout 5:5:4:0:1:1 -#### -#### # float next window to be tiled -#### shift + alt - t : chunkc set window_float_next 1 -#### -#### # change layout of desktop -#### ctrl + alt - a : chunkc tiling::desktop --layout bsp -#### ctrl + alt - s : chunkc tiling::desktop --layout monocle -#### ctrl + alt - d : chunkc tiling::desktop --layout float -#### -#### ctrl + alt - w : chunkc tiling::desktop --deserialize ~/.chunkwm_layouts/dev_1 - -# set border color for different modes -:: default : yabai -m config active_window_border_color 0xddbdd322 -:: switcher @ : yabai -m config active_window_border_color 0xddd5c4a1 -:: ytd @ : yabai -m config active_window_border_color 0xddd75f5f -:: move @ : yabai -m config active_window_border_color 0xdd458588 -:: tree @ : yabai -m config active_window_border_color 0xddfabd2f -:: spacey @ : yabai -m config active_window_border_color 0xddb16286 -:: info @ : yabai -m config active_window_border_color 0xddcd950c - - -# 0x2A is \ -# toggle between modes -ctrl - 0x2A ; switcher -switcher < ctrl - 0x2A ; default -ytd < ctrl - 0x2A ; default -move < ctrl - 0x2A ; default -spacey < ctrl - 0x2A ; default -tree < ctrl - 0x2A ; default -info < ctrl - 0x2A ; default - -switcher < y ; ytd -switcher < m ; move -switcher < s ; spacey -switcher < t ; tree -switcher < i ; info - -#cmd - return : osascript /Users/hunner/local/bin/terminal.scpt -#cmd - return : /Applications/Kitty.app/Contents/MacOS/kitty --single-instance -d ~ -#cmd - return : osascript /Users/hunner/local/bin/iterm_window.scpt -cmd + shift - return : ~/local/bin/open_iterm.sh -cmd + ctrl + alt - 9 : osascript /Users/hunner/local/bin/grayscale.scpt - -cmd + alt - h : yabai -m window --focus west -cmd + alt - j : yabai -m window --focus south -cmd + alt - k : yabai -m window --focus north -cmd + alt - l : yabai -m window --focus east - -cmd + alt + shift - h : yabai -m window --warp west -cmd + alt + shift - j : yabai -m window --warp south -cmd + alt + shift - k : yabai -m window --warp north -cmd + alt + shift - l : yabai -m window --warp east - -cmd + alt - 1 : yabai -m space --focus 1 -cmd + alt - 2 : yabai -m space --focus 2 -cmd + alt - 3 : yabai -m space --focus 3 -cmd + alt - 4 : yabai -m space --focus 4 -cmd + alt - 5 : yabai -m space --focus 5 -cmd + alt - 6 : yabai -m space --focus 6 -cmd + alt - 7 : yabai -m space --focus 7 -cmd + alt - 8 : yabai -m space --focus 8 -cmd + alt - 9 : yabai -m space --focus 9 -cmd + alt - 0 : yabai -m space --focus 10 - -cmd + alt + shift - 1 : yabai -m window --space 1 -cmd + alt + shift - 2 : yabai -m window --space 2 -cmd + alt + shift - 3 : yabai -m window --space 3 -cmd + alt + shift - 4 : yabai -m window --space 4 -cmd + alt + shift - 5 : yabai -m window --space 5 -cmd + alt + shift - 6 : yabai -m window --space 6 -cmd + alt + shift - 7 : yabai -m window --space 7 -cmd + alt + shift - 8 : yabai -m window --space 8 -cmd + alt + shift - 9 : yabai -m window --space 9 -cmd + alt + shift - 0 : yabai -m window --space 10 - -# Focus display -cmd + alt - o : yabai -m display --focus 2 -cmd + alt - e : yabai -m display --focus 1 -cmd + alt - u : yabai -m display --focus 3 - -# Move window to display -cmd + alt + shift - o : yabai -m window --display 2 -cmd + alt + shift - e : yabai -m window --display 1 -cmd + alt + shift - u : yabai -m window --display 3 - -# Move space to display -cmd + alt + shift + ctrl - o : yabai -m space --display 2 -cmd + alt + shift + ctrl - e : yabai -m space --display 1 -cmd + alt + shift + ctrl - u : yabai -m space --display 3 - -# Focus spaces -cmd + alt - left : yabai -m space --focus prev -cmd + alt - right : yabai -m space --focus next - -# Swap spaces -cmd + alt + shift - 1 : yabai -m space --focus 1; yabai -m space --swap 1 -cmd + alt + shift - 2 : yabai -m space --focus 2; yabai -m space --swap 2 -cmd + alt + shift - 3 : yabai -m space --focus 3; yabai -m space --swap 3 -cmd + alt + shift - 4 : yabai -m space --focus 4; yabai -m space --swap 4 -cmd + alt + shift - 5 : yabai -m space --focus 5; yabai -m space --swap 5 -cmd + alt + shift - 6 : yabai -m space --focus 6; yabai -m space --swap 6 -cmd + alt + shift - 7 : yabai -m space --focus 7; yabai -m space --swap 7 -cmd + alt + shift - 8 : yabai -m space --focus 8; yabai -m space --swap 8 -cmd + alt + shift - 9 : yabai -m space --focus 9; yabai -m space --swap 9 -cmd + alt + shift - 0 : yabai -m space --focus 10; yabai -m space --swap 10 - -# Reorder spaces -cmd + alt + shift - left : yabai -m space --move prev -cmd + alt + shift - right : yabai -m space --move next - -## ytd mode -#ytd - x : ytc play;\ -# khd -e "mode activate default" -# -#ytd - s : ytc mkfav;\ -# khd -e "mode activate default" -# -## 0x32 == < -#ytd - 0x32 : ytc fav -#ytd - z : ytc prev -#ytd - c : ytc next -#ytd - v : ytc stop -#ytd - a : ytc volup -#ytd - d : ytc voldown -#ytd - right : ytc seekfw -#ytd - left : ytc seekbk - -# Swap windows around -move < h : yabai -m window --swap west -move < j : yabai -m window --swap south -move < k : yabai -m window --swap north -move < l : yabai -m window --swap east - -# Move windows around -move < shift - h : yabai -m window --warp west -move < shift - j : yabai -m window --warp south -move < shift - k : yabai -m window --warp north -move < shift - l : yabai -m window --warp east - -# toggle window float -move < t : yabai -m window --toggle float;\ - yabai -m window --grid 4:4:1:1:2:2 - -# toggle window fullscreen -move < f : yabai -m window --toggle zoom-fullscreen - -# toggle window parent zoom -move < d : yabai -m window --toggle zoom-parent - -# toggle sticky, float and resize to picture-in-picture size -move < s : yabai -m window --toggle sticky;\ - yabai -m window --grid 5:5:4:0:1:1 - -# Change spacey mode -spacey < a : yabai -m space --layout bsp -spacey < s : yabai -m space --layout monocle -spacey < d : yabai -m space --layout float - -# Change padding -spacey < p : yabai -m space --padding inc -spacey < shift - p : yabai -m space --padding dec - -# Change gap -spacey < g : yabai -m space --gap inc -spacey < shift - g : yabai -m space --gap dec - -# toggle padding and gap -spacey < shift - a : yabai -m space --toggle padding; yabai -m space --toggle gap - -# from https://anuj-chandra.medium.com/using-i3-like-tiling-window-managers-in-macos-with-yabai-ebf0e002b992 -cmd + alt - space : yabai -m space --layout "$(yabai -m query --spaces --space | jq -r 'if .type == "bsp" then "stack" else "bsp" end')" - -# forward -cmd + alt - up : yabai -m query --windows --space \ - | jq -sre 'add | map(select(.minimized != 1)) | sort_by(.display, .frame.y, .frame.x, .id) | reverse | nth(index(map(select(."has-focus"))) - 1).id' \ - | xargs -I{} yabai -m window --focus {} - -# backward -cmd + alt - down: yabai -m query --windows --space \ - | jq -sre 'add | map(select(.minimized != 1)) | sort_by(.display, .frame.y, .frame.y, .id) | nth(index(map(select(."has-focus"))) - 1).id' \ - | xargs -I{} yabai -m window --focus {} - -#spacey < shift - x : kwmc spacey -g decrease horizontal -#spacey < shift - y : kwmc spacey -g decrease vertical - -# Increase window padding -#spacey < h : chunkc tiling::window --use-temporary-ratio 0.05 --adjust-window-edge west -#spacey < j : chunkc tiling::window --use-temporary-ratio 0.05 --adjust-window-edge south -#spacey < k : chunkc tiling::window --use-temporary-ratio 0.05 --adjust-window-edge south -#spacey < l : chunkc tiling::window --use-temporary-ratio 0.05 --adjust-window-edge south - -# Decrease window padding -#spacey < shift - h : chunkc tiling::window --use-temporary-ratio -0.05 --adjust-window-edge west -#spacey < shift - j : chunkc tiling::window --use-temporary-ratio -0.05 --adjust-window-edge south -#spacey < shift - k : chunkc tiling::window --use-temporary-ratio -0.05 --adjust-window-edge south -#spacey < shift - l : chunkc tiling::window --use-temporary-ratio -0.05 --adjust-window-edge south - - -# tree mode -#tree < f : chunkc tiling::window -z fullscreen -#tree < d : chunkc tiling::window -z parent -#tree < w : chunkc tiling::window -t focused -#tree < r : chunkc tiling::tree rotate 90 - -# And from yabai's skhdrc: -#### # open terminal -#### cmd - return : /Applications/Kitty.app/Contents/MacOS/kitty --single-instance -d ~ -#### -#### # focus window -#### alt - h : yabai -m window --focus west -#### alt - j : yabai -m window --focus south -#### alt - k : yabai -m window --focus north -#### alt - l : yabai -m window --focus east -#### -#### # swap window -#### shift + alt - h : yabai -m window --swap west -#### shift + alt - j : yabai -m window --swap south -#### shift + alt - k : yabai -m window --swap north -#### shift + alt - l : yabai -m window --swap east -#### -#### # move window -#### shift + cmd - h : yabai -m window --warp west -#### shift + cmd - j : yabai -m window --warp south -#### shift + cmd - k : yabai -m window --warp north -#### shift + cmd - l : yabai -m window --warp east -#### -#### # balance size of windows -#### shift + alt - 0 : yabai -m space --balance -#### -#### # make floating window fill screen -#### shift + alt - up : yabai -m window --grid 1:1:0:0:1:1 -#### -#### # make floating window fill left-half of screen -#### shift + alt - left : yabai -m window --grid 1:2:0:0:1:1 -#### -#### # make floating window fill right-half of screen -#### shift + alt - right : yabai -m window --grid 1:2:1:0:1:1 -#### -#### # create desktop, move window and follow focus -#### shift + cmd - n : yabai -m space --create;\ -#### id=$(yabai -m query --displays --display | grep "spaces");\ -#### yabai -m window --space $(echo ${id:10:${#id}-10});\ -#### yabai -m space --focus $(echo ${id:10:${#id}-10}) -#### -#### # create desktop and follow focus -#### cmd + alt - n : yabai -m space --create;\ -#### id=$(yabai -m query --displays --display | grep "spaces");\ -#### yabai -m space --focus $(echo ${id:10:${#id}-10}) -#### -#### # destroy desktop -#### cmd + alt - w : yabai -m space --destroy -#### -#### # fast focus desktop -#### cmd + alt - x : yabai -m space --focus recent -#### cmd + alt - z : yabai -m space --focus prev -#### cmd + alt - c : yabai -m space --focus next -#### cmd + alt - 1 : yabai -m space --focus 1 -#### cmd + alt - 2 : yabai -m space --focus 2 -#### cmd + alt - 3 : yabai -m space --focus 3 -#### cmd + alt - 4 : yabai -m space --focus 4 -#### cmd + alt - 5 : yabai -m space --focus 5 -#### cmd + alt - 6 : yabai -m space --focus 6 -#### cmd + alt - 7 : yabai -m space --focus 7 -#### cmd + alt - 8 : yabai -m space --focus 8 -#### cmd + alt - 9 : yabai -m space --focus 9 -#### cmd + alt - 0 : yabai -m space --focus 10 -#### -#### # send window to desktop and follow focus -#### shift + cmd - x : yabai -m window --space recent; yabai -m space --focus recent -#### shift + cmd - z : yabai -m window --space prev; yabai -m space --focus prev -#### shift + cmd - c : yabai -m window --space next; yabai -m space --focus next -#### shift + cmd - 1 : yabai -m window --space 1; yabai -m space --focus 1 -#### shift + cmd - 2 : yabai -m window --space 2; yabai -m space --focus 2 -#### shift + cmd - 3 : yabai -m window --space 3; yabai -m space --focus 3 -#### shift + cmd - 4 : yabai -m window --space 4; yabai -m space --focus 4 -#### shift + cmd - 5 : yabai -m window --space 5; yabai -m space --focus 5 -#### shift + cmd - 6 : yabai -m window --space 6; yabai -m space --focus 6 -#### shift + cmd - 7 : yabai -m window --space 7; yabai -m space --focus 7 -#### shift + cmd - 8 : yabai -m window --space 8; yabai -m space --focus 8 -#### shift + cmd - 9 : yabai -m window --space 9; yabai -m space --focus 9 -#### shift + cmd - 0 : yabai -m window --space 10; yabai -m space --focus 10 -#### -#### # focus monitor -#### ctrl + alt - x : yabai -m display --focus recent -#### ctrl + alt - z : yabai -m display --focus prev -#### ctrl + alt - c : yabai -m display --focus next -#### ctrl + alt - 1 : yabai -m display --focus 1 -#### ctrl + alt - 2 : yabai -m display --focus 2 -#### ctrl + alt - 3 : yabai -m display --focus 3 -#### -#### # send window to monitor and follow focus -#### ctrl + cmd - x : yabai -m window --display recent; yabai -m display --focus recent -#### ctrl + cmd - z : yabai -m window --display prev; yabai -m display --focus prev -#### ctrl + cmd - c : yabai -m window --display next; yabai -m display --focus next -#### ctrl + cmd - 1 : yabai -m window --display 1; yabai -m display --focus 1 -#### ctrl + cmd - 2 : yabai -m window --display 2; yabai -m display --focus 2 -#### ctrl + cmd - 3 : yabai -m window --display 3; yabai -m display --focus 3 -#### -#### # move window -#### shift + ctrl - a : yabai -m window --move rel:-20:0 -#### shift + ctrl - s : yabai -m window --move rel:0:20 -#### shift + ctrl - w : yabai -m window --move rel:0:-20 -#### shift + ctrl - d : yabai -m window --move rel:20:0 -#### -#### # increase window size -#### shift + alt - a : yabai -m window --resize left:-20:0 -#### shift + alt - s : yabai -m window --resize bottom:0:20 -#### shift + alt - w : yabai -m window --resize top:0:-20 -#### shift + alt - d : yabai -m window --resize right:20:0 -#### -#### # decrease window size -#### shift + cmd - a : yabai -m window --resize left:20:0 -#### shift + cmd - s : yabai -m window --resize bottom:0:-20 -#### shift + cmd - w : yabai -m window --resize top:0:20 -#### shift + cmd - d : yabai -m window --resize right:-20:0 -#### -#### # set insertion point in focused container -#### ctrl + alt - h : yabai -m window --insert west -#### ctrl + alt - j : yabai -m window --insert south -#### ctrl + alt - k : yabai -m window --insert north -#### ctrl + alt - l : yabai -m window --insert east -#### -#### # rotate tree -#### alt - r : yabai -m space --rotate 90 -#### -#### # mirror tree y-axis -#### alt - y : yabai -m space --mirror y-axis -#### -#### # mirror tree x-axis -#### alt - x : yabai -m space --mirror x-axis -#### -#### # toggle desktop offset -#### alt - a : yabai -m space --toggle padding; yabai -m space --toggle gap -#### -#### # toggle window parent zoom -#### alt - d : yabai -m window --toggle zoom-parent -#### -#### # toggle window fullscreen zoom -#### alt - f : yabai -m window --toggle zoom-fullscreen -#### -#### # toggle window native fullscreen -#### shift + alt - f : yabai -m window --toggle native-fullscreen -#### -#### # toggle window border -#### shift + alt - b : yabai -m window --toggle border -#### -#### # toggle window split type -#### alt - e : yabai -m window --toggle split -#### -#### # float / unfloat window and center on screen -#### alt - t : yabai -m window --toggle float;\ -#### yabai -m window --grid 4:4:1:1:2:2 -#### -#### # toggle sticky -#### alt - s : yabai -m window --toggle sticky -#### -#### # toggle sticky, float and resize to picture-in-picture size -#### alt - p : yabai -m window --toggle sticky;\ -#### yabai -m window --grid 5:5:4:0:1:1 -#### -#### # change layout of desktop -#### ctrl + alt - a : yabai -m space --layout bsp -#### ctrl + alt - d : yabai -m space --layout float diff --git a/.slate b/.slate deleted file mode 100644 index 7b02502..0000000 --- a/.slate +++ /dev/null @@ -1,108 +0,0 @@ -# Configuration options -config keyboardLayout dvorak -config defaultToCurrentScreen true -config modalEscapeKey esc -config nudgePercentOf screenSize -config resizePercentOf screenSize -config windowHintsShowIcons true -config windowHintsIgnoreHiddenWindows false -config windowHintsSpread true -config windowHintsSpreadSearchWidth 200 -config windowHintsSpreadSearchHeight 200 - -#-------------------------------------------------------------------- -# Aliases -#-------------------------------------------------------------------- -# Modal key -alias modal-key cmd,space - -# Some apps -alias app-browser 'Google Chrome' -alias app-editor 'MacVim' -alias app-irc 'Textual' -alias app-music 'Spotify' -alias app-terminal 'iTerm' - -# Easy helpers for long variable names... -alias sox screenOriginX -alias soy screenOriginY -alias ssx screenSizeX -alias ssy screenSizeY - -# Positioning aliases -alias full move ${sox};${soy} ${ssx};${ssy} -alias left-half move ${sox};${soy} ${ssx}/2+1;${ssy} -alias right-half move ${sox}+${ssx}/2;${soy} ${ssx}/2;${ssy} -alias top-half move ${sox};${soy} ${ssx};${ssy}/2 -alias bot-half move ${sox};${soy}+${ssy}/2 ${ssx};${ssy}/2 -alias top-left-corner move ${sox};${soy} ${ssx}/2;${ssy}/2 -alias top-right-corner move ${sox}+${ssx}/2;${soy} ${ssx}/2;${ssy}/2 -alias bot-left-corner move ${sox};${soy}+${ssy}/2 ${ssx}/2;${ssy}/2 -alias bot-right-corner move ${sox}+${ssx}/2;${soy}+${ssy}/2 ${ssx}/2;${ssy}/2 - -#-------------------------------------------------------------------- -# Layouts -#-------------------------------------------------------------------- -# This layout is used with one screen -layout 1coding 'Google Chrome':REPEAT ${full} -layout 1coding 'iTerm':REPEAT ${full} -layout 1coding 'MacVim':REPEAT ${full} -layout 1coding 'Spotify':REPEAT ${full} -layout 1coding 'Textual':REPEAT move ${sox}+550;${soy}+75 800;575 -layout 1coding 'Tweetbot' move ${ssx}-480-40;${soy} 480;${ssy} - -# This layout is used with two screens -layout 2coding 'Google Chrome':REPEAT move ${sox}+387;${soy}+100 1800;1200 0 -layout 2coding 'iTerm':REPEAT ${full} 0 -layout 2coding 'MacVim':REPEAT ${full} 0 -layout 2coding 'Spotify':REPEAT ${full} 1 -layout 2coding 'Textual':REPEAT move ${sox}+1200;${soy}+20 800;575 0 -layout 2coding 'Tweetbot' move ${ssx}-480-40;${soy}+20 480;1000 0 - -#-------------------------------------------------------------------- -# Bindings -#-------------------------------------------------------------------- -# Activate layouts, this is all done via modal-keys -bind 1:${modal-key} sequence layout 1coding -bind 2:${modal-key} sequence layout 2coding - -# Focus windows in certain directions -bind h:cmd,alt focus left -bind l:cmd,alt focus right -bind j:cmd,alt focus down -bind k:cmd,alt focus up - -# Move windows to certain locations on the screen -bind f:${modal-key}:toggle ${full} -bind h:${modal-key}:toggle ${left-half} -bind l:${modal-key}:toggle ${right-half} -bind j:${modal-key}:toggle ${bot-half} -bind k:${modal-key}:toggle ${top-half} -bind y:${modal-key}:toggle ${top-left-corner} -bind u:${modal-key}:toggle ${top-right-corner} -bind b:${modal-key}:toggle ${bot-left-corner} -bind n:${modal-key}:toggle ${bot-right-corner} - -# Resize Bindings -bind right:alt resize +8% +0 -bind left:alt resize -8% +0 -bind up:alt resize +0 -8% -bind down:alt resize +0 +8% -bind right:ctrl;alt resize -8% +0 bottom-right -bind left:ctrl;alt resize +8% +0 bottom-right -bind up:ctrl;alt resize +0 +8% bottom-right -bind down:ctrl;alt resize +0 -8% bottom-right - -# Nudge Bindings -bind right:shift;alt nudge +8% +0 -bind left:shift;alt nudge -8% +0 -bind up:shift;alt nudge +0 -8% -bind down:shift;alt nudge +0 +8% - -# Focus helpers -bind b:e,cmd focus ${app-browser} -bind e:e,cmd focus ${app-editor} -bind i:e,cmd focus ${app-irc} -bind m:e,cmd focus ${app-music} -bind t:e,cmd focus ${app-terminal} -bind /:e,cmd hint diff --git a/.spacemacs.d/init.el b/.spacemacs.d/init.el deleted file mode 100644 index 853efb6..0000000 --- a/.spacemacs.d/init.el +++ /dev/null @@ -1,514 +0,0 @@ -;; -*- mode: emacs-lisp -*- -;; This file is loaded by Spacemacs at startup. -;; It must be stored in your home directory. - -(defun dotspacemacs/layers () - "Layer configuration: -This function should only modify configuration layer settings." - (setq-default - ;; Base distribution to use. This is a layer contained in the directory - ;; `+distribution'. For now available distributions are `spacemacs-base' - ;; or `spacemacs'. (default 'spacemacs) - dotspacemacs-distribution 'spacemacs - - ;; Lazy installation of layers (i.e. layers are installed only when a file - ;; with a supported type is opened). Possible values are `all', `unused' - ;; and `nil'. `unused' will lazy install only unused layers (i.e. layers - ;; not listed in variable `dotspacemacs-configuration-layers'), `all' will - ;; lazy install any layer that support lazy installation even the layers - ;; listed in `dotspacemacs-configuration-layers'. `nil' disable the lazy - ;; installation feature and you have to explicitly list a layer in the - ;; variable `dotspacemacs-configuration-layers' to install it. - ;; (default 'unused) - dotspacemacs-enable-lazy-installation 'unused - - ;; If non-nil then Spacemacs will ask for confirmation before installing - ;; a layer lazily. (default t) - dotspacemacs-ask-for-lazy-installation t - - ;; If non-nil layers with lazy install support are lazy installed. - ;; List of additional paths where to look for configuration layers. - ;; Paths must have a trailing slash (i.e. `~/.mycontribs/') - dotspacemacs-configuration-layer-path '("~/.spacemacs.d/private/") - ;; List of configuration layers to load. - dotspacemacs-configuration-layers - '( - ;; ---------------------------------------------------------------- - ;; Example of useful layers you may want to use right away. - ;; Uncomment some layer names and press `SPC f e R' (Vim style) or - ;; `M-m f e R' (Emacs style) to install them. - ;; ---------------------------------------------------------------- - (auto-completion :variables - auto-completion-enable-help-tooltip t - auto-completion-enable-snippets-in-popup t) - better-defaults - deft - emacs-lisp - git - github - hoon - javascript - markdown - org - puppet - (ruby :variables - ruby-enable-enh-ruby-mode t - ruby-version-manager 'rbenv) - (shell :variables - shell-default-shell 'multi-term) - ;; shell-default-height 30 - ;; shell-default-position 'bottom) - spacemacs-layouts - spell-checking - syntax-checking - (rcirc :variables rcirc-enable-znc-support t) - themes-megapack - vagrant - vimscript - yaml - ) - - ;; List of additional packages that will be installed without being - ;; wrapped in a layer. If you need some configuration for these - ;; packages, then consider creating a layer. You can also put the - ;; configuration in `dotspacemacs/user-config'. - ;; To use a local version of a package, use the `:location' property: - ;; '(your-package :location "~/path/to/your-package/") - ;; Also include the dependencies as they will not be resolved automatically. - dotspacemacs-additional-packages '() - - ;; A list of packages that cannot be updated. - dotspacemacs-frozen-packages '() - - ;; A list of packages that will not be installed and loaded. - dotspacemacs-excluded-packages '() - - ;; Defines the behaviour of Spacemacs when installing packages. - ;; Possible values are `used-only', `used-but-keep-unused' and `all'. - ;; `used-only' installs only explicitly used packages and deletes any unused - ;; packages as well as their unused dependencies. `used-but-keep-unused' - ;; installs only the used packages but won't delete unused ones. `all' - ;; installs *all* packages supported by Spacemacs and never uninstalls them. - ;; (default is `used-only') - dotspacemacs-install-packages 'used-only)) - -(defun dotspacemacs/init () - "Initialization: -This function is called at the very beginning of Spacemacs startup, -before layer configuration. -It should only modify the values of Spacemacs settings." - ;; This setq-default sexp is an exhaustive list of all the supported - ;; spacemacs settings. - (setq-default - ;; If non-nil ELPA repositories are contacted via HTTPS whenever it's - ;; possible. Set it to nil if you have no way to use HTTPS in your - ;; environment, otherwise it is strongly recommended to let it set to t. - ;; This variable has no effect if Emacs is launched with the parameter - ;; `--insecure' which forces the value of this variable to nil. - ;; (default t) - dotspacemacs-elpa-https t - - ;; Maximum allowed time in seconds to contact an ELPA repository. - ;; (default 5) - dotspacemacs-elpa-timeout 5 - - ;; Set `gc-cons-threshold' and `gc-cons-percentage' when startup finishes. - ;; This is an advanced option and should not be changed unless you suspect - ;; performance issues due to garbage collection operations. - ;; (default '(100000000 0.1)) - dotspacemacs-gc-cons '(100000000 0.1) - - ;; If non-nil then Spacelpa repository is the primary source to install - ;; a locked version of packages. If nil then Spacemacs will install the - ;; lastest version of packages from MELPA. (default nil) - dotspacemacs-use-spacelpa nil - - ;; If non-nil then verify the signature for downloaded Spacelpa archives. - ;; (default nil) - dotspacemacs-verify-spacelpa-archives nil - - ;; If non-nil then spacemacs will check for updates at startup - ;; when the current branch is not `develop'. Note that checking for - ;; new versions works via git commands, thus it calls GitHub services - ;; whenever you start Emacs. (default nil) - dotspacemacs-check-for-update nil - - ;; If non-nil, a form that evaluates to a package directory. For example, to - ;; use different package directories for different Emacs versions, set this - ;; to `emacs-version'. (default 'emacs-version) - dotspacemacs-elpa-subdirectory 'emacs-version - - ;; One of `vim', `emacs' or `hybrid'. - ;; `hybrid' is like `vim' except that `insert state' is replaced by the - ;; `hybrid state' with `emacs' key bindings. The value can also be a list - ;; with `:variables' keyword (similar to layers). Check the editing styles - ;; section of the documentation for details on available variables. - ;; (default 'vim) - dotspacemacs-editing-style 'vim - - ;; If non-nil output loading progress in `*Messages*' buffer. (default nil) - dotspacemacs-verbose-loading nil - - ;; Specify the startup banner. Default value is `official', it displays - ;; the official spacemacs logo. An integer value is the index of text - ;; banner, `random' chooses a random text banner in `core/banners' - ;; directory. A string value must be a path to an image format supported - ;; by your Emacs build. - ;; If the value is nil then no banner is displayed. (default 'official) - dotspacemacs-startup-banner 'official - - ;; List of items to show in startup buffer or an association list of - ;; the form `(list-type . list-size)`. If nil then it is disabled. - ;; Possible values for list-type are: - ;; `recents' `bookmarks' `projects' `agenda' `todos'. - ;; List sizes may be nil, in which case - ;; `spacemacs-buffer-startup-lists-length' takes effect. - dotspacemacs-startup-lists '((recents . 5) - (projects . 7)) - - ;; True if the home buffer should respond to resize events. (default t) - dotspacemacs-startup-buffer-responsive t - - ;; Default major mode of the scratch buffer (default `text-mode') - dotspacemacs-scratch-mode 'puppet-mode - ;; List of themes, the first of the list is loaded when spacemacs starts. - ;; Press `SPC T n' to cycle to the next theme in the list (works great - ;; with 2 themes variants, one dark and one light) - dotspacemacs-themes '(monokai - molokai - smyx) - ;; If non-nil the cursor color matches the state color in GUI Emacs. - ;; (default t) - dotspacemacs-colorize-cursor-according-to-state t - - ;; Default font, or prioritized list of fonts. `powerline-scale' allows to - ;; quickly tweak the mode-line size to make separators look not too crappy. - dotspacemacs-default-font '("Droid Sans Mono Dotted for Powerline" - :size 26 - :weight normal - :width normal - :powerline-scale 1.1) - ;; The leader key (default "SPC") - dotspacemacs-leader-key "SPC" - - ;; The key used for Emacs commands `M-x' (after pressing on the leader key). - ;; (default "SPC") - dotspacemacs-emacs-command-key "SPC" - - ;; The key used for Vim Ex commands (default ":") - dotspacemacs-ex-command-key ":" - - ;; The leader key accessible in `emacs state' and `insert state' - ;; (default "M-m") - dotspacemacs-emacs-leader-key "M-m" - - ;; Major mode leader key is a shortcut key which is the equivalent of - ;; pressing ` m`. Set it to `nil` to disable it. (default ",") - dotspacemacs-major-mode-leader-key "," - - ;; Major mode leader key accessible in `emacs state' and `insert state'. - ;; (default "C-M-m") - dotspacemacs-major-mode-emacs-leader-key "C-M-m" - - ;; These variables control whether separate commands are bound in the GUI to - ;; the key pairs `C-i', `TAB' and `C-m', `RET'. - ;; Setting it to a non-nil value, allows for separate commands under `C-i' - ;; and TAB or `C-m' and `RET'. - ;; In the terminal, these pairs are generally indistinguishable, so this only - ;; works in the GUI. (default nil) - dotspacemacs-distinguish-gui-tab nil - - ;; If non-nil `Y' is remapped to `y$' in Evil states. (default nil) - dotspacemacs-remap-Y-to-y$ nil - - ;; If non-nil, the shift mappings `<' and `>' retain visual state if used - ;; there. (default t) - dotspacemacs-retain-visual-state-on-shift t - - ;; If non-nil, `J' and `K' move lines up and down when in visual mode. - ;; (default nil) - dotspacemacs-visual-line-move-text nil - - ;; If non-nil, inverse the meaning of `g' in `:substitute' Evil ex-command. - ;; (default nil) - dotspacemacs-ex-substitute-global nil - - ;; Name of the default layout (default "Default") - dotspacemacs-default-layout-name "Default" - - ;; If non-nil the default layout name is displayed in the mode-line. - ;; (default nil) - dotspacemacs-display-default-layout nil - - ;; If non-nil then the last auto saved layouts are resumed automatically upon - ;; start. (default nil) - dotspacemacs-auto-resume-layouts nil - - ;; If non-nil, auto-generate layout name when creating new layouts. Only has - ;; effect when using the "jump to layout by number" commands. (default nil) - dotspacemacs-auto-generate-layout-names nil - - ;; Size (in MB) above which spacemacs will prompt to open the large file - ;; literally to avoid performance issues. Opening a file literally means that - ;; no major mode or minor modes are active. (default is 1) - dotspacemacs-large-file-size 1 - - ;; Location where to auto-save files. Possible values are `original' to - ;; auto-save the file in-place, `cache' to auto-save the file to another - ;; file stored in the cache directory and `nil' to disable auto-saving. - ;; (default 'cache) - dotspacemacs-auto-save-file-location 'cache - - ;; Maximum number of rollback slots to keep in the cache. (default 5) - dotspacemacs-max-rollback-slots 5 - - ;; If non-nil, `helm' will try to minimize the space it uses. (default nil) - dotspacemacs-helm-resize nil - - ;; if non-nil, the helm header is hidden when there is only one source. - ;; (default nil) - dotspacemacs-helm-no-header nil - - ;; define the position to display `helm', options are `bottom', `top', - ;; `left', or `right'. (default 'bottom) - dotspacemacs-helm-position 'bottom - - ;; Controls fuzzy matching in helm. If set to `always', force fuzzy matching - ;; in all non-asynchronous sources. If set to `source', preserve individual - ;; source settings. Else, disable fuzzy matching in all sources. - ;; (default 'always) - dotspacemacs-helm-use-fuzzy 'always - - ;; If non-nil, the paste transient-state is enabled. While enabled, pressing - ;; `p' several times cycles through the elements in the `kill-ring'. - ;; (default nil) - dotspacemacs-enable-paste-transient-state nil - - ;; Which-key delay in seconds. The which-key buffer is the popup listing - ;; the commands bound to the current keystroke sequence. (default 0.4) - dotspacemacs-which-key-delay 0.4 - - ;; Which-key frame position. Possible values are `right', `bottom' and - ;; `right-then-bottom'. right-then-bottom tries to display the frame to the - ;; right; if there is insufficient space it displays it at the bottom. - ;; (default 'bottom) - dotspacemacs-which-key-position 'right - ;; Control where `switch-to-buffer' displays the buffer. If nil, - ;; `switch-to-buffer' displays the buffer in the current window even if - ;; another same-purpose window is available. If non-nil, `switch-to-buffer' - ;; displays the buffer in a same-purpose window even if the buffer can be - ;; displayed in the current window. (default nil) - dotspacemacs-switch-to-buffer-prefers-purpose nil - - ;; If non-nil a progress bar is displayed when spacemacs is loading. This - ;; may increase the boot time on some systems and emacs builds, set it to - ;; nil to boost the loading time. (default t) - dotspacemacs-loading-progress-bar t - - ;; If non-nil the frame is fullscreen when Emacs starts up. (default nil) - ;; (Emacs 24.4+ only) - dotspacemacs-fullscreen-at-startup nil - - ;; If non-nil `spacemacs/toggle-fullscreen' will not use native fullscreen. - ;; Use to disable fullscreen animations in OSX. (default nil) - dotspacemacs-fullscreen-use-non-native nil - - ;; If non-nil the frame is maximized when Emacs starts up. - ;; Takes effect only if `dotspacemacs-fullscreen-at-startup' is nil. - ;; (default nil) (Emacs 24.4+ only) - dotspacemacs-maximized-at-startup nil - - ;; A value from the range (0..100), in increasing opacity, which describes - ;; the transparency level of a frame when it's active or selected. - ;; Transparency can be toggled through `toggle-transparency'. (default 90) - dotspacemacs-active-transparency 90 - - ;; A value from the range (0..100), in increasing opacity, which describes - ;; the transparency level of a frame when it's inactive or deselected. - ;; Transparency can be toggled through `toggle-transparency'. (default 90) - dotspacemacs-inactive-transparency 90 - - ;; If non-nil show the titles of transient states. (default t) - dotspacemacs-show-transient-state-title t - - ;; If non-nil show the color guide hint for transient state keys. (default t) - dotspacemacs-show-transient-state-color-guide t - - ;; If non-nil unicode symbols are displayed in the mode line. (default t) - dotspacemacs-mode-line-unicode-symbols t - - ;; If non-nil smooth scrolling (native-scrolling) is enabled. Smooth - ;; scrolling overrides the default behavior of Emacs which recenters point - ;; when it reaches the top or bottom of the screen. (default t) - dotspacemacs-smooth-scrolling t - - ;; Control line numbers activation. - ;; If set to `t' or `relative' line numbers are turned on in all `prog-mode' and - ;; `text-mode' derivatives. If set to `relative', line numbers are relative. - ;; This variable can also be set to a property list for finer control: - ;; '(:relative nil - ;; :disabled-for-modes dired-mode - ;; doc-view-mode - ;; markdown-mode - ;; org-mode - ;; pdf-view-mode - ;; text-mode - ;; :size-limit-kb 1000) - ;; (default nil) - dotspacemacs-line-numbers nil - - ;; Code folding method. Possible values are `evil' and `origami'. - ;; (default 'evil) - dotspacemacs-folding-method 'evil - - ;; If non-nil `smartparens-strict-mode' will be enabled in programming modes. - ;; (default nil) - dotspacemacs-smartparens-strict-mode nil - - ;; If non-nil pressing the closing parenthesis `)' key in insert mode passes - ;; over any automatically added closing parenthesis, bracket, quote, etc… - ;; This can be temporary disabled by pressing `C-q' before `)'. (default nil) - dotspacemacs-smart-closing-parenthesis nil - - ;; Select a scope to highlight delimiters. Possible values are `any', - ;; `current', `all' or `nil'. Default is `all' (highlight any scope and - ;; emphasis the current one). (default 'all) - dotspacemacs-highlight-delimiters 'all - - ;; If non-nil, advise quit functions to keep server open when quitting. - ;; (default nil) - dotspacemacs-persistent-server nil - - ;; List of search tool executable names. Spacemacs uses the first installed - ;; tool of the list. Supported tools are `rg', `ag', `pt', `ack' and `grep'. - ;; (default '("rg" "ag" "pt" "ack" "grep")) - dotspacemacs-search-tools '("rg" "ag" "pt" "ack" "grep") - - ;; Format specification for setting the frame title. - ;; %a - the `abbreviated-file-name', or `buffer-name' - ;; %t - `projectile-project-name' - ;; %I - `invocation-name' - ;; %S - `system-name' - ;; %U - contents of $USER - ;; %b - buffer name - ;; %f - visited file name - ;; %F - frame name - ;; %s - process status - ;; %p - percent of buffer above top of window, or Top, Bot or All - ;; %P - percent of buffer above bottom of window, perhaps plus Top, or Bot or All - ;; %m - mode name - ;; %n - Narrow if appropriate - ;; %z - mnemonics of buffer, terminal, and keyboard coding systems - ;; %Z - like %z, but including the end-of-line format - ;; (default "%I@%S") - dotspacemacs-frame-title-format "%I@%S" - - ;; Format specification for setting the icon title format - ;; (default nil - same as frame-title-format) - dotspacemacs-icon-title-format nil - - ;; Delete whitespace while saving buffer. Possible values are `all' - ;; to aggressively delete empty line and long sequences of whitespace, - ;; `trailing' to delete only the whitespace at end of lines, `changed' to - ;; delete only whitespace for changed lines or `nil' to disable cleanup. - ;; (default nil) - dotspacemacs-whitespace-cleanup 'changed - ;; Either nil or a number of seconds. If non-nil zone out after the specified - ;; number of seconds. (default nil) - dotspacemacs-zone-out-when-idle nil - - ;; Run `spacemacs/prettify-org-buffer' when - ;; visiting README.org files of Spacemacs. - ;; (default nil) - dotspacemacs-pretty-docs nil)) - -(defun dotspacemacs/user-init () - "Initialization function for user code. -It is called immediately after `dotspacemacs/init'. You are free to put almost -any user code here. The exception is org related code, which should be placed -in `dotspacemacs/user-config'." - ;; (setq-default - ;; Custom font - ;; dotspacemacs-default-font `("Liberation Mono for Powerline" - ;; :size ,(if (eq window-system 'x) - ;; 26 - ;; 13 - ;; ) - ;; :weight normal - ;; :width normal - ;; :powerline-scale 1.4) - ;; ) - ;; Set to the location of your Org files on your local system - (setq org-directory "~/Dropbox/org") - (setq org-mobile-inbox-for-pull "~/Dropbox/org/inbox.org") - (setq org-mobile-directory "~/Dropbox/Apps/MobileOrg") - (setq org-mobile-files '("~/Dropbox/org")) - - ;; ;; Stuff for eshell - ;; (require 'em-smart) - ;; (setq eshell-where-to-jump 'begin) - ;; (setq eshell-review-quick-commands nil) - ;; (setq eshell-smart-space-goes-to-end t) - ;; (setq eshell-scroll-to-bottom-on-input t) - ;; Configure colors for the powerline - ;(setq ns-use-srgb-colorspace t) - ;; undo-tree history across restarts - (setq undo-tree-history-directory-alist - `((".*" . ,(concat spacemacs-cache-directory "undo-tree-history")))) - (setq undo-tree-auto-save-history t) - - ;; Allow vim-like undo - (setq evil-want-fine-undo "No") - - ;; Don't use the clipboard please - ;; (setq select-enable-clipboard nil) - ;; Don't show the menu bar on the terminal - ;; (setq menu-bar-mode nil) - (setq rcirc-server-alist - ;; This will replace :auth with the correct thing, see the doc for that function - '(("freenode" - :host "destiny.cat.pdx.edu" - :port "2300" - :auth "hunner/freenode" - :channels ("#voxpupuli")) - ("sithmail" - :host "destiny.cat.pdx.edu" - :auth "hunner/sithmail" - :port "2300" - :encryption tls - :channels ("#social")))) - ) - -(defun dotspacemacs/user-config () - "Configuration function for user code. -This function is called at the very end of Spacemacs initialization after -layers configuration. You are free to put any user code." - ;; Make C-g work like - ;(define-key evil-normal-state-map "\C-g" 'evil-normal-state) - ;(define-key evil-visual-state-map "\C-g" 'evil-normal-state) - ;(define-key evil-insert-state-map "\C-g" 'evil-normal-state) - (define-key evil-visual-state-map "\C-c" 'evil-normal-state) - (define-key evil-insert-state-map "\C-c" 'evil-normal-state) - (define-key evil-hybrid-state-map "\C-c" 'evil-normal-state) - (define-key evil-normal-state-map "\C-h" 'evil-window-left) - (define-key evil-normal-state-map "\C-j" 'evil-window-down) - (define-key evil-normal-state-map "\C-k" 'evil-window-up) - (define-key evil-normal-state-map "\C-l" 'evil-window-right) - (spacemacs/toggle-mode-line-battery-on) - ;(define-key global-map "\\" nil) - ;(define-key global-map "\\f" 'ido-find-file) - ;(define-key global-map "\\v" 'helm-projectile-find-file) - ;(define-key global-map "\\c" 'helm-projectile-switch-project) - ;(define-key global-map "\\b" 'helm-mini) - (setq powerline-default-separator (if (eq window-system 'x) - 'arrow - 'utf-8 - )) - ;;(smartparens-global-mode f) - ;; Relative line numbers by default - ;(linum-relative-toggle) - ;(global-linum-mode t) - ) - -;; Do not write anything past this comment. This is where Emacs will -;; auto-generate custom variable definitions. diff --git a/.spacemacs.d/private/hoon/README.org b/.spacemacs.d/private/hoon/README.org deleted file mode 100644 index b68de9b..0000000 --- a/.spacemacs.d/private/hoon/README.org +++ /dev/null @@ -1,24 +0,0 @@ -#+TITLE: hoon layer - -# The maximum height of the logo should be 200 pixels. -[[img/urbit.png]] - -* Table of Contents :TOC_4_gh:noexport: - - [[#description][Description]] - - [[#install][Install]] - - [[#key-bindings][Key bindings]] - -* Description -This layer does wonderful things: - - thing01 - -* Install -To use this configuration layer, add it to your =~/.spacemacs=. You will need to -add =hoon= to the existing =dotspacemacs-configuration-layers= list in this -file. - -* Key bindings - -| Key Binding | Description | -|-----------------+----------------| -| ~ x x x~ | Does thing01 | diff --git a/.spacemacs.d/private/hoon/packages.el b/.spacemacs.d/private/hoon/packages.el deleted file mode 100644 index abe8092..0000000 --- a/.spacemacs.d/private/hoon/packages.el +++ /dev/null @@ -1,71 +0,0 @@ -;;; packages.el --- hoon layer packages file for Spacemacs. -;; -;; Copyright (c) 2012-2016 Sylvain Benner & Contributors -;; -;; Author: -;; URL: https://github.com/syl20bnr/spacemacs -;; -;; This file is not part of GNU Emacs. -;; -;;; License: GPLv3 - -;;; Commentary: - -;; See the Spacemacs documentation and FAQs for instructions on how to implement -;; a new layer: -;; -;; SPC h SPC layers RET -;; -;; -;; Briefly, each package to be installed or configured by this layer should be -;; added to `hoon-packages'. Then, for each package PACKAGE: -;; -;; - If PACKAGE is not referenced by any other Spacemacs layer, define a -;; function `hoon/init-PACKAGE' to load and initialize the package. - -;; - Otherwise, PACKAGE is already referenced by another Spacemacs layer, so -;; define the functions `hoon/pre-init-PACKAGE' and/or -;; `hoon/post-init-PACKAGE' to customize the package as it is loaded. - -;;; Code: - -(defconst hoon-packages - '( - (hoon-mode :location (recipe :fetcher github - :repo "urbit/hoon-mode.el"))) - "The list of Lisp packages required by the hoon layer. - -Each entry is either: - -1. A symbol, which is interpreted as a package to be installed, or - -2. A list of the form (PACKAGE KEYS...), where PACKAGE is the - name of the package to be installed or loaded, and KEYS are - any number of keyword-value-pairs. - - The following keys are accepted: - - - :excluded (t or nil): Prevent the package from being loaded - if value is non-nil - - - :location: Specify a custom installation location. - The following values are legal: - - - The symbol `elpa' (default) means PACKAGE will be - installed using the Emacs package manager. - - - The symbol `local' directs Spacemacs to load the file at - `./local/PACKAGE/PACKAGE.el' - - - A list beginning with the symbol `recipe' is a melpa - recipe. See: https://github.com/milkypostman/melpa#recipe-format") - -(defun hoon/init-hoon-mode () - (use-package hoon-mode)) - ;; :defer t - ;; :init - ;; (progn - ;; (setq hoon-extensions '("hoon","hook") - ;; hoon-text-mode 'hoon-mode)))) - -;;; packages.el ends here diff --git a/.xsession b/.xsession new file mode 100644 index 0000000..d0b7680 --- /dev/null +++ b/.xsession @@ -0,0 +1,41 @@ +export PATH=/home/hunner/local/bin:$PATH + +if [ -d /etc/X11/xinit/xinitrc.d ] ; then + for f in /etc/X11/xinit/xinitrc.d/?* ; do + [ -x "$f" ] && . "$f" + done + unset f +fi + +xrandr --setprovideroutputsource modesetting NVIDIA-0 +xrandr --auto + +#export GDK_DPI_SCALE=0.5 +systemctl --user import-environment DISPLAY +#setxkbmap us dvorak ctrl:nocaps +# remap powerkey to insert +#xmodmap -e "keycode 124 = NoSymbol Insert" +#xmodmap -e "keycode 62 = Scroll_Lock Scroll_Lock" +#xmodmap -e "keycode 37 = Control_R Control_R" +xinput set-prop 'Apple Inc. Magic Trackpad 2' 'libinput Tapping Enabled' 1 +xsetroot -cursor_name right_ptr +redshift & +CM_DIR=~/.config/clipmenu clipmenud & +#picom -b +hsetroot -solid '#000000' +#xrdb -merge ~/.Xresources +#feh --bg-fill ~/Dropbox/Photos/Adventurous\ Kate.jpg +eval `ssh-agent -s` +xrandr --dpi 100 +battery.sh & +xset r rate 200 30 + +xset s on +xset s 1200 +#xss-lock -- i3lock & +#xss-lock -- slock & +#xss-lock -- xlock -echokeys -usefirst & +#xscreensaver & + + +exec xmonad diff --git a/.yabairc b/.yabairc deleted file mode 100755 index a36802d..0000000 --- a/.yabairc +++ /dev/null @@ -1,45 +0,0 @@ -yabai -m signal --add event=dock_did_restart action="sudo yabai --load-sa" -sudo yabai --load-sa - -# bsp or float (default: float) -yabai -m config layout bsp - -# set mouse interaction modifier key (default: fn) -yabai -m config mouse_modifier fn -# set modifier + left-click drag to move window (default: move) -yabai -m config mouse_action1 move -# set modifier + right-click drag to resize window (default: resize) -yabai -m config mouse_action2 resize -# set focus follows mouse mode (default: off, options: off, autoraise, autofocus) -yabai -m config focus_follows_mouse autoraise -# set mouse follows focus mode (default: off) -yabai -m config mouse_follows_focus off - -# modify window shadows (default: on, options: on, off, float) -# example: show shadows only for floating windows -yabai -m config window_shadow float - -# window opacity (default: off) -# example: render all unfocused windows with 90% opacity -yabai -m config window_opacity on -yabai -m config active_window_opacity 1.0 -yabai -m config normal_window_opacity 0.9 - -yabai -m space 1 --label work -yabai -m space 2 --label zoom -yabai -m space 3 --label mail -yabai -m space 5 --label rdp -yabai -m space 7 --label slack -yabai -m space 8 --label emacs -yabai -m space 9 --label music - -yabai -m config window_border on -yabai -m config window_border_width 1 -yabai -m config active_window_border_color 0xff775759 - -yabai -m config external_bar all:33:0 -yabai -m config top_padding 1 [master][10:03] -yabai -m config bottom_padding 1 -yabai -m config left_padding 1 -yabai -m config right_padding 1 -yabai -m config window_gap 1 diff --git a/keymaps/colemak.pke b/keymaps/colemak.pke deleted file mode 100644 index ad00500..0000000 --- a/keymaps/colemak.pke +++ /dev/null @@ -1,273 +0,0 @@ -! xmodmap for the Colemak layout. -! 2006-01-01 Shai Coleman, http://colemak.com/ . Public domain. - -keycode 49 = grave asciitilde dead_tilde asciitilde -keycode 10 = 1 exclam exclamdown onesuperior -keycode 11 = 2 at masculine twosuperior -keycode 12 = 3 numbersign ordfeminine threesuperior -keycode 13 = 4 dollar cent sterling -keycode 14 = 5 percent EuroSign yen -keycode 15 = 6 asciicircum hstroke Hstroke -keycode 16 = 7 ampersand eth ETH -keycode 17 = 8 asterisk thorn THORN -keycode 18 = 9 parenleft leftsinglequotemark leftdoublequotemark -keycode 19 = 0 parenright rightsinglequotemark rightdoublequotemark -keycode 20 = minus underscore endash emdash -keycode 21 = equal plus multiply division - -keycode 24 = q Q adiaeresis Adiaeresis -keycode 25 = w W aring Aring -keycode 26 = f F atilde Atilde -keycode 27 = p P oslash Ooblique -keycode 28 = g G dead_ogonek asciitilde -keycode 29 = j J dstroke Dstroke -keycode 30 = l L lstroke Lstroke -keycode 31 = u U uacute Uacute -keycode 32 = y Y udiaeresis Udiaeresis -keycode 33 = semicolon colon odiaeresis Odiaeresis -keycode 34 = bracketleft braceleft guillemotleft U2039 -keycode 35 = bracketright braceright guillemotright U203a -keycode 51 = backslash bar asciitilde asciitilde - -keycode 38 = a A aacute Aacute -keycode 39 = r R dead_grave asciitilde -keycode 40 = s S ssharp asciitilde -keycode 41 = t T dead_acute dead_doubleacute -keycode 42 = d D dead_diaeresis asciitilde -keycode 43 = h H dead_caron asciitilde -keycode 44 = n N ntilde Ntilde -keycode 45 = e E eacute Eacute -keycode 46 = i I iacute Iacute -keycode 47 = o O oacute Oacute -keycode 48 = apostrophe quotedbl otilde Otilde - -keycode 52 = z Z ae AE -keycode 53 = x X dead_circumflex asciitilde -keycode 54 = c C ccedilla Ccedilla -keycode 55 = v V oe OE -keycode 56 = b B dead_breve asciitilde -keycode 57 = k K dead_abovering asciitilde -keycode 58 = m M dead_macron asciitilde -keycode 59 = comma less dead_cedilla asciitilde -keycode 60 = period greater dead_abovedot asciitilde -keycode 61 = slash question questiondown asciitilde - -keycode 66 = BackSpace BackSpace BackSpace BackSpace -keycode 94 = minus underscore endash emdash -keycode 65 = space space space nobreakspace -keycode 113 = Mode_switch Mode_switch -clear Lock - -!clear Shift -!clear Control -!clear Mod1 -!clear Mod2 -!clear Mod3 -!clear Mod4 -!clear Mod5 - -!add Shift = Shift_L Shift_R -!add Control = Control_L Control_R -!add Mod1 = Alt_L Alt_R -!add Mod2 = Num_Lock -!add Mod4 = Meta_L Meta_R -!add Mod5 = Scroll_Lock - -!keycode 9 = Escape -!keycode 22 = BackSpace Terminate_Server -!keycode 23 = Tab ISO_Left_Tab -!keycode 36 = Return -!keycode 37 = Control_L -!keycode 50 = Shift_L -!keycode 62 = Shift_R -!keycode 63 = KP_Multiply XF86_ClearGrab -!keycode 64 = Alt_L Meta_L -!keycode 67 = F1 XF86_Switch_VT_1 -!keycode 68 = F2 XF86_Switch_VT_2 -!keycode 69 = F3 XF86_Switch_VT_3 -!keycode 70 = F4 XF86_Switch_VT_4 -!keycode 71 = F5 XF86_Switch_VT_5 -!keycode 72 = F6 XF86_Switch_VT_6 -!keycode 73 = F7 XF86_Switch_VT_7 -!keycode 74 = F8 XF86_Switch_VT_8 -!keycode 75 = F9 XF86_Switch_VT_9 -!keycode 76 = F10 XF86_Switch_VT_10 -!keycode 95 = F11 XF86_Switch_VT_11 -!keycode 96 = F12 XF86_Switch_VT_12 -!keycode 77 = Num_Lock Pointer_EnableKeys -!keycode 78 = Scroll_Lock -!keycode 79 = KP_Home KP_7 -!keycode 80 = KP_Up KP_8 -!keycode 81 = KP_Prior KP_9 -!keycode 82 = KP_Subtract XF86_Prev_VMode -!keycode 83 = KP_Left KP_4 -!keycode 84 = KP_Begin KP_5 -!keycode 85 = KP_Right KP_6 -!keycode 86 = KP_Add XF86_Next_VMode -!keycode 87 = KP_End KP_1 -!keycode 88 = KP_Down KP_2 -!keycode 89 = KP_Next KP_3 -!keycode 90 = KP_Insert KP_0 -!keycode 91 = KP_Delete KP_Decimal -!keycode 92 = Print Sys_Req -!keycode 93 = Mode_switch -!keycode 97 = Home -!keycode 98 = Up -!keycode 99 = Prior -!keycode 100 = Left -!keycode 102 = Right -!keycode 103 = End -!keycode 104 = Down -!keycode 105 = Next -!keycode 106 = Insert -!keycode 107 = Delete -!keycode 108 = KP_Enter -!keycode 109 = Control_R -!keycode 110 = Pause Break -!keycode 111 = Print Sys_Req -!keycode 112 = KP_Divide XF86_Ungrab -!keycode 114 = Pause Break -!keycode 115 = Super_L -!keycode 116 = Super_R -!keycode 117 = Menu -!keycode 124 = ISO_Level3_Shift -!keycode 125 = NoSymbol Alt_L -!keycode 126 = KP_Equal -!keycode 127 = NoSymbol Super_L -!keycode 128 = NoSymbol Hyper_L -!keycode 156 = NoSymbol Meta_L - -!keycode 8 = -!keycode 101 = -!keycode 118 = -!keycode 119 = -!keycode 120 = -!keycode 121 = -!keycode 122 = -!keycode 123 = -!keycode 129 = -!keycode 130 = -!keycode 131 = -!keycode 132 = -!keycode 133 = -!keycode 134 = -!keycode 135 = -!keycode 136 = -!keycode 137 = -!keycode 138 = -!keycode 139 = -!keycode 140 = -!keycode 141 = -!keycode 142 = -!keycode 143 = -!keycode 144 = -!keycode 145 = -!keycode 146 = -!keycode 147 = -!keycode 148 = -!keycode 149 = -!keycode 150 = -!keycode 151 = -!keycode 152 = -!keycode 153 = -!keycode 154 = -!keycode 155 = -!keycode 157 = -!keycode 158 = -!keycode 159 = -!keycode 160 = -!keycode 161 = -!keycode 162 = -!keycode 163 = -!keycode 164 = -!keycode 165 = -!keycode 166 = -!keycode 167 = -!keycode 168 = -!keycode 169 = -!keycode 170 = -!keycode 171 = -!keycode 172 = -!keycode 173 = -!keycode 174 = -!keycode 175 = -!keycode 176 = -!keycode 177 = -!keycode 178 = -!keycode 179 = -!keycode 180 = -!keycode 181 = -!keycode 182 = -!keycode 183 = -!keycode 184 = -!keycode 185 = -!keycode 186 = -!keycode 187 = -!keycode 188 = -!keycode 189 = -!keycode 190 = -!keycode 191 = -!keycode 192 = -!keycode 193 = -!keycode 194 = -!keycode 195 = -!keycode 196 = -!keycode 197 = -!keycode 198 = -!keycode 199 = -!keycode 200 = -!keycode 201 = -!keycode 202 = -!keycode 203 = -!keycode 204 = -!keycode 205 = -!keycode 206 = -!keycode 207 = -!keycode 208 = -!keycode 209 = -!keycode 210 = -!keycode 211 = -!keycode 212 = -!keycode 213 = -!keycode 214 = -!keycode 215 = -!keycode 216 = -!keycode 217 = -!keycode 218 = -!keycode 219 = -!keycode 220 = -!keycode 221 = -!keycode 222 = -!keycode 223 = -!keycode 224 = -!keycode 225 = -!keycode 226 = -!keycode 227 = -!keycode 228 = -!keycode 229 = -!keycode 230 = -!keycode 231 = -!keycode 232 = -!keycode 233 = -!keycode 234 = -!keycode 235 = -!keycode 236 = -!keycode 237 = -!keycode 238 = -!keycode 239 = -!keycode 240 = -!keycode 241 = -!keycode 242 = -!keycode 243 = -!keycode 244 = -!keycode 245 = -!keycode 246 = -!keycode 247 = -!keycode 248 = -!keycode 249 = -!keycode 250 = -!keycode 251 = -!keycode 252 = -!keycode 253 = -!keycode 254 = -!keycode 255 = diff --git a/keymaps/dell.pke b/keymaps/dell.pke deleted file mode 100644 index 83c92aa..0000000 --- a/keymaps/dell.pke +++ /dev/null @@ -1,248 +0,0 @@ -keycode 8 = -keycode 9 = Escape NoSymbol Escape NoSymbol Escape -keycode 10 = 1 exclam 1 exclam 1 exclam -keycode 11 = 2 at 2 at 2 at -keycode 12 = 3 numbersign 3 numbersign 3 numbersign -keycode 13 = 4 dollar 4 dollar 4 dollar -keycode 14 = 5 percent 5 percent 5 percent -keycode 15 = 6 asciicircum 6 asciicircum 6 asciicircum -keycode 16 = 7 ampersand 7 ampersand 7 ampersand -keycode 17 = 8 asterisk 8 asterisk 8 asterisk -keycode 18 = 9 parenleft 9 parenleft 9 parenleft -keycode 19 = 0 parenright 0 parenright 0 parenright -keycode 20 = minus underscore minus underscore minus underscore -keycode 21 = equal plus equal plus equal plus -keycode 22 = BackSpace Terminate_Server BackSpace Terminate_Server BackSpace Terminate_Server -keycode 23 = Tab ISO_Left_Tab Tab ISO_Left_Tab Tab ISO_Left_Tab -keycode 24 = q Q q Q q Q -keycode 25 = w W w W w W -keycode 26 = e E e E e E -keycode 27 = r R r R r R -keycode 28 = t T t T t T -keycode 29 = y Y y Y y Y -keycode 30 = u U u U u U -keycode 31 = i I i I i I -keycode 32 = o O o O o O -keycode 33 = p P p P p P -keycode 34 = bracketleft braceleft bracketleft braceleft bracketleft braceleft -keycode 35 = bracketright braceright bracketright braceright bracketright braceright -keycode 36 = Return NoSymbol Return NoSymbol Return -keycode 37 = Control_L NoSymbol Control_L NoSymbol Control_L -keycode 38 = a A a A a A -keycode 39 = s S s S s S -keycode 40 = d D d D d D -keycode 41 = f F f F f F -keycode 42 = g G g G g G -keycode 43 = h H h H h H -keycode 44 = j J j J j J -keycode 45 = k K k K k K -keycode 46 = l L l L l L -keycode 47 = semicolon colon semicolon colon semicolon colon -keycode 48 = apostrophe quotedbl apostrophe quotedbl apostrophe quotedbl -keycode 49 = grave asciitilde grave asciitilde grave asciitilde -keycode 50 = Shift_L NoSymbol Shift_L NoSymbol Shift_L -keycode 51 = backslash bar backslash bar backslash bar -keycode 52 = z Z z Z z Z -keycode 53 = x X x X x X -keycode 54 = c C c C c C -keycode 55 = v V v V v V -keycode 56 = b B b B b B -keycode 57 = n N n N n N -keycode 58 = m M m M m M -keycode 59 = comma less comma less comma less -keycode 60 = period greater period greater period greater -keycode 61 = slash question slash question slash question -keycode 62 = Shift_R NoSymbol Shift_R NoSymbol Shift_R -keycode 63 = KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L Alt_L Meta_L Alt_L Meta_L -keycode 65 = space NoSymbol space NoSymbol space -keycode 66 = Caps_Lock NoSymbol Caps_Lock NoSymbol Caps_Lock -keycode 67 = F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock NoSymbol Scroll_Lock NoSymbol Scroll_Lock -keycode 79 = KP_Home KP_7 KP_Home KP_7 KP_Home KP_7 -keycode 80 = KP_Up KP_8 KP_Up KP_8 KP_Up KP_8 -keycode 81 = KP_Prior KP_9 KP_Prior KP_9 KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 KP_Left KP_4 KP_Left KP_4 -keycode 84 = KP_Begin KP_5 KP_Begin KP_5 KP_Begin KP_5 -keycode 85 = KP_Right KP_6 KP_Right KP_6 KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 KP_End KP_1 KP_End KP_1 -keycode 88 = KP_Down KP_2 KP_Down KP_2 KP_Down KP_2 -keycode 89 = KP_Next KP_3 KP_Next KP_3 KP_Next KP_3 -keycode 90 = KP_Insert KP_0 KP_Insert KP_0 KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal KP_Delete KP_Decimal KP_Delete KP_Decimal -keycode 92 = ISO_Level3_Shift NoSymbol ISO_Level3_Shift NoSymbol ISO_Level3_Shift -keycode 93 = Zenkaku_Hankaku NoSymbol Zenkaku_Hankaku NoSymbol Zenkaku_Hankaku -keycode 94 = less greater less greater bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 -keycode 97 = -keycode 98 = Katakana NoSymbol Katakana NoSymbol Katakana -keycode 99 = Hiragana NoSymbol Hiragana NoSymbol Hiragana -keycode 100 = Henkan_Mode NoSymbol Henkan_Mode NoSymbol Henkan_Mode -keycode 101 = Hiragana_Katakana NoSymbol Hiragana_Katakana NoSymbol Hiragana_Katakana -keycode 102 = Muhenkan NoSymbol Muhenkan NoSymbol Muhenkan -keycode 103 = -keycode 104 = KP_Enter NoSymbol KP_Enter NoSymbol KP_Enter -keycode 105 = Control_R NoSymbol Control_R NoSymbol Control_R -keycode 106 = KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab -keycode 107 = Print Sys_Req Print Sys_Req Print Sys_Req -keycode 108 = Alt_R Meta_R Alt_R Meta_R Alt_R Meta_R -keycode 109 = Linefeed NoSymbol Linefeed NoSymbol Linefeed -keycode 110 = Home NoSymbol Home NoSymbol Home -keycode 111 = Up NoSymbol Up NoSymbol Up -keycode 112 = Prior NoSymbol Prior NoSymbol Prior -keycode 113 = Left NoSymbol Left NoSymbol Left -keycode 114 = Right NoSymbol Right NoSymbol Right -keycode 115 = End NoSymbol End NoSymbol End -keycode 116 = Down NoSymbol Down NoSymbol Down -keycode 117 = Next NoSymbol Next NoSymbol Next -keycode 118 = Insert NoSymbol Insert NoSymbol Insert -keycode 119 = Delete NoSymbol Delete NoSymbol Delete -keycode 120 = -keycode 121 = XF86AudioMute NoSymbol XF86AudioMute NoSymbol XF86AudioMute -keycode 122 = XF86AudioLowerVolume NoSymbol XF86AudioLowerVolume NoSymbol XF86AudioLowerVolume -keycode 123 = XF86AudioRaiseVolume NoSymbol XF86AudioRaiseVolume NoSymbol XF86AudioRaiseVolume -keycode 124 = XF86PowerOff NoSymbol XF86PowerOff NoSymbol XF86PowerOff -keycode 125 = KP_Equal NoSymbol KP_Equal NoSymbol KP_Equal -keycode 126 = plusminus NoSymbol plusminus NoSymbol plusminus -keycode 127 = Pause Break Pause Break Pause Break -keycode 128 = -keycode 129 = KP_Separator NoSymbol KP_Separator NoSymbol KP_Separator -keycode 130 = Hangul NoSymbol Hangul NoSymbol Hangul -keycode 131 = Hangul_Hanja NoSymbol Hangul_Hanja NoSymbol Hangul_Hanja -keycode 132 = -keycode 133 = Super_L NoSymbol Super_L NoSymbol Super_L -keycode 134 = Super_R NoSymbol Super_R NoSymbol Super_R -keycode 135 = Menu NoSymbol Menu NoSymbol Menu -keycode 136 = Cancel NoSymbol Cancel NoSymbol Cancel -keycode 137 = Redo NoSymbol Redo NoSymbol Redo -keycode 138 = SunProps NoSymbol SunProps NoSymbol SunProps -keycode 139 = Undo NoSymbol Undo NoSymbol Undo -keycode 140 = SunFront NoSymbol SunFront NoSymbol SunFront -keycode 141 = XF86Copy NoSymbol XF86Copy NoSymbol XF86Copy -keycode 142 = SunOpen NoSymbol SunOpen NoSymbol SunOpen -keycode 143 = XF86Paste NoSymbol XF86Paste NoSymbol XF86Paste -keycode 144 = Find NoSymbol Find NoSymbol Find -keycode 145 = XF86Cut NoSymbol XF86Cut NoSymbol XF86Cut -keycode 146 = Help NoSymbol Help NoSymbol Help -keycode 147 = XF86MenuKB NoSymbol XF86MenuKB NoSymbol XF86MenuKB -keycode 148 = XF86Calculator NoSymbol XF86Calculator NoSymbol XF86Calculator -keycode 149 = -keycode 150 = XF86Sleep NoSymbol XF86Sleep NoSymbol XF86Sleep -keycode 151 = XF86WakeUp NoSymbol XF86WakeUp NoSymbol XF86WakeUp -keycode 152 = XF86Explorer NoSymbol XF86Explorer NoSymbol XF86Explorer -keycode 153 = XF86Send NoSymbol XF86Send NoSymbol XF86Send -keycode 154 = -keycode 155 = XF86Xfer NoSymbol XF86Xfer NoSymbol XF86Xfer -keycode 156 = XF86Launch1 NoSymbol XF86Launch1 NoSymbol XF86Launch1 -keycode 157 = XF86Launch2 NoSymbol XF86Launch2 NoSymbol XF86Launch2 -keycode 158 = XF86WWW NoSymbol XF86WWW NoSymbol XF86WWW -keycode 159 = XF86DOS NoSymbol XF86DOS NoSymbol XF86DOS -keycode 160 = XF86ScreenSaver NoSymbol XF86ScreenSaver NoSymbol XF86ScreenSaver -keycode 161 = -keycode 162 = XF86RotateWindows NoSymbol XF86RotateWindows NoSymbol XF86RotateWindows -keycode 163 = XF86Mail NoSymbol XF86Mail NoSymbol XF86Mail -keycode 164 = XF86Favorites NoSymbol XF86Favorites NoSymbol XF86Favorites -keycode 165 = XF86MyComputer NoSymbol XF86MyComputer NoSymbol XF86MyComputer -keycode 166 = XF86Back NoSymbol XF86Back NoSymbol XF86Back -keycode 167 = XF86Forward NoSymbol XF86Forward NoSymbol XF86Forward -keycode 168 = -keycode 169 = XF86Eject NoSymbol XF86Eject NoSymbol XF86Eject -keycode 170 = XF86Eject XF86Eject XF86Eject XF86Eject XF86Eject XF86Eject -keycode 171 = XF86AudioNext NoSymbol XF86AudioNext NoSymbol XF86AudioNext -keycode 172 = XF86AudioPlay XF86AudioPause XF86AudioPlay XF86AudioPause XF86AudioPlay XF86AudioPause -keycode 173 = XF86AudioPrev NoSymbol XF86AudioPrev NoSymbol XF86AudioPrev -keycode 174 = XF86AudioStop XF86Eject XF86AudioStop XF86Eject XF86AudioStop XF86Eject -keycode 175 = XF86AudioRecord NoSymbol XF86AudioRecord NoSymbol XF86AudioRecord -keycode 176 = XF86AudioRewind NoSymbol XF86AudioRewind NoSymbol XF86AudioRewind -keycode 177 = XF86Phone NoSymbol XF86Phone NoSymbol XF86Phone -keycode 178 = -keycode 179 = XF86Tools NoSymbol XF86Tools NoSymbol XF86Tools -keycode 180 = XF86HomePage NoSymbol XF86HomePage NoSymbol XF86HomePage -keycode 181 = XF86Reload NoSymbol XF86Reload NoSymbol XF86Reload -keycode 182 = XF86Close NoSymbol XF86Close NoSymbol XF86Close -keycode 183 = -keycode 184 = -keycode 185 = XF86ScrollUp NoSymbol XF86ScrollUp NoSymbol XF86ScrollUp -keycode 186 = XF86ScrollDown NoSymbol XF86ScrollDown NoSymbol XF86ScrollDown -keycode 187 = parenleft NoSymbol parenleft NoSymbol parenleft -keycode 188 = parenright NoSymbol parenright NoSymbol parenright -keycode 189 = XF86New NoSymbol XF86New NoSymbol XF86New -keycode 190 = Redo NoSymbol Redo NoSymbol Redo -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = Mode_switch NoSymbol Mode_switch NoSymbol Mode_switch -keycode 204 = NoSymbol Alt_L NoSymbol Alt_L NoSymbol Alt_L -keycode 205 = NoSymbol Meta_L NoSymbol Meta_L NoSymbol Meta_L -keycode 206 = NoSymbol Super_L NoSymbol Super_L NoSymbol Super_L -keycode 207 = NoSymbol Hyper_L NoSymbol Hyper_L NoSymbol Hyper_L -keycode 208 = XF86AudioPlay NoSymbol XF86AudioPlay NoSymbol XF86AudioPlay -keycode 209 = XF86AudioPause NoSymbol XF86AudioPause NoSymbol XF86AudioPause -keycode 210 = XF86Launch3 NoSymbol XF86Launch3 NoSymbol XF86Launch3 -keycode 211 = XF86Launch4 NoSymbol XF86Launch4 NoSymbol XF86Launch4 -keycode 212 = -keycode 213 = XF86Standby NoSymbol XF86Standby NoSymbol XF86Standby -keycode 214 = XF86Close NoSymbol XF86Close NoSymbol XF86Close -keycode 215 = XF86AudioPlay NoSymbol XF86AudioPlay NoSymbol XF86AudioPlay -keycode 216 = XF86Forward NoSymbol XF86Forward NoSymbol XF86Forward -keycode 217 = -keycode 218 = Print NoSymbol Print NoSymbol Print -keycode 219 = -keycode 220 = XF86WebCam NoSymbol XF86WebCam NoSymbol XF86WebCam -keycode 221 = -keycode 222 = -keycode 223 = XF86Mail NoSymbol XF86Mail NoSymbol XF86Mail -keycode 224 = -keycode 225 = XF86Search NoSymbol XF86Search NoSymbol XF86Search -keycode 226 = -keycode 227 = XF86Finance NoSymbol XF86Finance NoSymbol XF86Finance -keycode 228 = -keycode 229 = XF86Shop NoSymbol XF86Shop NoSymbol XF86Shop -keycode 230 = -keycode 231 = Cancel NoSymbol Cancel NoSymbol Cancel -keycode 232 = XF86MonBrightnessDown NoSymbol XF86MonBrightnessDown NoSymbol XF86MonBrightnessDown -keycode 233 = XF86MonBrightnessUp NoSymbol XF86MonBrightnessUp NoSymbol XF86MonBrightnessUp -keycode 234 = XF86AudioMedia NoSymbol XF86AudioMedia NoSymbol XF86AudioMedia -keycode 235 = XF86Display NoSymbol XF86Display NoSymbol XF86Display -keycode 236 = XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff -keycode 237 = XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown -keycode 238 = XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp -keycode 239 = XF86Send NoSymbol XF86Send NoSymbol XF86Send -keycode 240 = XF86Reply NoSymbol XF86Reply NoSymbol XF86Reply -keycode 241 = XF86MailForward NoSymbol XF86MailForward NoSymbol XF86MailForward -keycode 242 = XF86Save NoSymbol XF86Save NoSymbol XF86Save -keycode 243 = XF86Documents NoSymbol XF86Documents NoSymbol XF86Documents -keycode 244 = XF86Battery NoSymbol XF86Battery NoSymbol XF86Battery -keycode 245 = XF86Bluetooth NoSymbol XF86Bluetooth NoSymbol XF86Bluetooth -keycode 246 = XF86WLAN NoSymbol XF86WLAN NoSymbol XF86WLAN -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = diff --git a/keymaps/dv.pke b/keymaps/dv.pke deleted file mode 100644 index 914cb3e..0000000 --- a/keymaps/dv.pke +++ /dev/null @@ -1,278 +0,0 @@ -clear Shift -clear Lock -clear Control -clear Mod1 -clear Mod2 -clear Mod3 -clear Mod4 -clear Mod5 - -keycode 8 = -keycode 9 = grave asciitilde dead_grave dead_tilde grave asciitilde -keycode 10 = 7 ampersand 7 ampersand 7 ampersand -keycode 11 = 5 percent EuroSign sterling cent heart -keycode 12 = 3 numbersign 3 numbersign 3 numbersign -keycode 13 = 1 exclam 1 exclam 1 exclam -keycode 14 = 9 parenleft 9 parenleft 9 parenleft -keycode 15 = 0 parenright 0 parenright 0 parenright -keycode 16 = 2 at 2 at 2 at -keycode 17 = 4 dollar 4 dollar 4 dollar -keycode 18 = 6 asciicircum 6 asciicircum 6 asciicircum -keycode 19 = 8 asterisk 8 asterisk 8 asterisk -keycode 20 = bracketleft braceleft bracketleft braceleft bracketleft braceleft -keycode 21 = bracketright braceright bracketright braceright bracketright braceright -keycode 22 = backslash bar backslash bar backslash bar -keycode 23 = Tab ISO_Left_Tab Tab ISO_Left_Tab Tab ISO_Left_Tab -keycode 24 = apostrophe quotedbl apostrophe quotedbl apostrophe quotedbl -keycode 25 = comma less comma less comma less -keycode 26 = period greater period greater period greater -keycode 27 = p P p P p P -keycode 28 = y Y y Y y Y -keycode 29 = f F f F f F -keycode 30 = g G g G g G -keycode 31 = c C c C c C -keycode 32 = r R r R r R -keycode 33 = l L l L l L -keycode 34 = slash question slash question slash question -keycode 35 = equal plus equal plus equal plus -keycode 36 = Return NoSymbol Return NoSymbol Return -keycode 37 = Caps_Lock NoSymbol Caps_Lock NoSymbol Caps_Lock -keycode 38 = a A a A a A -keycode 39 = o O o O o O -keycode 40 = e E e E e E -keycode 41 = u U u U u U -keycode 42 = i I i I i I -keycode 43 = d D d D d D -keycode 44 = h H h H h H -keycode 45 = t T t T t T -keycode 46 = n N n N n N -keycode 47 = s S s S s S -keycode 48 = minus underscore minus underscore minus underscore -keycode 49 = Escape NoSymbol Escape NoSymbol Escape -keycode 50 = Shift_L NoSymbol Shift_L NoSymbol Shift_L -keycode 51 = BackSpace bar BackSpace brokenbar BackSpace Terminate_Server -keycode 52 = semicolon colon semicolon colon semicolon colon -keycode 53 = q Q q Q q Q -keycode 54 = j J j J j J -keycode 55 = k K k K k K -keycode 56 = x X x X x X -keycode 57 = b B b B b B -keycode 58 = m M m M m M -keycode 59 = w W w W w W -keycode 60 = v V v V v V -keycode 61 = z Z z Z z Z -keycode 62 = ISO_Level3_Shift NoSymbol Shift_R NoSymbol Shift_R -keycode 63 = KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L Alt_L Meta_L Alt_L Meta_L -keycode 65 = space NoSymbol space NoSymbol space -keycode 66 = Control_L NoSymbol Control_L NoSymbol Control_L -keycode 67 = F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock NoSymbol Scroll_Lock NoSymbol Scroll_Lock -keycode 79 = KP_Home KP_7 KP_Home KP_7 KP_Home KP_7 -keycode 80 = KP_Up KP_8 KP_Up KP_8 KP_Up KP_8 -keycode 81 = KP_Prior KP_9 KP_Prior KP_9 KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 KP_Left KP_4 KP_Left KP_4 -keycode 84 = KP_Begin KP_5 KP_Begin KP_5 KP_Begin KP_5 -keycode 85 = KP_Right KP_6 KP_Right KP_6 KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 KP_End KP_1 KP_End KP_1 -keycode 88 = KP_Down KP_2 KP_Down KP_2 KP_Down KP_2 -keycode 89 = KP_Next KP_3 KP_Next KP_3 KP_Next KP_3 -keycode 90 = KP_Insert KP_0 KP_Insert KP_0 KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal KP_Delete KP_Decimal KP_Delete KP_Decimal -keycode 92 = ISO_Level3_Shift NoSymbol ISO_Level3_Shift NoSymbol ISO_Level3_Shift -keycode 93 = Zenkaku_Hankaku NoSymbol Zenkaku_Hankaku NoSymbol Zenkaku_Hankaku -keycode 94 = less greater less greater bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 -keycode 97 = -keycode 98 = Katakana NoSymbol Katakana NoSymbol Katakana -keycode 99 = Hiragana NoSymbol Hiragana NoSymbol Hiragana -keycode 100 = Henkan_Mode NoSymbol Henkan_Mode NoSymbol Henkan_Mode -keycode 101 = Hiragana_Katakana NoSymbol Hiragana_Katakana NoSymbol Hiragana_Katakana -keycode 102 = Muhenkan NoSymbol Muhenkan NoSymbol Muhenkan -keycode 103 = -keycode 104 = KP_Enter NoSymbol KP_Enter NoSymbol KP_Enter -keycode 105 = Control_R NoSymbol Control_R NoSymbol Control_R -keycode 106 = KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab -keycode 107 = Print Sys_Req Print Sys_Req Print Sys_Req -keycode 108 = Alt_R Meta_R Alt_R Meta_R Alt_R Meta_R -keycode 109 = Linefeed NoSymbol Linefeed NoSymbol Linefeed -keycode 110 = Home NoSymbol Home NoSymbol Home -keycode 111 = Up NoSymbol Up NoSymbol Up -keycode 112 = Prior NoSymbol Prior NoSymbol Prior -keycode 113 = Left NoSymbol Left NoSymbol Left -keycode 114 = Right NoSymbol Right NoSymbol Right -keycode 115 = End NoSymbol End NoSymbol End -keycode 116 = Down NoSymbol Down NoSymbol Down -keycode 117 = Next NoSymbol Next NoSymbol Next -keycode 118 = Insert NoSymbol Insert NoSymbol Insert -keycode 119 = Delete NoSymbol Delete NoSymbol Delete -keycode 120 = -keycode 121 = XF86AudioMute NoSymbol XF86AudioMute NoSymbol XF86AudioMute -keycode 122 = XF86AudioLowerVolume NoSymbol XF86AudioLowerVolume NoSymbol XF86AudioLowerVolume -keycode 123 = XF86AudioRaiseVolume NoSymbol XF86AudioRaiseVolume NoSymbol XF86AudioRaiseVolume -keycode 124 = XF86PowerOff NoSymbol XF86PowerOff NoSymbol XF86PowerOff -keycode 125 = KP_Equal NoSymbol KP_Equal NoSymbol KP_Equal -keycode 126 = plusminus NoSymbol plusminus NoSymbol plusminus -keycode 127 = Pause Break Pause Break Pause Break -keycode 128 = -keycode 129 = KP_Separator NoSymbol KP_Separator NoSymbol KP_Separator -keycode 130 = Hangul NoSymbol Hangul NoSymbol Hangul -keycode 131 = Hangul_Hanja NoSymbol Hangul_Hanja NoSymbol Hangul_Hanja -keycode 132 = -keycode 133 = Super_L NoSymbol Super_L NoSymbol Super_L -keycode 134 = Super_R NoSymbol Super_R NoSymbol Super_R -keycode 135 = Menu NoSymbol Menu NoSymbol Menu -keycode 136 = Cancel NoSymbol Cancel NoSymbol Cancel -keycode 137 = Redo NoSymbol Redo NoSymbol Redo -keycode 138 = SunProps NoSymbol SunProps NoSymbol SunProps -keycode 139 = Undo NoSymbol Undo NoSymbol Undo -keycode 140 = SunFront NoSymbol SunFront NoSymbol SunFront -keycode 141 = XF86Copy NoSymbol XF86Copy NoSymbol XF86Copy -keycode 142 = SunOpen NoSymbol SunOpen NoSymbol SunOpen -keycode 143 = XF86Paste NoSymbol XF86Paste NoSymbol XF86Paste -keycode 144 = Find NoSymbol Find NoSymbol Find -keycode 145 = XF86Cut NoSymbol XF86Cut NoSymbol XF86Cut -keycode 146 = Help NoSymbol Help NoSymbol Help -keycode 147 = XF86MenuKB NoSymbol XF86MenuKB NoSymbol XF86MenuKB -keycode 148 = XF86Calculator NoSymbol XF86Calculator NoSymbol XF86Calculator -keycode 149 = -keycode 150 = XF86Sleep NoSymbol XF86Sleep NoSymbol XF86Sleep -keycode 151 = XF86WakeUp NoSymbol XF86WakeUp NoSymbol XF86WakeUp -keycode 152 = XF86Explorer NoSymbol XF86Explorer NoSymbol XF86Explorer -keycode 153 = XF86Send NoSymbol XF86Send NoSymbol XF86Send -keycode 154 = -keycode 155 = XF86Xfer NoSymbol XF86Xfer NoSymbol XF86Xfer -keycode 156 = XF86Launch1 NoSymbol XF86Launch1 NoSymbol XF86Launch1 -keycode 157 = XF86Launch2 NoSymbol XF86Launch2 NoSymbol XF86Launch2 -keycode 158 = XF86WWW NoSymbol XF86WWW NoSymbol XF86WWW -keycode 159 = XF86DOS NoSymbol XF86DOS NoSymbol XF86DOS -keycode 160 = XF86ScreenSaver NoSymbol XF86ScreenSaver NoSymbol XF86ScreenSaver -keycode 161 = -keycode 162 = XF86RotateWindows NoSymbol XF86RotateWindows NoSymbol XF86RotateWindows -keycode 163 = XF86Mail NoSymbol XF86Mail NoSymbol XF86Mail -keycode 164 = XF86Favorites NoSymbol XF86Favorites NoSymbol XF86Favorites -keycode 165 = XF86MyComputer NoSymbol XF86MyComputer NoSymbol XF86MyComputer -keycode 166 = XF86Back NoSymbol XF86Back NoSymbol XF86Back -keycode 167 = XF86Forward NoSymbol XF86Forward NoSymbol XF86Forward -keycode 168 = -keycode 169 = XF86Eject NoSymbol XF86Eject NoSymbol XF86Eject -keycode 170 = XF86Eject XF86Eject XF86Eject XF86Eject XF86Eject XF86Eject -keycode 171 = XF86AudioNext NoSymbol XF86AudioNext NoSymbol XF86AudioNext -keycode 172 = XF86AudioPlay XF86AudioPause XF86AudioPlay XF86AudioPause XF86AudioPlay XF86AudioPause -keycode 173 = XF86AudioPrev NoSymbol XF86AudioPrev NoSymbol XF86AudioPrev -keycode 174 = XF86AudioStop XF86Eject XF86AudioStop XF86Eject XF86AudioStop XF86Eject -keycode 175 = XF86AudioRecord NoSymbol XF86AudioRecord NoSymbol XF86AudioRecord -keycode 176 = XF86AudioRewind NoSymbol XF86AudioRewind NoSymbol XF86AudioRewind -keycode 177 = XF86Phone NoSymbol XF86Phone NoSymbol XF86Phone -keycode 178 = -keycode 179 = XF86Tools NoSymbol XF86Tools NoSymbol XF86Tools -keycode 180 = XF86HomePage NoSymbol XF86HomePage NoSymbol XF86HomePage -keycode 181 = XF86Reload NoSymbol XF86Reload NoSymbol XF86Reload -keycode 182 = XF86Close NoSymbol XF86Close NoSymbol XF86Close -keycode 183 = -keycode 184 = -keycode 185 = XF86ScrollUp NoSymbol XF86ScrollUp NoSymbol XF86ScrollUp -keycode 186 = XF86ScrollDown NoSymbol XF86ScrollDown NoSymbol XF86ScrollDown -keycode 187 = parenleft NoSymbol parenleft NoSymbol parenleft -keycode 188 = parenright NoSymbol parenright NoSymbol parenright -keycode 189 = XF86New NoSymbol XF86New NoSymbol XF86New -keycode 190 = Redo NoSymbol Redo NoSymbol Redo -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = Mode_switch NoSymbol Mode_switch NoSymbol Mode_switch -keycode 204 = NoSymbol Alt_L NoSymbol Alt_L NoSymbol Alt_L -keycode 205 = NoSymbol Meta_L NoSymbol Meta_L NoSymbol Meta_L -keycode 206 = NoSymbol Super_L NoSymbol Super_L NoSymbol Super_L -keycode 207 = NoSymbol Hyper_L NoSymbol Hyper_L NoSymbol Hyper_L -keycode 208 = XF86AudioPlay NoSymbol XF86AudioPlay NoSymbol XF86AudioPlay -keycode 209 = XF86AudioPause NoSymbol XF86AudioPause NoSymbol XF86AudioPause -keycode 210 = XF86Launch3 NoSymbol XF86Launch3 NoSymbol XF86Launch3 -keycode 211 = XF86Launch4 NoSymbol XF86Launch4 NoSymbol XF86Launch4 -keycode 212 = -keycode 213 = XF86Standby NoSymbol XF86Standby NoSymbol XF86Standby -keycode 214 = XF86Close NoSymbol XF86Close NoSymbol XF86Close -keycode 215 = XF86AudioPlay NoSymbol XF86AudioPlay NoSymbol XF86AudioPlay -keycode 216 = XF86Forward NoSymbol XF86Forward NoSymbol XF86Forward -keycode 217 = -keycode 218 = Print NoSymbol Print NoSymbol Print -keycode 219 = -keycode 220 = XF86WebCam NoSymbol XF86WebCam NoSymbol XF86WebCam -keycode 221 = -keycode 222 = -keycode 223 = XF86Mail NoSymbol XF86Mail NoSymbol XF86Mail -keycode 224 = -keycode 225 = XF86Search NoSymbol XF86Search NoSymbol XF86Search -keycode 226 = -keycode 227 = XF86Finance NoSymbol XF86Finance NoSymbol XF86Finance -keycode 228 = -keycode 229 = XF86Shop NoSymbol XF86Shop NoSymbol XF86Shop -keycode 230 = -keycode 231 = Cancel NoSymbol Cancel NoSymbol Cancel -keycode 232 = XF86MonBrightnessDown NoSymbol XF86MonBrightnessDown NoSymbol XF86MonBrightnessDown -keycode 233 = XF86MonBrightnessUp NoSymbol XF86MonBrightnessUp NoSymbol XF86MonBrightnessUp -keycode 234 = XF86AudioMedia NoSymbol XF86AudioMedia NoSymbol XF86AudioMedia -keycode 235 = XF86Display NoSymbol XF86Display NoSymbol XF86Display -keycode 236 = XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff -keycode 237 = XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown -keycode 238 = XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp -keycode 239 = XF86Send NoSymbol XF86Send NoSymbol XF86Send -keycode 240 = XF86Reply NoSymbol XF86Reply NoSymbol XF86Reply -keycode 241 = XF86MailForward NoSymbol XF86MailForward NoSymbol XF86MailForward -keycode 242 = XF86Save NoSymbol XF86Save NoSymbol XF86Save -keycode 243 = XF86Documents NoSymbol XF86Documents NoSymbol XF86Documents -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = - -!Original -!shift Shift_L (0x32), Shift_R (0x3e) -!lock Caps_Lock (0x42) -!control Control_L (0x25), Control_R (0x69) -!mod1 Alt_L (0x40), Alt_R (0x6c), Meta_L (0xcd) -!mod2 Num_Lock (0x4d) -!mod3 -!mod4 Super_L (0xce), Hyper_L (0xcf) -!mod5 ISO_Level3_Shift (0x5c), Mode_switch (0xcb) - -add shift = Shift_L Shift_R -add lock = Caps_Lock -add control = Control_L Control_R -add mod1 = Alt_L Alt_R Meta_L Meta_R -add mod2 = Num_Lock -add mod3 = Mode_switch -add mod4 = Super_L Super_R Hyper_L Hyper_R -add mod5 = ISO_Level3_Shift -keysym Menu = Mode_switch -keysym Alt_R = Hyper_L diff --git a/keymaps/dvorak-classic.pke b/keymaps/dvorak-classic.pke deleted file mode 100644 index 8f4f14b..0000000 --- a/keymaps/dvorak-classic.pke +++ /dev/null @@ -1,248 +0,0 @@ -keycode 8 = -keycode 9 = grave asciitilde -keycode 10 = 7 ampersand -keycode 11 = 5 percent -keycode 12 = 3 numbersign -keycode 13 = 1 exclam -keycode 14 = 9 parenleft -keycode 15 = 0 parenright -keycode 16 = 2 at -keycode 17 = 4 dollar -keycode 18 = 6 asciicircum -keycode 19 = 8 asterisk -keycode 20 = bracketleft braceleft -keycode 21 = bracketright braceright -keycode 22 = backslash -keycode 23 = Tab ISO_Left_Tab -keycode 24 = apostrophe quotedbl -keycode 25 = comma less -keycode 26 = period greater -keycode 27 = p P -keycode 28 = y Y -keycode 29 = f F -keycode 30 = g G -keycode 31 = c C -keycode 32 = r R -keycode 33 = l L -keycode 34 = slash question -keycode 35 = equal plus -keycode 36 = Return -keycode 37 = Caps_Lock -keycode 38 = a A -keycode 39 = o O -keycode 40 = e E -keycode 41 = u U -keycode 42 = i I -keycode 43 = d D -keycode 44 = h H -keycode 45 = t T -keycode 46 = n N -keycode 47 = s S -keycode 48 = minus underscore -keycode 49 = Escape -keycode 50 = Shift_L -keycode 51 = BackSpace bar -keycode 52 = semicolon colon -keycode 53 = q Q -keycode 54 = j J -keycode 55 = k K -keycode 56 = x X -keycode 57 = b B -keycode 58 = m M -keycode 59 = w W -keycode 60 = v V -keycode 61 = z Z -keycode 62 = Shift_R -keycode 63 = KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L -keycode 65 = space -keycode 66 = Control_L -keycode 67 = F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock -keycode 79 = KP_Home KP_7 -keycode 80 = KP_Up KP_8 -keycode 81 = KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 -keycode 84 = KP_Begin KP_5 -keycode 85 = KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 -keycode 88 = KP_Down KP_2 -keycode 89 = KP_Next KP_3 -keycode 90 = KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal -keycode 92 = -keycode 93 = Mode_switch -keycode 94 = less greater bar brokenbar bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 -keycode 97 = Home -keycode 98 = Up -keycode 99 = Prior -keycode 100 = Left -keycode 101 = -keycode 102 = Right -keycode 103 = End -keycode 104 = Down -keycode 105 = Next -keycode 106 = Insert -keycode 107 = Delete -keycode 108 = KP_Enter -keycode 109 = Control_R -keycode 110 = Pause Break -keycode 111 = Print Sys_Req -keycode 112 = KP_Divide XF86_Ungrab -keycode 113 = Alt_R Meta_R -keycode 114 = -keycode 115 = Super_L -keycode 116 = Super_R -keycode 117 = Menu -keycode 118 = -keycode 119 = -keycode 120 = -keycode 121 = -keycode 122 = -keycode 123 = -keycode 124 = ISO_Level3_Shift -keycode 125 = NoSymbol Alt_L -keycode 126 = KP_Equal -keycode 127 = NoSymbol Super_L -keycode 128 = NoSymbol Hyper_L -keycode 129 = -keycode 130 = -keycode 131 = -keycode 132 = -keycode 133 = -keycode 134 = -keycode 135 = -keycode 136 = -keycode 137 = -keycode 138 = -keycode 139 = -keycode 140 = -keycode 141 = -keycode 142 = -keycode 143 = -keycode 144 = -keycode 145 = -keycode 146 = -keycode 147 = -keycode 148 = -keycode 149 = -keycode 150 = -keycode 151 = -keycode 152 = -keycode 153 = -keycode 154 = -keycode 155 = -keycode 156 = NoSymbol Meta_L -keycode 157 = -keycode 158 = -keycode 159 = -keycode 160 = -keycode 161 = -keycode 162 = -keycode 163 = -keycode 164 = -keycode 165 = -keycode 166 = -keycode 167 = -keycode 168 = -keycode 169 = -keycode 170 = -keycode 171 = -keycode 172 = -keycode 173 = -keycode 174 = -keycode 175 = -keycode 176 = -keycode 177 = -keycode 178 = -keycode 179 = -keycode 180 = -keycode 181 = -keycode 182 = -keycode 183 = -keycode 184 = -keycode 185 = -keycode 186 = -keycode 187 = -keycode 188 = -keycode 189 = -keycode 190 = -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = -keycode 204 = -keycode 205 = -keycode 206 = -keycode 207 = -keycode 208 = -keycode 209 = -keycode 210 = -keycode 211 = -keycode 212 = -keycode 213 = -keycode 214 = XF86Display -keycode 215 = -keycode 216 = -keycode 217 = -keycode 218 = -keycode 219 = -keycode 220 = -keycode 221 = -keycode 222 = -keycode 223 = -keycode 224 = -keycode 225 = -keycode 226 = -keycode 227 = -keycode 228 = -keycode 229 = -keycode 230 = -keycode 231 = -keycode 232 = -keycode 233 = -keycode 234 = -keycode 235 = -keycode 236 = -keycode 237 = -keycode 238 = -keycode 239 = -keycode 240 = -keycode 241 = -keycode 242 = -keycode 243 = -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = diff --git a/keymaps/dvorak-linux.pke b/keymaps/dvorak-linux.pke deleted file mode 100644 index ccffdfe..0000000 --- a/keymaps/dvorak-linux.pke +++ /dev/null @@ -1,248 +0,0 @@ -keycode 8 = -keycode 9 = grave asciitilde -keycode 10 = 1 exclam -keycode 11 = 2 at -keycode 12 = 3 numbersign -keycode 13 = 4 dollar -keycode 14 = 5 percent -keycode 15 = 6 asciicircum -keycode 16 = 7 ampersand -keycode 17 = 8 asterisk -keycode 18 = 9 parenleft -keycode 19 = 0 parenright -keycode 20 = bracketleft braceleft -keycode 21 = bracketright braceright -keycode 22 = backslash bar -keycode 23 = Tab ISO_Left_Tab -keycode 24 = apostrophe quotedbl -keycode 25 = comma less -keycode 26 = period greater -keycode 27 = p P -keycode 28 = y Y -keycode 29 = f F -keycode 30 = g G -keycode 31 = c C -keycode 32 = r R -keycode 33 = l L -keycode 34 = slash question -keycode 35 = equal plus -keycode 36 = Return -keycode 37 = Control_L -keycode 38 = a A -keycode 39 = o O -keycode 40 = e E -keycode 41 = u U -keycode 42 = i I -keycode 43 = d D -keycode 44 = h H -keycode 45 = t T -keycode 46 = n N -keycode 47 = s S -keycode 48 = minus underscore -keycode 49 = Escape -keycode 50 = Shift_L -keycode 51 = BackSpace Terminate_Server -keycode 52 = semicolon colon -keycode 53 = q Q -keycode 54 = j J -keycode 55 = k K -keycode 56 = x X -keycode 57 = b B -keycode 58 = m M -keycode 59 = w W -keycode 60 = v V -keycode 61 = z Z -keycode 62 = Shift_R -keycode 63 = KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L -keycode 65 = space -keycode 66 = Caps_Lock -keycode 67 = F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock -keycode 79 = KP_Home KP_7 -keycode 80 = KP_Up KP_8 -keycode 81 = KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 -keycode 84 = KP_Begin KP_5 -keycode 85 = KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 -keycode 88 = KP_Down KP_2 -keycode 89 = KP_Next KP_3 -keycode 90 = KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal -keycode 92 = -keycode 93 = Mode_switch -keycode 94 = less greater bar brokenbar bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 -keycode 97 = Home -keycode 98 = Up -keycode 99 = Prior -keycode 100 = Left -keycode 101 = -keycode 102 = Right -keycode 103 = End -keycode 104 = Down -keycode 105 = Next -keycode 106 = Insert -keycode 107 = Delete -keycode 108 = KP_Enter -keycode 109 = Control_R -keycode 110 = Pause Break -keycode 111 = Print Sys_Req -keycode 112 = KP_Divide XF86_Ungrab -keycode 113 = Alt_R Meta_R -keycode 114 = -keycode 115 = Super_L -keycode 116 = Super_R -keycode 117 = Menu -keycode 118 = -keycode 119 = -keycode 120 = -keycode 121 = -keycode 122 = -keycode 123 = -keycode 124 = ISO_Level3_Shift -keycode 125 = NoSymbol Alt_L -keycode 126 = KP_Equal -keycode 127 = NoSymbol Super_L -keycode 128 = NoSymbol Hyper_L -keycode 129 = -keycode 130 = -keycode 131 = -keycode 132 = -keycode 133 = -keycode 134 = -keycode 135 = -keycode 136 = -keycode 137 = -keycode 138 = -keycode 139 = -keycode 140 = -keycode 141 = -keycode 142 = -keycode 143 = -keycode 144 = -keycode 145 = -keycode 146 = -keycode 147 = -keycode 148 = -keycode 149 = -keycode 150 = -keycode 151 = -keycode 152 = -keycode 153 = -keycode 154 = -keycode 155 = -keycode 156 = NoSymbol Meta_L -keycode 157 = -keycode 158 = -keycode 159 = -keycode 160 = -keycode 161 = -keycode 162 = -keycode 163 = -keycode 164 = -keycode 165 = -keycode 166 = -keycode 167 = -keycode 168 = -keycode 169 = -keycode 170 = -keycode 171 = -keycode 172 = -keycode 173 = -keycode 174 = -keycode 175 = -keycode 176 = -keycode 177 = -keycode 178 = -keycode 179 = -keycode 180 = -keycode 181 = -keycode 182 = -keycode 183 = -keycode 184 = -keycode 185 = -keycode 186 = -keycode 187 = -keycode 188 = -keycode 189 = -keycode 190 = -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = -keycode 204 = -keycode 205 = -keycode 206 = -keycode 207 = -keycode 208 = -keycode 209 = -keycode 210 = -keycode 211 = -keycode 212 = -keycode 213 = -keycode 214 = XF86Display -keycode 215 = -keycode 216 = -keycode 217 = -keycode 218 = -keycode 219 = -keycode 220 = -keycode 221 = -keycode 222 = -keycode 223 = -keycode 224 = -keycode 225 = -keycode 226 = -keycode 227 = -keycode 228 = -keycode 229 = -keycode 230 = -keycode 231 = -keycode 232 = -keycode 233 = -keycode 234 = -keycode 235 = -keycode 236 = -keycode 237 = -keycode 238 = -keycode 239 = -keycode 240 = -keycode 241 = -keycode 242 = -keycode 243 = -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = diff --git a/keymaps/dvorak-type7-sol.pke b/keymaps/dvorak-type7-sol.pke deleted file mode 100644 index 2f1495b..0000000 --- a/keymaps/dvorak-type7-sol.pke +++ /dev/null @@ -1,247 +0,0 @@ -keycode 8 = -keycode 9 = -keycode 10 = -keycode 11 = A -keycode 12 = X -keycode 13 = J -keycode 14 = e E EuroSign -keycode 15 = period greater -keycode 16 = U -keycode 17 = I -keycode 18 = D -keycode 19 = C -keycode 20 = H -keycode 21 = T -keycode 22 = N -keycode 23 = M -keycode 24 = B -keycode 25 = R -keycode 26 = L -keycode 27 = apostrophe quotedbl -keycode 28 = P -keycode 29 = O -keycode 30 = Y -keycode 31 = G -keycode 32 = K -keycode 33 = comma less -keycode 34 = Q -keycode 35 = F -keycode 36 = semicolon colon -keycode 37 = 1 exclam -keycode 38 = 2 at -keycode 39 = 3 numbersign -keycode 40 = 4 dollar EuroSign -keycode 41 = 5 percent EuroSign -keycode 42 = 6 asciicircum -keycode 43 = 7 ampersand -keycode 44 = 8 asterisk -keycode 45 = 9 parenleft -keycode 46 = 0 parenright -keycode 47 = Return -keycode 48 = Escape -keycode 49 = BackSpace -keycode 50 = Tab -keycode 51 = space -keycode 52 = bracketleft braceleft -keycode 53 = bracketright braceright -keycode 54 = slash question -keycode 55 = equal plus -keycode 56 = backslash bar brokenbar -keycode 57 = backslash bar brokenbar -keycode 58 = S -keycode 59 = minus underscore -keycode 60 = grave asciitilde -keycode 61 = W -keycode 62 = V -keycode 63 = Z -keycode 64 = Caps_Lock -keycode 65 = F1 -keycode 66 = F2 -keycode 67 = F3 -keycode 68 = F4 -keycode 69 = F5 -keycode 70 = F6 -keycode 71 = F7 -keycode 72 = F8 -keycode 73 = F9 -keycode 74 = F10 -keycode 75 = SunF36 -keycode 76 = SunF37 -keycode 77 = F22 F22 Print SunSys_Req -keycode 78 = F23 F23 Scroll_Lock -keycode 79 = F21 F21 Pause Break -keycode 80 = Insert -keycode 81 = Home -keycode 82 = Prior -keycode 83 = Delete -keycode 84 = End -keycode 85 = Next -keycode 86 = Right -keycode 87 = Left -keycode 88 = Down -keycode 89 = Up -keycode 90 = Num_Lock -keycode 91 = F25 F25 KP_Divide -keycode 92 = F26 F26 KP_Multiply -keycode 93 = F24 F24 KP_Subtract -keycode 94 = KP_Add -keycode 95 = KP_Enter -keycode 96 = F33 F33 KP_1 End -keycode 97 = Down F34 KP_2 -keycode 98 = F35 F35 KP_3 Next -keycode 99 = Left F30 KP_4 -keycode 100 = F31 F31 KP_5 -keycode 101 = Right F32 KP_6 -keycode 102 = F27 F27 KP_7 Home -keycode 103 = Up F28 KP_8 -keycode 104 = F29 F29 KP_9 Prior -keycode 105 = KP_Insert KP_Insert KP_0 -keycode 106 = Delete Delete KP_Decimal -keycode 107 = -keycode 108 = Multi_key -keycode 109 = SunPowerSwitch SunPowerSwitchShift -keycode 110 = -keycode 111 = -keycode 112 = -keycode 113 = -keycode 114 = -keycode 115 = -keycode 116 = -keycode 117 = -keycode 118 = -keycode 119 = -keycode 120 = -keycode 121 = -keycode 122 = -keycode 123 = F17 F17 SunOpen -keycode 124 = Help -keycode 125 = F13 F13 SunProps -keycode 126 = F15 F15 SunFront -keycode 127 = F11 F11 Cancel -keycode 128 = F12 F12 Redo -keycode 129 = F14 F14 Undo -keycode 130 = F20 F20 SunCut -keycode 131 = F16 F16 SunCopy -keycode 132 = F18 F18 SunPaste -keycode 133 = F19 F19 Find -keycode 134 = SunAudioMute SunVideoDegauss -keycode 135 = SunAudioRaiseVolume SunVideoRaiseBrightness -keycode 136 = SunAudioLowerVolume SunVideoLowerBrightness -keycode 137 = -keycode 138 = -keycode 139 = -keycode 140 = -keycode 141 = -keycode 142 = -keycode 143 = -keycode 144 = -keycode 145 = -keycode 146 = -keycode 147 = -keycode 148 = -keycode 149 = -keycode 150 = -keycode 151 = -keycode 152 = -keycode 153 = -keycode 154 = -keycode 155 = -keycode 156 = -keycode 157 = -keycode 158 = -keycode 159 = -keycode 160 = -keycode 161 = -keycode 162 = -keycode 163 = -keycode 164 = -keycode 165 = -keycode 166 = -keycode 167 = -keycode 168 = -keycode 169 = -keycode 170 = -keycode 171 = -keycode 172 = -keycode 173 = -keycode 174 = -keycode 175 = -keycode 176 = -keycode 177 = -keycode 178 = -keycode 179 = -keycode 180 = -keycode 181 = -keycode 182 = -keycode 183 = -keycode 184 = -keycode 185 = -keycode 186 = -keycode 187 = -keycode 188 = -keycode 189 = -keycode 190 = -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = -keycode 204 = -keycode 205 = -keycode 206 = -keycode 207 = -keycode 208 = -keycode 209 = -keycode 210 = -keycode 211 = -keycode 212 = -keycode 213 = -keycode 214 = -keycode 215 = -keycode 216 = -keycode 217 = -keycode 218 = -keycode 219 = -keycode 220 = -keycode 221 = -keycode 222 = -keycode 223 = -keycode 224 = -keycode 225 = -keycode 226 = -keycode 227 = -keycode 228 = -keycode 229 = -keycode 230 = -keycode 231 = Control_L -keycode 232 = Shift_L -keycode 233 = Alt_L -keycode 234 = Meta_L -keycode 235 = Control_R -keycode 236 = Shift_R -keycode 237 = Mode_switch -keycode 238 = Meta_R -keycode 239 = -keycode 240 = -keycode 241 = -keycode 242 = -keycode 243 = -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = diff --git a/keymaps/dvorak-type7.pke b/keymaps/dvorak-type7.pke deleted file mode 100644 index 1144b4d..0000000 --- a/keymaps/dvorak-type7.pke +++ /dev/null @@ -1,248 +0,0 @@ -keycode 8 = -keycode 9 = Escape -keycode 10 = 7 ampersand -keycode 11 = 5 percent -keycode 12 = 3 numbersign -keycode 13 = 1 exclam -keycode 14 = 9 parenleft -keycode 15 = 0 parenright -keycode 16 = 2 at -keycode 17 = 4 dollar -keycode 18 = 6 asciicircum -keycode 19 = 8 asterisk -keycode 20 = bracketleft braceleft -keycode 21 = bracketright braceright -keycode 22 = BackSpace -keycode 23 = Tab ISO_Left_Tab -keycode 24 = apostrophe quotedbl -keycode 25 = comma less -keycode 26 = period greater -keycode 27 = p P -keycode 28 = y Y -keycode 29 = f F -keycode 30 = g G -keycode 31 = c C -keycode 32 = r R -keycode 33 = l L -keycode 34 = slash question -keycode 35 = equal plus -keycode 36 = Return -keycode 37 = Control_L -keycode 38 = a A -keycode 39 = o O -keycode 40 = e E -keycode 41 = u U -keycode 42 = i I -keycode 43 = d D -keycode 44 = h H -keycode 45 = t T -keycode 46 = n N -keycode 47 = s S -keycode 48 = minus underscore -keycode 49 = grave asciitilde -keycode 50 = Shift_L -keycode 51 = backslash bar -keycode 52 = semicolon colon -keycode 53 = q Q -keycode 54 = j J -keycode 55 = k K -keycode 56 = x X -keycode 57 = b B -keycode 58 = m M -keycode 59 = w W -keycode 60 = v V -keycode 61 = z Z -keycode 62 = Shift_R -keycode 63 = KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L -keycode 65 = space -keycode 66 = Caps_Lock -keycode 67 = F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock -keycode 79 = KP_Home KP_7 -keycode 80 = KP_Up KP_8 -keycode 81 = KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 -keycode 84 = KP_Begin KP_5 -keycode 85 = KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 -keycode 88 = KP_Down KP_2 -keycode 89 = KP_Next KP_3 -keycode 90 = KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal -keycode 92 = -keycode 93 = Mode_switch -keycode 94 = less greater bar brokenbar bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 -keycode 97 = Home -keycode 98 = Up -keycode 99 = Prior -keycode 100 = Left -keycode 101 = -keycode 102 = Right -keycode 103 = End -keycode 104 = Down -keycode 105 = Next -keycode 106 = Insert -keycode 107 = Delete -keycode 108 = KP_Enter -keycode 109 = Control_R -keycode 110 = Pause Break -keycode 111 = Print Sys_Req -keycode 112 = KP_Divide XF86_Ungrab -keycode 113 = Alt_R Meta_R -keycode 114 = -keycode 115 = Super_L -keycode 116 = Super_R -keycode 117 = Menu -keycode 118 = -keycode 119 = -keycode 120 = -keycode 121 = -keycode 122 = -keycode 123 = -keycode 124 = ISO_Level3_Shift -keycode 125 = NoSymbol Alt_L -keycode 126 = KP_Equal -keycode 127 = NoSymbol Super_L -keycode 128 = NoSymbol Hyper_L -keycode 129 = -keycode 130 = -keycode 131 = -keycode 132 = -keycode 133 = -keycode 134 = -keycode 135 = -keycode 136 = -keycode 137 = -keycode 138 = -keycode 139 = -keycode 140 = -keycode 141 = -keycode 142 = -keycode 143 = -keycode 144 = -keycode 145 = -keycode 146 = -keycode 147 = -keycode 148 = -keycode 149 = -keycode 150 = -keycode 151 = -keycode 152 = -keycode 153 = -keycode 154 = -keycode 155 = -keycode 156 = NoSymbol Meta_L -keycode 157 = -keycode 158 = -keycode 159 = -keycode 160 = -keycode 161 = -keycode 162 = -keycode 163 = -keycode 164 = -keycode 165 = -keycode 166 = -keycode 167 = -keycode 168 = -keycode 169 = -keycode 170 = -keycode 171 = -keycode 172 = -keycode 173 = -keycode 174 = -keycode 175 = -keycode 176 = -keycode 177 = -keycode 178 = -keycode 179 = -keycode 180 = -keycode 181 = -keycode 182 = -keycode 183 = -keycode 184 = -keycode 185 = -keycode 186 = -keycode 187 = -keycode 188 = -keycode 189 = -keycode 190 = -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = -keycode 204 = -keycode 205 = -keycode 206 = -keycode 207 = -keycode 208 = -keycode 209 = -keycode 210 = -keycode 211 = -keycode 212 = -keycode 213 = -keycode 214 = XF86Display -keycode 215 = -keycode 216 = -keycode 217 = -keycode 218 = -keycode 219 = -keycode 220 = -keycode 221 = -keycode 222 = -keycode 223 = -keycode 224 = -keycode 225 = -keycode 226 = -keycode 227 = -keycode 228 = -keycode 229 = -keycode 230 = -keycode 231 = -keycode 232 = -keycode 233 = -keycode 234 = -keycode 235 = -keycode 236 = -keycode 237 = -keycode 238 = -keycode 239 = -keycode 240 = -keycode 241 = -keycode 242 = -keycode 243 = -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = diff --git a/keymaps/dvorak.pke b/keymaps/dvorak.pke deleted file mode 100644 index 4b04fc3..0000000 --- a/keymaps/dvorak.pke +++ /dev/null @@ -1,248 +0,0 @@ -keycode 8 = -keycode 9 = grave asciitilde -keycode 10 = 1 exclam -keycode 11 = 2 at -keycode 12 = 3 numbersign -keycode 13 = 4 dollar -keycode 14 = 5 percent -keycode 15 = 6 asciicircum -keycode 16 = 7 ampersand -keycode 17 = 8 asterisk -keycode 18 = 9 parenleft -keycode 19 = 0 parenright -keycode 20 = bracketleft braceleft -keycode 21 = bracketright braceright -keycode 22 = backslash Terminate_Server -keycode 23 = Tab ISO_Left_Tab -keycode 24 = apostrophe quotedbl -keycode 25 = comma less -keycode 26 = period greater -keycode 27 = p P -keycode 28 = y Y -keycode 29 = f F -keycode 30 = g G -keycode 31 = c C -keycode 32 = r R -keycode 33 = l L -keycode 34 = slash question -keycode 35 = equal plus -keycode 36 = Return -keycode 37 = Control_L -keycode 38 = a A -keycode 39 = o O -keycode 40 = e E -keycode 41 = u U -keycode 42 = i I -keycode 43 = d D -keycode 44 = h H -keycode 45 = t T -keycode 46 = n N -keycode 47 = s S -keycode 48 = minus underscore -keycode 49 = Escape -keycode 50 = Shift_L -keycode 51 = BackSpace bar -keycode 52 = semicolon colon -keycode 53 = q Q -keycode 54 = j J -keycode 55 = k K -keycode 56 = x X -keycode 57 = b B -keycode 58 = m M -keycode 59 = w W -keycode 60 = v V -keycode 61 = z Z -keycode 62 = Shift_R -keycode 63 = KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L -keycode 65 = space -keycode 66 = Caps_Lock -keycode 67 = F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock -keycode 79 = KP_Home KP_7 -keycode 80 = KP_Up KP_8 -keycode 81 = KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 -keycode 84 = KP_Begin KP_5 -keycode 85 = KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 -keycode 88 = KP_Down KP_2 -keycode 89 = KP_Next KP_3 -keycode 90 = KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal -keycode 92 = -keycode 93 = Mode_switch -keycode 94 = less greater bar brokenbar bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 -keycode 97 = Home -keycode 98 = Up -keycode 99 = Prior -keycode 100 = Left -keycode 101 = -keycode 102 = Right -keycode 103 = End -keycode 104 = Down -keycode 105 = Next -keycode 106 = Insert -keycode 107 = Delete -keycode 108 = KP_Enter -keycode 109 = Control_R -keycode 110 = Pause Break -keycode 111 = Print Sys_Req -keycode 112 = KP_Divide XF86_Ungrab -keycode 113 = Alt_R Meta_R -keycode 114 = -keycode 115 = Super_L -keycode 116 = Super_R -keycode 117 = Menu -keycode 118 = -keycode 119 = -keycode 120 = -keycode 121 = -keycode 122 = -keycode 123 = -keycode 124 = ISO_Level3_Shift -keycode 125 = NoSymbol Alt_L -keycode 126 = KP_Equal -keycode 127 = NoSymbol Super_L -keycode 128 = NoSymbol Hyper_L -keycode 129 = -keycode 130 = -keycode 131 = -keycode 132 = -keycode 133 = -keycode 134 = -keycode 135 = -keycode 136 = -keycode 137 = -keycode 138 = -keycode 139 = -keycode 140 = -keycode 141 = -keycode 142 = -keycode 143 = -keycode 144 = -keycode 145 = -keycode 146 = -keycode 147 = -keycode 148 = -keycode 149 = -keycode 150 = -keycode 151 = -keycode 152 = -keycode 153 = -keycode 154 = -keycode 155 = -keycode 156 = NoSymbol Meta_L -keycode 157 = -keycode 158 = -keycode 159 = -keycode 160 = -keycode 161 = -keycode 162 = -keycode 163 = -keycode 164 = -keycode 165 = -keycode 166 = -keycode 167 = -keycode 168 = -keycode 169 = -keycode 170 = -keycode 171 = -keycode 172 = -keycode 173 = -keycode 174 = -keycode 175 = -keycode 176 = -keycode 177 = -keycode 178 = -keycode 179 = -keycode 180 = -keycode 181 = -keycode 182 = -keycode 183 = -keycode 184 = -keycode 185 = -keycode 186 = -keycode 187 = -keycode 188 = -keycode 189 = -keycode 190 = -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = -keycode 204 = -keycode 205 = -keycode 206 = -keycode 207 = -keycode 208 = -keycode 209 = -keycode 210 = -keycode 211 = -keycode 212 = -keycode 213 = -keycode 214 = XF86Display -keycode 215 = -keycode 216 = -keycode 217 = -keycode 218 = -keycode 219 = -keycode 220 = -keycode 221 = -keycode 222 = -keycode 223 = -keycode 224 = -keycode 225 = -keycode 226 = -keycode 227 = -keycode 228 = -keycode 229 = -keycode 230 = -keycode 231 = -keycode 232 = -keycode 233 = -keycode 234 = -keycode 235 = -keycode 236 = -keycode 237 = -keycode 238 = -keycode 239 = -keycode 240 = -keycode 241 = -keycode 242 = -keycode 243 = -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = diff --git a/keymaps/eo_dv.pke b/keymaps/eo_dv.pke deleted file mode 100644 index 8e14a16..0000000 --- a/keymaps/eo_dv.pke +++ /dev/null @@ -1,248 +0,0 @@ -keycode 8 = -keycode 9 = Escape NoSymbol Escape NoSymbol Escape -keycode 10 = 1 exclam 1 exclam 1 exclam -keycode 11 = 2 at 2 at 2 at -keycode 12 = 3 numbersign 3 numbersign 3 numbersign -keycode 13 = 4 dollar 4 dollar 4 dollar -keycode 14 = 5 percent 5 percent EuroSign -keycode 15 = 6 dead_circumflex 6 dead_circumflex asciicircum asciicircum -keycode 16 = 7 ampersand 7 ampersand 7 ampersand -keycode 17 = 8 asterisk 8 asterisk 8 asterisk -keycode 18 = 9 parenleft 9 parenleft leftsinglequotemark dead_breve -keycode 19 = 0 parenright 0 parenright rightsinglequotemark dead_abovering -keycode 20 = bracketleft braceleft bracketleft braceleft bracketleft braceleft -keycode 21 = bracketright braceright bracketright braceright bracketright braceright -keycode 22 = BackSpace Terminate_Server BackSpace Terminate_Server BackSpace Terminate_Server -keycode 23 = Tab ISO_Left_Tab Tab ISO_Left_Tab Tab ISO_Left_Tab -keycode 24 = dead_acute dead_diaeresis dead_acute dead_diaeresis apostrophe quotedbl -keycode 25 = comma less comma less dead_cedilla dead_caron -keycode 26 = period greater period greater dead_abovedot dead_circumflex -keycode 27 = p P p P p P -keycode 28 = y Y y Y y Y -keycode 29 = f F f F f F -keycode 30 = g G g G g G -keycode 31 = c C c C c C -keycode 32 = r R r R r R -keycode 33 = l L l L l L -keycode 34 = slash question slash question dead_hook dead_hook -keycode 35 = equal plus equal plus dead_doubleacute dead_horn -keycode 36 = Return NoSymbol Return NoSymbol Return -keycode 37 = Control_L NoSymbol Control_L NoSymbol Control_L -keycode 38 = a A a A a A -keycode 39 = o O o O o O -keycode 40 = e E e E EuroSign cent -keycode 41 = u U u U u U -keycode 42 = i I i I i I -keycode 43 = d D d D d D -keycode 44 = h H h H h H -keycode 45 = t T t T t T -keycode 46 = n N n N n N -keycode 47 = s S s S s S -keycode 48 = minus underscore minus underscore dead_macron dead_belowdot -keycode 49 = dead_grave dead_tilde dead_grave dead_tilde grave asciitilde -keycode 50 = Shift_L NoSymbol Shift_L NoSymbol Shift_L -keycode 51 = backslash bar backslash bar backslash bar -keycode 52 = semicolon colon semicolon colon dead_ogonek dead_diaeresis -keycode 53 = q Q q Q q Q -keycode 54 = j J j J j J -keycode 55 = k K k K k K -keycode 56 = x X x X x X -keycode 57 = b B b B b B -keycode 58 = m M m M m M -keycode 59 = w W w W w W -keycode 60 = v V v V v V -keycode 61 = z Z z Z z Z -keycode 62 = Shift_R NoSymbol Shift_R NoSymbol Shift_R -keycode 63 = KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L Alt_L Meta_L Alt_L Meta_L -keycode 65 = space NoSymbol space NoSymbol space -keycode 66 = Caps_Lock NoSymbol Caps_Lock NoSymbol Caps_Lock -keycode 67 = F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock NoSymbol Scroll_Lock NoSymbol Scroll_Lock -keycode 79 = KP_Home KP_7 KP_Home KP_7 KP_Home KP_7 -keycode 80 = KP_Up KP_8 KP_Up KP_8 KP_Up KP_8 -keycode 81 = KP_Prior KP_9 KP_Prior KP_9 KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 KP_Left KP_4 KP_Left KP_4 -keycode 84 = KP_Begin KP_5 KP_Begin KP_5 KP_Begin KP_5 -keycode 85 = KP_Right KP_6 KP_Right KP_6 KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 KP_End KP_1 KP_End KP_1 -keycode 88 = KP_Down KP_2 KP_Down KP_2 KP_Down KP_2 -keycode 89 = KP_Next KP_3 KP_Next KP_3 KP_Next KP_3 -keycode 90 = KP_Insert KP_0 KP_Insert KP_0 KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal KP_Delete KP_Decimal KP_Delete KP_Decimal -keycode 92 = -keycode 93 = Mode_switch NoSymbol Mode_switch NoSymbol Mode_switch -keycode 94 = less greater less greater bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 -keycode 97 = Home NoSymbol Home NoSymbol Home -keycode 98 = Up NoSymbol Up NoSymbol Up -keycode 99 = Prior NoSymbol Prior NoSymbol Prior -keycode 100 = Left NoSymbol Left NoSymbol Left -keycode 101 = -keycode 102 = Right NoSymbol Right NoSymbol Right -keycode 103 = End NoSymbol End NoSymbol End -keycode 104 = Down NoSymbol Down NoSymbol Down -keycode 105 = Next NoSymbol Next NoSymbol Next -keycode 106 = Insert NoSymbol Insert NoSymbol Insert -keycode 107 = Delete NoSymbol Delete NoSymbol Delete -keycode 108 = KP_Enter NoSymbol KP_Enter NoSymbol KP_Enter -keycode 109 = Control_R NoSymbol Control_R NoSymbol Control_R -keycode 110 = Pause Break Pause Break Pause Break -keycode 111 = Print Sys_Req Print Sys_Req Print Sys_Req -keycode 112 = KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab -keycode 113 = ISO_Level3_Shift NoSymbol ISO_Level3_Shift NoSymbol ISO_Level3_Shift -keycode 114 = -keycode 115 = Super_L NoSymbol Super_L NoSymbol Super_L -keycode 116 = Super_R NoSymbol Super_R NoSymbol Super_R -keycode 117 = Menu NoSymbol Menu NoSymbol Menu -keycode 118 = -keycode 119 = -keycode 120 = -keycode 121 = -keycode 122 = -keycode 123 = -keycode 124 = ISO_Level3_Shift NoSymbol ISO_Level3_Shift NoSymbol ISO_Level3_Shift -keycode 125 = NoSymbol Alt_L NoSymbol Alt_L NoSymbol Alt_L -keycode 126 = KP_Equal NoSymbol KP_Equal NoSymbol KP_Equal -keycode 127 = NoSymbol Super_L NoSymbol Super_L NoSymbol Super_L -keycode 128 = NoSymbol Hyper_L NoSymbol Hyper_L NoSymbol Hyper_L -keycode 129 = -keycode 130 = -keycode 131 = -keycode 132 = -keycode 133 = -keycode 134 = -keycode 135 = -keycode 136 = -keycode 137 = -keycode 138 = -keycode 139 = -keycode 140 = -keycode 141 = -keycode 142 = -keycode 143 = -keycode 144 = -keycode 145 = -keycode 146 = -keycode 147 = -keycode 148 = -keycode 149 = -keycode 150 = -keycode 151 = -keycode 152 = -keycode 153 = -keycode 154 = -keycode 155 = -keycode 156 = NoSymbol Meta_L NoSymbol Meta_L NoSymbol Meta_L -keycode 157 = -keycode 158 = -keycode 159 = -keycode 160 = -keycode 161 = -keycode 162 = -keycode 163 = -keycode 164 = -keycode 165 = -keycode 166 = -keycode 167 = -keycode 168 = -keycode 169 = -keycode 170 = -keycode 171 = -keycode 172 = -keycode 173 = -keycode 174 = -keycode 175 = -keycode 176 = -keycode 177 = -keycode 178 = -keycode 179 = -keycode 180 = -keycode 181 = -keycode 182 = -keycode 183 = -keycode 184 = -keycode 185 = -keycode 186 = -keycode 187 = -keycode 188 = -keycode 189 = -keycode 190 = -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = -keycode 204 = -keycode 205 = -keycode 206 = -keycode 207 = -keycode 208 = -keycode 209 = -keycode 210 = -keycode 211 = -keycode 212 = -keycode 213 = -keycode 214 = XF86Display NoSymbol XF86Display NoSymbol XF86Display -keycode 215 = XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff -keycode 216 = XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown -keycode 217 = XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp -keycode 218 = -keycode 219 = -keycode 220 = -keycode 221 = -keycode 222 = -keycode 223 = -keycode 224 = -keycode 225 = -keycode 226 = -keycode 227 = -keycode 228 = -keycode 229 = -keycode 230 = -keycode 231 = -keycode 232 = -keycode 233 = -keycode 234 = -keycode 235 = -keycode 236 = -keycode 237 = -keycode 238 = -keycode 239 = -keycode 240 = -keycode 241 = -keycode 242 = -keycode 243 = -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = diff --git a/keymaps/eo_dv.xkb b/keymaps/eo_dv.xkb deleted file mode 100644 index 1753f87..0000000 --- a/keymaps/eo_dv.xkb +++ /dev/null @@ -1,67 +0,0 @@ -// based on a keyboard map from an 'xkb/symbols/dk' file -// Esperanto orthographics added by -// eg AltGr-j gives j^ -// -// $XFree86: xc/programs/xkbcomp/symbols/dvorak,v 1.5 2004/01/03 16:35:07 herrb Exp $ - -partial alphanumeric_keys -xkb_symbols "dvorak" { - - name[Group1]= "U.S. English - Dvorak"; - - // Alphanumeric section - - key { [ grave, asciitilde, dead_grave, dead_tilde ] }; - - key { [ 1, exclam ] }; - key { [ 2, at ] }; - key { [ 3, numbersign ] }; - key { [ 4, dollar ] }; - key { [ 5, percent ] }; - key { [ 6, asciicircum, dead_circumflex, dead_circumflex ] }; - key { [ 7, ampersand ] }; - key { [ 8, asterisk ] }; - key { [ 9, parenleft, dead_grave] }; - key { [ 0, parenright ] }; - key { [ bracketleft, braceleft ] }; - key { [ bracketright, braceright, dead_tilde] }; - - key { [ apostrophe, quotedbl, dead_acute, dead_diaeresis ] }; - key { [ comma, less, dead_cedilla, dead_caron ] }; - key { [ period, greater, dead_abovedot, periodcentered ] }; - key { [ p, P ] }; - key { [ y, Y ] }; - key { [ f, F ] }; - key { [ g, G, gcircumflex, Gcircumflex ] }; - key { [ c, C, ccircumflex, Ccircumflex ] }; - key { [ r, R ] }; - key { [ l, L ] }; - key { [ slash, question ] }; - key { [ equal, plus ] }; - - key { [ a, A ] }; - key { [ o, O ] }; - key { [ e, E ] }; - key { [ u, U, ubreve, Ubreve ] }; - key { [ i, I ] }; - key { [ d, D ] }; - key { [ h, H, hcircumflex, Hcircumflex ] }; - key { [ t, T ] }; - key { [ n, N ] }; - key { [ s, S, scircumflex, Scircumflex ] }; - key { [ minus, underscore ] }; - - key { [ semicolon, colon, dead_ogonek, dead_doubleacute ] }; - key { [ q, Q ] }; - key { [ j, J, jcircumflex, Jcircumflex ] }; - key { [ k, K ] }; - key { [ x, X ] }; - key { [ b, B ] }; - key { [ m, M ] }; - key { [ w, W ] }; - key { [ v, V ] }; - key { [ z, Z ] }; - - key { [ ISO_Level3_Shift ] }; -}; - diff --git a/keymaps/eo_dv_hunner.pke b/keymaps/eo_dv_hunner.pke deleted file mode 100644 index 5933fe3..0000000 --- a/keymaps/eo_dv_hunner.pke +++ /dev/null @@ -1,292 +0,0 @@ -clear Shift -clear Lock -clear Control -clear Mod1 -clear Mod2 -clear Mod3 -clear Mod4 -clear Mod5 - -keycode 8 = -keycode 9 = grave asciitilde dead_grave dead_tilde -keycode 10 = 7 ampersand 7 ampersand -keycode 11 = 5 percent EuroSign cent -keycode 12 = 3 numbersign 3 numbersign -keycode 13 = 1 exclam 1 exclam -keycode 14 = 9 parenleft leftsinglequotemark leftdoublequotemark -keycode 15 = 0 parenright rightsinglequotemark rightdoublequotemark -keycode 16 = 2 at 2 at -keycode 17 = 4 dollar 4 dollar -keycode 18 = 6 asciicircum dead_circumflex asciicircum -keycode 19 = 8 asterisk 8 asterisk -keycode 20 = bracketleft braceleft bracketleft braceleft -keycode 21 = bracketright braceright bracketright braceright -keycode 22 = backslash bar brokenbar brokenbar -keycode 23 = Tab ISO_Left_Tab Tab ISO_Left_Tab -keycode 24 = apostrophe quotedbl dead_acute dead_diaeresis -keycode 25 = comma less dead_cedilla dead_caron -keycode 26 = period greater dead_breve dead_abovedot -keycode 27 = p P paragraph P -keycode 28 = y Y yen heart -keycode 29 = f F f F -keycode 30 = g G gcircumflex Gcircumflex -keycode 31 = c C ccircumflex Ccircumflex -keycode 32 = r R r R -keycode 33 = l L l L -keycode 34 = slash question dead_hook dead_hook -keycode 35 = equal plus dead_doubleacute dead_horn -keycode 36 = Return NoSymbol Return -keycode 37 = Caps_Lock NoSymbol Caps_Lock -keycode 38 = a A a A -keycode 39 = o O o O -keycode 40 = e E EuroSign cent -keycode 41 = u U U016D U016C -keycode 42 = i I i I -keycode 43 = d D d D -keycode 44 = h H hcircumflex Hcircumflex -keycode 45 = t T t T -keycode 46 = n N n N -keycode 47 = s S scircumflex Scircumflex -keycode 48 = minus underscore dead_macron dead_belowdot -keycode 49 = Escape dead_circumflex dead_grave dead_tilde -keycode 50 = Shift_L NoSymbol Shift_L -keycode 51 = BackSpace bar BackSpace brokenbar -keycode 52 = semicolon colon dead_ogonek dead_diaeresis -keycode 53 = q Q q Q -keycode 54 = j J jcircumflex Jcircumflex -keycode 55 = k K k K -keycode 56 = x X x X -keycode 57 = b B b B -keycode 58 = m M m M -keycode 59 = w W w W -keycode 60 = v V v V -keycode 61 = z Z z Z -keycode 62 = Shift_R NoSymbol Shift_R -keycode 63 = KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L Alt_L Meta_L -keycode 65 = space NoSymbol space -keycode 66 = Control_L NoSymbol Control_L -keycode 67 = F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock NoSymbol Scroll_Lock -keycode 79 = KP_Home KP_7 KP_Home KP_7 -keycode 80 = KP_Up KP_8 KP_Up KP_8 -keycode 81 = KP_Prior KP_9 KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 KP_Left KP_4 -keycode 84 = KP_Begin KP_5 KP_Begin KP_5 -keycode 85 = KP_Right KP_6 KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 KP_End KP_1 -keycode 88 = KP_Down KP_2 KP_Down KP_2 -keycode 89 = KP_Next KP_3 KP_Next KP_3 -keycode 90 = KP_Insert KP_0 KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal KP_Delete KP_Decimal -keycode 92 = -keycode 93 = ISO_Level3_Shift NoSymbol ISO_Level3_Shift -keycode 94 = less greater bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 -keycode 97 = Home NoSymbol Home -keycode 98 = Up NoSymbol Up -keycode 99 = Prior NoSymbol Prior -keycode 100 = Left NoSymbol Left -keycode 101 = -keycode 102 = Right NoSymbol Right -keycode 103 = End NoSymbol End -keycode 104 = Down NoSymbol Down -keycode 105 = Next NoSymbol Next -keycode 106 = Insert NoSymbol Insert -keycode 107 = Delete NoSymbol Delete -keycode 108 = KP_Enter NoSymbol KP_Enter -keycode 109 = Control_R NoSymbol Control_R -keycode 110 = Pause Break Pause Break -keycode 111 = Print Sys_Req Print Sys_Req -keycode 112 = KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab -keycode 113 = Mode_switch Multi_key Mode_switch Multi_key -keycode 114 = -keycode 115 = Super_L Hyper_L Super_L Hyper_L -keycode 116 = Menu NoSymbol Menu -keycode 117 = Super_R Hyper_R Super_R Hyper_R -keycode 118 = -keycode 119 = -keycode 120 = -keycode 121 = -keycode 122 = -keycode 123 = -keycode 124 = ISO_Level3_Shift NoSymbol ISO_Level3_Shift -keycode 125 = NoSymbol Alt_L NoSymbol Alt_L -keycode 126 = KP_Equal NoSymbol KP_Equal -keycode 127 = NoSymbol Super_L NoSymbol Super_L -keycode 128 = NoSymbol Hyper_L NoSymbol Hyper_L -keycode 129 = -keycode 130 = -keycode 131 = -keycode 132 = -keycode 133 = -keycode 134 = -keycode 135 = -keycode 136 = -keycode 137 = -keycode 138 = -keycode 139 = -keycode 140 = -keycode 141 = -keycode 142 = -keycode 143 = -keycode 144 = -keycode 145 = -keycode 146 = -keycode 147 = -keycode 148 = -keycode 149 = -keycode 150 = -keycode 151 = -keycode 152 = -keycode 153 = -keycode 154 = -keycode 155 = -keycode 156 = NoSymbol Meta_L NoSymbol Meta_L -keycode 157 = -keycode 158 = -keycode 159 = -keycode 160 = -keycode 161 = -keycode 162 = -keycode 163 = -keycode 164 = -keycode 165 = -keycode 166 = -keycode 167 = -keycode 168 = -keycode 169 = -keycode 170 = -keycode 171 = -keycode 172 = -keycode 173 = -keycode 174 = -keycode 175 = -keycode 176 = -keycode 177 = -keycode 178 = -keycode 179 = -keycode 180 = -keycode 181 = -keycode 182 = -keycode 183 = -keycode 184 = -keycode 185 = -keycode 186 = -keycode 187 = -keycode 188 = -keycode 189 = -keycode 190 = -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = -keycode 204 = -keycode 205 = -keycode 206 = -keycode 207 = -keycode 208 = -keycode 209 = -keycode 210 = -keycode 211 = -keycode 212 = -keycode 213 = -keycode 214 = XF86Display NoSymbol XF86Display -!keycode 215 = XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff -!keycode 216 = XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown -!keycode 217 = XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp -keycode 218 = -keycode 219 = -keycode 220 = -keycode 221 = -keycode 222 = -keycode 223 = -keycode 224 = -keycode 225 = -keycode 226 = -keycode 227 = -keycode 228 = -keycode 229 = -keycode 230 = -keycode 231 = -keycode 232 = -keycode 233 = -keycode 234 = -keycode 235 = -keycode 236 = -keycode 237 = -keycode 238 = -keycode 239 = -keycode 240 = -keycode 241 = -keycode 242 = -keycode 243 = -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = - -!Original -!shift Shift_L (0x32), Shift_R (0x3e) -!lock Control_L (0x25) -!control , Control_R (0x6d), Caps_Lock (0x42) -!mod1 Alt_L (0x40), Alt_R (0x71), Meta_L (0x9c) -!mod2 Num_Lock (0x4d) -!mod3 -!mod4 Super_L (0x7f), Hyper_L (0x80) -!mod5 Mode_switch (0x5d), ISO_Level3_Shift (0x7c) - -!2nd -!shift Shift_L (0x32), Shift_R (0x3e) -!lock Caps_Lock (0x25) -!control , Control_R (0x6d), Control_L (0x42) -!mod1 Alt_L (0x40), Alt_L (0x7d), ISO_Level3_Shift (0x71), ISO_Level3_Shift (0x7c), Meta_L (0x9c) -!mod2 Num_Lock (0x4d) -!mod3 -!mod4 Super_L (0x73), Super_L (0x7f), Hyper_L (0x80) -!mod5 Mode_switch (0x5d), ISO_Level3_Shift (0x71), ISO_Level3_Shift (0x7c) - -add shift = Shift_L Shift_R -add lock = Caps_Lock -add control = Control_L Control_R -add mod1 = Alt_L Meta_L Alt_R Meta_R -add mod2 = Mode_switch -add mod3 = Num_Lock -add mod4 = Super_L Hyper_L Super_R Hyper_R -add mod5 = ISO_Level3_Shift - -!remove Lock = Caps_Lock -!add Control = Caps_Lock -!remove Control = Control_L -!add Lock = Control_L -!keysym Caps_Lock = Mode_switch diff --git a/keymaps/eo_dv_hunner.pke.old b/keymaps/eo_dv_hunner.pke.old deleted file mode 100644 index 1d335b6..0000000 --- a/keymaps/eo_dv_hunner.pke.old +++ /dev/null @@ -1,292 +0,0 @@ -clear Shift -clear Lock -clear Control -clear Mod1 -clear Mod2 -clear Mod3 -clear Mod4 -clear Mod5 - -keycode 8 = -keycode 9 = grave asciitilde dead_grave dead_tilde -keycode 10 = 1 exclam 1 exclam -keycode 11 = 2 at 2 at -keycode 12 = 3 numbersign 3 numbersign -keycode 13 = 4 dollar 4 dollar -keycode 14 = 5 percent EuroSign -keycode 15 = 6 asciicircum dead_circumflex asciicircum -keycode 16 = 7 ampersand 7 ampersand -keycode 17 = 8 asterisk 8 asterisk -keycode 18 = 9 parenleft leftsinglequotemark dead_breve -keycode 19 = 0 parenright rightsinglequotemark dead_abovering -keycode 20 = bracketleft braceleft bracketleft braceleft -keycode 21 = bracketright braceright bracketright braceright -keycode 22 = backslash bar backslash bar -keycode 23 = Tab ISO_Left_Tab Tab ISO_Left_Tab -keycode 24 = apostrophe quotedbl dead_acute dead_diaeresis -keycode 25 = comma less dead_cedilla dead_caron -keycode 26 = period greater dead_circumflex dead_abovedot -keycode 27 = p P p P -keycode 28 = y Y y Y -keycode 29 = f F f F -keycode 30 = g G g G -keycode 31 = c C c C -keycode 32 = r R r R -keycode 33 = l L l L -keycode 34 = slash question dead_hook dead_hook -keycode 35 = equal plus dead_doubleacute dead_horn -keycode 36 = Return NoSymbol Return -keycode 37 = Caps_Lock NoSymbol Caps_Lock -keycode 38 = a A a A -keycode 39 = o O o O -keycode 40 = e E EuroSign cent -keycode 41 = u U u U -keycode 42 = i I i I -keycode 43 = d D d D -keycode 44 = h H h H -keycode 45 = t T t T -keycode 46 = n N n N -keycode 47 = s S s S -keycode 48 = minus underscore dead_macron dead_belowdot -keycode 49 = Escape dead_circumflex dead_grave dead_tilde -keycode 50 = Shift_L NoSymbol Shift_L -keycode 51 = BackSpace brokenbar BackSpace brokenbar -keycode 52 = semicolon colon dead_ogonek dead_diaeresis -keycode 53 = q Q q Q -keycode 54 = j J j J -keycode 55 = k K k K -keycode 56 = x X x X -keycode 57 = b B b B -keycode 58 = m M m M -keycode 59 = w W w W -keycode 60 = v V v V -keycode 61 = z Z z Z -keycode 62 = Shift_R NoSymbol Shift_R -keycode 63 = KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L Alt_L Meta_L -keycode 65 = space NoSymbol space -keycode 66 = Control_L NoSymbol Control_L -keycode 67 = F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock NoSymbol Scroll_Lock -keycode 79 = KP_Home KP_7 KP_Home KP_7 -keycode 80 = KP_Up KP_8 KP_Up KP_8 -keycode 81 = KP_Prior KP_9 KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 KP_Left KP_4 -keycode 84 = KP_Begin KP_5 KP_Begin KP_5 -keycode 85 = KP_Right KP_6 KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 KP_End KP_1 -keycode 88 = KP_Down KP_2 KP_Down KP_2 -keycode 89 = KP_Next KP_3 KP_Next KP_3 -keycode 90 = KP_Insert KP_0 KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal KP_Delete KP_Decimal -keycode 92 = -keycode 93 = ISO_Level3_Shift NoSymbol ISO_Level3_Shift -keycode 94 = less greater bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 -keycode 97 = Home NoSymbol Home -keycode 98 = Up NoSymbol Up -keycode 99 = Prior NoSymbol Prior -keycode 100 = Left NoSymbol Left -keycode 101 = -keycode 102 = Right NoSymbol Right -keycode 103 = End NoSymbol End -keycode 104 = Down NoSymbol Down -keycode 105 = Next NoSymbol Next -keycode 106 = Insert NoSymbol Insert -keycode 107 = Delete NoSymbol Delete -keycode 108 = KP_Enter NoSymbol KP_Enter -keycode 109 = Control_R NoSymbol Control_R -keycode 110 = Pause Break Pause Break -keycode 111 = Print Sys_Req Print Sys_Req -keycode 112 = KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab -keycode 113 = Mode_switch Mode_switch Mode_switch Mode_switch -keycode 114 = -keycode 115 = Super_L Hyper_L Super_L Hyper_L -keycode 116 = Menu NoSymbol Menu -keycode 117 = Super_R Hyper_R Super_R Hyper_R -keycode 118 = -keycode 119 = -keycode 120 = -keycode 121 = -keycode 122 = -keycode 123 = -keycode 124 = ISO_Level3_Shift NoSymbol ISO_Level3_Shift -keycode 125 = NoSymbol Alt_L NoSymbol Alt_L -keycode 126 = KP_Equal NoSymbol KP_Equal -keycode 127 = NoSymbol Super_L NoSymbol Super_L -keycode 128 = NoSymbol Hyper_L NoSymbol Hyper_L -keycode 129 = -keycode 130 = -keycode 131 = -keycode 132 = -keycode 133 = -keycode 134 = -keycode 135 = -keycode 136 = -keycode 137 = -keycode 138 = -keycode 139 = -keycode 140 = -keycode 141 = -keycode 142 = -keycode 143 = -keycode 144 = -keycode 145 = -keycode 146 = -keycode 147 = -keycode 148 = -keycode 149 = -keycode 150 = -keycode 151 = -keycode 152 = -keycode 153 = -keycode 154 = -keycode 155 = -keycode 156 = NoSymbol Meta_L NoSymbol Meta_L -keycode 157 = -keycode 158 = -keycode 159 = -keycode 160 = -keycode 161 = -keycode 162 = -keycode 163 = -keycode 164 = -keycode 165 = -keycode 166 = -keycode 167 = -keycode 168 = -keycode 169 = -keycode 170 = -keycode 171 = -keycode 172 = -keycode 173 = -keycode 174 = -keycode 175 = -keycode 176 = -keycode 177 = -keycode 178 = -keycode 179 = -keycode 180 = -keycode 181 = -keycode 182 = -keycode 183 = -keycode 184 = -keycode 185 = -keycode 186 = -keycode 187 = -keycode 188 = -keycode 189 = -keycode 190 = -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = -keycode 204 = -keycode 205 = -keycode 206 = -keycode 207 = -keycode 208 = -keycode 209 = -keycode 210 = -keycode 211 = -keycode 212 = -keycode 213 = -keycode 214 = XF86Display NoSymbol XF86Display -keycode 215 = XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff -keycode 216 = XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown -keycode 217 = XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp -keycode 218 = -keycode 219 = -keycode 220 = -keycode 221 = -keycode 222 = -keycode 223 = -keycode 224 = -keycode 225 = -keycode 226 = -keycode 227 = -keycode 228 = -keycode 229 = -keycode 230 = -keycode 231 = -keycode 232 = -keycode 233 = -keycode 234 = -keycode 235 = -keycode 236 = -keycode 237 = -keycode 238 = -keycode 239 = -keycode 240 = -keycode 241 = -keycode 242 = -keycode 243 = -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = - -!Original -!shift Shift_L (0x32), Shift_R (0x3e) -!lock Control_L (0x25) -!control , Control_R (0x6d), Caps_Lock (0x42) -!mod1 Alt_L (0x40), Alt_R (0x71), Meta_L (0x9c) -!mod2 Num_Lock (0x4d) -!mod3 -!mod4 Super_L (0x7f), Hyper_L (0x80) -!mod5 Mode_switch (0x5d), ISO_Level3_Shift (0x7c) - -!2nd -!shift Shift_L (0x32), Shift_R (0x3e) -!lock Caps_Lock (0x25) -!control , Control_R (0x6d), Control_L (0x42) -!mod1 Alt_L (0x40), Alt_L (0x7d), ISO_Level3_Shift (0x71), ISO_Level3_Shift (0x7c), Meta_L (0x9c) -!mod2 Num_Lock (0x4d) -!mod3 -!mod4 Super_L (0x73), Super_L (0x7f), Hyper_L (0x80) -!mod5 Mode_switch (0x5d), ISO_Level3_Shift (0x71), ISO_Level3_Shift (0x7c) - -add shift = Shift_L Shift_R -add lock = Caps_Lock -add control = Control_L Control_R -add mod1 = Alt_L Meta_L Alt_R Meta_R -add mod2 = Mode_switch -add mod3 = Num_Lock -add mod4 = Super_L Hyper_L Super_R Hyper_R -add mod5 = ISO_Level3_Shift - -!remove Lock = Caps_Lock -!add Control = Caps_Lock -!remove Control = Control_L -!add Lock = Control_L -!keysym Caps_Lock = Mode_switch diff --git a/keymaps/eo_dv_hunner_type7.pke b/keymaps/eo_dv_hunner_type7.pke deleted file mode 100644 index cacb647..0000000 --- a/keymaps/eo_dv_hunner_type7.pke +++ /dev/null @@ -1,292 +0,0 @@ -clear Shift -clear Lock -clear Control -clear Mod1 -clear Mod2 -clear Mod3 -clear Mod4 -clear Mod5 - -keycode 8 = -keycode 9 = Escape dead_circumflex dead_grave dead_tilde -keycode 10 = 7 ampersand 7 ampersand -keycode 11 = 5 percent EuroSign cent -keycode 12 = 3 numbersign 3 numbersign -keycode 13 = 1 exclam 1 exclam -keycode 14 = 9 parenleft leftsinglequotemark leftdoublequotemark -keycode 15 = 0 parenright rightsinglequotemark rightdoublequotemark -keycode 16 = 2 at 2 at -keycode 17 = 4 dollar 4 dollar -keycode 18 = 6 asciicircum dead_circumflex asciicircum -keycode 19 = 8 asterisk 8 asterisk -keycode 20 = bracketleft braceleft bracketleft braceleft -keycode 21 = bracketright braceright bracketright braceright -keycode 22 = BackSpace bar BackSpace brokenbar -keycode 23 = Tab ISO_Left_Tab Tab ISO_Left_Tab -keycode 24 = apostrophe quotedbl dead_acute dead_diaeresis -keycode 25 = comma less dead_cedilla dead_caron -keycode 26 = period greater dead_breve dead_abovedot -keycode 27 = p P paragraph P -keycode 28 = y Y yen heart -keycode 29 = f F f F -keycode 30 = g G gcircumflex Gcircumflex -keycode 31 = c C ccircumflex Ccircumflex -keycode 32 = r R r R -keycode 33 = l L l L -keycode 34 = slash question dead_hook dead_hook -keycode 35 = equal plus dead_doubleacute dead_horn -keycode 36 = Return NoSymbol Return -keycode 37 = Control_L NoSymbol Control_L -keycode 38 = a A a A -keycode 39 = o O o O -keycode 40 = e E EuroSign cent -keycode 41 = u U U016D U016C -keycode 42 = i I i I -keycode 43 = d D d D -keycode 44 = h H hcircumflex Hcircumflex -keycode 45 = t T t T -keycode 46 = n N n N -keycode 47 = s S scircumflex Scircumflex -keycode 48 = minus underscore dead_macron dead_belowdot -keycode 49 = grave asciitilde dead_grave dead_tilde -keycode 50 = Shift_L NoSymbol Shift_L -keycode 51 = backslash bar brokenbar brokenbar -keycode 52 = semicolon colon dead_ogonek dead_diaeresis -keycode 53 = q Q q Q -keycode 54 = j J jcircumflex Jcircumflex -keycode 55 = k K k K -keycode 56 = x X x X -keycode 57 = b B b B -keycode 58 = m M m M -keycode 59 = w W w W -keycode 60 = v V v V -keycode 61 = z Z z Z -keycode 62 = Shift_R NoSymbol Shift_R -keycode 63 = KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L Alt_L Meta_L -keycode 65 = space NoSymbol space -keycode 66 = Caps_Lock NoSymbol Caps_Lock -keycode 67 = F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock NoSymbol Scroll_Lock -keycode 79 = KP_Home KP_7 KP_Home KP_7 -keycode 80 = KP_Up KP_8 KP_Up KP_8 -keycode 81 = KP_Prior KP_9 KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 KP_Left KP_4 -keycode 84 = KP_Begin KP_5 KP_Begin KP_5 -keycode 85 = KP_Right KP_6 KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 KP_End KP_1 -keycode 88 = KP_Down KP_2 KP_Down KP_2 -keycode 89 = KP_Next KP_3 KP_Next KP_3 -keycode 90 = KP_Insert KP_0 KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal KP_Delete KP_Decimal -keycode 92 = -keycode 93 = ISO_Level3_Shift NoSymbol ISO_Level3_Shift -keycode 94 = less greater bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 -keycode 97 = Home NoSymbol Home -keycode 98 = Up NoSymbol Up -keycode 99 = Prior NoSymbol Prior -keycode 100 = Left NoSymbol Left -keycode 101 = -keycode 102 = Right NoSymbol Right -keycode 103 = End NoSymbol End -keycode 104 = Down NoSymbol Down -keycode 105 = Next NoSymbol Next -keycode 106 = Insert NoSymbol Insert -keycode 107 = Delete NoSymbol Delete -keycode 108 = KP_Enter NoSymbol KP_Enter -keycode 109 = Control_R NoSymbol Control_R -keycode 110 = Pause Break Pause Break -keycode 111 = Print Sys_Req Print Sys_Req -keycode 112 = KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab -keycode 113 = Mode_switch Mode_switch Mode_switch Mode_switch -keycode 114 = -keycode 115 = Super_L Hyper_L Super_L Hyper_L -keycode 116 = Menu NoSymbol Menu -keycode 117 = Super_R Hyper_R Super_R Hyper_R -keycode 118 = -keycode 119 = -keycode 120 = -keycode 121 = -keycode 122 = -keycode 123 = -keycode 124 = ISO_Level3_Shift NoSymbol ISO_Level3_Shift -keycode 125 = NoSymbol Alt_L NoSymbol Alt_L -keycode 126 = KP_Equal NoSymbol KP_Equal -keycode 127 = NoSymbol Super_L NoSymbol Super_L -keycode 128 = NoSymbol Hyper_L NoSymbol Hyper_L -keycode 129 = -keycode 130 = -keycode 131 = -keycode 132 = -keycode 133 = -keycode 134 = -keycode 135 = -keycode 136 = -keycode 137 = -keycode 138 = -keycode 139 = -keycode 140 = -keycode 141 = -keycode 142 = -keycode 143 = -keycode 144 = -keycode 145 = -keycode 146 = -keycode 147 = -keycode 148 = -keycode 149 = -keycode 150 = -keycode 151 = -keycode 152 = -keycode 153 = -keycode 154 = -keycode 155 = -keycode 156 = NoSymbol Meta_L NoSymbol Meta_L -keycode 157 = -keycode 158 = -keycode 159 = -keycode 160 = -keycode 161 = -keycode 162 = -keycode 163 = -keycode 164 = -keycode 165 = -keycode 166 = -keycode 167 = -keycode 168 = -keycode 169 = -keycode 170 = -keycode 171 = -keycode 172 = -keycode 173 = -keycode 174 = -keycode 175 = -keycode 176 = -keycode 177 = -keycode 178 = -keycode 179 = -keycode 180 = -keycode 181 = -keycode 182 = -keycode 183 = -keycode 184 = -keycode 185 = -keycode 186 = -keycode 187 = -keycode 188 = -keycode 189 = -keycode 190 = -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = -keycode 204 = -keycode 205 = -keycode 206 = -keycode 207 = -keycode 208 = -keycode 209 = -keycode 210 = -keycode 211 = -keycode 212 = -keycode 213 = -keycode 214 = XF86Display NoSymbol XF86Display -!keycode 215 = XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff -!keycode 216 = XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown -!keycode 217 = XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp -keycode 218 = -keycode 219 = -keycode 220 = -keycode 221 = -keycode 222 = -keycode 223 = -keycode 224 = -keycode 225 = -keycode 226 = -keycode 227 = -keycode 228 = -keycode 229 = -keycode 230 = -keycode 231 = -keycode 232 = -keycode 233 = -keycode 234 = -keycode 235 = -keycode 236 = -keycode 237 = -keycode 238 = -keycode 239 = -keycode 240 = -keycode 241 = -keycode 242 = -keycode 243 = -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = - -!Original -!shift Shift_L (0x32), Shift_R (0x3e) -!lock Control_L (0x25) -!control , Control_R (0x6d), Caps_Lock (0x42) -!mod1 Alt_L (0x40), Alt_R (0x71), Meta_L (0x9c) -!mod2 Num_Lock (0x4d) -!mod3 -!mod4 Super_L (0x7f), Hyper_L (0x80) -!mod5 Mode_switch (0x5d), ISO_Level3_Shift (0x7c) - -!2nd -!shift Shift_L (0x32), Shift_R (0x3e) -!lock Caps_Lock (0x25) -!control , Control_R (0x6d), Control_L (0x42) -!mod1 Alt_L (0x40), Alt_L (0x7d), ISO_Level3_Shift (0x71), ISO_Level3_Shift (0x7c), Meta_L (0x9c) -!mod2 Num_Lock (0x4d) -!mod3 -!mod4 Super_L (0x73), Super_L (0x7f), Hyper_L (0x80) -!mod5 Mode_switch (0x5d), ISO_Level3_Shift (0x71), ISO_Level3_Shift (0x7c) - -add shift = Shift_L Shift_R -add lock = Caps_Lock -add control = Control_L Control_R -add mod1 = Alt_L Meta_L Alt_R Meta_R -add mod2 = Mode_switch -add mod3 = Num_Lock -add mod4 = Super_L Hyper_L Super_R Hyper_R -add mod5 = ISO_Level3_Shift - -!remove Lock = Caps_Lock -!add Control = Caps_Lock -!remove Control = Control_L -!add Lock = Control_L -!keysym Caps_Lock = Mode_switch diff --git a/keymaps/eo_dv_hunner_type7_sol.pke b/keymaps/eo_dv_hunner_type7_sol.pke deleted file mode 100644 index add8aaa..0000000 --- a/keymaps/eo_dv_hunner_type7_sol.pke +++ /dev/null @@ -1,275 +0,0 @@ -clear Shift -clear Lock -clear Control -clear Mod1 -clear Mod2 -clear Mod3 -clear Mod4 -clear Mod5 - -keycode 8 = -keycode 9 = -keycode 10 = -keycode 11 = A -keycode 12 = X -keycode 13 = J -keycode 14 = e E EuroSign -keycode 15 = period greater -keycode 16 = U -keycode 17 = I -keycode 18 = D -keycode 19 = C -keycode 20 = H -keycode 21 = T -keycode 22 = N -keycode 23 = M -keycode 24 = B -keycode 25 = R -keycode 26 = L -keycode 27 = apostrophe quotedbl -keycode 28 = P -keycode 29 = O -keycode 30 = Y -keycode 31 = G -keycode 32 = K -keycode 33 = comma less -keycode 34 = Q -keycode 35 = F -keycode 36 = semicolon colon -keycode 37 = 7 ampersand -keycode 38 = 5 percent EuroSign -keycode 39 = 3 numbersign -keycode 40 = 1 exclam -keycode 41 = 9 parenleft -keycode 42 = 0 parenright -keycode 43 = 2 at -keycode 44 = 4 dollar EuroSign -keycode 45 = 6 asciicircum -keycode 46 = 8 asterisk -keycode 47 = Return -keycode 48 = Escape -keycode 49 = BackSpace -keycode 50 = Tab -keycode 51 = space -keycode 52 = bracketleft braceleft -keycode 53 = bracketright braceright -keycode 54 = slash question -keycode 55 = equal plus -keycode 56 = backslash bar brokenbar -keycode 57 = backslash bar brokenbar -keycode 58 = S -keycode 59 = minus underscore -keycode 60 = grave asciitilde -keycode 61 = W -keycode 62 = V -keycode 63 = Z -keycode 64 = Caps_Lock -keycode 65 = F1 -keycode 66 = F2 -keycode 67 = F3 -keycode 68 = F4 -keycode 69 = F5 -keycode 70 = F6 -keycode 71 = F7 -keycode 72 = F8 -keycode 73 = F9 -keycode 74 = F10 -keycode 75 = SunF36 -keycode 76 = SunF37 -keycode 77 = F22 F22 Print SunSys_Req -keycode 78 = F23 F23 Scroll_Lock -keycode 79 = F21 F21 Pause Break -keycode 80 = Insert -keycode 81 = Home -keycode 82 = Prior -keycode 83 = Delete -keycode 84 = End -keycode 85 = Next -keycode 86 = Right -keycode 87 = Left -keycode 88 = Down -keycode 89 = Up -keycode 90 = Num_Lock -keycode 91 = F25 F25 KP_Divide -keycode 92 = F26 F26 KP_Multiply -keycode 93 = F24 F24 KP_Subtract -keycode 94 = KP_Add -keycode 95 = KP_Enter -keycode 96 = F33 F33 KP_1 End -keycode 97 = Down F34 KP_2 -keycode 98 = F35 F35 KP_3 Next -keycode 99 = Left F30 KP_4 -keycode 100 = F31 F31 KP_5 -keycode 101 = Right F32 KP_6 -keycode 102 = F27 F27 KP_7 Home -keycode 103 = Up F28 KP_8 -keycode 104 = F29 F29 KP_9 Prior -keycode 105 = KP_Insert KP_Insert KP_0 -keycode 106 = Delete Delete KP_Decimal -keycode 107 = -keycode 108 = Multi_key -keycode 109 = SunPowerSwitch SunPowerSwitchShift -keycode 110 = -keycode 111 = -keycode 112 = -keycode 113 = -keycode 114 = -keycode 115 = -keycode 116 = -keycode 117 = -keycode 118 = -keycode 119 = -keycode 120 = -keycode 121 = -keycode 122 = -keycode 123 = F17 F17 SunOpen -keycode 124 = Help -keycode 125 = F13 F13 SunProps -keycode 126 = F15 F15 SunFront -keycode 127 = F11 F11 Cancel -keycode 128 = F12 F12 Redo -keycode 129 = F14 F14 Undo -keycode 130 = F20 F20 SunCut -keycode 131 = F16 F16 SunCopy -keycode 132 = F18 F18 SunPaste -keycode 133 = F19 F19 Find -keycode 134 = SunAudioMute SunVideoDegauss -keycode 135 = SunAudioRaiseVolume SunVideoRaiseBrightness -keycode 136 = SunAudioLowerVolume SunVideoLowerBrightness -keycode 137 = -keycode 138 = -keycode 139 = -keycode 140 = -keycode 141 = -keycode 142 = -keycode 143 = -keycode 144 = -keycode 145 = -keycode 146 = -keycode 147 = -keycode 148 = -keycode 149 = -keycode 150 = -keycode 151 = -keycode 152 = -keycode 153 = -keycode 154 = -keycode 155 = -keycode 156 = -keycode 157 = -keycode 158 = -keycode 159 = -keycode 160 = -keycode 161 = -keycode 162 = -keycode 163 = -keycode 164 = -keycode 165 = -keycode 166 = -keycode 167 = -keycode 168 = -keycode 169 = -keycode 170 = -keycode 171 = -keycode 172 = -keycode 173 = -keycode 174 = -keycode 175 = -keycode 176 = -keycode 177 = -keycode 178 = -keycode 179 = -keycode 180 = -keycode 181 = -keycode 182 = -keycode 183 = -keycode 184 = -keycode 185 = -keycode 186 = -keycode 187 = -keycode 188 = -keycode 189 = -keycode 190 = -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = -keycode 204 = -keycode 205 = -keycode 206 = -keycode 207 = -keycode 208 = -keycode 209 = -keycode 210 = -keycode 211 = -keycode 212 = -keycode 213 = -keycode 214 = -keycode 215 = -keycode 216 = -keycode 217 = -keycode 218 = -keycode 219 = -keycode 220 = -keycode 221 = -keycode 222 = -keycode 223 = -keycode 224 = -keycode 225 = -keycode 226 = -keycode 227 = -keycode 228 = -keycode 229 = -keycode 230 = -keycode 231 = Control_L -keycode 232 = Shift_L -keycode 233 = Alt_L -keycode 234 = Meta_L -keycode 235 = Control_R -keycode 236 = Shift_R -keycode 237 = Mode_switch -keycode 238 = Meta_R -keycode 239 = -keycode 240 = -keycode 241 = -keycode 242 = -keycode 243 = -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = - -!Original -!shift Shift_L (0xe8), Shift_R (0xec) -!lock Caps_Lock (0x40) -!control Control_L (0xe7), Control_R (0xeb) -!mod1 Alt_L (0xe9) -!mod2 Mode_switch (0xed) -!mod3 Num_Lock (0x5a) -!mod4 Meta_L (0xea), Meta_R (0xee) -!mod5 - -add shift = Shift_L Shift_R -add lock = Caps_Lock -add control = Control_L Control_R -add mod1 = Alt_L -add mod2 = Mode_switch -add mod3 = Num_Lock -add mod4 = Meta_L Meta_R - diff --git a/keymaps/eo_dv_hunner_type7_sol_pc.pke b/keymaps/eo_dv_hunner_type7_sol_pc.pke deleted file mode 100644 index 369b211..0000000 --- a/keymaps/eo_dv_hunner_type7_sol_pc.pke +++ /dev/null @@ -1,275 +0,0 @@ -clear Shift -clear Lock -clear Control -clear Mod1 -clear Mod2 -clear Mod3 -clear Mod4 -clear Mod5 - -keycode 8 = -keycode 9 = -keycode 10 = -keycode 11 = A -keycode 12 = X -keycode 13 = J -keycode 14 = e E EuroSign -keycode 15 = period greater -keycode 16 = U -keycode 17 = I -keycode 18 = D -keycode 19 = C -keycode 20 = H -keycode 21 = T -keycode 22 = N -keycode 23 = M -keycode 24 = B -keycode 25 = R -keycode 26 = L -keycode 27 = apostrophe quotedbl -keycode 28 = P -keycode 29 = O -keycode 30 = Y -keycode 31 = G -keycode 32 = K -keycode 33 = comma less -keycode 34 = Q -keycode 35 = F -keycode 36 = semicolon colon -keycode 37 = 7 ampersand -keycode 38 = 5 percent EuroSign -keycode 39 = 3 numbersign -keycode 40 = 1 exclam -keycode 41 = 9 parenleft -keycode 42 = 0 parenright -keycode 43 = 2 at -keycode 44 = 4 dollar EuroSign -keycode 45 = 6 asciicircum -keycode 46 = 8 asterisk -keycode 47 = Return -keycode 48 = grave asciitilde -keycode 49 = backslash bar brokenbar -keycode 50 = Tab -keycode 51 = space -keycode 52 = bracketleft braceleft -keycode 53 = bracketright braceright -keycode 54 = slash question -keycode 55 = equal plus -keycode 56 = BackSpace -keycode 57 = backslash bar brokenbar -keycode 58 = S -keycode 59 = minus underscore -keycode 60 = Escape -keycode 61 = W -keycode 62 = V -keycode 63 = Z -keycode 64 = Control_L -keycode 65 = F1 -keycode 66 = F2 -keycode 67 = F3 -keycode 68 = F4 -keycode 69 = F5 -keycode 70 = F6 -keycode 71 = F7 -keycode 72 = F8 -keycode 73 = F9 -keycode 74 = F10 -keycode 75 = SunF36 -keycode 76 = SunF37 -keycode 77 = F22 F22 Print SunSys_Req -keycode 78 = F23 F23 Scroll_Lock -keycode 79 = F21 F21 Pause Break -keycode 80 = Insert -keycode 81 = Home -keycode 82 = Prior -keycode 83 = Delete -keycode 84 = End -keycode 85 = Next -keycode 86 = Right -keycode 87 = Left -keycode 88 = Down -keycode 89 = Up -keycode 90 = Num_Lock -keycode 91 = F25 F25 KP_Divide -keycode 92 = F26 F26 KP_Multiply -keycode 93 = F24 F24 KP_Subtract -keycode 94 = KP_Add -keycode 95 = KP_Enter -keycode 96 = F33 F33 KP_1 End -keycode 97 = Down F34 KP_2 -keycode 98 = F35 F35 KP_3 Next -keycode 99 = Left F30 KP_4 -keycode 100 = F31 F31 KP_5 -keycode 101 = Right F32 KP_6 -keycode 102 = F27 F27 KP_7 Home -keycode 103 = Up F28 KP_8 -keycode 104 = F29 F29 KP_9 Prior -keycode 105 = KP_Insert KP_Insert KP_0 -keycode 106 = Delete Delete KP_Decimal -keycode 107 = -keycode 108 = Multi_key -keycode 109 = SunPowerSwitch SunPowerSwitchShift -keycode 110 = -keycode 111 = -keycode 112 = -keycode 113 = -keycode 114 = -keycode 115 = -keycode 116 = -keycode 117 = -keycode 118 = -keycode 119 = -keycode 120 = -keycode 121 = -keycode 122 = -keycode 123 = F17 F17 SunOpen -keycode 124 = Help -keycode 125 = F13 F13 SunProps -keycode 126 = F15 F15 SunFront -keycode 127 = F11 F11 Cancel -keycode 128 = F12 F12 Redo -keycode 129 = F14 F14 Undo -keycode 130 = F20 F20 SunCut -keycode 131 = F16 F16 SunCopy -keycode 132 = F18 F18 SunPaste -keycode 133 = F19 F19 Find -keycode 134 = SunAudioMute SunVideoDegauss -keycode 135 = SunAudioRaiseVolume SunVideoRaiseBrightness -keycode 136 = SunAudioLowerVolume SunVideoLowerBrightness -keycode 137 = -keycode 138 = -keycode 139 = -keycode 140 = -keycode 141 = -keycode 142 = -keycode 143 = -keycode 144 = -keycode 145 = -keycode 146 = -keycode 147 = -keycode 148 = -keycode 149 = -keycode 150 = -keycode 151 = -keycode 152 = -keycode 153 = -keycode 154 = -keycode 155 = -keycode 156 = -keycode 157 = -keycode 158 = -keycode 159 = -keycode 160 = -keycode 161 = -keycode 162 = -keycode 163 = -keycode 164 = -keycode 165 = -keycode 166 = -keycode 167 = -keycode 168 = -keycode 169 = -keycode 170 = -keycode 171 = -keycode 172 = -keycode 173 = -keycode 174 = -keycode 175 = -keycode 176 = -keycode 177 = -keycode 178 = -keycode 179 = -keycode 180 = -keycode 181 = -keycode 182 = -keycode 183 = -keycode 184 = -keycode 185 = -keycode 186 = -keycode 187 = -keycode 188 = -keycode 189 = -keycode 190 = -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = -keycode 204 = -keycode 205 = -keycode 206 = -keycode 207 = -keycode 208 = -keycode 209 = -keycode 210 = -keycode 211 = -keycode 212 = -keycode 213 = -keycode 214 = -keycode 215 = -keycode 216 = -keycode 217 = -keycode 218 = -keycode 219 = -keycode 220 = -keycode 221 = -keycode 222 = -keycode 223 = -keycode 224 = -keycode 225 = -keycode 226 = -keycode 227 = -keycode 228 = -keycode 229 = -keycode 230 = -keycode 231 = Caps_Lock -keycode 232 = Shift_L -keycode 233 = Alt_L -keycode 234 = Meta_L -keycode 235 = Control_R -keycode 236 = Shift_R -keycode 237 = Mode_switch -keycode 238 = Meta_R -keycode 239 = -keycode 240 = -keycode 241 = -keycode 242 = -keycode 243 = -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = - -!Original -!shift Shift_L (0xe8), Shift_R (0xec) -!lock Caps_Lock (0x40) -!control Control_L (0xe7), Control_R (0xeb) -!mod1 Alt_L (0xe9) -!mod2 Mode_switch (0xed) -!mod3 Num_Lock (0x5a) -!mod4 Meta_L (0xea), Meta_R (0xee) -!mod5 - -add shift = Shift_L Shift_R -add lock = Caps_Lock -add control = Control_L Control_R -add mod1 = Alt_L -add mod2 = Mode_switch -add mod3 = Num_Lock -add mod4 = Meta_L Meta_R - diff --git a/keymaps/eo_us.pke b/keymaps/eo_us.pke deleted file mode 100644 index 84bfcab..0000000 --- a/keymaps/eo_us.pke +++ /dev/null @@ -1,248 +0,0 @@ -keycode 8 = -keycode 9 = Escape NoSymbol Escape NoSymbol Escape -keycode 10 = 1 exclam 1 exclam 1 exclam -keycode 11 = 2 at 2 at 2 at -keycode 12 = 3 numbersign 3 numbersign 3 numbersign -keycode 13 = 4 dollar 4 dollar 4 dollar -keycode 14 = 5 percent 5 percent EuroSign -keycode 15 = 6 dead_circumflex 6 dead_circumflex asciicircum asciicircum -keycode 16 = 7 ampersand 7 ampersand 7 ampersand -keycode 17 = 8 asterisk 8 asterisk 8 asterisk -keycode 18 = 9 parenleft 9 parenleft leftsinglequotemark dead_breve -keycode 19 = 0 parenright 0 parenright rightsinglequotemark dead_abovering -keycode 20 = minus underscore minus underscore dead_macron dead_belowdot -keycode 21 = equal plus equal plus dead_doubleacute dead_horn -keycode 22 = BackSpace Terminate_Server BackSpace Terminate_Server BackSpace Terminate_Server -keycode 23 = Tab ISO_Left_Tab Tab ISO_Left_Tab Tab ISO_Left_Tab -keycode 24 = q Q q Q q Q -keycode 25 = w W w W w W -keycode 26 = e E e E EuroSign cent -keycode 27 = r R r R r R -keycode 28 = t T t T t T -keycode 29 = y Y y Y y Y -keycode 30 = u U u U u U -keycode 31 = i I i I i I -keycode 32 = o O o O o O -keycode 33 = p P p P p P -keycode 34 = bracketleft braceleft bracketleft braceleft bracketleft braceleft -keycode 35 = bracketright braceright bracketright braceright bracketright braceright -keycode 36 = Return NoSymbol Return NoSymbol Return -keycode 37 = Control_L NoSymbol Control_L NoSymbol Control_L -keycode 38 = a A a A a A -keycode 39 = s S s S s S -keycode 40 = d D d D d D -keycode 41 = f F f F f F -keycode 42 = g G g G g G -keycode 43 = h H h H h H -keycode 44 = j J j J j J -keycode 45 = k K k K k K -keycode 46 = l L l L l L -keycode 47 = semicolon colon semicolon colon dead_ogonek dead_diaeresis -keycode 48 = dead_acute dead_diaeresis dead_acute dead_diaeresis apostrophe quotedbl -keycode 49 = dead_grave dead_tilde dead_grave dead_tilde grave asciitilde -keycode 50 = Shift_L NoSymbol Shift_L NoSymbol Shift_L -keycode 51 = backslash bar backslash bar backslash bar -keycode 52 = z Z z Z z Z -keycode 53 = x X x X x X -keycode 54 = c C c C c C -keycode 55 = v V v V v V -keycode 56 = b B b B b B -keycode 57 = n N n N n N -keycode 58 = m M m M m M -keycode 59 = comma less comma less dead_cedilla dead_caron -keycode 60 = period greater period greater dead_abovedot dead_circumflex -keycode 61 = slash question slash question dead_hook dead_hook -keycode 62 = Shift_R NoSymbol Shift_R NoSymbol Shift_R -keycode 63 = KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L Alt_L Meta_L Alt_L Meta_L -keycode 65 = space NoSymbol space NoSymbol space -keycode 66 = Caps_Lock NoSymbol Caps_Lock NoSymbol Caps_Lock -keycode 67 = F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock NoSymbol Scroll_Lock NoSymbol Scroll_Lock -keycode 79 = KP_Home KP_7 KP_Home KP_7 KP_Home KP_7 -keycode 80 = KP_Up KP_8 KP_Up KP_8 KP_Up KP_8 -keycode 81 = KP_Prior KP_9 KP_Prior KP_9 KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 KP_Left KP_4 KP_Left KP_4 -keycode 84 = KP_Begin KP_5 KP_Begin KP_5 KP_Begin KP_5 -keycode 85 = KP_Right KP_6 KP_Right KP_6 KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 KP_End KP_1 KP_End KP_1 -keycode 88 = KP_Down KP_2 KP_Down KP_2 KP_Down KP_2 -keycode 89 = KP_Next KP_3 KP_Next KP_3 KP_Next KP_3 -keycode 90 = KP_Insert KP_0 KP_Insert KP_0 KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal KP_Delete KP_Decimal KP_Delete KP_Decimal -keycode 92 = -keycode 93 = Mode_switch NoSymbol Mode_switch NoSymbol Mode_switch -keycode 94 = less greater less greater bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 -keycode 97 = Home NoSymbol Home NoSymbol Home -keycode 98 = Up NoSymbol Up NoSymbol Up -keycode 99 = Prior NoSymbol Prior NoSymbol Prior -keycode 100 = Left NoSymbol Left NoSymbol Left -keycode 101 = -keycode 102 = Right NoSymbol Right NoSymbol Right -keycode 103 = End NoSymbol End NoSymbol End -keycode 104 = Down NoSymbol Down NoSymbol Down -keycode 105 = Next NoSymbol Next NoSymbol Next -keycode 106 = Insert NoSymbol Insert NoSymbol Insert -keycode 107 = Delete NoSymbol Delete NoSymbol Delete -keycode 108 = KP_Enter NoSymbol KP_Enter NoSymbol KP_Enter -keycode 109 = Control_R NoSymbol Control_R NoSymbol Control_R -keycode 110 = Pause Break Pause Break Pause Break -keycode 111 = Print Sys_Req Print Sys_Req Print Sys_Req -keycode 112 = KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab -keycode 113 = ISO_Level3_Shift NoSymbol ISO_Level3_Shift NoSymbol ISO_Level3_Shift -keycode 114 = -keycode 115 = Super_L NoSymbol Super_L NoSymbol Super_L -keycode 116 = Super_R NoSymbol Super_R NoSymbol Super_R -keycode 117 = Menu NoSymbol Menu NoSymbol Menu -keycode 118 = -keycode 119 = -keycode 120 = -keycode 121 = -keycode 122 = -keycode 123 = -keycode 124 = ISO_Level3_Shift NoSymbol ISO_Level3_Shift NoSymbol ISO_Level3_Shift -keycode 125 = NoSymbol Alt_L NoSymbol Alt_L NoSymbol Alt_L -keycode 126 = KP_Equal NoSymbol KP_Equal NoSymbol KP_Equal -keycode 127 = NoSymbol Super_L NoSymbol Super_L NoSymbol Super_L -keycode 128 = NoSymbol Hyper_L NoSymbol Hyper_L NoSymbol Hyper_L -keycode 129 = -keycode 130 = -keycode 131 = -keycode 132 = -keycode 133 = -keycode 134 = -keycode 135 = -keycode 136 = -keycode 137 = -keycode 138 = -keycode 139 = -keycode 140 = -keycode 141 = -keycode 142 = -keycode 143 = -keycode 144 = -keycode 145 = -keycode 146 = -keycode 147 = -keycode 148 = -keycode 149 = -keycode 150 = -keycode 151 = -keycode 152 = -keycode 153 = -keycode 154 = -keycode 155 = -keycode 156 = NoSymbol Meta_L NoSymbol Meta_L NoSymbol Meta_L -keycode 157 = -keycode 158 = -keycode 159 = -keycode 160 = -keycode 161 = -keycode 162 = -keycode 163 = -keycode 164 = -keycode 165 = -keycode 166 = -keycode 167 = -keycode 168 = -keycode 169 = -keycode 170 = -keycode 171 = -keycode 172 = -keycode 173 = -keycode 174 = -keycode 175 = -keycode 176 = -keycode 177 = -keycode 178 = -keycode 179 = -keycode 180 = -keycode 181 = -keycode 182 = -keycode 183 = -keycode 184 = -keycode 185 = -keycode 186 = -keycode 187 = -keycode 188 = -keycode 189 = -keycode 190 = -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = -keycode 204 = -keycode 205 = -keycode 206 = -keycode 207 = -keycode 208 = -keycode 209 = -keycode 210 = -keycode 211 = -keycode 212 = -keycode 213 = -keycode 214 = XF86Display NoSymbol XF86Display NoSymbol XF86Display -keycode 215 = XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff -keycode 216 = XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown -keycode 217 = XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp -keycode 218 = -keycode 219 = -keycode 220 = -keycode 221 = -keycode 222 = -keycode 223 = -keycode 224 = -keycode 225 = -keycode 226 = -keycode 227 = -keycode 228 = -keycode 229 = -keycode 230 = -keycode 231 = -keycode 232 = -keycode 233 = -keycode 234 = -keycode 235 = -keycode 236 = -keycode 237 = -keycode 238 = -keycode 239 = -keycode 240 = -keycode 241 = -keycode 242 = -keycode 243 = -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = diff --git a/keymaps/halfdvorak.xkb b/keymaps/halfdvorak.xkb deleted file mode 100644 index 8b60931..0000000 --- a/keymaps/halfdvorak.xkb +++ /dev/null @@ -1,1695 +0,0 @@ -xkb_keymap { -xkb_keycodes "evdev+aliases(qwerty)" { - minimum = 8; - maximum = 255; - = 9; - = 10; - = 11; - = 12; - = 13; - = 14; - = 15; - = 16; - = 17; - = 18; - = 19; - = 20; - = 21; - = 22; - = 23; - = 24; - = 25; - = 26; - = 27; - = 28; - = 29; - = 30; - = 31; - = 32; - = 33; - = 34; - = 35; - = 36; - = 37; - = 38; - = 39; - = 40; - = 41; - = 42; - = 43; - = 44; - = 45; - = 46; - = 47; - = 48; - = 49; - = 50; - = 51; - = 52; - = 53; - = 54; - = 55; - = 56; - = 57; - = 58; - = 59; - = 60; - = 61; - = 62; - = 63; - = 64; - = 65; - = 66; - = 67; - = 68; - = 69; - = 70; - = 71; - = 72; - = 73; - = 74; - = 75; - = 76; - = 77; - = 78; - = 79; - = 80; - = 81; - = 82; - = 83; - = 84; - = 85; - = 86; - = 87; - = 88; - = 89; - = 90; - = 91; - = 92; - = 94; - = 95; - = 96; - = 97; - = 98; - = 99; - = 100; - = 101; - = 102; - = 103; - = 104; - = 105; - = 106; - = 107; - = 108; - = 109; - = 110; - = 111; - = 112; - = 113; - = 114; - = 115; - = 116; - = 117; - = 118; - = 119; - = 120; - = 121; - = 122; - = 123; - = 124; - = 125; - = 126; - = 127; - = 129; - = 130; - = 131; - = 132; - = 133; - = 134; - = 135; - = 136; - = 137; - = 138; - = 139; - = 140; - = 141; - = 142; - = 143; - = 144; - = 145; - = 146; - = 147; - = 148; - = 149; - = 150; - = 151; - = 152; - = 153; - = 154; - = 155; - = 156; - = 157; - = 158; - = 159; - = 160; - = 161; - = 162; - = 163; - = 164; - = 165; - = 166; - = 167; - = 168; - = 169; - = 170; - = 171; - = 172; - = 173; - = 174; - = 175; - = 176; - = 177; - = 178; - = 179; - = 180; - = 181; - = 182; - = 183; - = 184; - = 185; - = 186; - = 187; - = 188; - = 189; - = 190; - = 191; - = 192; - = 193; - = 194; - = 195; - = 196; - = 197; - = 198; - = 199; - = 200; - = 201; - = 202; - = 203; - = 204; - = 205; - = 206; - = 207; - = 208; - = 209; - = 210; - = 211; - = 213; - = 214; - = 215; - = 216; - = 217; - = 218; - = 219; - = 220; - = 221; - = 222; - = 223; - = 224; - = 225; - = 226; - = 227; - = 228; - = 229; - = 230; - = 231; - = 232; - = 233; - = 234; - = 235; - = 236; - = 237; - = 238; - = 239; - = 240; - = 241; - = 242; - = 243; - = 244; - = 245; - = 246; - = 247; - = 248; - = 249; - = 250; - = 251; - = 252; - = 253; - indicator 1 = "Caps Lock"; - indicator 2 = "Num Lock"; - indicator 3 = "Scroll Lock"; - indicator 4 = "Compose"; - indicator 5 = "Kana"; - indicator 6 = "Sleep"; - indicator 7 = "Suspend"; - indicator 8 = "Mute"; - indicator 9 = "Misc"; - indicator 10 = "Mail"; - indicator 11 = "Charging"; - virtual indicator 12 = "Shift Lock"; - virtual indicator 13 = "Group 2"; - virtual indicator 14 = "Mouse Keys"; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; - alias = ; -}; - -xkb_types "complete" { - - virtual_modifiers NumLock,Alt,LevelThree,LAlt,RAlt,RControl,LControl,ScrollLock,LevelFive,AltGr,Meta,Super,Hyper; - - type "ONE_LEVEL" { - modifiers= none; - level_name[Level1]= "Any"; - }; - type "TWO_LEVEL" { - modifiers= Shift; - map[Shift]= Level2; - level_name[Level1]= "Base"; - level_name[Level2]= "Shift"; - }; - type "ALPHABETIC" { - modifiers= Shift+Lock; - map[Shift]= Level2; - map[Lock]= Level2; - level_name[Level1]= "Base"; - level_name[Level2]= "Caps"; - }; - type "KEYPAD" { - modifiers= Shift+NumLock; - map[Shift]= Level2; - map[NumLock]= Level2; - level_name[Level1]= "Base"; - level_name[Level2]= "Number"; - }; - type "SHIFT+ALT" { - modifiers= Shift+Alt; - map[Shift+Alt]= Level2; - level_name[Level1]= "Base"; - level_name[Level2]= "Shift+Alt"; - }; - type "PC_CONTROL_LEVEL2" { - modifiers= Control; - map[Control]= Level2; - level_name[Level1]= "Base"; - level_name[Level2]= "Control"; - }; - type "PC_LCONTROL_LEVEL2" { - modifiers= LControl; - map[LControl]= Level2; - level_name[Level1]= "Base"; - level_name[Level2]= "LControl"; - }; - type "PC_RCONTROL_LEVEL2" { - modifiers= RControl; - map[RControl]= Level2; - level_name[Level1]= "Base"; - level_name[Level2]= "RControl"; - }; - type "PC_ALT_LEVEL2" { - modifiers= Alt; - map[Alt]= Level2; - level_name[Level1]= "Base"; - level_name[Level2]= "Alt"; - }; - type "PC_LALT_LEVEL2" { - modifiers= LAlt; - map[LAlt]= Level2; - level_name[Level1]= "Base"; - level_name[Level2]= "LAlt"; - }; - type "PC_RALT_LEVEL2" { - modifiers= RAlt; - map[RAlt]= Level2; - level_name[Level1]= "Base"; - level_name[Level2]= "RAlt"; - }; - type "CTRL+ALT" { - modifiers= Control+Alt; - map[Control+Alt]= Level2; - level_name[Level1]= "Base"; - level_name[Level2]= "Ctrl+Alt"; - }; - type "LOCAL_EIGHT_LEVEL" { - modifiers= Shift+Lock+Control+LevelThree; - map[Shift+Lock]= Level1; - map[Shift]= Level2; - map[Lock]= Level2; - map[LevelThree]= Level3; - map[Shift+Lock+LevelThree]= Level3; - map[Shift+LevelThree]= Level4; - map[Lock+LevelThree]= Level4; - map[Control]= Level5; - map[Shift+Lock+Control]= Level5; - map[Shift+Control]= Level6; - map[Lock+Control]= Level6; - map[Control+LevelThree]= Level7; - map[Shift+Lock+Control+LevelThree]= Level7; - map[Shift+Control+LevelThree]= Level8; - map[Lock+Control+LevelThree]= Level8; - level_name[Level1]= "Base"; - level_name[Level2]= "Shift"; - level_name[Level3]= "Level3"; - level_name[Level4]= "Shift Level3"; - level_name[Level5]= "Ctrl"; - level_name[Level6]= "Shift Ctrl"; - level_name[Level7]= "Level3 Ctrl"; - level_name[Level8]= "Shift Level3 Ctrl"; - }; - type "THREE_LEVEL" { - modifiers= Shift+LevelThree; - map[Shift]= Level2; - map[LevelThree]= Level3; - map[Shift+LevelThree]= Level3; - level_name[Level1]= "Base"; - level_name[Level2]= "Shift"; - level_name[Level3]= "Level3"; - }; - type "EIGHT_LEVEL" { - modifiers= Shift+LevelThree+LevelFive; - map[Shift]= Level2; - map[LevelThree]= Level3; - map[Shift+LevelThree]= Level4; - map[LevelFive]= Level5; - map[Shift+LevelFive]= Level6; - map[LevelThree+LevelFive]= Level7; - map[Shift+LevelThree+LevelFive]= Level8; - level_name[Level1]= "Base"; - level_name[Level2]= "Shift"; - level_name[Level3]= "Alt Base"; - level_name[Level4]= "Shift Alt"; - level_name[Level5]= "X"; - level_name[Level6]= "X Shift"; - level_name[Level7]= "X Alt Base"; - level_name[Level8]= "X Shift Alt"; - }; - type "EIGHT_LEVEL_ALPHABETIC" { - modifiers= Shift+Lock+LevelThree+LevelFive; - map[Shift]= Level2; - map[Lock]= Level2; - map[LevelThree]= Level3; - map[Shift+LevelThree]= Level4; - map[Lock+LevelThree]= Level4; - map[Shift+Lock+LevelThree]= Level3; - map[LevelFive]= Level5; - map[Shift+LevelFive]= Level6; - map[Lock+LevelFive]= Level6; - map[LevelThree+LevelFive]= Level7; - map[Shift+LevelThree+LevelFive]= Level8; - map[Lock+LevelThree+LevelFive]= Level8; - map[Shift+Lock+LevelThree+LevelFive]= Level7; - level_name[Level1]= "Base"; - level_name[Level2]= "Shift"; - level_name[Level3]= "Alt Base"; - level_name[Level4]= "Shift Alt"; - level_name[Level5]= "X"; - level_name[Level6]= "X Shift"; - level_name[Level7]= "X Alt Base"; - level_name[Level8]= "X Shift Alt"; - }; - type "EIGHT_LEVEL_SEMIALPHABETIC" { - modifiers= Shift+Lock+LevelThree+LevelFive; - map[Shift]= Level2; - map[Lock]= Level2; - map[LevelThree]= Level3; - map[Shift+LevelThree]= Level4; - map[Lock+LevelThree]= Level3; - preserve[Lock+LevelThree]= Lock; - map[Shift+Lock+LevelThree]= Level4; - preserve[Shift+Lock+LevelThree]= Lock; - map[LevelFive]= Level5; - map[Shift+LevelFive]= Level6; - map[Lock+LevelFive]= Level6; - preserve[Lock+LevelFive]= Lock; - map[LevelThree+LevelFive]= Level7; - map[Shift+LevelThree+LevelFive]= Level8; - map[Lock+LevelThree+LevelFive]= Level7; - preserve[Lock+LevelThree+LevelFive]= Lock; - map[Shift+Lock+LevelThree+LevelFive]= Level8; - preserve[Shift+Lock+LevelThree+LevelFive]= Lock; - map[Shift+Lock+LevelFive]= Level1; - preserve[Shift+Lock+LevelFive]= Lock; - level_name[Level1]= "Base"; - level_name[Level2]= "Shift"; - level_name[Level3]= "Alt Base"; - level_name[Level4]= "Shift Alt"; - level_name[Level5]= "X"; - level_name[Level6]= "X Shift"; - level_name[Level7]= "X Alt Base"; - level_name[Level8]= "X Shift Alt"; - }; - type "FOUR_LEVEL" { - modifiers= Shift+LevelThree; - map[Shift]= Level2; - map[LevelThree]= Level3; - map[Shift+LevelThree]= Level4; - level_name[Level1]= "Base"; - level_name[Level2]= "Shift"; - level_name[Level3]= "Alt Base"; - level_name[Level4]= "Shift Alt"; - }; - type "FOUR_LEVEL_ALPHABETIC" { - modifiers= Shift+Lock+LevelThree; - map[Shift]= Level2; - map[Lock]= Level2; - map[LevelThree]= Level3; - map[Shift+LevelThree]= Level4; - map[Lock+LevelThree]= Level4; - map[Shift+Lock+LevelThree]= Level3; - level_name[Level1]= "Base"; - level_name[Level2]= "Shift"; - level_name[Level3]= "Alt Base"; - level_name[Level4]= "Shift Alt"; - }; - type "FOUR_LEVEL_SEMIALPHABETIC" { - modifiers= Shift+Lock+LevelThree; - map[Shift]= Level2; - map[Lock]= Level2; - map[LevelThree]= Level3; - map[Shift+LevelThree]= Level4; - map[Lock+LevelThree]= Level3; - preserve[Lock+LevelThree]= Lock; - map[Shift+Lock+LevelThree]= Level4; - preserve[Shift+Lock+LevelThree]= Lock; - level_name[Level1]= "Base"; - level_name[Level2]= "Shift"; - level_name[Level3]= "Alt Base"; - level_name[Level4]= "Shift Alt"; - }; - type "FOUR_LEVEL_MIXED_KEYPAD" { - modifiers= Shift+NumLock+LevelThree; - map[Shift+NumLock]= Level1; - map[NumLock]= Level2; - map[Shift]= Level2; - map[LevelThree]= Level3; - map[NumLock+LevelThree]= Level3; - map[Shift+LevelThree]= Level4; - map[Shift+NumLock+LevelThree]= Level4; - level_name[Level1]= "Base"; - level_name[Level2]= "Number"; - level_name[Level3]= "Alt Base"; - level_name[Level4]= "Shift Alt"; - }; - type "FOUR_LEVEL_X" { - modifiers= Shift+Control+Alt+LevelThree; - map[LevelThree]= Level2; - map[Shift+LevelThree]= Level3; - map[Control+Alt]= Level4; - level_name[Level1]= "Base"; - level_name[Level2]= "Alt Base"; - level_name[Level3]= "Shift Alt"; - level_name[Level4]= "Ctrl+Alt"; - }; - type "SEPARATE_CAPS_AND_SHIFT_ALPHABETIC" { - modifiers= Shift+Lock+LevelThree; - map[Shift]= Level2; - map[Lock]= Level4; - preserve[Lock]= Lock; - map[LevelThree]= Level3; - map[Shift+LevelThree]= Level4; - map[Lock+LevelThree]= Level3; - preserve[Lock+LevelThree]= Lock; - map[Shift+Lock+LevelThree]= Level3; - level_name[Level1]= "Base"; - level_name[Level2]= "Shift"; - level_name[Level3]= "AltGr Base"; - level_name[Level4]= "Shift AltGr"; - }; - type "FOUR_LEVEL_PLUS_LOCK" { - modifiers= Shift+Lock+LevelThree; - map[Shift]= Level2; - map[LevelThree]= Level3; - map[Shift+LevelThree]= Level4; - map[Lock]= Level5; - map[Shift+Lock]= Level2; - map[Lock+LevelThree]= Level3; - map[Shift+Lock+LevelThree]= Level4; - level_name[Level1]= "Base"; - level_name[Level2]= "Shift"; - level_name[Level3]= "Alt Base"; - level_name[Level4]= "Shift Alt"; - level_name[Level5]= "Lock"; - }; - type "FOUR_LEVEL_KEYPAD" { - modifiers= Shift+NumLock+LevelThree; - map[Shift]= Level2; - map[NumLock]= Level2; - map[LevelThree]= Level3; - map[Shift+LevelThree]= Level4; - map[NumLock+LevelThree]= Level4; - map[Shift+NumLock+LevelThree]= Level3; - level_name[Level1]= "Base"; - level_name[Level2]= "Number"; - level_name[Level3]= "Alt Base"; - level_name[Level4]= "Alt Number"; - }; -}; - -xkb_compatibility "complete" { - - virtual_modifiers NumLock,Alt,LevelThree,LAlt,RAlt,RControl,LControl,ScrollLock,LevelFive,AltGr,Meta,Super,Hyper; - - interpret.useModMapMods= AnyLevel; - interpret.repeat= False; - interpret.locking= False; - interpret ISO_Level2_Latch+Exactly(Shift) { - useModMapMods=level1; - action= LatchMods(modifiers=Shift,clearLocks,latchToLock); - }; - interpret Shift_Lock+AnyOf(Shift+Lock) { - action= LockMods(modifiers=Shift); - }; - interpret Num_Lock+AnyOf(all) { - virtualModifier= NumLock; - action= LockMods(modifiers=NumLock); - }; - interpret ISO_Lock+AnyOf(all) { - action= ISOLock(modifiers=modMapMods,affect=all); - }; - interpret ISO_Level3_Shift+AnyOf(all) { - virtualModifier= LevelThree; - useModMapMods=level1; - action= SetMods(modifiers=LevelThree,clearLocks); - }; - interpret ISO_Level3_Shift+Exactly(none) { - action= SetMods(modifiers=LevelThree,clearLocks); - }; - interpret ISO_Level3_Latch+AnyOf(all) { - virtualModifier= LevelThree; - useModMapMods=level1; - action= LatchMods(modifiers=LevelThree,clearLocks,latchToLock); - }; - interpret ISO_Level3_Lock+AnyOf(all) { - virtualModifier= LevelThree; - useModMapMods=level1; - action= LockMods(modifiers=LevelThree); - }; - interpret Alt_L+AnyOf(all) { - virtualModifier= Alt; - action= SetMods(modifiers=modMapMods,clearLocks); - }; - interpret Alt_R+AnyOf(all) { - virtualModifier= Alt; - action= SetMods(modifiers=modMapMods,clearLocks); - }; - interpret Meta_L+AnyOf(all) { - virtualModifier= Meta; - action= SetMods(modifiers=modMapMods,clearLocks); - }; - interpret Meta_R+AnyOf(all) { - virtualModifier= Meta; - action= SetMods(modifiers=modMapMods,clearLocks); - }; - interpret Super_L+AnyOf(all) { - virtualModifier= Super; - action= SetMods(modifiers=modMapMods,clearLocks); - }; - interpret Super_R+AnyOf(all) { - virtualModifier= Super; - action= SetMods(modifiers=modMapMods,clearLocks); - }; - interpret Hyper_L+AnyOf(all) { - virtualModifier= Hyper; - action= SetMods(modifiers=modMapMods,clearLocks); - }; - interpret Hyper_R+AnyOf(all) { - virtualModifier= Hyper; - action= SetMods(modifiers=modMapMods,clearLocks); - }; - interpret Scroll_Lock+AnyOf(all) { - virtualModifier= ScrollLock; - action= LockMods(modifiers=modMapMods); - }; - interpret ISO_Level5_Shift+AnyOf(all) { - virtualModifier= LevelFive; - useModMapMods=level1; - action= SetMods(modifiers=LevelFive,clearLocks); - }; - interpret ISO_Level5_Latch+AnyOf(all) { - virtualModifier= LevelFive; - action= LatchMods(modifiers=LevelFive,clearLocks,latchToLock); - }; - interpret ISO_Level5_Lock+AnyOf(all) { - virtualModifier= LevelFive; - action= LockMods(modifiers=LevelFive); - }; - interpret Mode_switch+AnyOfOrNone(all) { - virtualModifier= AltGr; - useModMapMods=level1; - action= SetGroup(group=+1); - }; - interpret ISO_Level3_Shift+AnyOfOrNone(all) { - action= SetMods(modifiers=LevelThree,clearLocks); - }; - interpret ISO_Level3_Latch+AnyOfOrNone(all) { - action= LatchMods(modifiers=LevelThree,clearLocks,latchToLock); - }; - interpret ISO_Level3_Lock+AnyOfOrNone(all) { - action= LockMods(modifiers=LevelThree); - }; - interpret ISO_Group_Latch+AnyOfOrNone(all) { - virtualModifier= AltGr; - useModMapMods=level1; - action= LatchGroup(group=2); - }; - interpret ISO_Next_Group+AnyOfOrNone(all) { - virtualModifier= AltGr; - useModMapMods=level1; - action= LockGroup(group=+1); - }; - interpret ISO_Prev_Group+AnyOfOrNone(all) { - virtualModifier= AltGr; - useModMapMods=level1; - action= LockGroup(group=-1); - }; - interpret ISO_First_Group+AnyOfOrNone(all) { - action= LockGroup(group=1); - }; - interpret ISO_Last_Group+AnyOfOrNone(all) { - action= LockGroup(group=2); - }; - interpret KP_1+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=-1,y=+1); - }; - interpret KP_End+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=-1,y=+1); - }; - interpret KP_2+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=+0,y=+1); - }; - interpret KP_Down+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=+0,y=+1); - }; - interpret KP_3+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=+1,y=+1); - }; - interpret KP_Next+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=+1,y=+1); - }; - interpret KP_4+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=-1,y=+0); - }; - interpret KP_Left+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=-1,y=+0); - }; - interpret KP_6+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=+1,y=+0); - }; - interpret KP_Right+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=+1,y=+0); - }; - interpret KP_7+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=-1,y=-1); - }; - interpret KP_Home+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=-1,y=-1); - }; - interpret KP_8+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=+0,y=-1); - }; - interpret KP_Up+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=+0,y=-1); - }; - interpret KP_9+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=+1,y=-1); - }; - interpret KP_Prior+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=+1,y=-1); - }; - interpret KP_5+AnyOfOrNone(all) { - repeat= True; - action= PtrBtn(button=default); - }; - interpret KP_Begin+AnyOfOrNone(all) { - repeat= True; - action= PtrBtn(button=default); - }; - interpret KP_F2+AnyOfOrNone(all) { - repeat= True; - action= SetPtrDflt(affect=button,button=1); - }; - interpret KP_Divide+AnyOfOrNone(all) { - repeat= True; - action= SetPtrDflt(affect=button,button=1); - }; - interpret KP_F3+AnyOfOrNone(all) { - repeat= True; - action= SetPtrDflt(affect=button,button=2); - }; - interpret KP_Multiply+AnyOfOrNone(all) { - repeat= True; - action= SetPtrDflt(affect=button,button=2); - }; - interpret KP_F4+AnyOfOrNone(all) { - repeat= True; - action= SetPtrDflt(affect=button,button=3); - }; - interpret KP_Subtract+AnyOfOrNone(all) { - repeat= True; - action= SetPtrDflt(affect=button,button=3); - }; - interpret KP_Separator+AnyOfOrNone(all) { - repeat= True; - action= PtrBtn(button=default,count=2); - }; - interpret KP_Add+AnyOfOrNone(all) { - repeat= True; - action= PtrBtn(button=default,count=2); - }; - interpret KP_0+AnyOfOrNone(all) { - repeat= True; - action= LockPtrBtn(button=default,affect=lock); - }; - interpret KP_Insert+AnyOfOrNone(all) { - repeat= True; - action= LockPtrBtn(button=default,affect=lock); - }; - interpret KP_Decimal+AnyOfOrNone(all) { - repeat= True; - action= LockPtrBtn(button=default,affect=unlock); - }; - interpret KP_Delete+AnyOfOrNone(all) { - repeat= True; - action= LockPtrBtn(button=default,affect=unlock); - }; - interpret F25+AnyOfOrNone(all) { - repeat= True; - action= SetPtrDflt(affect=button,button=1); - }; - interpret F26+AnyOfOrNone(all) { - repeat= True; - action= SetPtrDflt(affect=button,button=2); - }; - interpret F27+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=-1,y=-1); - }; - interpret F29+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=+1,y=-1); - }; - interpret F31+AnyOfOrNone(all) { - repeat= True; - action= PtrBtn(button=default); - }; - interpret F33+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=-1,y=+1); - }; - interpret F35+AnyOfOrNone(all) { - repeat= True; - action= MovePtr(x=+1,y=+1); - }; - interpret Pointer_Button_Dflt+AnyOfOrNone(all) { - action= PtrBtn(button=default); - }; - interpret Pointer_Button1+AnyOfOrNone(all) { - action= PtrBtn(button=1); - }; - interpret Pointer_Button2+AnyOfOrNone(all) { - action= PtrBtn(button=2); - }; - interpret Pointer_Button3+AnyOfOrNone(all) { - action= PtrBtn(button=3); - }; - interpret Pointer_DblClick_Dflt+AnyOfOrNone(all) { - action= PtrBtn(button=default,count=2); - }; - interpret Pointer_DblClick1+AnyOfOrNone(all) { - action= PtrBtn(button=1,count=2); - }; - interpret Pointer_DblClick2+AnyOfOrNone(all) { - action= PtrBtn(button=2,count=2); - }; - interpret Pointer_DblClick3+AnyOfOrNone(all) { - action= PtrBtn(button=3,count=2); - }; - interpret Pointer_Drag_Dflt+AnyOfOrNone(all) { - action= LockPtrBtn(button=default,affect=both); - }; - interpret Pointer_Drag1+AnyOfOrNone(all) { - action= LockPtrBtn(button=1,affect=both); - }; - interpret Pointer_Drag2+AnyOfOrNone(all) { - action= LockPtrBtn(button=2,affect=both); - }; - interpret Pointer_Drag3+AnyOfOrNone(all) { - action= LockPtrBtn(button=3,affect=both); - }; - interpret Pointer_EnableKeys+AnyOfOrNone(all) { - action= LockControls(controls=MouseKeys); - }; - interpret Pointer_Accelerate+AnyOfOrNone(all) { - action= LockControls(controls=MouseKeysAccel); - }; - interpret Pointer_DfltBtnNext+AnyOfOrNone(all) { - action= SetPtrDflt(affect=button,button=+1); - }; - interpret Pointer_DfltBtnPrev+AnyOfOrNone(all) { - action= SetPtrDflt(affect=button,button=-1); - }; - interpret AccessX_Enable+AnyOfOrNone(all) { - action= LockControls(controls=AccessXKeys); - }; - interpret AccessX_Feedback_Enable+AnyOfOrNone(all) { - action= LockControls(controls=AccessXFeedback); - }; - interpret RepeatKeys_Enable+AnyOfOrNone(all) { - action= LockControls(controls=RepeatKeys); - }; - interpret SlowKeys_Enable+AnyOfOrNone(all) { - action= LockControls(controls=SlowKeys); - }; - interpret BounceKeys_Enable+AnyOfOrNone(all) { - action= LockControls(controls=BounceKeys); - }; - interpret StickyKeys_Enable+AnyOfOrNone(all) { - action= LockControls(controls=StickyKeys); - }; - interpret MouseKeys_Enable+AnyOfOrNone(all) { - action= LockControls(controls=MouseKeys); - }; - interpret MouseKeys_Accel_Enable+AnyOfOrNone(all) { - action= LockControls(controls=MouseKeysAccel); - }; - interpret Overlay1_Enable+AnyOfOrNone(all) { - action= LockControls(controls=Overlay1); - }; - interpret Overlay2_Enable+AnyOfOrNone(all) { - action= LockControls(controls=Overlay2); - }; - interpret AudibleBell_Enable+AnyOfOrNone(all) { - action= LockControls(controls=AudibleBell); - }; - interpret Terminate_Server+AnyOfOrNone(all) { - action= Terminate(); - }; - interpret Alt_L+AnyOfOrNone(all) { - action= SetMods(modifiers=Alt,clearLocks); - }; - interpret Alt_R+AnyOfOrNone(all) { - action= SetMods(modifiers=Alt,clearLocks); - }; - interpret Meta_L+AnyOfOrNone(all) { - action= SetMods(modifiers=Meta,clearLocks); - }; - interpret Meta_R+AnyOfOrNone(all) { - action= SetMods(modifiers=Meta,clearLocks); - }; - interpret Super_L+AnyOfOrNone(all) { - action= SetMods(modifiers=Super,clearLocks); - }; - interpret Super_R+AnyOfOrNone(all) { - action= SetMods(modifiers=Super,clearLocks); - }; - interpret Hyper_L+AnyOfOrNone(all) { - action= SetMods(modifiers=Hyper,clearLocks); - }; - interpret Hyper_R+AnyOfOrNone(all) { - action= SetMods(modifiers=Hyper,clearLocks); - }; - interpret XF86_Switch_VT_1+AnyOfOrNone(all) { - repeat= True; - action= SwitchScreen(screen=1,!same); - }; - interpret XF86_Switch_VT_2+AnyOfOrNone(all) { - repeat= True; - action= SwitchScreen(screen=2,!same); - }; - interpret XF86_Switch_VT_3+AnyOfOrNone(all) { - repeat= True; - action= SwitchScreen(screen=3,!same); - }; - interpret XF86_Switch_VT_4+AnyOfOrNone(all) { - repeat= True; - action= SwitchScreen(screen=4,!same); - }; - interpret XF86_Switch_VT_5+AnyOfOrNone(all) { - repeat= True; - action= SwitchScreen(screen=5,!same); - }; - interpret XF86_Switch_VT_6+AnyOfOrNone(all) { - repeat= True; - action= SwitchScreen(screen=6,!same); - }; - interpret XF86_Switch_VT_7+AnyOfOrNone(all) { - repeat= True; - action= SwitchScreen(screen=7,!same); - }; - interpret XF86_Switch_VT_8+AnyOfOrNone(all) { - repeat= True; - action= SwitchScreen(screen=8,!same); - }; - interpret XF86_Switch_VT_9+AnyOfOrNone(all) { - repeat= True; - action= SwitchScreen(screen=9,!same); - }; - interpret XF86_Switch_VT_10+AnyOfOrNone(all) { - repeat= True; - action= SwitchScreen(screen=10,!same); - }; - interpret XF86_Switch_VT_11+AnyOfOrNone(all) { - repeat= True; - action= SwitchScreen(screen=11,!same); - }; - interpret XF86_Switch_VT_12+AnyOfOrNone(all) { - repeat= True; - action= SwitchScreen(screen=12,!same); - }; - interpret XF86_Ungrab+AnyOfOrNone(all) { - repeat= True; - action= Private(type=0x86,data[0]=0x00,data[1]=0x00,data[2]=0x00,data[3]=0x00,data[4]=0x00,data[5]=0x00,data[6]=0x00); - }; - interpret XF86_ClearGrab+AnyOfOrNone(all) { - repeat= True; - action= Private(type=0x86,data[0]=0x00,data[1]=0x00,data[2]=0x00,data[3]=0x00,data[4]=0x00,data[5]=0x00,data[6]=0x00); - }; - interpret XF86_Next_VMode+AnyOfOrNone(all) { - repeat= True; - action= Private(type=0x86,data[0]=0x00,data[1]=0x00,data[2]=0x00,data[3]=0x00,data[4]=0x00,data[5]=0x00,data[6]=0x00); - }; - interpret XF86_Prev_VMode+AnyOfOrNone(all) { - repeat= True; - action= Private(type=0x86,data[0]=0x00,data[1]=0x00,data[2]=0x00,data[3]=0x00,data[4]=0x00,data[5]=0x00,data[6]=0x00); - }; - interpret ISO_Level5_Shift+AnyOfOrNone(all) { - action= SetMods(modifiers=LevelFive,clearLocks); - }; - interpret ISO_Level5_Latch+AnyOfOrNone(all) { - action= LatchMods(modifiers=LevelFive,clearLocks,latchToLock); - }; - interpret ISO_Level5_Lock+AnyOfOrNone(all) { - action= LockMods(modifiers=LevelFive); - }; - interpret Any+Exactly(Lock) { - action= LockMods(modifiers=Lock); - }; - interpret Any+AnyOf(all) { - action= SetMods(modifiers=modMapMods,clearLocks); - }; - indicator "Caps Lock" { - !allowExplicit; - whichModState= locked; - modifiers= Lock; - }; - indicator "Num Lock" { - !allowExplicit; - whichModState= locked; - modifiers= NumLock; - }; - indicator "Scroll Lock" { - whichModState= locked; - modifiers= ScrollLock; - }; - indicator "Shift Lock" { - !allowExplicit; - whichModState= locked; - modifiers= Shift; - }; - indicator "Group 2" { - !allowExplicit; - groups= 0xfe; - }; - indicator "Mouse Keys" { - indicatorDrivesKeyboard; - controls= mouseKeys; - }; -}; - -xkb_symbols "pc+us(dvorak)+inet(evdev)" { - - name[group1]="USA - Half-Dvorak"; - - key { - type[Group1] = "TWO_LEVEL", symbols[Group1] = [ space, space, ISO_Level3_Shift ] - }; - - key { [ grave, asciitilde, equal, plus ] }; - - key { [ Escape ] }; - key { [ 7, ampersand, 8, asterisk ] }; - key { [ 5, percent, 6, asciicircum ] }; - key { [ 3, numbersign, 4, dollar ] }; - key { [ 1, exclam, 2, at ] }; - key { [ 9, parenleft, 0, parenright ] }; - key { [ 0, parenright, 9, parenleft ] }; - key { [ 2, at, 1, exclam ] }; - key { [ 4, dollar, 3, numbersign ] }; - key { [ 6, asciicircum, 5, percent ] }; - key { [ 8, asterisk, 7, ampersand ] }; - key { [ bracketleft, braceleft, grave, asciitilde ] }; - key { [ bracketright, braceright ] }; - - key { [ backslash, bar ] }; - key { [ BackSpace, bar ] }; - - - key { [ Tab, ISO_Left_Tab, BackSpace, BackSpace ] }; - key { [ apostrophe, quotedbl, l, L ] }; - key { [ comma, less, r, R ] }; - key { [ period, greater, c, C ] }; - key { [ p, P, g, G ] }; - key { [ y, Y, f, F ] }; - key { [ f, F, y, Y ] }; - key { [ g, G, p, P ] }; - key { [ c, C, period, greater ] }; - key { [ r, R, comma, less ] }; - key { [ l, L, apostrophe, quotedbl ] }; - key { [ slash, question, Tab, ISO_Left_Tab ] }; - key { [ equal, plus, Tab, ISO_Left_Tab ] }; - - key { [ Return ] }; - - key { [ Caps_Lock, Caps_Lock, minus, underscore ] }; - key { [ a, A, s, S ] }; - key { [ o, O, n, N ] }; - key { [ e, E, t, T ] }; - key { [ u, U, h, H ] }; - key { [ i, I, d, D ] }; - key { [ d, D, i, I ] }; - key { [ h, H, u, U ] }; - key { [ t, T, e, E ] }; - key { [ n, N, o, O ] }; - key { [ s, S, a, A ] }; - key { [ minus, underscore, Caps_Lock, Caps_Lock ] }; - - key { [ semicolon, colon, z, Z ] }; - key { [ q, Q, v, V ] }; - key { [ j, J, w, W ] }; - key { [ k, K, m, M ] }; - key { [ x, X, b, B ] }; - key { [ b, B, x, X ] }; - key { [ m, M, k, K ] }; - key { [ w, W, j, J ] }; - key { [ v, V, q, Q ] }; - key { [ z, Z, semicolon, colon ] }; - - key { [ Shift_L ] }; - key { [ Shift_R ] }; - key { [ Control_L ] }; - key { [ Control_R ] }; - key { [ Alt_L, Meta_L, space, space ] }; - key { [ Alt_R, Meta_R, space, space ] }; - key { [ Super_L ] }; - key { [ Super_R ] }; - key { [ Menu ] }; - - key { - type= "CTRL+ALT", - symbols[Group1]= [ F1, XF86_Switch_VT_1 ] - }; - key { - type= "CTRL+ALT", - symbols[Group1]= [ F2, XF86_Switch_VT_2 ] - }; - key { - type= "CTRL+ALT", - symbols[Group1]= [ F3, XF86_Switch_VT_3 ] - }; - key { - type= "CTRL+ALT", - symbols[Group1]= [ F4, XF86_Switch_VT_4 ] - }; - key { - type= "CTRL+ALT", - symbols[Group1]= [ F5, XF86_Switch_VT_5 ] - }; - key { - type= "CTRL+ALT", - symbols[Group1]= [ F6, XF86_Switch_VT_6 ] - }; - key { - type= "CTRL+ALT", - symbols[Group1]= [ F7, XF86_Switch_VT_7 ] - }; - key { - type= "CTRL+ALT", - symbols[Group1]= [ F8, XF86_Switch_VT_8 ] - }; - key { - type= "CTRL+ALT", - symbols[Group1]= [ F9, XF86_Switch_VT_9 ] - }; - key { - type= "CTRL+ALT", - symbols[Group1]= [ F10, XF86_Switch_VT_10 ] - }; - key { [ Num_Lock, Pointer_EnableKeys ] }; - key { [ Scroll_Lock ] }; - key { [ KP_Home, KP_7 ] }; - key { [ KP_Up, KP_8 ] }; - key { [ KP_Prior, KP_9 ] }; - key { [ KP_Left, KP_4 ] }; - key { [ KP_Begin, KP_5 ] }; - key { [ KP_Right, KP_6 ] }; - key { [ KP_End, KP_1 ] }; - key { [ KP_Down, KP_2 ] }; - key { [ KP_Next, KP_3 ] }; - key { [ KP_Insert, KP_0 ] }; - key { [ KP_Delete, KP_Decimal ] }; - key { [ ISO_Level3_Shift ] }; - key { - type= "FOUR_LEVEL", - symbols[Group1]= [ less, greater, bar, brokenbar ] - }; - key { - type= "CTRL+ALT", - symbols[Group1]= [ F11, XF86_Switch_VT_11 ] - }; - key { - type= "CTRL+ALT", - symbols[Group1]= [ F12, XF86_Switch_VT_12 ] - }; - key { [ Katakana ] }; - key { [ Hiragana ] }; - key { [ Henkan_Mode ] }; - key { [ Hiragana_Katakana ] }; - key { [ Muhenkan ] }; - key { [ KP_Enter ] }; - key { - type= "PC_ALT_LEVEL2", - symbols[Group1]= [ Print, Sys_Req ] - }; - key { [ Linefeed ] }; - key { [ Home ] }; - key { [ Up ] }; - key { [ Prior ] }; - key { [ Left ] }; - key { [ Right ] }; - key { [ End ] }; - key { [ Down ] }; - key { [ Next ] }; - key { [ Insert ] }; - key { [ Delete ] }; - key { [ XF86AudioMute ] }; - key { [ XF86AudioLowerVolume ] }; - key { [ XF86AudioRaiseVolume ] }; - key { [ XF86PowerOff ] }; - key { [ KP_Equal ] }; - key { [ plusminus ] }; - key { - type= "PC_CONTROL_LEVEL2", - symbols[Group1]= [ Pause, Break ] - }; - key { [ KP_Separator ] }; - key { [ Hangul ] }; - key { [ Hangul_Hanja ] }; - key { [ Cancel ] }; - key { [ Redo ] }; - key { [ SunProps ] }; - key { [ Undo ] }; - key { [ SunFront ] }; - key { [ XF86Copy ] }; - key { [ SunOpen ] }; - key { [ XF86Paste ] }; - key { [ Find ] }; - key { [ XF86Cut ] }; - key { [ Help ] }; - key { [ XF86MenuKB ] }; - key { [ XF86Calculator ] }; - key { [ XF86Sleep ] }; - key { [ XF86WakeUp ] }; - key { [ XF86Explorer ] }; - key { [ XF86Send ] }; - key { [ XF86Xfer ] }; - key { [ XF86Launch1 ] }; - key { [ XF86Launch2 ] }; - key { [ XF86WWW ] }; - key { [ XF86DOS ] }; - key { [ XF86ScreenSaver ] }; - key { [ XF86RotateWindows ] }; - key { [ XF86Mail ] }; - key { [ XF86Favorites ] }; - key { [ XF86MyComputer ] }; - key { [ XF86Back ] }; - key { [ XF86Forward ] }; - key { [ XF86Eject ] }; - key { [ XF86Eject, XF86Eject ] }; - key { [ XF86AudioNext ] }; - key { [ XF86AudioPlay, XF86AudioPause ] }; - key { [ XF86AudioPrev ] }; - key { [ XF86AudioStop, XF86Eject ] }; - key { [ XF86AudioRecord ] }; - key { [ XF86AudioRewind ] }; - key { [ XF86Phone ] }; - key { [ XF86Tools ] }; - key { [ XF86HomePage ] }; - key { [ XF86Reload ] }; - key { [ XF86Close ] }; - key { [ XF86ScrollUp ] }; - key { [ XF86ScrollDown ] }; - key { [ parenleft ] }; - key { [ parenright ] }; - key { [ XF86New ] }; - key { [ Redo ] }; - key { [ Mode_switch ] }; - key { [ NoSymbol, Alt_L ] }; - key { [ NoSymbol, Meta_L ] }; - key { [ NoSymbol, Super_L ] }; - key { [ NoSymbol, Hyper_L ] }; - key { [ XF86AudioPlay ] }; - key { [ XF86AudioPause ] }; - key { [ XF86Launch3 ] }; - key { [ XF86Launch4 ] }; - key { [ XF86Suspend ] }; - key { [ XF86Close ] }; - key { [ XF86AudioPlay ] }; - key { [ XF86Forward ] }; - key { [ Print ] }; - key { [ XF86WebCam ] }; - key { [ XF86Mail ] }; - key { [ XF86Search ] }; - key { [ XF86Finance ] }; - key { [ XF86Shop ] }; - key { [ Cancel ] }; - key { [ XF86MonBrightnessDown ] }; - key { [ XF86MonBrightnessUp ] }; - key { [ XF86AudioMedia ] }; - key { [ XF86Display ] }; - key { [ XF86KbdLightOnOff ] }; - key { [ XF86KbdBrightnessDown ] }; - key { [ XF86KbdBrightnessUp ] }; - key { [ XF86Send ] }; - key { [ XF86Reply ] }; - key { [ XF86MailForward ] }; - key { [ XF86Save ] }; - key { [ XF86Documents ] }; - key { [ XF86Battery ] }; - key { [ XF86Bluetooth ] }; - key { [ XF86WLAN ] }; - modifier_map Lock { }; - modifier_map Shift { }; - modifier_map Shift { }; - modifier_map Mod1 { }; - modifier_map Control { }; - modifier_map Mod2 { }; - modifier_map Mod5 { }; - modifier_map Control { }; - modifier_map Mod1 { }; - modifier_map Mod4 { }; - modifier_map Mod4 { }; - modifier_map Mod5 { }; - modifier_map Mod1 { }; - modifier_map Mod4 { }; - modifier_map Mod4 { }; -}; - -xkb_geometry "pc(pc104)" { - - width= 470; - height= 180; - - alias = ; - alias = ; - - baseColor= "white"; - labelColor= "black"; - xfont= "-*-helvetica-medium-r-normal--*-120-*-*-*-*-iso8859-1"; - description= "Generic 104"; - - shape "NORM" { - corner= 1, - { [ 18, 18 ] }, - { [ 2, 1 ], [ 16, 16 ] } - }; - shape "BKSP" { - corner= 1, - { [ 38, 18 ] }, - { [ 2, 1 ], [ 36, 16 ] } - }; - shape "TABK" { - corner= 1, - { [ 28, 18 ] }, - { [ 2, 1 ], [ 26, 16 ] } - }; - shape "BKSL" { - corner= 1, - { [ 28, 18 ] }, - { [ 2, 1 ], [ 26, 16 ] } - }; - shape "RTRN" { - corner= 1, - { [ 42, 18 ] }, - { [ 2, 1 ], [ 40, 16 ] } - }; - shape "CAPS" { - corner= 1, - { [ 33, 18 ] }, - { [ 2, 1 ], [ 31, 16 ] } - }; - shape "LFSH" { - corner= 1, - { [ 42, 18 ] }, - { [ 2, 1 ], [ 40, 16 ] } - }; - shape "RTSH" { - corner= 1, - { [ 52, 18 ] }, - { [ 2, 1 ], [ 50, 16 ] } - }; - shape "MODK" { - corner= 1, - { [ 27, 18 ] }, - { [ 2, 1 ], [ 25, 16 ] } - }; - shape "SMOD" { - corner= 1, - { [ 23, 18 ] }, - { [ 2, 1 ], [ 21, 16 ] } - }; - shape "SPCE" { - corner= 1, - { [ 113, 18 ] }, - { [ 2, 1 ], [ 111, 16 ] } - }; - shape "KP0" { - corner= 1, - { [ 37, 18 ] }, - { [ 2, 1 ], [ 35, 16 ] } - }; - shape "KPAD" { - corner= 1, - { [ 18, 37 ] }, - { [ 2, 1 ], [ 16, 35 ] } - }; - shape "LEDS" { { [ 75, 20 ] } }; - shape "LED" { { [ 5, 1 ] } }; - section "Function" { - key.color= "grey20"; - priority= 7; - top= 22; - left= 19; - width= 351; - height= 19; - row { - top= 1; - left= 1; - keys { - { , "NORM", 1 }, - { , "NORM", 20, color="white" }, - { , "NORM", 1, color="white" }, - { , "NORM", 1, color="white" }, - { , "NORM", 1, color="white" }, - { , "NORM", 11, color="white" }, - { , "NORM", 1, color="white" }, - { , "NORM", 1, color="white" }, - { , "NORM", 1, color="white" }, - { , "NORM", 11, color="white" }, - { , "NORM", 1, color="white" }, - { , "NORM", 1, color="white" }, - { , "NORM", 1, color="white" }, - { , "NORM", 8, color="white" }, - { , "NORM", 1, color="white" }, - { , "NORM", 1, color="white" } - }; - }; - }; // End of "Function" section - - section "Alpha" { - key.color= "white"; - priority= 8; - top= 61; - left= 19; - width= 287; - height= 95; - row { - top= 1; - left= 1; - keys { - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, - { , "BKSP", 1, color="grey20" } - }; - }; - row { - top= 20; - left= 1; - keys { - { , "TABK", 1, color="grey20" }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "BKSL", 1 } - }; - }; - row { - top= 39; - left= 1; - keys { - { , "CAPS", 1, color="grey20" }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, - { , "RTRN", 1, color="grey20" } - }; - }; - row { - top= 58; - left= 1; - keys { - { , "LFSH", 1, color="grey20" }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 }, - { , "RTSH", 1, color="grey20" } - }; - }; - row { - top= 77; - left= 1; - keys { - { , "MODK", 1, color="grey20" }, - { , "SMOD", 1, color="grey20" }, - { , "SMOD", 1, color="grey20" }, - { , "SPCE", 1 }, - { , "SMOD", 1, color="grey20" }, - { , "SMOD", 1, color="grey20" }, - { , "SMOD", 1, color="grey20" }, - { , "SMOD", 1, color="grey20" } - }; - }; - }; // End of "Alpha" section - - section "Editing" { - key.color= "grey20"; - priority= 9; - top= 61; - left= 312; - width= 58; - height= 95; - row { - top= 1; - left= 1; - keys { - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 } - }; - }; - row { - top= 20; - left= 1; - keys { - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 } - }; - }; - row { - top= 58; - left= 20; - keys { - { , "NORM", 1 } - }; - }; - row { - top= 77; - left= 1; - keys { - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 } - }; - }; - }; // End of "Editing" section - - section "Keypad" { - key.color= "grey20"; - priority= 10; - top= 61; - left= 376; - width= 77; - height= 95; - row { - top= 1; - left= 1; - keys { - { , "NORM", 1 }, { , "NORM", 1 }, - { , "NORM", 1 }, { , "NORM", 1 } - }; - }; - row { - top= 20; - left= 1; - keys { - { , "NORM", 1, color="white" }, - { , "NORM", 1, color="white" }, - { , "NORM", 1, color="white" }, - { , "KPAD", 1 } - }; - }; - row { - top= 39; - left= 1; - keys { - { , "NORM", 1, color="white" }, - { , "NORM", 1, color="white" }, - { , "NORM", 1, color="white" } - }; - }; - row { - top= 58; - left= 1; - keys { - { , "NORM", 1, color="white" }, - { , "NORM", 1, color="white" }, - { , "NORM", 1, color="white" }, - { , "KPAD", 1 } - }; - }; - row { - top= 77; - left= 1; - keys { - { , "KP0", 1, color="white" }, - { , "NORM", 1, color="white" } - }; - }; - }; // End of "Keypad" section - - solid "LedPanel" { - top= 22; - left= 377; - priority= 0; - color= "grey10"; - shape= "LEDS"; - }; - indicator "Num Lock" { - top= 37; - left= 382; - priority= 1; - onColor= "green"; - offColor= "green30"; - shape= "LED"; - }; - indicator "Caps Lock" { - top= 37; - left= 407; - priority= 2; - onColor= "green"; - offColor= "green30"; - shape= "LED"; - }; - indicator "Scroll Lock" { - top= 37; - left= 433; - priority= 3; - onColor= "green"; - offColor= "green30"; - shape= "LED"; - }; - text "NumLockLabel" { - top= 25; - left= 378; - priority= 4; - width= 19.8; - height= 10; - XFont= "-*-helvetica-medium-r-normal--*-120-*-*-*-*-iso8859-1"; - text= "Num\nLock"; - }; - text "CapsLockLabel" { - top= 25; - left= 403; - priority= 5; - width= 26.4; - height= 10; - XFont= "-*-helvetica-medium-r-normal--*-120-*-*-*-*-iso8859-1"; - text= "Caps\nLock"; - }; - text "ScrollLockLabel" { - top= 25; - left= 428; - priority= 6; - width= 39.6; - height= 10; - XFont= "-*-helvetica-medium-r-normal--*-120-*-*-*-*-iso8859-1"; - text= "Scroll\nLock"; - }; -}; - -}; diff --git a/keymaps/kinesis.pke b/keymaps/kinesis.pke deleted file mode 100644 index 6d79736..0000000 --- a/keymaps/kinesis.pke +++ /dev/null @@ -1,282 +0,0 @@ -clear Shift -clear Lock -clear Control -clear Mod1 -clear Mod2 -clear Mod3 -clear Mod4 -clear Mod5 - -keycode 8 = -keycode 9 = grave asciitilde dead_grave dead_tilde -keycode 10 = 7 ampersand 7 ampersand -keycode 11 = 5 percent EuroSign cent -keycode 12 = 3 numbersign 3 numbersign -keycode 13 = 1 exclam 1 exclam -keycode 14 = 9 parenleft leftsinglequotemark leftdoublequotemark -keycode 15 = 0 parenright rightsinglequotemark rightdoublequotemark -keycode 16 = 2 at 2 at -keycode 17 = 4 dollar 4 dollar -keycode 18 = 6 asciicircum dead_circumflex asciicircum -keycode 19 = 8 asterisk 8 asterisk -keycode 20 = backslash bar brokenbar brokenbar -keycode 21 = equal plus dead_doubleacute dead_horn -keycode 22 = BackSpace bar BackSpace brokenbar -keycode 23 = Tab ISO_Left_Tab Tab ISO_Left_Tab -keycode 24 = apostrophe quotedbl dead_acute dead_diaeresis -keycode 25 = comma less dead_cedilla dead_caron -keycode 26 = period greater dead_breve dead_abovedot -keycode 27 = p P paragraph P -keycode 28 = y Y yen heart -keycode 29 = f F f F -keycode 30 = g G gcircumflex Gcircumflex -keycode 31 = c C ccircumflex Ccircumflex -keycode 32 = r R r R -keycode 33 = l L l L -keycode 34 = bracketleft braceleft bracketleft braceleft -keycode 35 = bracketright braceright bracketright braceright -keycode 36 = Return NoSymbol Return -keycode 37 = Control_L NoSymbol Control_L -keycode 38 = a A a A -keycode 39 = o O o O -keycode 40 = e E EuroSign cent -keycode 41 = u U U016D U016C -keycode 42 = i I i I -keycode 43 = d D d D -keycode 44 = h H hcircumflex Hcircumflex -keycode 45 = t T t T -keycode 46 = n N n N -keycode 47 = s S scircumflex Scircumflex -keycode 48 = minus underscore dead_macron dead_belowdot -keycode 49 = Escape dead_circumflex dead_grave dead_tilde -keycode 50 = Shift_L NoSymbol Shift_L -keycode 51 = slash question dead_hook dead_hook -keycode 52 = semicolon colon dead_ogonek dead_diaeresis -keycode 53 = q Q q Q -keycode 54 = j J jcircumflex Jcircumflex -keycode 55 = k K k K -keycode 56 = x X x X -keycode 57 = b B b B -keycode 58 = m M m M -keycode 59 = w W w W -keycode 60 = v V v V -keycode 61 = z Z z Z -keycode 62 = Shift_R NoSymbol Shift_R -keycode 63 = KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L Alt_L Meta_L -keycode 65 = space NoSymbol space -keycode 66 = Caps_Lock NoSymbol Caps_Lock -keycode 67 = F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock NoSymbol Scroll_Lock -keycode 79 = KP_Home KP_7 KP_Home KP_7 -keycode 80 = KP_Up KP_8 KP_Up KP_8 -keycode 81 = KP_Prior KP_9 KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 KP_Left KP_4 -keycode 84 = KP_Begin KP_5 KP_Begin KP_5 -keycode 85 = KP_Right KP_6 KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 KP_End KP_1 -keycode 88 = KP_Down KP_2 KP_Down KP_2 -keycode 89 = KP_Next KP_3 KP_Next KP_3 -keycode 90 = KP_Insert KP_0 KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal KP_Delete KP_Decimal -keycode 92 = ISO_Level3_Shift NoSymbol ISO_Level3_Shift NoSymbol ISO_Level3_Shift -keycode 93 = Zenkaku_Hankaku NoSymbol Zenkaku_Hankaku NoSymbol Zenkaku_Hankaku -keycode 94 = less greater less greater bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 -keycode 97 = -keycode 98 = Katakana NoSymbol Katakana NoSymbol Katakana -keycode 99 = Hiragana NoSymbol Hiragana NoSymbol Hiragana -keycode 100 = Henkan_Mode NoSymbol Henkan_Mode NoSymbol Henkan_Mode -keycode 101 = Hiragana_Katakana NoSymbol Hiragana_Katakana NoSymbol Hiragana_Katakana -keycode 102 = Muhenkan NoSymbol Muhenkan NoSymbol Muhenkan -keycode 103 = -keycode 104 = KP_Enter NoSymbol KP_Enter NoSymbol KP_Enter -keycode 105 = Control_R NoSymbol Control_R NoSymbol Control_R -keycode 106 = KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab -keycode 107 = Print Sys_Req Print Sys_Req Print Sys_Req -keycode 108 = Alt_R Meta_R Alt_R Meta_R Alt_R Meta_R -keycode 109 = Linefeed NoSymbol Linefeed NoSymbol Linefeed -keycode 110 = Home NoSymbol Home NoSymbol Home -keycode 111 = Up NoSymbol Up NoSymbol Up -keycode 112 = Prior NoSymbol Prior NoSymbol Prior -keycode 113 = Left NoSymbol Left NoSymbol Left -keycode 114 = Right NoSymbol Right NoSymbol Right -keycode 115 = End NoSymbol End NoSymbol End -keycode 116 = Down NoSymbol Down NoSymbol Down -keycode 117 = Next NoSymbol Next NoSymbol Next -keycode 118 = Insert NoSymbol Insert NoSymbol Insert -keycode 119 = Super_L Super_L Super_L Super_L Super_L -keycode 120 = -keycode 121 = XF86AudioMute NoSymbol XF86AudioMute NoSymbol XF86AudioMute -keycode 122 = XF86AudioLowerVolume NoSymbol XF86AudioLowerVolume NoSymbol XF86AudioLowerVolume -keycode 123 = XF86AudioRaiseVolume NoSymbol XF86AudioRaiseVolume NoSymbol XF86AudioRaiseVolume -keycode 124 = XF86PowerOff NoSymbol XF86PowerOff NoSymbol XF86PowerOff -keycode 125 = KP_Equal NoSymbol KP_Equal NoSymbol KP_Equal -keycode 126 = plusminus NoSymbol plusminus NoSymbol plusminus -keycode 127 = Pause Break Pause Break Pause Break -keycode 128 = -keycode 129 = KP_Separator NoSymbol KP_Separator NoSymbol KP_Separator -keycode 130 = Hangul NoSymbol Hangul NoSymbol Hangul -keycode 131 = Hangul_Hanja NoSymbol Hangul_Hanja NoSymbol Hangul_Hanja -keycode 132 = -keycode 133 = Super_L NoSymbol Super_L NoSymbol Super_L -keycode 134 = Super_R NoSymbol Super_R NoSymbol Super_R -keycode 135 = Menu NoSymbol Menu NoSymbol Menu -keycode 136 = Cancel NoSymbol Cancel NoSymbol Cancel -keycode 137 = Redo NoSymbol Redo NoSymbol Redo -keycode 138 = SunProps NoSymbol SunProps NoSymbol SunProps -keycode 139 = Undo NoSymbol Undo NoSymbol Undo -keycode 140 = SunFront NoSymbol SunFront NoSymbol SunFront -keycode 141 = XF86Copy NoSymbol XF86Copy NoSymbol XF86Copy -keycode 142 = SunOpen NoSymbol SunOpen NoSymbol SunOpen -keycode 143 = XF86Paste NoSymbol XF86Paste NoSymbol XF86Paste -keycode 144 = Find NoSymbol Find NoSymbol Find -keycode 145 = XF86Cut NoSymbol XF86Cut NoSymbol XF86Cut -keycode 146 = Help NoSymbol Help NoSymbol Help -keycode 147 = XF86MenuKB NoSymbol XF86MenuKB NoSymbol XF86MenuKB -keycode 148 = XF86Calculator NoSymbol XF86Calculator NoSymbol XF86Calculator -keycode 149 = -keycode 150 = XF86Sleep NoSymbol XF86Sleep NoSymbol XF86Sleep -keycode 151 = XF86WakeUp NoSymbol XF86WakeUp NoSymbol XF86WakeUp -keycode 152 = XF86Explorer NoSymbol XF86Explorer NoSymbol XF86Explorer -keycode 153 = XF86Send NoSymbol XF86Send NoSymbol XF86Send -keycode 154 = -keycode 155 = XF86Xfer NoSymbol XF86Xfer NoSymbol XF86Xfer -keycode 156 = XF86Launch1 NoSymbol XF86Launch1 NoSymbol XF86Launch1 -keycode 157 = XF86Launch2 NoSymbol XF86Launch2 NoSymbol XF86Launch2 -keycode 158 = XF86WWW NoSymbol XF86WWW NoSymbol XF86WWW -keycode 159 = XF86DOS NoSymbol XF86DOS NoSymbol XF86DOS -keycode 160 = XF86ScreenSaver NoSymbol XF86ScreenSaver NoSymbol XF86ScreenSaver -keycode 161 = -keycode 162 = XF86RotateWindows NoSymbol XF86RotateWindows NoSymbol XF86RotateWindows -keycode 163 = XF86Mail NoSymbol XF86Mail NoSymbol XF86Mail -keycode 164 = XF86Favorites NoSymbol XF86Favorites NoSymbol XF86Favorites -keycode 165 = XF86MyComputer NoSymbol XF86MyComputer NoSymbol XF86MyComputer -keycode 166 = XF86Back NoSymbol XF86Back NoSymbol XF86Back -keycode 167 = XF86Forward NoSymbol XF86Forward NoSymbol XF86Forward -keycode 168 = -keycode 169 = XF86Eject NoSymbol XF86Eject NoSymbol XF86Eject -keycode 170 = XF86Eject XF86Eject XF86Eject XF86Eject XF86Eject XF86Eject -keycode 171 = XF86AudioNext NoSymbol XF86AudioNext NoSymbol XF86AudioNext -keycode 172 = XF86AudioPlay XF86AudioPause XF86AudioPlay XF86AudioPause XF86AudioPlay XF86AudioPause -keycode 173 = XF86AudioPrev NoSymbol XF86AudioPrev NoSymbol XF86AudioPrev -keycode 174 = XF86AudioStop XF86Eject XF86AudioStop XF86Eject XF86AudioStop XF86Eject -keycode 175 = XF86AudioRecord NoSymbol XF86AudioRecord NoSymbol XF86AudioRecord -keycode 176 = XF86AudioRewind NoSymbol XF86AudioRewind NoSymbol XF86AudioRewind -keycode 177 = XF86Phone NoSymbol XF86Phone NoSymbol XF86Phone -keycode 178 = -keycode 179 = XF86Tools NoSymbol XF86Tools NoSymbol XF86Tools -keycode 180 = XF86HomePage NoSymbol XF86HomePage NoSymbol XF86HomePage -keycode 181 = XF86Reload NoSymbol XF86Reload NoSymbol XF86Reload -keycode 182 = XF86Close NoSymbol XF86Close NoSymbol XF86Close -keycode 183 = -keycode 184 = -keycode 185 = XF86ScrollUp NoSymbol XF86ScrollUp NoSymbol XF86ScrollUp -keycode 186 = XF86ScrollDown NoSymbol XF86ScrollDown NoSymbol XF86ScrollDown -keycode 187 = parenleft NoSymbol parenleft NoSymbol parenleft -keycode 188 = parenright NoSymbol parenright NoSymbol parenright -keycode 189 = XF86New NoSymbol XF86New NoSymbol XF86New -keycode 190 = Redo NoSymbol Redo NoSymbol Redo -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = Mode_switch NoSymbol Mode_switch NoSymbol Mode_switch -keycode 204 = NoSymbol Alt_L NoSymbol Alt_L NoSymbol Alt_L -keycode 205 = NoSymbol Meta_L NoSymbol Meta_L NoSymbol Meta_L -keycode 206 = NoSymbol Super_L NoSymbol Super_L NoSymbol Super_L -keycode 207 = NoSymbol Hyper_L NoSymbol Hyper_L NoSymbol Hyper_L -keycode 208 = XF86AudioPlay NoSymbol XF86AudioPlay NoSymbol XF86AudioPlay -keycode 209 = XF86AudioPause NoSymbol XF86AudioPause NoSymbol XF86AudioPause -keycode 210 = XF86Launch3 NoSymbol XF86Launch3 NoSymbol XF86Launch3 -keycode 211 = XF86Launch4 NoSymbol XF86Launch4 NoSymbol XF86Launch4 -keycode 212 = -keycode 213 = XF86Standby NoSymbol XF86Standby NoSymbol XF86Standby -keycode 214 = XF86Close NoSymbol XF86Close NoSymbol XF86Close -keycode 215 = XF86AudioPlay NoSymbol XF86AudioPlay NoSymbol XF86AudioPlay -keycode 216 = XF86Forward NoSymbol XF86Forward NoSymbol XF86Forward -keycode 217 = -keycode 218 = Print NoSymbol Print NoSymbol Print -keycode 219 = -keycode 220 = XF86WebCam NoSymbol XF86WebCam NoSymbol XF86WebCam -keycode 221 = -keycode 222 = -keycode 223 = XF86Mail NoSymbol XF86Mail NoSymbol XF86Mail -keycode 224 = -keycode 225 = XF86Search NoSymbol XF86Search NoSymbol XF86Search -keycode 226 = -keycode 227 = XF86Finance NoSymbol XF86Finance NoSymbol XF86Finance -keycode 228 = -keycode 229 = XF86Shop NoSymbol XF86Shop NoSymbol XF86Shop -keycode 230 = -keycode 231 = Cancel NoSymbol Cancel NoSymbol Cancel -keycode 232 = XF86MonBrightnessDown NoSymbol XF86MonBrightnessDown NoSymbol XF86MonBrightnessDown -keycode 233 = XF86MonBrightnessUp NoSymbol XF86MonBrightnessUp NoSymbol XF86MonBrightnessUp -keycode 234 = XF86AudioMedia NoSymbol XF86AudioMedia NoSymbol XF86AudioMedia -keycode 235 = XF86Display NoSymbol XF86Display NoSymbol XF86Display -keycode 236 = XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff -keycode 237 = XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown -keycode 238 = XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp -keycode 239 = XF86Send NoSymbol XF86Send NoSymbol XF86Send -keycode 240 = XF86Reply NoSymbol XF86Reply NoSymbol XF86Reply -keycode 241 = XF86MailForward NoSymbol XF86MailForward NoSymbol XF86MailForward -keycode 242 = XF86Save NoSymbol XF86Save NoSymbol XF86Save -keycode 243 = XF86Documents NoSymbol XF86Documents NoSymbol XF86Documents -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = - -!Original -!shift Shift_L (0x32), Shift_R (0x3e) -!lock Caps_Lock (0x42) -!control Control_L (0x25), Control_R (0x69) -!mod1 Alt_L (0x40), Alt_R (0x6c), Meta_L (0xcd) -!mod2 Num_Lock (0x4d) -!mod3 -!mod4 Super_L (0xce), Hyper_L (0xcf) -!mod5 ISO_Level3_Shift (0x5c), Mode_switch (0xcb) - -add shift = Shift_L Shift_R -!add lock = Caps_Lock -add control = Control_L Control_R Caps_Lock -add mod1 = Alt_L Meta_L Alt_R Meta_R -add mod2 = Mode_switch -add mod3 = Num_Lock -add mod4 = Super_L Hyper_L Super_R Hyper_R -add mod5 = ISO_Level3_Shift - -!remove Lock = Caps_Lock -!add Control = Caps_Lock -!remove Control = Control_L -!add Lock = Control_L -!keysym Caps_Lock = Mode_switch diff --git a/keymaps/kvar.pke b/keymaps/kvar.pke deleted file mode 100644 index 85af7c9..0000000 --- a/keymaps/kvar.pke +++ /dev/null @@ -1,282 +0,0 @@ -clear Shift -clear Lock -clear Control -clear Mod1 -clear Mod2 -clear Mod3 -clear Mod4 -clear Mod5 - -keycode 8 = -keycode 9 = Escape dead_circumflex dead_grave dead_tilde -keycode 10 = 7 ampersand 7 ampersand -keycode 11 = 5 percent EuroSign cent -keycode 12 = 3 numbersign 3 numbersign -keycode 13 = 1 exclam 1 exclam -keycode 14 = 9 parenleft leftsinglequotemark leftdoublequotemark -keycode 15 = 0 parenright rightsinglequotemark rightdoublequotemark -keycode 16 = 2 at 2 at -keycode 17 = 4 dollar 4 dollar -keycode 18 = 6 asciicircum dead_circumflex asciicircum -keycode 19 = 8 asterisk 8 asterisk -keycode 20 = bracketleft braceleft bracketleft braceleft -keycode 21 = bracketright braceright bracketright braceright -keycode 22 = BackSpace bar BackSpace brokenbar -keycode 23 = Tab ISO_Left_Tab Tab ISO_Left_Tab -keycode 24 = apostrophe quotedbl dead_acute dead_diaeresis -keycode 25 = comma less dead_cedilla dead_caron -keycode 26 = period greater dead_breve dead_abovedot -keycode 27 = p P paragraph P -keycode 28 = y Y yen heart -keycode 29 = f F f F -keycode 30 = g G gcircumflex Gcircumflex -keycode 31 = c C ccircumflex Ccircumflex -keycode 32 = r R r R -keycode 33 = l L l L -keycode 34 = slash question dead_hook dead_hook -keycode 35 = equal plus dead_doubleacute dead_horn -keycode 36 = Return NoSymbol Return -keycode 37 = Control_L NoSymbol Control_L -keycode 38 = a A a A -keycode 39 = o O o O -keycode 40 = e E EuroSign cent -keycode 41 = u U U016D U016C -keycode 42 = i I i I -keycode 43 = d D d D -keycode 44 = h H hcircumflex Hcircumflex -keycode 45 = t T t T -keycode 46 = n N n N -keycode 47 = s S scircumflex Scircumflex -keycode 48 = minus underscore dead_macron dead_belowdot -keycode 49 = grave asciitilde dead_grave dead_tilde -keycode 50 = Shift_L NoSymbol Shift_L -keycode 51 = backslash bar brokenbar brokenbar -keycode 52 = semicolon colon dead_ogonek dead_diaeresis -keycode 53 = q Q q Q -keycode 54 = j J jcircumflex Jcircumflex -keycode 55 = k K k K -keycode 56 = x X x X -keycode 57 = b B b B -keycode 58 = m M m M -keycode 59 = w W w W -keycode 60 = v V v V -keycode 61 = z Z z Z -keycode 62 = Shift_R NoSymbol Shift_R -keycode 63 = KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L Alt_L Meta_L -keycode 65 = space NoSymbol space -keycode 66 = Caps_Lock NoSymbol Caps_Lock -keycode 67 = F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock NoSymbol Scroll_Lock -keycode 79 = KP_Home KP_7 KP_Home KP_7 -keycode 80 = KP_Up KP_8 KP_Up KP_8 -keycode 81 = KP_Prior KP_9 KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 KP_Left KP_4 -keycode 84 = KP_Begin KP_5 KP_Begin KP_5 -keycode 85 = KP_Right KP_6 KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 KP_End KP_1 -keycode 88 = KP_Down KP_2 KP_Down KP_2 -keycode 89 = KP_Next KP_3 KP_Next KP_3 -keycode 90 = KP_Insert KP_0 KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal KP_Delete KP_Decimal -keycode 92 = ISO_Level3_Shift NoSymbol ISO_Level3_Shift NoSymbol ISO_Level3_Shift -keycode 93 = Zenkaku_Hankaku NoSymbol Zenkaku_Hankaku NoSymbol Zenkaku_Hankaku -keycode 94 = less greater less greater bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 -keycode 97 = -keycode 98 = Katakana NoSymbol Katakana NoSymbol Katakana -keycode 99 = Hiragana NoSymbol Hiragana NoSymbol Hiragana -keycode 100 = Henkan_Mode NoSymbol Henkan_Mode NoSymbol Henkan_Mode -keycode 101 = Hiragana_Katakana NoSymbol Hiragana_Katakana NoSymbol Hiragana_Katakana -keycode 102 = Muhenkan NoSymbol Muhenkan NoSymbol Muhenkan -keycode 103 = -keycode 104 = KP_Enter NoSymbol KP_Enter NoSymbol KP_Enter -keycode 105 = Control_R NoSymbol Control_R NoSymbol Control_R -keycode 106 = KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab -keycode 107 = Print Sys_Req Print Sys_Req Print Sys_Req -keycode 108 = Alt_R Meta_R Alt_R Meta_R Alt_R Meta_R -keycode 109 = Linefeed NoSymbol Linefeed NoSymbol Linefeed -keycode 110 = Home NoSymbol Home NoSymbol Home -keycode 111 = Up NoSymbol Up NoSymbol Up -keycode 112 = Prior NoSymbol Prior NoSymbol Prior -keycode 113 = Left NoSymbol Left NoSymbol Left -keycode 114 = Right NoSymbol Right NoSymbol Right -keycode 115 = End NoSymbol End NoSymbol End -keycode 116 = Down NoSymbol Down NoSymbol Down -keycode 117 = Next NoSymbol Next NoSymbol Next -keycode 118 = Insert NoSymbol Insert NoSymbol Insert -keycode 119 = Delete NoSymbol Delete NoSymbol Delete -keycode 120 = -keycode 121 = XF86AudioMute NoSymbol XF86AudioMute NoSymbol XF86AudioMute -keycode 122 = XF86AudioLowerVolume NoSymbol XF86AudioLowerVolume NoSymbol XF86AudioLowerVolume -keycode 123 = XF86AudioRaiseVolume NoSymbol XF86AudioRaiseVolume NoSymbol XF86AudioRaiseVolume -keycode 124 = XF86PowerOff NoSymbol XF86PowerOff NoSymbol XF86PowerOff -keycode 125 = KP_Equal NoSymbol KP_Equal NoSymbol KP_Equal -keycode 126 = plusminus NoSymbol plusminus NoSymbol plusminus -keycode 127 = Pause Break Pause Break Pause Break -keycode 128 = -keycode 129 = KP_Separator NoSymbol KP_Separator NoSymbol KP_Separator -keycode 130 = Hangul NoSymbol Hangul NoSymbol Hangul -keycode 131 = Hangul_Hanja NoSymbol Hangul_Hanja NoSymbol Hangul_Hanja -keycode 132 = -keycode 133 = Super_L NoSymbol Super_L NoSymbol Super_L -keycode 134 = Super_R NoSymbol Super_R NoSymbol Super_R -keycode 135 = Menu NoSymbol Menu NoSymbol Menu -keycode 136 = Cancel NoSymbol Cancel NoSymbol Cancel -keycode 137 = Redo NoSymbol Redo NoSymbol Redo -keycode 138 = SunProps NoSymbol SunProps NoSymbol SunProps -keycode 139 = Undo NoSymbol Undo NoSymbol Undo -keycode 140 = SunFront NoSymbol SunFront NoSymbol SunFront -keycode 141 = XF86Copy NoSymbol XF86Copy NoSymbol XF86Copy -keycode 142 = SunOpen NoSymbol SunOpen NoSymbol SunOpen -keycode 143 = XF86Paste NoSymbol XF86Paste NoSymbol XF86Paste -keycode 144 = Find NoSymbol Find NoSymbol Find -keycode 145 = XF86Cut NoSymbol XF86Cut NoSymbol XF86Cut -keycode 146 = Help NoSymbol Help NoSymbol Help -keycode 147 = XF86MenuKB NoSymbol XF86MenuKB NoSymbol XF86MenuKB -keycode 148 = XF86Calculator NoSymbol XF86Calculator NoSymbol XF86Calculator -keycode 149 = -keycode 150 = XF86Sleep NoSymbol XF86Sleep NoSymbol XF86Sleep -keycode 151 = XF86WakeUp NoSymbol XF86WakeUp NoSymbol XF86WakeUp -keycode 152 = XF86Explorer NoSymbol XF86Explorer NoSymbol XF86Explorer -keycode 153 = XF86Send NoSymbol XF86Send NoSymbol XF86Send -keycode 154 = -keycode 155 = XF86Xfer NoSymbol XF86Xfer NoSymbol XF86Xfer -keycode 156 = XF86Launch1 NoSymbol XF86Launch1 NoSymbol XF86Launch1 -keycode 157 = XF86Launch2 NoSymbol XF86Launch2 NoSymbol XF86Launch2 -keycode 158 = XF86WWW NoSymbol XF86WWW NoSymbol XF86WWW -keycode 159 = XF86DOS NoSymbol XF86DOS NoSymbol XF86DOS -keycode 160 = XF86ScreenSaver NoSymbol XF86ScreenSaver NoSymbol XF86ScreenSaver -keycode 161 = -keycode 162 = XF86RotateWindows NoSymbol XF86RotateWindows NoSymbol XF86RotateWindows -keycode 163 = XF86Mail NoSymbol XF86Mail NoSymbol XF86Mail -keycode 164 = XF86Favorites NoSymbol XF86Favorites NoSymbol XF86Favorites -keycode 165 = XF86MyComputer NoSymbol XF86MyComputer NoSymbol XF86MyComputer -keycode 166 = XF86Back NoSymbol XF86Back NoSymbol XF86Back -keycode 167 = XF86Forward NoSymbol XF86Forward NoSymbol XF86Forward -keycode 168 = -keycode 169 = XF86Eject NoSymbol XF86Eject NoSymbol XF86Eject -keycode 170 = XF86Eject XF86Eject XF86Eject XF86Eject XF86Eject XF86Eject -keycode 171 = XF86AudioNext NoSymbol XF86AudioNext NoSymbol XF86AudioNext -keycode 172 = XF86AudioPlay XF86AudioPause XF86AudioPlay XF86AudioPause XF86AudioPlay XF86AudioPause -keycode 173 = XF86AudioPrev NoSymbol XF86AudioPrev NoSymbol XF86AudioPrev -keycode 174 = XF86AudioStop XF86Eject XF86AudioStop XF86Eject XF86AudioStop XF86Eject -keycode 175 = XF86AudioRecord NoSymbol XF86AudioRecord NoSymbol XF86AudioRecord -keycode 176 = XF86AudioRewind NoSymbol XF86AudioRewind NoSymbol XF86AudioRewind -keycode 177 = XF86Phone NoSymbol XF86Phone NoSymbol XF86Phone -keycode 178 = -keycode 179 = XF86Tools NoSymbol XF86Tools NoSymbol XF86Tools -keycode 180 = XF86HomePage NoSymbol XF86HomePage NoSymbol XF86HomePage -keycode 181 = XF86Reload NoSymbol XF86Reload NoSymbol XF86Reload -keycode 182 = XF86Close NoSymbol XF86Close NoSymbol XF86Close -keycode 183 = -keycode 184 = -keycode 185 = XF86ScrollUp NoSymbol XF86ScrollUp NoSymbol XF86ScrollUp -keycode 186 = XF86ScrollDown NoSymbol XF86ScrollDown NoSymbol XF86ScrollDown -keycode 187 = parenleft NoSymbol parenleft NoSymbol parenleft -keycode 188 = parenright NoSymbol parenright NoSymbol parenright -keycode 189 = XF86New NoSymbol XF86New NoSymbol XF86New -keycode 190 = Redo NoSymbol Redo NoSymbol Redo -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = Mode_switch NoSymbol Mode_switch NoSymbol Mode_switch -keycode 204 = NoSymbol Alt_L NoSymbol Alt_L NoSymbol Alt_L -keycode 205 = NoSymbol Meta_L NoSymbol Meta_L NoSymbol Meta_L -keycode 206 = NoSymbol Super_L NoSymbol Super_L NoSymbol Super_L -keycode 207 = NoSymbol Hyper_L NoSymbol Hyper_L NoSymbol Hyper_L -keycode 208 = XF86AudioPlay NoSymbol XF86AudioPlay NoSymbol XF86AudioPlay -keycode 209 = XF86AudioPause NoSymbol XF86AudioPause NoSymbol XF86AudioPause -keycode 210 = XF86Launch3 NoSymbol XF86Launch3 NoSymbol XF86Launch3 -keycode 211 = XF86Launch4 NoSymbol XF86Launch4 NoSymbol XF86Launch4 -keycode 212 = -keycode 213 = XF86Standby NoSymbol XF86Standby NoSymbol XF86Standby -keycode 214 = XF86Close NoSymbol XF86Close NoSymbol XF86Close -keycode 215 = XF86AudioPlay NoSymbol XF86AudioPlay NoSymbol XF86AudioPlay -keycode 216 = XF86Forward NoSymbol XF86Forward NoSymbol XF86Forward -keycode 217 = -keycode 218 = Print NoSymbol Print NoSymbol Print -keycode 219 = -keycode 220 = XF86WebCam NoSymbol XF86WebCam NoSymbol XF86WebCam -keycode 221 = -keycode 222 = -keycode 223 = XF86Mail NoSymbol XF86Mail NoSymbol XF86Mail -keycode 224 = -keycode 225 = XF86Search NoSymbol XF86Search NoSymbol XF86Search -keycode 226 = -keycode 227 = XF86Finance NoSymbol XF86Finance NoSymbol XF86Finance -keycode 228 = -keycode 229 = XF86Shop NoSymbol XF86Shop NoSymbol XF86Shop -keycode 230 = -keycode 231 = Cancel NoSymbol Cancel NoSymbol Cancel -keycode 232 = XF86MonBrightnessDown NoSymbol XF86MonBrightnessDown NoSymbol XF86MonBrightnessDown -keycode 233 = XF86MonBrightnessUp NoSymbol XF86MonBrightnessUp NoSymbol XF86MonBrightnessUp -keycode 234 = XF86AudioMedia NoSymbol XF86AudioMedia NoSymbol XF86AudioMedia -keycode 235 = XF86Display NoSymbol XF86Display NoSymbol XF86Display -keycode 236 = XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff -keycode 237 = XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown -keycode 238 = XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp -keycode 239 = XF86Send NoSymbol XF86Send NoSymbol XF86Send -keycode 240 = XF86Reply NoSymbol XF86Reply NoSymbol XF86Reply -keycode 241 = XF86MailForward NoSymbol XF86MailForward NoSymbol XF86MailForward -keycode 242 = XF86Save NoSymbol XF86Save NoSymbol XF86Save -keycode 243 = XF86Documents NoSymbol XF86Documents NoSymbol XF86Documents -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = - -!Original -!shift Shift_L (0x32), Shift_R (0x3e) -!lock Caps_Lock (0x42) -!control Control_L (0x25), Control_R (0x69) -!mod1 Alt_L (0x40), Alt_R (0x6c), Meta_L (0xcd) -!mod2 Num_Lock (0x4d) -!mod3 -!mod4 Super_L (0xce), Hyper_L (0xcf) -!mod5 ISO_Level3_Shift (0x5c), Mode_switch (0xcb) - -add shift = Shift_L Shift_R -add lock = Caps_Lock -add control = Control_L Control_R -add mod1 = Alt_L Meta_L Alt_R Meta_R -add mod2 = Mode_switch -add mod3 = Num_Lock -add mod4 = Super_L Hyper_L Super_R Hyper_R -add mod5 = ISO_Level3_Shift - -!remove Lock = Caps_Lock -!add Control = Caps_Lock -!remove Control = Control_L -!add Lock = Control_L -!keysym Caps_Lock = Mode_switch diff --git a/keymaps/nu_std.pke b/keymaps/nu_std.pke deleted file mode 100644 index 761ff96..0000000 --- a/keymaps/nu_std.pke +++ /dev/null @@ -1,291 +0,0 @@ -clear Shift -clear Lock -clear Control -clear Mod1 -clear Mod2 -clear Mod3 -clear Mod4 -clear Mod5 - -keycode 8 = -keycode 9 = grave asciitilde dead_grave dead_tilde grave asciitilde -keycode 10 = 7 ampersand 7 ampersand 7 ampersand -keycode 11 = 5 percent EuroSign cent 5 percent -keycode 12 = 3 numbersign 3 numbersign 3 numbersign -keycode 13 = 1 exclam 1 exclam 1 exclam -keycode 14 = 9 parenleft leftsinglequotemark leftdoublequotemark 9 parenleft -keycode 15 = 0 parenright rightsinglequotemark rightdoublequotemark 0 parenright -keycode 16 = 2 at 2 at 2 at -keycode 17 = 4 dollar 4 dollar 4 dollar -keycode 18 = 6 asciicircum dead_circumflex asciicircum 6 asciicircum -keycode 19 = 8 asterisk 8 asterisk 8 asterisk -keycode 20 = bracketleft braceleft bracketleft braceleft bracketleft braceleft -keycode 21 = bracketright braceright bracketright braceright bracketright braceright -keycode 22 = backslash bar brokenbar brokenbar backslash bar -keycode 23 = Tab ISO_Left_Tab Tab ISO_Left_Tab Tab ISO_Left_Tab -keycode 24 = apostrophe quotedbl dead_acute dead_diaeresis apostrophe quotedbl -keycode 25 = comma less dead_cedilla dead_caron comma less -keycode 26 = period greater dead_breve dead_abovedot period greater -keycode 27 = p P paragraph P p P -keycode 28 = y Y yen heart y Y -keycode 29 = f F f F f F -keycode 30 = g G gcircumflex Gcircumflex g G -keycode 31 = c C ccircumflex Ccircumflex c C -keycode 32 = r R r R r R -keycode 33 = l L l L l L -keycode 34 = slash question dead_hook dead_hook slash question -keycode 35 = equal plus dead_doubleacute dead_horn equal plus -keycode 36 = Return NoSymbol Return NoSymbol Return -keycode 37 = Caps_Lock NoSymbol Caps_Lock NoSymbol Caps_Lock -keycode 38 = a A a A a A -keycode 39 = o O o O o O -keycode 40 = e E EuroSign cent e E -keycode 41 = u U U016D U016C u U -keycode 42 = i I i I i I -keycode 43 = d D d D d D -keycode 44 = h H hcircumflex Hcircumflex h H -keycode 45 = t T t T t T -keycode 46 = n N n N n N -keycode 47 = s S scircumflex Scircumflex s S -keycode 48 = minus underscore dead_macron dead_belowdot minus underscore -keycode 49 = Escape dead_circumflex dead_grave dead_tilde NoSymbol Escape -keycode 50 = Shift_L NoSymbol Shift_L NoSymbol Shift_L -keycode 51 = BackSpace bar BackSpace brokenbar BackSpace bar -keycode 52 = semicolon colon dead_ogonek dead_diaeresis semicolon colon -keycode 53 = q Q q Q q Q -keycode 54 = j J jcircumflex Jcircumflex j J -keycode 55 = k K k K k K -keycode 56 = x X x X x X -keycode 57 = b B b B b B -keycode 58 = m M m M m M -keycode 59 = w W w W w W -keycode 60 = v V v V v V -keycode 61 = z Z z Z z Z -keycode 62 = Shift_R NoSymbol Shift_R NoSymbol Shift_R -keycode 63 = KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L Alt_L Meta_L Alt_L Meta_L -keycode 65 = space NoSymbol space NoSymbol space -keycode 66 = Control_L NoSymbol Control_L NoSymbol Control_L -keycode 67 = F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock NoSymbol Scroll_Lock NoSymbol Scroll_Lock -keycode 79 = KP_Home KP_7 KP_Home KP_7 KP_Home KP_7 -keycode 80 = KP_Up KP_8 KP_Up KP_8 KP_Up KP_8 -keycode 81 = KP_Prior KP_9 KP_Prior KP_9 KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 KP_Left KP_4 KP_Left KP_4 -keycode 84 = KP_Begin KP_5 KP_Begin KP_5 KP_Begin KP_5 -keycode 85 = KP_Right KP_6 KP_Right KP_6 KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 KP_End KP_1 KP_End KP_1 -keycode 88 = KP_Down KP_2 KP_Down KP_2 KP_Down KP_2 -keycode 89 = KP_Next KP_3 KP_Next KP_3 KP_Next KP_3 -keycode 90 = KP_Insert KP_0 KP_Insert KP_0 KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal KP_Delete KP_Decimal KP_Delete KP_Decimal -keycode 92 = ISO_Level3_Shift NoSymbol ISO_Level3_Shift NoSymbol ISO_Level3_Shift -keycode 93 = -keycode 94 = less greater less greater bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 -keycode 97 = -keycode 98 = Katakana NoSymbol Katakana NoSymbol Katakana -keycode 99 = Hiragana NoSymbol Hiragana NoSymbol Hiragana -keycode 100 = Henkan_Mode NoSymbol Henkan_Mode NoSymbol Henkan_Mode -keycode 101 = Hiragana_Katakana NoSymbol Hiragana_Katakana NoSymbol Hiragana_Katakana -keycode 102 = Muhenkan NoSymbol Muhenkan NoSymbol Muhenkan -keycode 103 = -keycode 104 = KP_Enter NoSymbol KP_Enter NoSymbol KP_Enter -keycode 105 = Control_R NoSymbol Control_R NoSymbol Control_R -keycode 106 = KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab -keycode 107 = Print Sys_Req Print Sys_Req Print Sys_Req -keycode 108 = Alt_R Meta_R Alt_R Meta_R Alt_R Meta_R -keycode 109 = Linefeed NoSymbol Linefeed NoSymbol Linefeed -keycode 110 = Home NoSymbol Home NoSymbol Home -keycode 111 = Up NoSymbol Up NoSymbol Up -keycode 112 = Prior NoSymbol Prior NoSymbol Prior -keycode 113 = Left NoSymbol Left NoSymbol Left -keycode 114 = Right NoSymbol Right NoSymbol Right -keycode 115 = End NoSymbol End NoSymbol End -keycode 116 = Down NoSymbol Down NoSymbol Down -keycode 117 = Next NoSymbol Next NoSymbol Next -keycode 118 = Insert NoSymbol Insert NoSymbol Insert -keycode 119 = Delete NoSymbol Delete NoSymbol Delete -keycode 120 = -keycode 121 = XF86AudioMute NoSymbol XF86AudioMute NoSymbol XF86AudioMute -keycode 122 = XF86AudioLowerVolume NoSymbol XF86AudioLowerVolume NoSymbol XF86AudioLowerVolume -keycode 123 = XF86AudioRaiseVolume NoSymbol XF86AudioRaiseVolume NoSymbol XF86AudioRaiseVolume -keycode 124 = XF86PowerOff NoSymbol XF86PowerOff NoSymbol XF86PowerOff -keycode 125 = KP_Equal NoSymbol KP_Equal NoSymbol KP_Equal -keycode 126 = plusminus NoSymbol plusminus NoSymbol plusminus -keycode 127 = Pause Break Pause Break Pause Break -keycode 128 = -keycode 129 = KP_Separator NoSymbol KP_Separator NoSymbol KP_Separator -keycode 130 = Hangul NoSymbol Hangul NoSymbol Hangul -keycode 131 = Hangul_Hanja NoSymbol Hangul_Hanja NoSymbol Hangul_Hanja -keycode 132 = -keycode 133 = Super_L NoSymbol Super_L NoSymbol Super_L -keycode 134 = Super_R NoSymbol Super_R NoSymbol Super_R -keycode 135 = Menu NoSymbol Menu NoSymbol Menu -keycode 136 = Cancel NoSymbol Cancel NoSymbol Cancel -keycode 137 = Redo NoSymbol Redo NoSymbol Redo -keycode 138 = SunProps NoSymbol SunProps NoSymbol SunProps -keycode 139 = Undo NoSymbol Undo NoSymbol Undo -keycode 140 = SunFront NoSymbol SunFront NoSymbol SunFront -keycode 141 = XF86Copy NoSymbol XF86Copy NoSymbol XF86Copy -keycode 142 = SunOpen NoSymbol SunOpen NoSymbol SunOpen -keycode 143 = XF86Paste NoSymbol XF86Paste NoSymbol XF86Paste -keycode 144 = Find NoSymbol Find NoSymbol Find -keycode 145 = XF86Cut NoSymbol XF86Cut NoSymbol XF86Cut -keycode 146 = Help NoSymbol Help NoSymbol Help -keycode 147 = XF86MenuKB NoSymbol XF86MenuKB NoSymbol XF86MenuKB -keycode 148 = XF86Calculator NoSymbol XF86Calculator NoSymbol XF86Calculator -keycode 149 = -keycode 150 = XF86Sleep NoSymbol XF86Sleep NoSymbol XF86Sleep -keycode 151 = XF86WakeUp NoSymbol XF86WakeUp NoSymbol XF86WakeUp -keycode 152 = XF86Explorer NoSymbol XF86Explorer NoSymbol XF86Explorer -keycode 153 = XF86Send NoSymbol XF86Send NoSymbol XF86Send -keycode 154 = -keycode 155 = XF86Xfer NoSymbol XF86Xfer NoSymbol XF86Xfer -keycode 156 = XF86Launch1 NoSymbol XF86Launch1 NoSymbol XF86Launch1 -keycode 157 = XF86Launch2 NoSymbol XF86Launch2 NoSymbol XF86Launch2 -keycode 158 = XF86WWW NoSymbol XF86WWW NoSymbol XF86WWW -keycode 159 = XF86DOS NoSymbol XF86DOS NoSymbol XF86DOS -keycode 160 = XF86ScreenSaver NoSymbol XF86ScreenSaver NoSymbol XF86ScreenSaver -keycode 161 = -keycode 162 = XF86RotateWindows NoSymbol XF86RotateWindows NoSymbol XF86RotateWindows -keycode 163 = XF86Mail NoSymbol XF86Mail NoSymbol XF86Mail -keycode 164 = XF86Favorites NoSymbol XF86Favorites NoSymbol XF86Favorites -keycode 165 = XF86MyComputer NoSymbol XF86MyComputer NoSymbol XF86MyComputer -keycode 166 = XF86Back NoSymbol XF86Back NoSymbol XF86Back -keycode 167 = XF86Forward NoSymbol XF86Forward NoSymbol XF86Forward -keycode 168 = -keycode 169 = XF86Eject NoSymbol XF86Eject NoSymbol XF86Eject -keycode 170 = XF86Eject XF86Eject XF86Eject XF86Eject XF86Eject XF86Eject -keycode 171 = XF86AudioNext NoSymbol XF86AudioNext NoSymbol XF86AudioNext -keycode 172 = XF86AudioPlay XF86AudioPause XF86AudioPlay XF86AudioPause XF86AudioPlay XF86AudioPause -keycode 173 = XF86AudioPrev NoSymbol XF86AudioPrev NoSymbol XF86AudioPrev -keycode 174 = XF86AudioStop XF86Eject XF86AudioStop XF86Eject XF86AudioStop XF86Eject -keycode 175 = XF86AudioRecord NoSymbol XF86AudioRecord NoSymbol XF86AudioRecord -keycode 176 = XF86AudioRewind NoSymbol XF86AudioRewind NoSymbol XF86AudioRewind -keycode 177 = XF86Phone NoSymbol XF86Phone NoSymbol XF86Phone -keycode 178 = -keycode 179 = XF86Tools NoSymbol XF86Tools NoSymbol XF86Tools -keycode 180 = XF86HomePage NoSymbol XF86HomePage NoSymbol XF86HomePage -keycode 181 = XF86Reload NoSymbol XF86Reload NoSymbol XF86Reload -keycode 182 = XF86Close NoSymbol XF86Close NoSymbol XF86Close -keycode 183 = -keycode 184 = -keycode 185 = XF86ScrollUp NoSymbol XF86ScrollUp NoSymbol XF86ScrollUp -keycode 186 = XF86ScrollDown NoSymbol XF86ScrollDown NoSymbol XF86ScrollDown -keycode 187 = parenleft NoSymbol parenleft NoSymbol parenleft -keycode 188 = parenright NoSymbol parenright NoSymbol parenright -keycode 189 = XF86New NoSymbol XF86New NoSymbol XF86New -keycode 190 = Redo NoSymbol Redo NoSymbol Redo -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = Mode_switch NoSymbol Mode_switch NoSymbol Mode_switch -keycode 204 = NoSymbol Alt_L NoSymbol Alt_L NoSymbol Alt_L -keycode 205 = NoSymbol Meta_L NoSymbol Meta_L NoSymbol Meta_L -keycode 206 = NoSymbol Super_L NoSymbol Super_L NoSymbol Super_L -keycode 207 = NoSymbol Hyper_L NoSymbol Hyper_L NoSymbol Hyper_L -keycode 208 = XF86AudioPlay NoSymbol XF86AudioPlay NoSymbol XF86AudioPlay -keycode 209 = XF86AudioPause NoSymbol XF86AudioPause NoSymbol XF86AudioPause -keycode 210 = XF86Launch3 NoSymbol XF86Launch3 NoSymbol XF86Launch3 -keycode 211 = XF86Launch4 NoSymbol XF86Launch4 NoSymbol XF86Launch4 -keycode 212 = -keycode 214 = XF86Close NoSymbol XF86Close NoSymbol XF86Close -keycode 215 = XF86AudioPlay NoSymbol XF86AudioPlay NoSymbol XF86AudioPlay -keycode 216 = XF86Forward NoSymbol XF86Forward NoSymbol XF86Forward -keycode 217 = -keycode 218 = Print NoSymbol Print NoSymbol Print -keycode 219 = -keycode 220 = XF86WebCam NoSymbol XF86WebCam NoSymbol XF86WebCam -keycode 221 = -keycode 222 = -keycode 223 = XF86Mail NoSymbol XF86Mail NoSymbol XF86Mail -keycode 224 = -keycode 225 = XF86Search NoSymbol XF86Search NoSymbol XF86Search -keycode 226 = -keycode 227 = XF86Finance NoSymbol XF86Finance NoSymbol XF86Finance -keycode 228 = -keycode 229 = XF86Shop NoSymbol XF86Shop NoSymbol XF86Shop -keycode 230 = -keycode 231 = Cancel NoSymbol Cancel NoSymbol Cancel -keycode 232 = XF86MonBrightnessDown NoSymbol XF86MonBrightnessDown NoSymbol XF86MonBrightnessDown -keycode 233 = XF86MonBrightnessUp NoSymbol XF86MonBrightnessUp NoSymbol XF86MonBrightnessUp -keycode 234 = XF86AudioMedia NoSymbol XF86AudioMedia NoSymbol XF86AudioMedia -keycode 235 = XF86Display NoSymbol XF86Display NoSymbol XF86Display -keycode 236 = XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff -keycode 237 = XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown -keycode 238 = XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp -keycode 239 = XF86Send NoSymbol XF86Send NoSymbol XF86Send -keycode 240 = XF86Reply NoSymbol XF86Reply NoSymbol XF86Reply -keycode 241 = XF86MailForward NoSymbol XF86MailForward NoSymbol XF86MailForward -keycode 242 = XF86Save NoSymbol XF86Save NoSymbol XF86Save -keycode 243 = XF86Documents NoSymbol XF86Documents NoSymbol XF86Documents -keycode 244 = XF86Battery NoSymbol XF86Battery NoSymbol XF86Battery -keycode 245 = XF86Bluetooth NoSymbol XF86Bluetooth NoSymbol XF86Bluetooth -keycode 246 = XF86WLAN NoSymbol XF86WLAN NoSymbol XF86WLAN -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = - -!Original -!shift Shift_L (0x32), Shift_R (0x3e) -!lock Control_L (0x25) -!control , Control_R (0x6d), Caps_Lock (0x42) -!mod1 Alt_L (0x40), Alt_R (0x71), Meta_L (0x9c) -!mod2 Num_Lock (0x4d) -!mod3 -!mod4 Super_L (0x7f), Hyper_L (0x80) -!mod5 Mode_switch (0x5d), ISO_Level3_Shift (0x7c) - -!2nd -!shift Shift_L (0x32), Shift_R (0x3e) -!lock Caps_Lock (0x25) -!control , Control_R (0x6d), Control_L (0x42) -!mod1 Alt_L (0x40), Alt_L (0x7d), ISO_Level3_Shift (0x71), ISO_Level3_Shift (0x7c), Meta_L (0x9c) -!mod2 Num_Lock (0x4d) -!mod3 -!mod4 Super_L (0x73), Super_L (0x7f), Hyper_L (0x80) -!mod5 Mode_switch (0x5d), ISO_Level3_Shift (0x71), ISO_Level3_Shift (0x7c) - -add shift = Shift_L Shift_R -add lock = Caps_Lock -add control = Control_L Control_R -add mod1 = Alt_L Meta_L Alt_R Meta_R -add mod2 = Mode_switch -add mod3 = Num_Lock -add mod4 = Super_L Hyper_L Super_R Hyper_R -add mod5 = ISO_Level3_Shift - -!remove Lock = Caps_Lock -!add Control = Caps_Lock -!remove Control = Control_L -!add Lock = Control_L -!keysym Caps_Lock = Mode_switch diff --git a/keymaps/nu_type7.pke b/keymaps/nu_type7.pke deleted file mode 100644 index 6de128c..0000000 --- a/keymaps/nu_type7.pke +++ /dev/null @@ -1,266 +0,0 @@ -clear Shift -clear Lock -clear Control -clear Mod1 -clear Mod2 -clear Mod3 -clear Mod4 -clear Mod5 - -keycode 8 = -keycode 9 = Escape dead_circumflex dead_grave dead_tilde Escape -keycode 10 = 7 ampersand 7 ampersand 7 ampersand 7 ampersand -keycode 11 = 5 percent EuroSign cent 5 percent 5 percent EuroSign -keycode 12 = 3 numbersign 3 numbersign 3 numbersign sterling -keycode 13 = 1 exclam 1 exclam 1 exclam -keycode 14 = 9 parenleft leftsinglequotemark leftdoublequotemark 9 parenleft degree -keycode 15 = 0 parenright rightsinglequotemark rightdoublequotemark 0 parenright plusminus -keycode 16 = 2 at 2 at 2 at -keycode 17 = 4 dollar 4 dollar 4 dollar -keycode 18 = 6 asciicircum dead_circumflex asciicircum 6 asciicircum -keycode 19 = 8 asterisk 8 asterisk 8 asterisk -keycode 20 = bracketleft braceleft bracketleft braceleft bracketleft braceleft dead_dasia dead_dasia -keycode 21 = bracketright braceright bracketright braceright bracketright braceright dead_psili dead_psili -keycode 22 = BackSpace bar BackSpace brokenbar BackSpace -keycode 23 = Tab ISO_Left_Tab Tab ISO_Left_Tab Tab ISO_Left_Tab -keycode 24 = apostrophe quotedbl dead_acute dead_diaeresis apostrophe quotedbl dead_grave dead_grave -keycode 25 = comma less dead_cedilla dead_caron comma greater guillemotleft -keycode 26 = period greater dead_breve dead_abovedot period less guillemotright -keycode 27 = p P paragraph P Greek_pi Greek_PI -keycode 28 = y Y yen heart Greek_upsilon Greek_UPSILON -keycode 29 = f F f F Greek_phi Greek_PHI -keycode 30 = g G gcircumflex Gcircumflex Greek_gamma Greek_GAMMA -keycode 31 = c C ccircumflex Ccircumflex Greek_psi Greek_PSI copyright -keycode 32 = r R r R Greek_rho Greek_RHO registered -keycode 33 = l L l L Greek_lamda Greek_LAMDA -keycode 34 = slash question dead_hook question slash question slash question -keycode 35 = equal plus dead_doubleacute dead_horn equal plus -keycode 36 = Return NoSymbol Return NoSymbol Return -keycode 37 = Control_L NoSymbol Control_L NoSymbol Control_L -keycode 38 = a A a A Greek_alpha Greek_ALPHA -keycode 39 = o O o O Greek_omicron Greek_OMICRON -keycode 40 = e E EuroSign cent Greek_epsilon Greek_EPSILON EuroSign -keycode 41 = u U U016D U016C Greek_theta Greek_THETA -keycode 42 = i I i I Greek_iota Greek_IOTA dead_iota dead_iota -keycode 43 = d D d D Greek_delta Greek_DELTA -keycode 44 = h H hcircumflex Hcircumflex Greek_eta Greek_ETA -keycode 45 = t T t T Greek_tau Greek_TAU -keycode 46 = n N n N Greek_nu Greek_NU -keycode 47 = s S scircumflex Scircumflex Greek_sigma Greek_SIGMA -keycode 48 = minus underscore dead_macron dead_belowdot minus underscore minus underscore -keycode 49 = grave asciitilde dead_grave dead_tilde grave asciitilde dead_grave dead_tilde -keycode 50 = Shift_L NoSymbol Shift_L NoSymbol Shift_L -keycode 51 = backslash bar brokenbar brokenbar backslash bar -keycode 52 = semicolon colon dead_ogonek dead_diaeresis dead_acute dead_diaeresis dead_psili dead_psili -keycode 53 = q Q q Q semicolon colon periodcentered -keycode 54 = j J jcircumflex Jcircumflex Greek_xi Greek_XI -keycode 55 = k K k K Greek_kappa Greek_KAPPA -keycode 56 = x X x X Greek_chi Greek_CHI -keycode 57 = b B b B Greek_beta Greek_BETA -keycode 58 = m M m M Greek_mu Greek_MU -keycode 59 = w W w W Greek_finalsmallsigma Greek_SIGMA -keycode 60 = v V v V Greek_omega Greek_OMEGA -keycode 61 = z Z z Z Greek_zeta Greek_ZETA -keycode 62 = Shift_R ISO_Next_Group ISO_Group_Shift ISO_Next_Group ISO_Group_Shift ISO_First_Group -keycode 63 = KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L Alt_L Meta_L Alt_L Meta_L -keycode 65 = space NoSymbol space NoSymbol space -keycode 66 = Mode_switch NoSymbol Mode_switch NoSymbol Mode_switch -keycode 67 = F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock NoSymbol Scroll_Lock NoSymbol Scroll_Lock -keycode 79 = KP_Home KP_7 KP_Home KP_7 KP_Home KP_7 -keycode 80 = KP_Up KP_8 KP_Up KP_8 KP_Up KP_8 -keycode 81 = KP_Prior KP_9 KP_Prior KP_9 KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 KP_Left KP_4 KP_Left KP_4 -keycode 84 = KP_Begin KP_5 KP_Begin KP_5 KP_Begin KP_5 -keycode 85 = KP_Right KP_6 KP_Right KP_6 KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 KP_End KP_1 KP_End KP_1 -keycode 88 = KP_Down KP_2 KP_Down KP_2 KP_Down KP_2 -keycode 89 = KP_Next KP_3 KP_Next KP_3 KP_Next KP_3 -keycode 90 = KP_Insert KP_0 KP_Insert KP_0 KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal KP_Delete KP_Decimal KP_Delete KP_Decimal -keycode 92 = Shift_R NoSymbol Shift_R NoSymbol Shift_R -keycode 93 = -keycode 94 = less greater less greater bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 -keycode 97 = -keycode 98 = Katakana NoSymbol Katakana NoSymbol Katakana -keycode 99 = Hiragana NoSymbol Hiragana NoSymbol Hiragana -keycode 100 = Henkan_Mode NoSymbol Henkan_Mode NoSymbol Henkan_Mode -keycode 101 = Hiragana_Katakana NoSymbol Hiragana_Katakana NoSymbol Hiragana_Katakana -keycode 102 = Muhenkan NoSymbol Muhenkan NoSymbol Muhenkan -keycode 103 = -keycode 104 = KP_Enter NoSymbol KP_Enter NoSymbol KP_Enter -keycode 105 = Control_R NoSymbol Control_R NoSymbol Control_R -keycode 106 = KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab -keycode 107 = Print Sys_Req Print Sys_Req Print Sys_Req -keycode 108 = Caps_Lock NoSymbol Caps_Lock NoSymbol Caps_Lock -keycode 109 = Linefeed NoSymbol Linefeed NoSymbol Linefeed -keycode 110 = Home NoSymbol Home NoSymbol Home -keycode 111 = Up NoSymbol Up NoSymbol Up -keycode 112 = Prior NoSymbol Prior NoSymbol Prior -keycode 113 = Left NoSymbol Left NoSymbol Left -keycode 114 = Right NoSymbol Right NoSymbol Right -keycode 115 = End NoSymbol End NoSymbol End -keycode 116 = Down NoSymbol Down NoSymbol Down -keycode 117 = Next NoSymbol Next NoSymbol Next -keycode 118 = Insert NoSymbol Insert NoSymbol Insert -keycode 119 = Delete NoSymbol Delete NoSymbol Delete -keycode 120 = -keycode 121 = XF86AudioMute NoSymbol XF86AudioMute NoSymbol XF86AudioMute -keycode 122 = XF86AudioLowerVolume NoSymbol XF86AudioLowerVolume NoSymbol XF86AudioLowerVolume -keycode 123 = XF86AudioRaiseVolume NoSymbol XF86AudioRaiseVolume NoSymbol XF86AudioRaiseVolume -keycode 124 = XF86PowerOff NoSymbol XF86PowerOff NoSymbol XF86PowerOff -keycode 125 = KP_Equal NoSymbol KP_Equal NoSymbol KP_Equal -keycode 126 = plusminus NoSymbol plusminus NoSymbol plusminus -keycode 127 = Pause Break Pause Break Pause Break -keycode 128 = -keycode 129 = KP_Separator NoSymbol KP_Separator NoSymbol KP_Separator -keycode 130 = Hangul NoSymbol Hangul NoSymbol Hangul -keycode 131 = Hangul_Hanja NoSymbol Hangul_Hanja NoSymbol Hangul_Hanja -keycode 132 = -keycode 133 = Super_L NoSymbol Super_L NoSymbol Super_L -keycode 134 = Super_R NoSymbol Super_R NoSymbol Super_R -keycode 135 = Menu NoSymbol Menu NoSymbol Menu -keycode 136 = Cancel NoSymbol Cancel NoSymbol Cancel -keycode 137 = Redo NoSymbol Redo NoSymbol Redo -keycode 138 = SunProps NoSymbol SunProps NoSymbol SunProps -keycode 139 = Undo NoSymbol Undo NoSymbol Undo -keycode 140 = SunFront NoSymbol SunFront NoSymbol SunFront -keycode 141 = XF86Copy NoSymbol XF86Copy NoSymbol XF86Copy -keycode 142 = SunOpen NoSymbol SunOpen NoSymbol SunOpen -keycode 143 = XF86Paste NoSymbol XF86Paste NoSymbol XF86Paste -keycode 144 = Find NoSymbol Find NoSymbol Find -keycode 145 = XF86Cut NoSymbol XF86Cut NoSymbol XF86Cut -keycode 146 = Help NoSymbol Help NoSymbol Help -keycode 147 = XF86MenuKB NoSymbol XF86MenuKB NoSymbol XF86MenuKB -keycode 148 = XF86Calculator NoSymbol XF86Calculator NoSymbol XF86Calculator -keycode 149 = -keycode 150 = XF86Sleep NoSymbol XF86Sleep NoSymbol XF86Sleep -keycode 151 = XF86WakeUp NoSymbol XF86WakeUp NoSymbol XF86WakeUp -keycode 152 = XF86Explorer NoSymbol XF86Explorer NoSymbol XF86Explorer -keycode 153 = XF86Send NoSymbol XF86Send NoSymbol XF86Send -keycode 154 = -keycode 155 = XF86Xfer NoSymbol XF86Xfer NoSymbol XF86Xfer -keycode 156 = XF86Launch1 NoSymbol XF86Launch1 NoSymbol XF86Launch1 -keycode 157 = XF86Launch2 NoSymbol XF86Launch2 NoSymbol XF86Launch2 -keycode 158 = XF86WWW NoSymbol XF86WWW NoSymbol XF86WWW -keycode 159 = XF86DOS NoSymbol XF86DOS NoSymbol XF86DOS -keycode 160 = XF86ScreenSaver NoSymbol XF86ScreenSaver NoSymbol XF86ScreenSaver -keycode 161 = -keycode 162 = XF86RotateWindows NoSymbol XF86RotateWindows NoSymbol XF86RotateWindows -keycode 163 = XF86Mail NoSymbol XF86Mail NoSymbol XF86Mail -keycode 164 = XF86Favorites NoSymbol XF86Favorites NoSymbol XF86Favorites -keycode 165 = XF86MyComputer NoSymbol XF86MyComputer NoSymbol XF86MyComputer -keycode 166 = XF86Back NoSymbol XF86Back NoSymbol XF86Back -keycode 167 = XF86Forward NoSymbol XF86Forward NoSymbol XF86Forward -keycode 168 = -keycode 169 = XF86Eject NoSymbol XF86Eject NoSymbol XF86Eject -keycode 170 = XF86Eject XF86Eject XF86Eject XF86Eject XF86Eject XF86Eject -keycode 171 = XF86AudioNext NoSymbol XF86AudioNext NoSymbol XF86AudioNext -keycode 172 = XF86AudioPlay XF86AudioPause XF86AudioPlay XF86AudioPause XF86AudioPlay XF86AudioPause -keycode 173 = XF86AudioPrev NoSymbol XF86AudioPrev NoSymbol XF86AudioPrev -keycode 174 = XF86AudioStop XF86Eject XF86AudioStop XF86Eject XF86AudioStop XF86Eject -keycode 175 = XF86AudioRecord NoSymbol XF86AudioRecord NoSymbol XF86AudioRecord -keycode 176 = XF86AudioRewind NoSymbol XF86AudioRewind NoSymbol XF86AudioRewind -keycode 177 = XF86Phone NoSymbol XF86Phone NoSymbol XF86Phone -keycode 178 = -keycode 179 = XF86Tools NoSymbol XF86Tools NoSymbol XF86Tools -keycode 180 = XF86HomePage NoSymbol XF86HomePage NoSymbol XF86HomePage -keycode 181 = XF86Reload NoSymbol XF86Reload NoSymbol XF86Reload -keycode 182 = XF86Close NoSymbol XF86Close NoSymbol XF86Close -keycode 183 = -keycode 184 = -keycode 185 = XF86ScrollUp NoSymbol XF86ScrollUp NoSymbol XF86ScrollUp -keycode 186 = XF86ScrollDown NoSymbol XF86ScrollDown NoSymbol XF86ScrollDown -keycode 187 = parenleft NoSymbol parenleft NoSymbol parenleft -keycode 188 = parenright NoSymbol parenright NoSymbol parenright -keycode 189 = XF86New NoSymbol XF86New NoSymbol XF86New -keycode 190 = Redo NoSymbol Redo NoSymbol Redo -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = Alt_R Meta_R Alt_R Meta_R Alt_R Meta_R -keycode 204 = NoSymbol Alt_L NoSymbol Alt_L NoSymbol Alt_L -keycode 205 = NoSymbol Meta_L NoSymbol Meta_L NoSymbol Meta_L -keycode 206 = NoSymbol Super_L NoSymbol Super_L NoSymbol Super_L -keycode 207 = NoSymbol Hyper_L NoSymbol Hyper_L NoSymbol Hyper_L -keycode 208 = XF86AudioPlay NoSymbol XF86AudioPlay NoSymbol XF86AudioPlay -keycode 209 = XF86AudioPause NoSymbol XF86AudioPause NoSymbol XF86AudioPause -keycode 210 = XF86Launch3 NoSymbol XF86Launch3 NoSymbol XF86Launch3 -keycode 211 = XF86Launch4 NoSymbol XF86Launch4 NoSymbol XF86Launch4 -keycode 212 = -keycode 213 = -keycode 214 = XF86Close NoSymbol XF86Close NoSymbol XF86Close -keycode 215 = XF86AudioPlay NoSymbol XF86AudioPlay NoSymbol XF86AudioPlay -keycode 216 = XF86Forward NoSymbol XF86Forward NoSymbol XF86Forward -keycode 217 = -keycode 218 = Print NoSymbol Print NoSymbol Print -keycode 219 = -keycode 220 = XF86WebCam NoSymbol XF86WebCam NoSymbol XF86WebCam -keycode 221 = -keycode 222 = -keycode 223 = XF86Mail NoSymbol XF86Mail NoSymbol XF86Mail -keycode 224 = -keycode 225 = XF86Search NoSymbol XF86Search NoSymbol XF86Search -keycode 226 = -keycode 227 = XF86Finance NoSymbol XF86Finance NoSymbol XF86Finance -keycode 228 = -keycode 229 = XF86Shop NoSymbol XF86Shop NoSymbol XF86Shop -keycode 230 = -keycode 231 = Cancel NoSymbol Cancel NoSymbol Cancel -keycode 232 = XF86MonBrightnessDown NoSymbol XF86MonBrightnessDown NoSymbol XF86MonBrightnessDown -keycode 233 = XF86MonBrightnessUp NoSymbol XF86MonBrightnessUp NoSymbol XF86MonBrightnessUp -keycode 234 = XF86AudioMedia NoSymbol XF86AudioMedia NoSymbol XF86AudioMedia -keycode 235 = XF86Display NoSymbol XF86Display NoSymbol XF86Display -keycode 236 = XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff -keycode 237 = XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown -keycode 238 = XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp -keycode 239 = XF86Send NoSymbol XF86Send NoSymbol XF86Send -keycode 240 = XF86Reply NoSymbol XF86Reply NoSymbol XF86Reply -keycode 241 = XF86MailForward NoSymbol XF86MailForward NoSymbol XF86MailForward -keycode 242 = XF86Save NoSymbol XF86Save NoSymbol XF86Save -keycode 243 = XF86Documents NoSymbol XF86Documents NoSymbol XF86Documents -keycode 244 = XF86Battery NoSymbol XF86Battery NoSymbol XF86Battery -keycode 245 = XF86Bluetooth NoSymbol XF86Bluetooth NoSymbol XF86Bluetooth -keycode 246 = XF86WLAN NoSymbol XF86WLAN NoSymbol XF86WLAN -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = - -add Shift = Shift_L Shift_R -add Lock = Caps_Lock -add Control = Control_L Control_R -add Mod1 = Alt_L Meta_L Alt_R Meta_R -add Mod2 = Num_Lock -add Mod3 = ISO_Level3_Shift -add Mod4 = Super_L Hyper_L Super_R Hyper_R -!add Mod5 = Mode_switch diff --git a/keymaps/nu_x61.pke b/keymaps/nu_x61.pke deleted file mode 100644 index bbe7b4a..0000000 --- a/keymaps/nu_x61.pke +++ /dev/null @@ -1,275 +0,0 @@ -clear Shift -clear Lock -clear Control -clear Mod1 -clear Mod2 -clear Mod3 -clear Mod4 -clear Mod5 - -keycode 8 = -keycode 9 = grave asciitilde dead_grave dead_tilde grave asciitilde dead_grave dead_tilde -keycode 10 = 7 ampersand 7 ampersand 7 ampersand 7 ampersand -keycode 11 = 5 percent EuroSign cent 5 percent 5 percent EuroSign -keycode 12 = 3 numbersign 3 numbersign 3 numbersign sterling -keycode 13 = 1 exclam 1 exclam 1 exclam -keycode 14 = 9 parenleft leftsinglequotemark leftdoublequotemark 9 parenleft degree -keycode 15 = 0 parenright rightsinglequotemark rightdoublequotemark 0 parenright plusminus -keycode 16 = 2 at 2 at 2 at -keycode 17 = 4 dollar 4 dollar 4 dollar -keycode 18 = 6 asciicircum dead_circumflex asciicircum 6 asciicircum -keycode 19 = 8 asterisk 8 asterisk 8 asterisk -keycode 20 = bracketleft braceleft bracketleft braceleft bracketleft braceleft dead_dasia dead_dasia -keycode 21 = bracketright braceright bracketright braceright bracketright braceright dead_psili dead_psili -keycode 22 = backslash bar brokenbar brokenbar backslash bar -keycode 23 = Tab ISO_Left_Tab Tab ISO_Left_Tab Tab ISO_Left_Tab -keycode 24 = apostrophe quotedbl dead_acute dead_diaeresis apostrophe quotedbl dead_grave dead_grave -keycode 25 = comma less dead_cedilla dead_caron comma greater guillemotleft -keycode 26 = period greater dead_breve dead_abovedot period less guillemotright -keycode 27 = p P paragraph P Greek_pi Greek_PI -keycode 28 = y Y yen heart Greek_upsilon Greek_UPSILON -keycode 29 = f F f F Greek_phi Greek_PHI -keycode 30 = g G gcircumflex Gcircumflex Greek_gamma Greek_GAMMA -keycode 31 = c C ccircumflex Ccircumflex Greek_psi Greek_PSI copyright -keycode 32 = r R r R Greek_rho Greek_RHO registered -keycode 33 = l L l L Greek_lamda Greek_LAMDA -keycode 34 = slash question dead_hook question slash question slash question -keycode 35 = equal plus dead_doubleacute dead_horn equal plus -keycode 36 = Return NoSymbol Return NoSymbol Return -keycode 37 = Caps_Lock NoSymbol Caps_Lock NoSymbol Caps_Lock -keycode 38 = a A a A Greek_alpha Greek_ALPHA -keycode 39 = o O o O Greek_omicron Greek_OMICRON -keycode 40 = e E EuroSign cent Greek_epsilon Greek_EPSILON EuroSign -keycode 41 = u U U016D U016C Greek_theta Greek_THETA -keycode 42 = i I i I Greek_iota Greek_IOTA dead_iota dead_iota -keycode 43 = d D d D Greek_delta Greek_DELTA -keycode 44 = h H hcircumflex Hcircumflex Greek_eta Greek_ETA -keycode 45 = t T t T Greek_tau Greek_TAU -keycode 46 = n N n N Greek_nu Greek_NU -keycode 47 = s S scircumflex Scircumflex Greek_sigma Greek_SIGMA -keycode 48 = minus underscore dead_macron dead_belowdot minus underscore minus underscore -keycode 49 = Escape dead_circumflex dead_grave dead_tilde Escape -keycode 50 = Shift_L NoSymbol Shift_L NoSymbol Shift_L -keycode 51 = BackSpace bar BackSpace brokenbar BackSpace -keycode 52 = semicolon colon dead_ogonek dead_diaeresis dead_acute dead_diaeresis dead_psili dead_psili -keycode 53 = q Q q Q semicolon colon periodcentered -keycode 54 = j J jcircumflex Jcircumflex Greek_xi Greek_XI -keycode 55 = k K k K Greek_kappa Greek_KAPPA -keycode 56 = x X x X Greek_chi Greek_CHI -keycode 57 = b B b B Greek_beta Greek_BETA -keycode 58 = m M m M Greek_mu Greek_MU -keycode 59 = w W w W Greek_finalsmallsigma Greek_SIGMA -keycode 60 = v V v V Greek_omega Greek_OMEGA -keycode 61 = z Z z Z Greek_zeta Greek_ZETA -keycode 62 = Shift_R ISO_Next_Group ISO_Group_Shift ISO_Next_Group ISO_Group_Shift ISO_First_Group -keycode 63 = KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L Alt_L Meta_L Alt_L Meta_L -keycode 65 = space NoSymbol space NoSymbol space -keycode 66 = Control_L NoSymbol Control_L NoSymbol Control_L -keycode 67 = F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock NoSymbol Scroll_Lock NoSymbol Scroll_Lock -keycode 79 = KP_Home KP_7 KP_Home KP_7 KP_Home KP_7 -keycode 80 = KP_Up KP_8 KP_Up KP_8 KP_Up KP_8 -keycode 81 = KP_Prior KP_9 KP_Prior KP_9 KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 KP_Left KP_4 KP_Left KP_4 -keycode 84 = KP_Begin KP_5 KP_Begin KP_5 KP_Begin KP_5 -keycode 85 = KP_Right KP_6 KP_Right KP_6 KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 KP_End KP_1 KP_End KP_1 -keycode 88 = KP_Down KP_2 KP_Down KP_2 KP_Down KP_2 -keycode 89 = KP_Next KP_3 KP_Next KP_3 KP_Next KP_3 -keycode 90 = KP_Insert KP_0 KP_Insert KP_0 KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal KP_Delete KP_Decimal KP_Delete KP_Decimal -keycode 92 = Shift_R NoSymbol Shift_R NoSymbol Shift_R -keycode 93 = -keycode 94 = less greater less greater bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 -keycode 97 = -keycode 98 = Katakana NoSymbol Katakana NoSymbol Katakana -keycode 99 = Hiragana NoSymbol Hiragana NoSymbol Hiragana -keycode 100 = Henkan_Mode NoSymbol Henkan_Mode NoSymbol Henkan_Mode -keycode 101 = Hiragana_Katakana NoSymbol Hiragana_Katakana NoSymbol Hiragana_Katakana -keycode 102 = Muhenkan NoSymbol Muhenkan NoSymbol Muhenkan -keycode 103 = -keycode 104 = KP_Enter NoSymbol KP_Enter NoSymbol KP_Enter -keycode 105 = Control_R NoSymbol Control_R NoSymbol Control_R -keycode 106 = KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab -keycode 107 = Print Sys_Req Print Sys_Req Print Sys_Req -keycode 108 = Mode_switch NoSymbol Mode_switch NoSymbol Mode_switch -keycode 109 = Linefeed NoSymbol Linefeed NoSymbol Linefeed -keycode 110 = Home NoSymbol Home NoSymbol Home -keycode 111 = Up NoSymbol Up NoSymbol Up -keycode 112 = Prior NoSymbol Prior NoSymbol Prior -keycode 113 = Left NoSymbol Left NoSymbol Left -keycode 114 = Right NoSymbol Right NoSymbol Right -keycode 115 = End NoSymbol End NoSymbol End -keycode 116 = Down NoSymbol Down NoSymbol Down -keycode 117 = Next NoSymbol Next NoSymbol Next -keycode 118 = Insert NoSymbol Insert NoSymbol Insert -keycode 119 = Delete NoSymbol Delete NoSymbol Delete -keycode 120 = -keycode 121 = XF86AudioMute NoSymbol XF86AudioMute NoSymbol XF86AudioMute -keycode 122 = XF86AudioLowerVolume NoSymbol XF86AudioLowerVolume NoSymbol XF86AudioLowerVolume -keycode 123 = XF86AudioRaiseVolume NoSymbol XF86AudioRaiseVolume NoSymbol XF86AudioRaiseVolume -keycode 124 = XF86PowerOff NoSymbol XF86PowerOff NoSymbol XF86PowerOff -keycode 125 = KP_Equal NoSymbol KP_Equal NoSymbol KP_Equal -keycode 126 = plusminus NoSymbol plusminus NoSymbol plusminus -keycode 127 = Pause Break Pause Break Pause Break -keycode 128 = -keycode 129 = KP_Separator NoSymbol KP_Separator NoSymbol KP_Separator -keycode 130 = Hangul NoSymbol Hangul NoSymbol Hangul -keycode 131 = Hangul_Hanja NoSymbol Hangul_Hanja NoSymbol Hangul_Hanja -keycode 132 = -keycode 133 = Super_L NoSymbol Super_L NoSymbol Super_L -keycode 134 = Super_R NoSymbol Super_R NoSymbol Super_R -keycode 135 = Menu NoSymbol Menu NoSymbol Menu -keycode 136 = Cancel NoSymbol Cancel NoSymbol Cancel -keycode 137 = Redo NoSymbol Redo NoSymbol Redo -keycode 138 = SunProps NoSymbol SunProps NoSymbol SunProps -keycode 139 = Undo NoSymbol Undo NoSymbol Undo -keycode 140 = SunFront NoSymbol SunFront NoSymbol SunFront -keycode 141 = XF86Copy NoSymbol XF86Copy NoSymbol XF86Copy -keycode 142 = SunOpen NoSymbol SunOpen NoSymbol SunOpen -keycode 143 = XF86Paste NoSymbol XF86Paste NoSymbol XF86Paste -keycode 144 = Find NoSymbol Find NoSymbol Find -keycode 145 = XF86Cut NoSymbol XF86Cut NoSymbol XF86Cut -keycode 146 = Help NoSymbol Help NoSymbol Help -keycode 147 = XF86MenuKB NoSymbol XF86MenuKB NoSymbol XF86MenuKB -keycode 148 = XF86Calculator NoSymbol XF86Calculator NoSymbol XF86Calculator -keycode 149 = -keycode 150 = XF86Sleep NoSymbol XF86Sleep NoSymbol XF86Sleep -keycode 151 = XF86WakeUp NoSymbol XF86WakeUp NoSymbol XF86WakeUp -keycode 152 = XF86Explorer NoSymbol XF86Explorer NoSymbol XF86Explorer -keycode 153 = XF86Send NoSymbol XF86Send NoSymbol XF86Send -keycode 154 = -keycode 155 = XF86Xfer NoSymbol XF86Xfer NoSymbol XF86Xfer -keycode 156 = XF86Launch1 NoSymbol XF86Launch1 NoSymbol XF86Launch1 -keycode 157 = XF86Launch2 NoSymbol XF86Launch2 NoSymbol XF86Launch2 -keycode 158 = XF86WWW NoSymbol XF86WWW NoSymbol XF86WWW -keycode 159 = XF86DOS NoSymbol XF86DOS NoSymbol XF86DOS -keycode 160 = XF86ScreenSaver NoSymbol XF86ScreenSaver NoSymbol XF86ScreenSaver -keycode 161 = -keycode 162 = XF86RotateWindows NoSymbol XF86RotateWindows NoSymbol XF86RotateWindows -keycode 163 = XF86Mail NoSymbol XF86Mail NoSymbol XF86Mail -keycode 164 = XF86Favorites NoSymbol XF86Favorites NoSymbol XF86Favorites -keycode 165 = XF86MyComputer NoSymbol XF86MyComputer NoSymbol XF86MyComputer -keycode 166 = XF86Back NoSymbol XF86Back NoSymbol XF86Back -keycode 167 = XF86Forward NoSymbol XF86Forward NoSymbol XF86Forward -keycode 168 = -keycode 169 = XF86Eject NoSymbol XF86Eject NoSymbol XF86Eject -keycode 170 = XF86Eject XF86Eject XF86Eject XF86Eject XF86Eject XF86Eject -keycode 171 = XF86AudioNext NoSymbol XF86AudioNext NoSymbol XF86AudioNext -keycode 172 = XF86AudioPlay XF86AudioPause XF86AudioPlay XF86AudioPause XF86AudioPlay XF86AudioPause -keycode 173 = XF86AudioPrev NoSymbol XF86AudioPrev NoSymbol XF86AudioPrev -keycode 174 = XF86AudioStop XF86Eject XF86AudioStop XF86Eject XF86AudioStop XF86Eject -keycode 175 = XF86AudioRecord NoSymbol XF86AudioRecord NoSymbol XF86AudioRecord -keycode 176 = XF86AudioRewind NoSymbol XF86AudioRewind NoSymbol XF86AudioRewind -keycode 177 = XF86Phone NoSymbol XF86Phone NoSymbol XF86Phone -keycode 178 = -keycode 179 = XF86Tools NoSymbol XF86Tools NoSymbol XF86Tools -keycode 180 = XF86HomePage NoSymbol XF86HomePage NoSymbol XF86HomePage -keycode 181 = XF86Reload NoSymbol XF86Reload NoSymbol XF86Reload -keycode 182 = XF86Close NoSymbol XF86Close NoSymbol XF86Close -keycode 183 = -keycode 184 = -keycode 185 = XF86ScrollUp NoSymbol XF86ScrollUp NoSymbol XF86ScrollUp -keycode 186 = XF86ScrollDown NoSymbol XF86ScrollDown NoSymbol XF86ScrollDown -keycode 187 = parenleft NoSymbol parenleft NoSymbol parenleft -keycode 188 = parenright NoSymbol parenright NoSymbol parenright -keycode 189 = XF86New NoSymbol XF86New NoSymbol XF86New -keycode 190 = Redo NoSymbol Redo NoSymbol Redo -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = Alt_R Meta_R Alt_R Meta_R Alt_R Meta_R -keycode 204 = NoSymbol Alt_L NoSymbol Alt_L NoSymbol Alt_L -keycode 205 = NoSymbol Meta_L NoSymbol Meta_L NoSymbol Meta_L -keycode 206 = NoSymbol Super_L NoSymbol Super_L NoSymbol Super_L -keycode 207 = NoSymbol Hyper_L NoSymbol Hyper_L NoSymbol Hyper_L -keycode 208 = XF86AudioPlay NoSymbol XF86AudioPlay NoSymbol XF86AudioPlay -keycode 209 = XF86AudioPause NoSymbol XF86AudioPause NoSymbol XF86AudioPause -keycode 210 = XF86Launch3 NoSymbol XF86Launch3 NoSymbol XF86Launch3 -keycode 211 = XF86Launch4 NoSymbol XF86Launch4 NoSymbol XF86Launch4 -keycode 212 = -keycode 213 = XF86Suspend NoSymbol XF86Suspend NoSymbol XF86Suspend -keycode 214 = XF86Close NoSymbol XF86Close NoSymbol XF86Close -keycode 215 = XF86AudioPlay NoSymbol XF86AudioPlay NoSymbol XF86AudioPlay -keycode 216 = XF86Forward NoSymbol XF86Forward NoSymbol XF86Forward -keycode 217 = -keycode 218 = Print NoSymbol Print NoSymbol Print -keycode 219 = -keycode 220 = XF86WebCam NoSymbol XF86WebCam NoSymbol XF86WebCam -keycode 221 = -keycode 222 = -keycode 223 = XF86Mail NoSymbol XF86Mail NoSymbol XF86Mail -keycode 224 = -keycode 225 = XF86Search NoSymbol XF86Search NoSymbol XF86Search -keycode 226 = -keycode 227 = XF86Finance NoSymbol XF86Finance NoSymbol XF86Finance -keycode 228 = -keycode 229 = XF86Shop NoSymbol XF86Shop NoSymbol XF86Shop -keycode 230 = -keycode 231 = Cancel NoSymbol Cancel NoSymbol Cancel -keycode 232 = XF86MonBrightnessDown NoSymbol XF86MonBrightnessDown NoSymbol XF86MonBrightnessDown -keycode 233 = XF86MonBrightnessUp NoSymbol XF86MonBrightnessUp NoSymbol XF86MonBrightnessUp -keycode 234 = XF86AudioMedia NoSymbol XF86AudioMedia NoSymbol XF86AudioMedia -keycode 235 = XF86Display NoSymbol XF86Display NoSymbol XF86Display -keycode 236 = XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff -keycode 237 = XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown -keycode 238 = XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp -keycode 239 = XF86Send NoSymbol XF86Send NoSymbol XF86Send -keycode 240 = XF86Reply NoSymbol XF86Reply NoSymbol XF86Reply -keycode 241 = XF86MailForward NoSymbol XF86MailForward NoSymbol XF86MailForward -keycode 242 = XF86Save NoSymbol XF86Save NoSymbol XF86Save -keycode 243 = XF86Documents NoSymbol XF86Documents NoSymbol XF86Documents -keycode 244 = XF86Battery NoSymbol XF86Battery NoSymbol XF86Battery -keycode 245 = XF86Bluetooth NoSymbol XF86Bluetooth NoSymbol XF86Bluetooth -keycode 246 = XF86WLAN NoSymbol XF86WLAN NoSymbol XF86WLAN -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = - -!shift Shift_L (0x32), Shift_R (0x3e) -!lock Caps_Lock (0x25) -!control Control_L (0x42) -!mod1 Alt_L (0x40), Alt_R (0x6c), Meta_L (0xcd) -!mod2 Num_Lock (0x4d) -!mod3 -!mod4 Super_L (0x85), Super_R (0x86), Super_L (0xce), Hyper_L (0xcf) -!mod5 ISO_Level3_Shift (0x5c), Mode_switch (0xcb) - -add Shift = Shift_L Shift_R -add Lock = Caps_Lock -add Control = Control_L Control_R -add Mod1 = Alt_L Meta_L Alt_R Meta_R -add Mod2 = Num_Lock -add Mod3 = ISO_Level3_Shift -add Mod4 = Super_L Hyper_L Super_R Hyper_R -add Mod5 = Mode_switch diff --git a/keymaps/original-linux.pke b/keymaps/original-linux.pke deleted file mode 100644 index 8abc11d..0000000 --- a/keymaps/original-linux.pke +++ /dev/null @@ -1,248 +0,0 @@ -keycode 8 = -keycode 9 = Escape -keycode 10 = 1 exclam -keycode 11 = 2 at -keycode 12 = 3 numbersign -keycode 13 = 4 dollar -keycode 14 = 5 percent -keycode 15 = 6 asciicircum -keycode 16 = 7 ampersand -keycode 17 = 8 asterisk -keycode 18 = 9 parenleft -keycode 19 = 0 parenright -keycode 20 = minus underscore -keycode 21 = equal plus -keycode 22 = BackSpace Terminate_Server -keycode 23 = Tab ISO_Left_Tab -keycode 24 = q Q -keycode 25 = w W -keycode 26 = e E -keycode 27 = r R -keycode 28 = t T -keycode 29 = y Y -keycode 30 = u U -keycode 31 = i I -keycode 32 = o O -keycode 33 = p P -keycode 34 = bracketleft braceleft -keycode 35 = bracketright braceright -keycode 36 = Return -keycode 37 = Control_L -keycode 38 = a A -keycode 39 = s S -keycode 40 = d D -keycode 41 = f F -keycode 42 = g G -keycode 43 = h H -keycode 44 = j J -keycode 45 = k K -keycode 46 = l L -keycode 47 = semicolon colon -keycode 48 = apostrophe quotedbl -keycode 49 = grave asciitilde -keycode 50 = Shift_L -keycode 51 = backslash bar -keycode 52 = z Z -keycode 53 = x X -keycode 54 = c C -keycode 55 = v V -keycode 56 = b B -keycode 57 = n N -keycode 58 = m M -keycode 59 = comma less -keycode 60 = period greater -keycode 61 = slash question -keycode 62 = Shift_R -keycode 63 = KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L -keycode 65 = space -keycode 66 = Caps_Lock -keycode 67 = F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock -keycode 79 = KP_Home KP_7 -keycode 80 = KP_Up KP_8 -keycode 81 = KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 -keycode 84 = KP_Begin KP_5 -keycode 85 = KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 -keycode 88 = KP_Down KP_2 -keycode 89 = KP_Next KP_3 -keycode 90 = KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal -keycode 92 = -keycode 93 = Mode_switch -keycode 94 = less greater bar brokenbar bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 -keycode 97 = Home -keycode 98 = Up -keycode 99 = Prior -keycode 100 = Left -keycode 101 = -keycode 102 = Right -keycode 103 = End -keycode 104 = Down -keycode 105 = Next -keycode 106 = Insert -keycode 107 = Delete -keycode 108 = KP_Enter -keycode 109 = Control_R -keycode 110 = Pause Break -keycode 111 = Print Sys_Req -keycode 112 = KP_Divide XF86_Ungrab -keycode 113 = Alt_R Meta_R -keycode 114 = -keycode 115 = Super_L -keycode 116 = Super_R -keycode 117 = Menu -keycode 118 = -keycode 119 = -keycode 120 = -keycode 121 = -keycode 122 = -keycode 123 = -keycode 124 = ISO_Level3_Shift -keycode 125 = NoSymbol Alt_L -keycode 126 = KP_Equal -keycode 127 = NoSymbol Super_L -keycode 128 = NoSymbol Hyper_L -keycode 129 = -keycode 130 = -keycode 131 = -keycode 132 = -keycode 133 = -keycode 134 = -keycode 135 = -keycode 136 = -keycode 137 = -keycode 138 = -keycode 139 = -keycode 140 = -keycode 141 = -keycode 142 = -keycode 143 = -keycode 144 = -keycode 145 = -keycode 146 = -keycode 147 = -keycode 148 = -keycode 149 = -keycode 150 = -keycode 151 = -keycode 152 = -keycode 153 = -keycode 154 = -keycode 155 = -keycode 156 = NoSymbol Meta_L -keycode 157 = -keycode 158 = -keycode 159 = -keycode 160 = -keycode 161 = -keycode 162 = -keycode 163 = -keycode 164 = -keycode 165 = -keycode 166 = -keycode 167 = -keycode 168 = -keycode 169 = -keycode 170 = -keycode 171 = -keycode 172 = -keycode 173 = -keycode 174 = -keycode 175 = -keycode 176 = -keycode 177 = -keycode 178 = -keycode 179 = -keycode 180 = -keycode 181 = -keycode 182 = -keycode 183 = -keycode 184 = -keycode 185 = -keycode 186 = -keycode 187 = -keycode 188 = -keycode 189 = -keycode 190 = -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = -keycode 204 = -keycode 205 = -keycode 206 = -keycode 207 = -keycode 208 = -keycode 209 = -keycode 210 = -keycode 211 = -keycode 212 = -keycode 213 = -keycode 214 = XF86Display -keycode 215 = -keycode 216 = -keycode 217 = -keycode 218 = -keycode 219 = -keycode 220 = -keycode 221 = -keycode 222 = -keycode 223 = -keycode 224 = -keycode 225 = -keycode 226 = -keycode 227 = -keycode 228 = -keycode 229 = -keycode 230 = -keycode 231 = -keycode 232 = -keycode 233 = -keycode 234 = -keycode 235 = -keycode 236 = -keycode 237 = -keycode 238 = -keycode 239 = -keycode 240 = -keycode 241 = -keycode 242 = -keycode 243 = -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = diff --git a/keymaps/original-type7-sol.pke b/keymaps/original-type7-sol.pke deleted file mode 100644 index f5c23c9..0000000 --- a/keymaps/original-type7-sol.pke +++ /dev/null @@ -1,247 +0,0 @@ -keycode 8 = -keycode 9 = -keycode 10 = -keycode 11 = A -keycode 12 = B -keycode 13 = C -keycode 14 = D -keycode 15 = e E EuroSign -keycode 16 = F -keycode 17 = G -keycode 18 = H -keycode 19 = I -keycode 20 = J -keycode 21 = K -keycode 22 = L -keycode 23 = M -keycode 24 = N -keycode 25 = O -keycode 26 = P -keycode 27 = Q -keycode 28 = R -keycode 29 = S -keycode 30 = T -keycode 31 = U -keycode 32 = V -keycode 33 = W -keycode 34 = X -keycode 35 = Y -keycode 36 = Z -keycode 37 = 1 exclam -keycode 38 = 2 at -keycode 39 = 3 numbersign -keycode 40 = 4 dollar EuroSign -keycode 41 = 5 percent EuroSign -keycode 42 = 6 asciicircum -keycode 43 = 7 ampersand -keycode 44 = 8 asterisk -keycode 45 = 9 parenleft -keycode 46 = 0 parenright -keycode 47 = Return -keycode 48 = Escape -keycode 49 = BackSpace -keycode 50 = Tab -keycode 51 = space -keycode 52 = minus underscore -keycode 53 = equal plus -keycode 54 = bracketleft braceleft -keycode 55 = bracketright braceright -keycode 56 = backslash bar brokenbar -keycode 57 = backslash bar brokenbar -keycode 58 = semicolon colon -keycode 59 = apostrophe quotedbl -keycode 60 = grave asciitilde -keycode 61 = comma less -keycode 62 = period greater -keycode 63 = slash question -keycode 64 = Caps_Lock -keycode 65 = F1 -keycode 66 = F2 -keycode 67 = F3 -keycode 68 = F4 -keycode 69 = F5 -keycode 70 = F6 -keycode 71 = F7 -keycode 72 = F8 -keycode 73 = F9 -keycode 74 = F10 -keycode 75 = SunF36 -keycode 76 = SunF37 -keycode 77 = F22 F22 Print SunSys_Req -keycode 78 = F23 F23 Scroll_Lock -keycode 79 = F21 F21 Pause Break -keycode 80 = Insert -keycode 81 = Home -keycode 82 = Prior -keycode 83 = Delete -keycode 84 = End -keycode 85 = Next -keycode 86 = Right -keycode 87 = Left -keycode 88 = Down -keycode 89 = Up -keycode 90 = Num_Lock -keycode 91 = F25 F25 KP_Divide -keycode 92 = F26 F26 KP_Multiply -keycode 93 = F24 F24 KP_Subtract -keycode 94 = KP_Add -keycode 95 = KP_Enter -keycode 96 = F33 F33 KP_1 End -keycode 97 = Down F34 KP_2 -keycode 98 = F35 F35 KP_3 Next -keycode 99 = Left F30 KP_4 -keycode 100 = F31 F31 KP_5 -keycode 101 = Right F32 KP_6 -keycode 102 = F27 F27 KP_7 Home -keycode 103 = Up F28 KP_8 -keycode 104 = F29 F29 KP_9 Prior -keycode 105 = KP_Insert KP_Insert KP_0 -keycode 106 = Delete Delete KP_Decimal -keycode 107 = -keycode 108 = Multi_key -keycode 109 = SunPowerSwitch SunPowerSwitchShift -keycode 110 = -keycode 111 = -keycode 112 = -keycode 113 = -keycode 114 = -keycode 115 = -keycode 116 = -keycode 117 = -keycode 118 = -keycode 119 = -keycode 120 = -keycode 121 = -keycode 122 = -keycode 123 = F17 F17 SunOpen -keycode 124 = Help -keycode 125 = F13 F13 SunProps -keycode 126 = F15 F15 SunFront -keycode 127 = F11 F11 Cancel -keycode 128 = F12 F12 Redo -keycode 129 = F14 F14 Undo -keycode 130 = F20 F20 SunCut -keycode 131 = F16 F16 SunCopy -keycode 132 = F18 F18 SunPaste -keycode 133 = F19 F19 Find -keycode 134 = SunAudioMute SunVideoDegauss -keycode 135 = SunAudioRaiseVolume SunVideoRaiseBrightness -keycode 136 = SunAudioLowerVolume SunVideoLowerBrightness -keycode 137 = -keycode 138 = -keycode 139 = -keycode 140 = -keycode 141 = -keycode 142 = -keycode 143 = -keycode 144 = -keycode 145 = -keycode 146 = -keycode 147 = -keycode 148 = -keycode 149 = -keycode 150 = -keycode 151 = -keycode 152 = -keycode 153 = -keycode 154 = -keycode 155 = -keycode 156 = -keycode 157 = -keycode 158 = -keycode 159 = -keycode 160 = -keycode 161 = -keycode 162 = -keycode 163 = -keycode 164 = -keycode 165 = -keycode 166 = -keycode 167 = -keycode 168 = -keycode 169 = -keycode 170 = -keycode 171 = -keycode 172 = -keycode 173 = -keycode 174 = -keycode 175 = -keycode 176 = -keycode 177 = -keycode 178 = -keycode 179 = -keycode 180 = -keycode 181 = -keycode 182 = -keycode 183 = -keycode 184 = -keycode 185 = -keycode 186 = -keycode 187 = -keycode 188 = -keycode 189 = -keycode 190 = -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = -keycode 204 = -keycode 205 = -keycode 206 = -keycode 207 = -keycode 208 = -keycode 209 = -keycode 210 = -keycode 211 = -keycode 212 = -keycode 213 = -keycode 214 = -keycode 215 = -keycode 216 = -keycode 217 = -keycode 218 = -keycode 219 = -keycode 220 = -keycode 221 = -keycode 222 = -keycode 223 = -keycode 224 = -keycode 225 = -keycode 226 = -keycode 227 = -keycode 228 = -keycode 229 = -keycode 230 = -keycode 231 = Control_L -keycode 232 = Shift_L -keycode 233 = Alt_L -keycode 234 = Meta_L -keycode 235 = Control_R -keycode 236 = Shift_R -keycode 237 = Mode_switch -keycode 238 = Meta_R -keycode 239 = -keycode 240 = -keycode 241 = -keycode 242 = -keycode 243 = -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = diff --git a/keymaps/original.pke b/keymaps/original.pke deleted file mode 100644 index 5e8f228..0000000 --- a/keymaps/original.pke +++ /dev/null @@ -1,248 +0,0 @@ -keycode 8 = -keycode 9 = grave asciitilde -keycode 10 = 1 exclam -keycode 11 = 2 at -keycode 12 = 3 numbersign -keycode 13 = 4 dollar -keycode 14 = 5 percent -keycode 15 = 6 asciicircum -keycode 16 = 7 ampersand -keycode 17 = 8 asterisk -keycode 18 = 9 parenleft -keycode 19 = 0 parenright -keycode 20 = minus underscore -keycode 21 = equal plus -keycode 22 = backslash -keycode 23 = Tab ISO_Left_Tab -keycode 24 = q Q -keycode 25 = w W -keycode 26 = e E -keycode 27 = r R -keycode 28 = t T -keycode 29 = y Y -keycode 30 = u U -keycode 31 = i I -keycode 32 = o O -keycode 33 = p P -keycode 34 = bracketleft braceleft -keycode 35 = bracketright braceright -keycode 36 = Return -keycode 37 = Control_L -keycode 38 = a A -keycode 39 = s S -keycode 40 = d D -keycode 41 = f F -keycode 42 = g G -keycode 43 = h H -keycode 44 = j J -keycode 45 = k K -keycode 46 = l L -keycode 47 = semicolon colon -keycode 48 = apostrophe quotedbl -keycode 49 = Escape -keycode 50 = Shift_L -keycode 51 = BackSpace bar -keycode 52 = z Z -keycode 53 = x X -keycode 54 = c C -keycode 55 = v V -keycode 56 = b B -keycode 57 = n N -keycode 58 = m M -keycode 59 = comma less -keycode 60 = period greater -keycode 61 = slash question -keycode 62 = Shift_R -keycode 63 = KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L -keycode 65 = space -keycode 66 = Caps_Lock -keycode 67 = F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock -keycode 79 = KP_Home KP_7 -keycode 80 = KP_Up KP_8 -keycode 81 = KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 -keycode 84 = KP_Begin KP_5 -keycode 85 = KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 -keycode 88 = KP_Down KP_2 -keycode 89 = KP_Next KP_3 -keycode 90 = KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal -keycode 92 = -keycode 93 = Mode_switch -keycode 94 = less greater bar brokenbar bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 -keycode 97 = Home -keycode 98 = Up -keycode 99 = Prior -keycode 100 = Left -keycode 101 = -keycode 102 = Right -keycode 103 = End -keycode 104 = Down -keycode 105 = Next -keycode 106 = Insert -keycode 107 = Delete -keycode 108 = KP_Enter -keycode 109 = Control_R -keycode 110 = Pause Break -keycode 111 = Print Sys_Req -keycode 112 = KP_Divide XF86_Ungrab -keycode 113 = Alt_R Meta_R -keycode 114 = -keycode 115 = Super_L -keycode 116 = Super_R -keycode 117 = Menu -keycode 118 = -keycode 119 = -keycode 120 = -keycode 121 = -keycode 122 = -keycode 123 = -keycode 124 = ISO_Level3_Shift -keycode 125 = NoSymbol Alt_L -keycode 126 = KP_Equal -keycode 127 = NoSymbol Super_L -keycode 128 = NoSymbol Hyper_L -keycode 129 = -keycode 130 = -keycode 131 = -keycode 132 = -keycode 133 = -keycode 134 = -keycode 135 = -keycode 136 = -keycode 137 = -keycode 138 = -keycode 139 = -keycode 140 = -keycode 141 = -keycode 142 = -keycode 143 = -keycode 144 = -keycode 145 = -keycode 146 = -keycode 147 = -keycode 148 = -keycode 149 = -keycode 150 = -keycode 151 = -keycode 152 = -keycode 153 = -keycode 154 = -keycode 155 = -keycode 156 = NoSymbol Meta_L -keycode 157 = -keycode 158 = -keycode 159 = -keycode 160 = -keycode 161 = -keycode 162 = -keycode 163 = -keycode 164 = -keycode 165 = -keycode 166 = -keycode 167 = -keycode 168 = -keycode 169 = -keycode 170 = -keycode 171 = -keycode 172 = -keycode 173 = -keycode 174 = -keycode 175 = -keycode 176 = -keycode 177 = -keycode 178 = -keycode 179 = -keycode 180 = -keycode 181 = -keycode 182 = -keycode 183 = -keycode 184 = -keycode 185 = -keycode 186 = -keycode 187 = -keycode 188 = -keycode 189 = -keycode 190 = -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = -keycode 204 = -keycode 205 = -keycode 206 = -keycode 207 = -keycode 208 = -keycode 209 = -keycode 210 = -keycode 211 = -keycode 212 = -keycode 213 = -keycode 214 = XF86Display -keycode 215 = -keycode 216 = -keycode 217 = -keycode 218 = -keycode 219 = -keycode 220 = -keycode 221 = -keycode 222 = -keycode 223 = -keycode 224 = -keycode 225 = -keycode 226 = -keycode 227 = -keycode 228 = -keycode 229 = -keycode 230 = -keycode 231 = -keycode 232 = -keycode 233 = -keycode 234 = -keycode 235 = -keycode 236 = -keycode 237 = -keycode 238 = -keycode 239 = -keycode 240 = -keycode 241 = -keycode 242 = -keycode 243 = -keycode 244 = -keycode 245 = -keycode 246 = -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = diff --git a/keymaps/qwerty_x61.pke b/keymaps/qwerty_x61.pke deleted file mode 100644 index f34dcd2..0000000 --- a/keymaps/qwerty_x61.pke +++ /dev/null @@ -1,248 +0,0 @@ -keycode 8 = -keycode 9 = Escape NoSymbol Escape NoSymbol Escape -keycode 10 = 1 exclam 1 exclam 1 exclam -keycode 11 = 2 at 2 at 2 at -keycode 12 = 3 numbersign 3 numbersign 3 numbersign -keycode 13 = 4 dollar 4 dollar 4 dollar -keycode 14 = 5 percent 5 percent 5 percent -keycode 15 = 6 asciicircum 6 asciicircum 6 asciicircum -keycode 16 = 7 ampersand 7 ampersand 7 ampersand -keycode 17 = 8 asterisk 8 asterisk 8 asterisk -keycode 18 = 9 parenleft 9 parenleft 9 parenleft -keycode 19 = 0 parenright 0 parenright 0 parenright -keycode 20 = minus underscore minus underscore minus underscore -keycode 21 = equal plus equal plus equal plus -keycode 22 = BackSpace NoSymbol BackSpace NoSymbol BackSpace -keycode 23 = Tab ISO_Left_Tab Tab ISO_Left_Tab Tab ISO_Left_Tab -keycode 24 = q Q q Q q Q -keycode 25 = w W w W w W -keycode 26 = e E e E e E -keycode 27 = r R r R r R -keycode 28 = t T t T t T -keycode 29 = y Y y Y y Y -keycode 30 = u U u U u U -keycode 31 = i I i I i I -keycode 32 = o O o O o O -keycode 33 = p P p P p P -keycode 34 = bracketleft braceleft bracketleft braceleft bracketleft braceleft -keycode 35 = bracketright braceright bracketright braceright bracketright braceright -keycode 36 = Return NoSymbol Return NoSymbol Return -keycode 37 = Control_L NoSymbol Control_L NoSymbol Control_L -keycode 38 = a A a A a A -keycode 39 = s S s S s S -keycode 40 = d D d D d D -keycode 41 = f F f F f F -keycode 42 = g G g G g G -keycode 43 = h H h H h H -keycode 44 = j J j J j J -keycode 45 = k K k K k K -keycode 46 = l L l L l L -keycode 47 = semicolon colon semicolon colon semicolon colon -keycode 48 = apostrophe quotedbl apostrophe quotedbl apostrophe quotedbl -keycode 49 = grave asciitilde grave asciitilde grave asciitilde -keycode 50 = Shift_L NoSymbol Shift_L NoSymbol Shift_L -keycode 51 = backslash bar backslash bar backslash bar -keycode 52 = z Z z Z z Z -keycode 53 = x X x X x X -keycode 54 = c C c C c C -keycode 55 = v V v V v V -keycode 56 = b B b B b B -keycode 57 = n N n N n N -keycode 58 = m M m M m M -keycode 59 = comma less comma less comma less -keycode 60 = period greater period greater period greater -keycode 61 = slash question slash question slash question -keycode 62 = Shift_R NoSymbol Shift_R NoSymbol Shift_R -keycode 63 = KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab KP_Multiply XF86_ClearGrab -keycode 64 = Alt_L Meta_L Alt_L Meta_L Alt_L Meta_L -keycode 65 = space NoSymbol space NoSymbol space -keycode 66 = Caps_Lock NoSymbol Caps_Lock NoSymbol Caps_Lock -keycode 67 = F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 F1 XF86_Switch_VT_1 -keycode 68 = F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 F2 XF86_Switch_VT_2 -keycode 69 = F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 F3 XF86_Switch_VT_3 -keycode 70 = F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 F4 XF86_Switch_VT_4 -keycode 71 = F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 F5 XF86_Switch_VT_5 -keycode 72 = F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 F6 XF86_Switch_VT_6 -keycode 73 = F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 F7 XF86_Switch_VT_7 -keycode 74 = F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 F8 XF86_Switch_VT_8 -keycode 75 = F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 F9 XF86_Switch_VT_9 -keycode 76 = F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 F10 XF86_Switch_VT_10 -keycode 77 = Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys Num_Lock Pointer_EnableKeys -keycode 78 = Scroll_Lock NoSymbol Scroll_Lock NoSymbol Scroll_Lock -keycode 79 = KP_Home KP_7 KP_Home KP_7 KP_Home KP_7 -keycode 80 = KP_Up KP_8 KP_Up KP_8 KP_Up KP_8 -keycode 81 = KP_Prior KP_9 KP_Prior KP_9 KP_Prior KP_9 -keycode 82 = KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode KP_Subtract XF86_Prev_VMode -keycode 83 = KP_Left KP_4 KP_Left KP_4 KP_Left KP_4 -keycode 84 = KP_Begin KP_5 KP_Begin KP_5 KP_Begin KP_5 -keycode 85 = KP_Right KP_6 KP_Right KP_6 KP_Right KP_6 -keycode 86 = KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode KP_Add XF86_Next_VMode -keycode 87 = KP_End KP_1 KP_End KP_1 KP_End KP_1 -keycode 88 = KP_Down KP_2 KP_Down KP_2 KP_Down KP_2 -keycode 89 = KP_Next KP_3 KP_Next KP_3 KP_Next KP_3 -keycode 90 = KP_Insert KP_0 KP_Insert KP_0 KP_Insert KP_0 -keycode 91 = KP_Delete KP_Decimal KP_Delete KP_Decimal KP_Delete KP_Decimal -keycode 92 = ISO_Level3_Shift NoSymbol ISO_Level3_Shift NoSymbol ISO_Level3_Shift -keycode 93 = -keycode 94 = less greater less greater bar brokenbar -keycode 95 = F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 F11 XF86_Switch_VT_11 -keycode 96 = F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 F12 XF86_Switch_VT_12 -keycode 97 = -keycode 98 = Katakana NoSymbol Katakana NoSymbol Katakana -keycode 99 = Hiragana NoSymbol Hiragana NoSymbol Hiragana -keycode 100 = Henkan_Mode NoSymbol Henkan_Mode NoSymbol Henkan_Mode -keycode 101 = Hiragana_Katakana NoSymbol Hiragana_Katakana NoSymbol Hiragana_Katakana -keycode 102 = Muhenkan NoSymbol Muhenkan NoSymbol Muhenkan -keycode 103 = -keycode 104 = KP_Enter NoSymbol KP_Enter NoSymbol KP_Enter -keycode 105 = Control_R NoSymbol Control_R NoSymbol Control_R -keycode 106 = KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab KP_Divide XF86_Ungrab -keycode 107 = Print Sys_Req Print Sys_Req Print Sys_Req -keycode 108 = Alt_R Meta_R Alt_R Meta_R Alt_R Meta_R -keycode 109 = Linefeed NoSymbol Linefeed NoSymbol Linefeed -keycode 110 = Home NoSymbol Home NoSymbol Home -keycode 111 = Up NoSymbol Up NoSymbol Up -keycode 112 = Prior NoSymbol Prior NoSymbol Prior -keycode 113 = Left NoSymbol Left NoSymbol Left -keycode 114 = Right NoSymbol Right NoSymbol Right -keycode 115 = End NoSymbol End NoSymbol End -keycode 116 = Down NoSymbol Down NoSymbol Down -keycode 117 = Next NoSymbol Next NoSymbol Next -keycode 118 = Insert NoSymbol Insert NoSymbol Insert -keycode 119 = Delete NoSymbol Delete NoSymbol Delete -keycode 120 = -keycode 121 = XF86AudioMute NoSymbol XF86AudioMute NoSymbol XF86AudioMute -keycode 122 = XF86AudioLowerVolume NoSymbol XF86AudioLowerVolume NoSymbol XF86AudioLowerVolume -keycode 123 = XF86AudioRaiseVolume NoSymbol XF86AudioRaiseVolume NoSymbol XF86AudioRaiseVolume -keycode 124 = XF86PowerOff NoSymbol XF86PowerOff NoSymbol XF86PowerOff -keycode 125 = KP_Equal NoSymbol KP_Equal NoSymbol KP_Equal -keycode 126 = plusminus NoSymbol plusminus NoSymbol plusminus -keycode 127 = Pause Break Pause Break Pause Break -keycode 128 = -keycode 129 = KP_Separator NoSymbol KP_Separator NoSymbol KP_Separator -keycode 130 = Hangul NoSymbol Hangul NoSymbol Hangul -keycode 131 = Hangul_Hanja NoSymbol Hangul_Hanja NoSymbol Hangul_Hanja -keycode 132 = -keycode 133 = Super_L NoSymbol Super_L NoSymbol Super_L -keycode 134 = Super_R NoSymbol Super_R NoSymbol Super_R -keycode 135 = Menu NoSymbol Menu NoSymbol Menu -keycode 136 = Cancel NoSymbol Cancel NoSymbol Cancel -keycode 137 = Redo NoSymbol Redo NoSymbol Redo -keycode 138 = SunProps NoSymbol SunProps NoSymbol SunProps -keycode 139 = Undo NoSymbol Undo NoSymbol Undo -keycode 140 = SunFront NoSymbol SunFront NoSymbol SunFront -keycode 141 = XF86Copy NoSymbol XF86Copy NoSymbol XF86Copy -keycode 142 = SunOpen NoSymbol SunOpen NoSymbol SunOpen -keycode 143 = XF86Paste NoSymbol XF86Paste NoSymbol XF86Paste -keycode 144 = Find NoSymbol Find NoSymbol Find -keycode 145 = XF86Cut NoSymbol XF86Cut NoSymbol XF86Cut -keycode 146 = Help NoSymbol Help NoSymbol Help -keycode 147 = XF86MenuKB NoSymbol XF86MenuKB NoSymbol XF86MenuKB -keycode 148 = XF86Calculator NoSymbol XF86Calculator NoSymbol XF86Calculator -keycode 149 = -keycode 150 = XF86Sleep NoSymbol XF86Sleep NoSymbol XF86Sleep -keycode 151 = XF86WakeUp NoSymbol XF86WakeUp NoSymbol XF86WakeUp -keycode 152 = XF86Explorer NoSymbol XF86Explorer NoSymbol XF86Explorer -keycode 153 = XF86Send NoSymbol XF86Send NoSymbol XF86Send -keycode 154 = -keycode 155 = XF86Xfer NoSymbol XF86Xfer NoSymbol XF86Xfer -keycode 156 = XF86Launch1 NoSymbol XF86Launch1 NoSymbol XF86Launch1 -keycode 157 = XF86Launch2 NoSymbol XF86Launch2 NoSymbol XF86Launch2 -keycode 158 = XF86WWW NoSymbol XF86WWW NoSymbol XF86WWW -keycode 159 = XF86DOS NoSymbol XF86DOS NoSymbol XF86DOS -keycode 160 = XF86ScreenSaver NoSymbol XF86ScreenSaver NoSymbol XF86ScreenSaver -keycode 161 = -keycode 162 = XF86RotateWindows NoSymbol XF86RotateWindows NoSymbol XF86RotateWindows -keycode 163 = XF86Mail NoSymbol XF86Mail NoSymbol XF86Mail -keycode 164 = XF86Favorites NoSymbol XF86Favorites NoSymbol XF86Favorites -keycode 165 = XF86MyComputer NoSymbol XF86MyComputer NoSymbol XF86MyComputer -keycode 166 = XF86Back NoSymbol XF86Back NoSymbol XF86Back -keycode 167 = XF86Forward NoSymbol XF86Forward NoSymbol XF86Forward -keycode 168 = -keycode 169 = XF86Eject NoSymbol XF86Eject NoSymbol XF86Eject -keycode 170 = XF86Eject XF86Eject XF86Eject XF86Eject XF86Eject XF86Eject -keycode 171 = XF86AudioNext NoSymbol XF86AudioNext NoSymbol XF86AudioNext -keycode 172 = XF86AudioPlay XF86AudioPause XF86AudioPlay XF86AudioPause XF86AudioPlay XF86AudioPause -keycode 173 = XF86AudioPrev NoSymbol XF86AudioPrev NoSymbol XF86AudioPrev -keycode 174 = XF86AudioStop XF86Eject XF86AudioStop XF86Eject XF86AudioStop XF86Eject -keycode 175 = XF86AudioRecord NoSymbol XF86AudioRecord NoSymbol XF86AudioRecord -keycode 176 = XF86AudioRewind NoSymbol XF86AudioRewind NoSymbol XF86AudioRewind -keycode 177 = XF86Phone NoSymbol XF86Phone NoSymbol XF86Phone -keycode 178 = -keycode 179 = XF86Tools NoSymbol XF86Tools NoSymbol XF86Tools -keycode 180 = XF86HomePage NoSymbol XF86HomePage NoSymbol XF86HomePage -keycode 181 = XF86Reload NoSymbol XF86Reload NoSymbol XF86Reload -keycode 182 = XF86Close NoSymbol XF86Close NoSymbol XF86Close -keycode 183 = -keycode 184 = -keycode 185 = XF86ScrollUp NoSymbol XF86ScrollUp NoSymbol XF86ScrollUp -keycode 186 = XF86ScrollDown NoSymbol XF86ScrollDown NoSymbol XF86ScrollDown -keycode 187 = parenleft NoSymbol parenleft NoSymbol parenleft -keycode 188 = parenright NoSymbol parenright NoSymbol parenright -keycode 189 = XF86New NoSymbol XF86New NoSymbol XF86New -keycode 190 = Redo NoSymbol Redo NoSymbol Redo -keycode 191 = -keycode 192 = -keycode 193 = -keycode 194 = -keycode 195 = -keycode 196 = -keycode 197 = -keycode 198 = -keycode 199 = -keycode 200 = -keycode 201 = -keycode 202 = -keycode 203 = Mode_switch NoSymbol Mode_switch NoSymbol Mode_switch -keycode 204 = NoSymbol Alt_L NoSymbol Alt_L NoSymbol Alt_L -keycode 205 = NoSymbol Meta_L NoSymbol Meta_L NoSymbol Meta_L -keycode 206 = NoSymbol Super_L NoSymbol Super_L NoSymbol Super_L -keycode 207 = NoSymbol Hyper_L NoSymbol Hyper_L NoSymbol Hyper_L -keycode 208 = XF86AudioPlay NoSymbol XF86AudioPlay NoSymbol XF86AudioPlay -keycode 209 = XF86AudioPause NoSymbol XF86AudioPause NoSymbol XF86AudioPause -keycode 210 = XF86Launch3 NoSymbol XF86Launch3 NoSymbol XF86Launch3 -keycode 211 = XF86Launch4 NoSymbol XF86Launch4 NoSymbol XF86Launch4 -keycode 212 = -keycode 213 = XF86Suspend NoSymbol XF86Suspend NoSymbol XF86Suspend -keycode 214 = XF86Close NoSymbol XF86Close NoSymbol XF86Close -keycode 215 = XF86AudioPlay NoSymbol XF86AudioPlay NoSymbol XF86AudioPlay -keycode 216 = XF86Forward NoSymbol XF86Forward NoSymbol XF86Forward -keycode 217 = -keycode 218 = Print NoSymbol Print NoSymbol Print -keycode 219 = -keycode 220 = XF86WebCam NoSymbol XF86WebCam NoSymbol XF86WebCam -keycode 221 = -keycode 222 = -keycode 223 = XF86Mail NoSymbol XF86Mail NoSymbol XF86Mail -keycode 224 = -keycode 225 = XF86Search NoSymbol XF86Search NoSymbol XF86Search -keycode 226 = -keycode 227 = XF86Finance NoSymbol XF86Finance NoSymbol XF86Finance -keycode 228 = -keycode 229 = XF86Shop NoSymbol XF86Shop NoSymbol XF86Shop -keycode 230 = -keycode 231 = Cancel NoSymbol Cancel NoSymbol Cancel -keycode 232 = XF86MonBrightnessDown NoSymbol XF86MonBrightnessDown NoSymbol XF86MonBrightnessDown -keycode 233 = XF86MonBrightnessUp NoSymbol XF86MonBrightnessUp NoSymbol XF86MonBrightnessUp -keycode 234 = XF86AudioMedia NoSymbol XF86AudioMedia NoSymbol XF86AudioMedia -keycode 235 = XF86Display NoSymbol XF86Display NoSymbol XF86Display -keycode 236 = XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff NoSymbol XF86KbdLightOnOff -keycode 237 = XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown NoSymbol XF86KbdBrightnessDown -keycode 238 = XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp NoSymbol XF86KbdBrightnessUp -keycode 239 = XF86Send NoSymbol XF86Send NoSymbol XF86Send -keycode 240 = XF86Reply NoSymbol XF86Reply NoSymbol XF86Reply -keycode 241 = XF86MailForward NoSymbol XF86MailForward NoSymbol XF86MailForward -keycode 242 = XF86Save NoSymbol XF86Save NoSymbol XF86Save -keycode 243 = XF86Documents NoSymbol XF86Documents NoSymbol XF86Documents -keycode 244 = XF86Battery NoSymbol XF86Battery NoSymbol XF86Battery -keycode 245 = XF86Bluetooth NoSymbol XF86Bluetooth NoSymbol XF86Bluetooth -keycode 246 = XF86WLAN NoSymbol XF86WLAN NoSymbol XF86WLAN -keycode 247 = -keycode 248 = -keycode 249 = -keycode 250 = -keycode 251 = -keycode 252 = -keycode 253 = -keycode 254 = -keycode 255 = diff --git a/keymaps/xkb/hunner-carpalx.xkb b/keymaps/xkb/hunner-carpalx.xkb deleted file mode 100644 index ffd8cb1..0000000 --- a/keymaps/xkb/hunner-carpalx.xkb +++ /dev/null @@ -1,100 +0,0 @@ -xkb_keymap { - xkb_keycodes { include "evdev+aliases(qwerty)" }; - xkb_types { include "complete" }; - xkb_compat { include "complete" }; - xkb_geometry { include "thinkpad(us)" }; - - xkb_symbols "hunner" { - include "pc+us(dvorak)+inet(evdev)" - - name[group1]="Dvorak"; - //name[group2]="Colemak"; - //name[group3]="QGMLWB"; - // Alphanumeric section - - // Unmodified Shift AltGr Shift+AltGr - key { [ grave, asciitilde, dead_grave, dead_tilde ] }; - - // Number row, left side - key { [ Escape ] }; - key { [ 7, ampersand ] }; - key { [ 5, percent, EuroSign, cent ] }; - key { [ 3, numbersign, sterling, sterling ] }; - key { [ 1, exclam, 1, exclamdown ] }; - key { [ 9, parenleft, dead_grave ] }; - - // Number row, right side - key { [ 0, parenright ] }; - key { [ 2, at ] }; - key { [ 4, dollar ] }; - key { [ 6, asciicircum, dead_circumflex, dead_circumflex ] }; - key { [ 8, asterisk ] }; - key { [ minus, underscore, endash, emdash ] }; - key { [ equal, plus, multiply, division ] }; - key { [ backslash, bar ] }; - - // Upper row, left side - key { [ Tab, ISO_Left_Tab ] }; - key { [ q, Q ] }; - key { [ g, G, gcircumflex, Gcircumflex ] }; - key { [ m, M ] }; - key { [ l, L ] }; - key { [ w, W ] }; - - // Upper row, right side - key { [ b, B ] }; - key { [ y, Y, yen, heart ] }; - key { [ u, U, U016D, U016C ] }; - key { [ v, V ] }; - key { [ semicolon, colon, dead_ogonek, dead_diaeresis ] }; - key { [ bracketleft, braceleft, hyphen ] }; - key { [ bracketright, braceright, dead_tilde ] }; - key { [ BackSpace, bar, brokenbar ] }; - - // Home row, left side - key { [ Control_L ] }; - key { [ d, D ] }; - key { [ s, S, scircumflex, Scircumflex ] }; - key { [ t, T, ssharp, ssharp ] }; - key { [ n, N ] }; - key { [ r, R ] }; - - // Home row, right side - key { [ i, I ] }; - key { [ a, A ] }; - key { [ e, E, EuroSign ] }; - key { [ o, O ] }; - key { [ h, H, hcircumflex, Hcircumflex ] }; - key { [ apostrophe, quotedbl, dead_acute, dead_diaeresis ] }; - key { [ Return ] }; - - // Lower row, left side - key { [ Shift_L ] }; - key { [ z, Z ] }; - key { [ x, X ] }; - key { [ c, C, ccircumflex, Ccircumflex ] }; - key { [ f, F ] }; - key { [ j, J, jcircumflex, Jcircumflex ] }; - - // Lower row, right side - key { [ k, K ] }; - key { [ p, P, paragraph ] }; - key { [ comma, less, dead_cedilla, dead_caron ] }; - key { [ period, greater, dead_breve, dead_abovedot ] }; - key { [ slash, question, dead_hook, questiondown ] }; - key { [ Shift_R ] }; - - // Mod row - key { [ Caps_Lock ] }; - key { [ Super_L ] }; - key { [ space, space ] }; - key { [ Super_R ] }; -// key { [ Menu ] }; - - modifier_map Lock { }; - modifier_map Control { }; - - include "group(alts_toggle)+level3(ralt_switch_for_alts_toggle)" - }; - -}; diff --git a/keymaps/xkb/hunner.xkb b/keymaps/xkb/hunner.xkb deleted file mode 100644 index 374f877..0000000 --- a/keymaps/xkb/hunner.xkb +++ /dev/null @@ -1,100 +0,0 @@ -xkb_keymap { - xkb_keycodes { include "evdev+aliases(qwerty)" }; - xkb_types { include "complete" }; - xkb_compat { include "complete" }; - xkb_geometry { include "thinkpad(us)" }; - - xkb_symbols "hunner" { - include "pc+us(dvorak)+inet(evdev)+group(win_switch)" - - name[group1]="Dvorak"; - //name[group2]="Colemak"; - //name[group3]="QGMLWB"; - // Alphanumeric section - - // Unmodified Shift AltGr Shift+AltGr - key { [ grave, asciitilde, dead_grave, dead_tilde ] }; - - // Number row, left side - key { [ Escape ] }; - key { [ 7, ampersand ] }; - key { [ 5, percent, EuroSign, cent ] }; - key { [ 3, numbersign, sterling, sterling ] }; - key { [ 1, exclam, 1, exclamdown ] }; - key { [ 9, parenleft, dead_grave ] }; - - // Number row, right side - key { [ 0, parenright ] }; - key { [ 2, at ] }; - key { [ 4, dollar ] }; - key { [ 6, asciicircum, dead_circumflex, dead_circumflex ] }; - key { [ 8, asterisk ] }; - key { [ bracketleft, braceleft, hyphen ] }; - key { [ bracketright, braceright, dead_tilde ] }; - key { [ backslash, bar ] }; - - // Upper row, left side - key { [ Tab, ISO_Left_Tab ] }; - key { [ apostrophe, quotedbl, dead_acute, dead_diaeresis ] }; - key { [ comma, less, dead_cedilla, dead_caron ] }; - key { [ period, greater, dead_breve, dead_abovedot ] }; - key { [ p, P, paragraph ] }; - key { [ y, Y, yen, heart ] }; - - // Upper row, right side - key { [ f, F ] }; - key { [ g, G, gcircumflex, Gcircumflex ] }; - key { [ c, C, ccircumflex, Ccircumflex ] }; - key { [ r, R ] }; - key { [ l, L ] }; - key { [ slash, question, dead_hook, questiondown ] }; - key { [ equal, plus, multiply, division ] }; - key { [ BackSpace, bar, brokenbar ] }; - - // Home row, left side - key { [ Control_L ] }; - key { [ a, A ] }; - key { [ o, O ] }; - key { [ e, E, EuroSign ] }; - key { [ u, U, U016D, U016C ] }; - key { [ i, I ] }; - - // Home row, right side - key { [ d, D ] }; - key { [ h, H, hcircumflex, Hcircumflex ] }; - key { [ t, T, ssharp, ssharp ] }; - key { [ n, N ] }; - key { [ s, S, scircumflex, Scircumflex ] }; - key { [ minus, underscore, endash, emdash ] }; - key { [ Return ] }; - - // Lower row, left side - key { [ Shift_L ] }; - key { [ semicolon, colon, dead_ogonek, dead_diaeresis ] }; - key { [ q, Q ] }; - key { [ j, J, jcircumflex, Jcircumflex ] }; - key { [ k, K ] }; - key { [ x, X ] }; - - // Lower row, right side - key { [ b, B ] }; - key { [ m, M, UFDD2, UFDD1 ] }; - key { [ w, W ] }; - key { [ v, V ] }; - key { [ z, Z ] }; - key { [ Shift_R ] }; - - // Mod row - key { [ Caps_Lock ] }; - key { [ Super_L ] }; - key { [ space, space ] }; - key { [ Super_R ] }; -// key { [ Menu ] }; - - modifier_map Lock { }; - modifier_map Control { }; - - include "group(alts_toggle)+level3(ralt_switch_for_alts_toggle)" - }; - -}; diff --git a/local/bin/dphdmi.sh b/local/bin/dphdmi.sh new file mode 100755 index 0000000..f7ca70b --- /dev/null +++ b/local/bin/dphdmi.sh @@ -0,0 +1,9 @@ +#!/usr/bin/env bash + +xrandr --output eDP-1 --auto +xrandr --output DP-2 --auto +xrandr --output DP-3 --auto +xrandr --output DP-2 --rotate normal +xrandr --output DP-3 --left-of eDP-1 +xrandr --output DP-2 --left-of DP-3 +xrandr --output DP-2 --primary diff --git a/local/bin/rotate.sh b/local/bin/rotate.sh new file mode 100755 index 0000000..4713a71 --- /dev/null +++ b/local/bin/rotate.sh @@ -0,0 +1,9 @@ +#!/usr/bin/env bash + +xrandr --output eDP-1 --auto +xrandr --output DP-2 --auto +xrandr --output DP-3 --auto +xrandr --output DP-2 --rotate right +xrandr --output DP-3 --left-of eDP-1 +xrandr --output DP-2 --left-of DP-3 +xrandr --output DP-2 --primary

: U20B0 - : CruzeiroSign - : RupeeSign - : dollar - : NewSheqelSign - : U20AE - : U09F3 - : U09F2 - : U09F2 - : U5713 - : U5143 - : WonSign - : WonSign - : U5186 - : yen - : currency - : currency - : currency - : U01DE - : U01DF - : U1E2E - : U1E2F - : U022A - : U022B - : U01D7 - : U01D9 - : U01DB - : U01D8 - : U01DA - : U01DC - : U0308 - : U030B - : U01DB - : U01DC -# : combining_grave - : Greek_ALPHA - : Greek_alpha - : Greek_BETA - : Greek_beta - : Greek_DELTA - : Greek_delta - : Greek_EPSILON - : Greek_epsilon - : Greek_PHI - : Greek_phi - : Greek_GAMMA - : Greek_gamma - : Greek_ETA - : Greek_eta - : Greek_IOTA - : Greek_iota - : Greek_THETA - : Greek_theta - : Greek_KAPPA - : Greek_kappa - : Greek_LAMBDA - : Greek_lamda - : Greek_MU - : Greek_mu - : Greek_NU - : Greek_nu - : Greek_OMICRON - : Greek_omicron -