diff options
author | V3n3RiX <venerix@redcorelinux.org> | 2017-10-09 18:53:29 +0100 |
---|---|---|
committer | V3n3RiX <venerix@redcorelinux.org> | 2017-10-09 18:53:29 +0100 |
commit | 4f2d7949f03e1c198bc888f2d05f421d35c57e21 (patch) | |
tree | ba5f07bf3f9d22d82e54a462313f5d244036c768 /app-emacs/color-theme/files |
reinit the tree, so we can have metadata
Diffstat (limited to 'app-emacs/color-theme/files')
-rw-r--r-- | app-emacs/color-theme/files/50color-theme-gentoo.el | 109 | ||||
-rw-r--r-- | app-emacs/color-theme/files/color-theme-6.6.0-replace-in-string.patch | 30 |
2 files changed, 139 insertions, 0 deletions
diff --git a/app-emacs/color-theme/files/50color-theme-gentoo.el b/app-emacs/color-theme/files/50color-theme-gentoo.el new file mode 100644 index 000000000000..9d43c350fffd --- /dev/null +++ b/app-emacs/color-theme/files/50color-theme-gentoo.el @@ -0,0 +1,109 @@ +(add-to-list 'load-path "@SITELISP@") + +(autoload (quote color-theme-select) "color-theme" "\ +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." t nil) + +(autoload (quote color-theme-describe) "color-theme" "\ +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'." t nil) + +(autoload (quote color-theme-install-at-mouse) "color-theme" "\ +Install color theme clicked upon using the mouse. +First argument EVENT is used to set point. Then +`color-theme-install-at-point' is called." t nil) + +(autoload (quote color-theme-install-at-point-for-current-frame) "color-theme" "\ +Install color theme at point for current frame only. +Binds `color-theme-is-global' to nil and calls +`color-theme-install-at-point'." t nil) + +(autoload (quote color-theme-print) "color-theme" "\ +Print the current color theme function. + +You can contribute this function to <URL:news:gnu.emacs.sources> 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)" t nil) + +(autoload (quote color-theme-analyze-defun) "color-theme" "\ +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." t nil) + +(autoload (quote color-theme-make-snapshot) "color-theme" "\ +Return the definition of the current color-theme. +The function returned will recreate the color-theme in use at the moment." nil nil) + +(autoload (quote color-theme-compare) "color-theme" "\ +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." t nil) + +(autoload (quote color-theme-install) "color-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." nil nil) + +(autoload (quote color-theme-submit) "color-theme" "\ +Submit your color-theme to the maintainer." t nil) + +(autoload (quote color-theme-initialize) "color-theme" "\ +Initialize the color theme package by loading color-theme-libraries." t nil) diff --git a/app-emacs/color-theme/files/color-theme-6.6.0-replace-in-string.patch b/app-emacs/color-theme/files/color-theme-6.6.0-replace-in-string.patch new file mode 100644 index 000000000000..bfd6bedd8983 --- /dev/null +++ b/app-emacs/color-theme/files/color-theme-6.6.0-replace-in-string.patch @@ -0,0 +1,30 @@ +http://bugs.gentoo.org/280293 + +--- color-theme-6.6.0-orig/color-theme.el 2006-05-28 15:07:29.000000000 +0200 ++++ color-theme-6.6.0/color-theme.el 2009-08-10 10:17:00.000000000 +0200 +@@ -72,11 +72,6 @@ + (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. +@@ -1626,9 +1621,10 @@ + (add-to-list 'color-themes + (list ',n + (upcase-initials +- (replace-in-string +- (replace-in-string +- (symbol-name ',n) "^color-theme-" "") "-" " ")) ++ (replace-regexp-in-string ++ "-" " " ++ (replace-regexp-in-string ++ "^color-theme-" "" (symbol-name ',n)))) + ,author)) + (defun ,n () + ,description |