1 |
;;; viper-init.el --- some common definitions for Viper |
;;; viper-init.el --- some common definitions for Viper |
2 |
|
|
3 |
;; Copyright (C) 1997, 98, 99, 2000, 01, 02 Free Software Foundation, Inc. |
;; Copyright (C) 1997, 98, 99, 2000, 01, 02, 05 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Michael Kifer <kifer@cs.stonybrook.edu> |
;; Author: Michael Kifer <kifer@cs.stonybrook.edu> |
6 |
|
|
850 |
:group 'viper) |
:group 'viper) |
851 |
|
|
852 |
|
|
853 |
(defface viper-search-face |
(defface viper-search |
854 |
'((((class color)) (:foreground "Black" :background "khaki")) |
'((((class color)) (:foreground "Black" :background "khaki")) |
855 |
(t (:underline t :stipple "gray3"))) |
(t (:underline t :stipple "gray3"))) |
856 |
"*Face used to flash out the search pattern." |
"*Face used to flash out the search pattern." |
857 |
:group 'viper-highlighting) |
:group 'viper-highlighting) |
858 |
|
;; backward-compatibility alias |
859 |
|
(put 'viper-search-face 'face-alias 'viper-search) |
860 |
;; An internal variable. Viper takes the face from here. |
;; An internal variable. Viper takes the face from here. |
861 |
(defvar viper-search-face 'viper-search-face |
(defvar viper-search-face 'viper-search |
862 |
"Face used to flash out the search pattern. |
"Face used to flash out the search pattern. |
863 |
DO NOT CHANGE this variable. Instead, use the customization widget |
DO NOT CHANGE this variable. Instead, use the customization widget |
864 |
to customize the actual face object `viper-search-face' |
to customize the actual face object `viper-search-face' |
865 |
this variable represents.") |
this variable represents.") |
866 |
(viper-hide-face 'viper-search-face) |
(viper-hide-face 'viper-search) |
867 |
|
|
868 |
|
|
869 |
(defface viper-replace-overlay-face |
(defface viper-replace-overlay |
870 |
'((((class color)) (:foreground "Black" :background "darkseagreen2")) |
'((((class color)) (:foreground "Black" :background "darkseagreen2")) |
871 |
(t (:underline t :stipple "gray3"))) |
(t (:underline t :stipple "gray3"))) |
872 |
"*Face for highlighting replace regions on a window display." |
"*Face for highlighting replace regions on a window display." |
873 |
:group 'viper-highlighting) |
:group 'viper-highlighting) |
874 |
|
;; backward-compatibility alias |
875 |
|
(put 'viper-replace-overlay-face 'face-alias 'viper-replace-overlay) |
876 |
;; An internal variable. Viper takes the face from here. |
;; An internal variable. Viper takes the face from here. |
877 |
(defvar viper-replace-overlay-face 'viper-replace-overlay-face |
(defvar viper-replace-overlay-face 'viper-replace-overlay |
878 |
"Face for highlighting replace regions on a window display. |
"Face for highlighting replace regions on a window display. |
879 |
DO NOT CHANGE this variable. Instead, use the customization widget |
DO NOT CHANGE this variable. Instead, use the customization widget |
880 |
to customize the actual face object `viper-replace-overlay-face' |
to customize the actual face object `viper-replace-overlay-face' |
881 |
this variable represents.") |
this variable represents.") |
882 |
(viper-hide-face 'viper-replace-overlay-face) |
(viper-hide-face 'viper-replace-overlay) |
883 |
|
|
884 |
|
|
885 |
(defface viper-minibuffer-emacs-face |
(defface viper-minibuffer-emacs |
886 |
'((((class color)) (:foreground "Black" :background "darkseagreen2")) |
'((((class color)) (:foreground "Black" :background "darkseagreen2")) |
887 |
(t (:weight bold))) |
(t (:weight bold))) |
888 |
"Face used in the Minibuffer when it is in Emacs state." |
"Face used in the Minibuffer when it is in Emacs state." |
889 |
:group 'viper-highlighting) |
:group 'viper-highlighting) |
890 |
|
;; backward-compatibility alias |
891 |
|
(put 'viper-minibuffer-emacs-face 'face-alias 'viper-minibuffer-emacs) |
892 |
;; An internal variable. Viper takes the face from here. |
;; An internal variable. Viper takes the face from here. |
893 |
(defvar viper-minibuffer-emacs-face 'viper-minibuffer-emacs-face |
(defvar viper-minibuffer-emacs-face 'viper-minibuffer-emacs |
894 |
"Face used in the Minibuffer when it is in Emacs state. |
"Face used in the Minibuffer when it is in Emacs state. |
895 |
DO NOT CHANGE this variable. Instead, use the customization widget |
DO NOT CHANGE this variable. Instead, use the customization widget |
896 |
to customize the actual face object `viper-minibuffer-emacs-face' |
to customize the actual face object `viper-minibuffer-emacs-face' |
897 |
this variable represents.") |
this variable represents.") |
898 |
(viper-hide-face 'viper-minibuffer-emacs-face) |
(viper-hide-face 'viper-minibuffer-emacs) |
899 |
|
|
900 |
|
|
901 |
(defface viper-minibuffer-insert-face |
(defface viper-minibuffer-insert |
902 |
'((((class color)) (:foreground "Black" :background "pink")) |
'((((class color)) (:foreground "Black" :background "pink")) |
903 |
(t (:slant italic))) |
(t (:slant italic))) |
904 |
"Face used in the Minibuffer when it is in Insert state." |
"Face used in the Minibuffer when it is in Insert state." |
905 |
:group 'viper-highlighting) |
:group 'viper-highlighting) |
906 |
|
;; backward-compatibility alias |
907 |
|
(put 'viper-minibuffer-insert-face 'face-alias 'viper-minibuffer-insert) |
908 |
;; An internal variable. Viper takes the face from here. |
;; An internal variable. Viper takes the face from here. |
909 |
(defvar viper-minibuffer-insert-face 'viper-minibuffer-insert-face |
(defvar viper-minibuffer-insert-face 'viper-minibuffer-insert |
910 |
"Face used in the Minibuffer when it is in Insert state. |
"Face used in the Minibuffer when it is in Insert state. |
911 |
DO NOT CHANGE this variable. Instead, use the customization widget |
DO NOT CHANGE this variable. Instead, use the customization widget |
912 |
to customize the actual face object `viper-minibuffer-insert-face' |
to customize the actual face object `viper-minibuffer-insert-face' |
913 |
this variable represents.") |
this variable represents.") |
914 |
(viper-hide-face 'viper-minibuffer-insert-face) |
(viper-hide-face 'viper-minibuffer-insert) |
915 |
|
|
916 |
|
|
917 |
(defface viper-minibuffer-vi-face |
(defface viper-minibuffer-vi |
918 |
'((((class color)) (:foreground "DarkGreen" :background "grey")) |
'((((class color)) (:foreground "DarkGreen" :background "grey")) |
919 |
(t (:inverse-video t))) |
(t (:inverse-video t))) |
920 |
"Face used in the Minibuffer when it is in Vi state." |
"Face used in the Minibuffer when it is in Vi state." |
921 |
:group 'viper-highlighting) |
:group 'viper-highlighting) |
922 |
|
;; backward-compatibility alias |
923 |
|
(put 'viper-minibuffer-vi-face 'face-alias 'viper-minibuffer-vi) |
924 |
;; An internal variable. Viper takes the face from here. |
;; An internal variable. Viper takes the face from here. |
925 |
(defvar viper-minibuffer-vi-face 'viper-minibuffer-vi-face |
(defvar viper-minibuffer-vi-face 'viper-minibuffer-vi |
926 |
"Face used in the Minibuffer when it is in Vi state. |
"Face used in the Minibuffer when it is in Vi state. |
927 |
DO NOT CHANGE this variable. Instead, use the customization widget |
DO NOT CHANGE this variable. Instead, use the customization widget |
928 |
to customize the actual face object `viper-minibuffer-vi-face' |
to customize the actual face object `viper-minibuffer-vi-face' |
929 |
this variable represents.") |
this variable represents.") |
930 |
(viper-hide-face 'viper-minibuffer-vi-face) |
(viper-hide-face 'viper-minibuffer-vi) |
931 |
|
|
932 |
;; the current face to be used in the minibuffer |
;; the current face to be used in the minibuffer |
933 |
(viper-deflocalvar |
(viper-deflocalvar |