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-browser/files |
reinit the tree, so we can have metadata
Diffstat (limited to 'app-emacs/color-browser/files')
-rw-r--r-- | app-emacs/color-browser/files/0.3-gentoo.patch | 80 | ||||
-rw-r--r-- | app-emacs/color-browser/files/60color-browser-gentoo.el | 6 |
2 files changed, 86 insertions, 0 deletions
diff --git a/app-emacs/color-browser/files/0.3-gentoo.patch b/app-emacs/color-browser/files/0.3-gentoo.patch new file mode 100644 index 000000000000..8ac5c684168d --- /dev/null +++ b/app-emacs/color-browser/files/0.3-gentoo.patch @@ -0,0 +1,80 @@ +--- color-browser.el.orig 2006-05-17 11:40:18.000000000 -0500 ++++ color-browser.el 2006-05-17 11:38:12.000000000 -0500 +@@ -1028,7 +1028,7 @@ + ;; make some adjustments + + ;; use SYMBOL instead of my-color-theme +- (beginning-of-buffer) ++ (goto-char (point-min)) + (insert "(require 'color-theme)\n\n") + (search-forward "my-color-theme" nil t) + (delete-region (match-beginning 0) (match-end 0)) +@@ -1044,7 +1044,7 @@ + (insert symbol) + + ;; add a provide +- (end-of-buffer) ++ (goto-char (point-max)) + (insert "\n\n(provide '" symbol ")\n") + (save-buffer) + (kill-this-buffer)) +@@ -1152,7 +1152,7 @@ + (set-marker marker point) + ;; un-mark the previous current face + (save-excursion +- (beginning-of-buffer) ++ (goto-char (point-min)) + (and (search-forward "[" nil t) (delete-char -1)) + (and (search-forward "]" nil t) (delete-char -1))) + +@@ -1491,7 +1491,7 @@ + palette)) + + ;; parse the buffer to get a list of color-names +- (beginning-of-buffer) ++ (goto-char (point-min)) + (while (search-forward "[DEL]" nil t) + (forward-char 2) + (setq color-names +@@ -1708,7 +1708,7 @@ + (forward-line -1) + ;; skip top line + (when (bobp) +- (end-of-buffer) ++ (goto-char (point-max)) + (forward-line -1)) ;; skip last line + (yank) + (setq header-line-format "Palette Modified") +@@ -1724,11 +1724,11 @@ + (select-window (posn-window (event-start click)))) + (let ((inhibit-read-only t) + (kill-ring kill-ring)) +- (end-of-buffer) ++ (goto-char (point-max)) + (forward-line -2) ;; skip last line + (beginning-of-line) + (kill-line 1) +- (beginning-of-buffer) ++ (goto-char (point-min)) + (forward-line 1) ;; skip top line + (yank) + (setq header-line-format "Palette Modified") +@@ -1760,7 +1760,7 @@ + + (beginning-of-line) + ;; catch point on or after last line +- (unless (looking-at "\\[DEL\\]") (beginning-of-buffer)) ++ (unless (looking-at "\\[DEL\\]") (goto-char (point-min))) + ;; catch point on first line + (when (bobp) (forward-line 1)) + (setq start (point)) +@@ -1980,7 +1980,8 @@ + )) + (setq header-line-format nil) + (force-mode-line-update) +- ))........................................................ ++ )) ++;;; ........................................................ + + ;;;_ + Color Browser......................................... + diff --git a/app-emacs/color-browser/files/60color-browser-gentoo.el b/app-emacs/color-browser/files/60color-browser-gentoo.el new file mode 100644 index 000000000000..724fc248a353 --- /dev/null +++ b/app-emacs/color-browser/files/60color-browser-gentoo.el @@ -0,0 +1,6 @@ +(add-to-list 'load-path "@SITELISP@") +(autoload 'color-browser "color-browser" + "A utility for designing Emacs color themes" t) + +(setq cb-palettes-dir "~/color-browser/palettes/") +(setq cb-themes-dir "~/color-browser/themes/") |