Lines Matching +defs:color +defs:name
31 (defvar pm-color-alist)
41 (defvar viper-ex-tmp-buf-name)
49 (let ((load-path (cons (expand-file-name ".") load-path)))
61 (if (and (not (fboundp 'x-display-color-p)) (fboundp 'ns-display-color-p))
62 (fset 'x-display-color-p (symbol-function 'ns-display-color-p)))
63 (if (and (not (fboundp 'x-color-defined-p)) (fboundp 'ns-color-defined-p))
64 (fset 'x-color-defined-p (symbol-function 'ns-color-defined-p)))
88 (fset 'viper-color-defined-p (symbol-function 'valid-color-name-p))
106 (fset 'viper-color-defined-p (symbol-function 'x-color-defined-p))
135 (defsubst viper-color-display-p ()
137 (eq (device-class (selected-device)) 'color) ; xemacs
138 (x-display-color-p) ; emacs
141 (defun viper-get-cursor-color (&optional frame)
143 (color-instance-name
144 (frame-property (or frame (selected-frame)) 'cursor-color)) ; xemacs
145 (cdr (assoc 'cursor-color (frame-parameters))) ; emacs
151 (fset 'viper-color-defined-p
152 (lambda (color) (assoc color pm-color-alist)))))
156 (defun viper-change-cursor-color (new-color &optional frame)
157 (if (and (viper-window-display-p) (viper-color-display-p)
158 (stringp new-color) (viper-color-defined-p new-color)
159 (not (string= new-color (viper-get-cursor-color))))
163 'cursor-color (make-color-instance new-color))
166 (list (cons 'cursor-color new-color)))
170 (defun viper-set-cursor-color-according-to-state (&optional frame)
172 (viper-change-cursor-color viper-replace-state-cursor-color frame))
174 viper-emacs-state-cursor-color)
175 (viper-change-cursor-color viper-emacs-state-cursor-color frame))
177 (viper-change-cursor-color viper-insert-state-cursor-color frame))
179 (viper-change-cursor-color viper-vi-state-cursor-color frame))))
181 ;; By default, saves current frame cursor color in the
182 ;; viper-saved-cursor-color-in-replace-mode property of viper-replace-overlay
183 (defun viper-save-cursor-color (before-which-mode)
184 (if (and (viper-window-display-p) (viper-color-display-p))
185 (let ((color (viper-get-cursor-color)))
186 (if (and (stringp color) (viper-color-defined-p color)
187 (not (string= color viper-replace-overlay-cursor-color)))
193 'viper-saved-cursor-color-in-replace-mode)
195 'viper-saved-cursor-color-in-emacs-mode)
197 'viper-saved-cursor-color-in-insert-mode))
198 color)))
202 (defsubst viper-get-saved-cursor-color-in-replace-mode ()
207 'viper-saved-cursor-color-in-replace-mode)
208 (if (and (eq viper-current-state 'emacs-mode) viper-emacs-state-cursor-color)
209 viper-emacs-state-cursor-color
210 viper-vi-state-cursor-color)))
212 (defsubst viper-get-saved-cursor-color-in-insert-mode ()
217 'viper-saved-cursor-color-in-insert-mode)
218 (if (and (eq viper-current-state 'emacs-mode) viper-emacs-state-cursor-color)
219 viper-emacs-state-cursor-color
220 viper-vi-state-cursor-color)))
222 (defsubst viper-get-saved-cursor-color-in-emacs-mode ()
227 'viper-saved-cursor-color-in-emacs-mode)
228 viper-vi-state-cursor-color))
230 ;; restore cursor color from replace overlay
231 (defun viper-restore-cursor-color(after-which-mode)
233 (viper-change-cursor-color
235 (viper-get-saved-cursor-color-in-replace-mode))
237 (viper-get-saved-cursor-color-in-emacs-mode))
238 (t (viper-get-saved-cursor-color-in-insert-mode)))
319 ;; The first argument must eval to a variable name.
320 ;; Arguments: (var-name position &optional buffer).
407 (cond (ex-unix-type-shell shell-file-name)
418 (set-buffer (get-buffer-create viper-ex-tmp-buf-name))
476 (set-buffer (get-buffer-create viper-ex-tmp-buf-name))
497 (set-buffer (get-buffer-create viper-ex-tmp-buf-name))
505 (or (file-name-directory (car tmp))
511 (file-name-nondirectory (car tmp)))
659 (let* ((var-name (symbol-name var))
661 (regexp (format "^[^;]*%s[ \t\n]*[a-zA-Z---_']*[ \t\n)]" var-name))
662 (buf (find-file-noselect (substitute-in-file-name custom-file)))
670 (search-backward var-name)
673 (insert (format "%s '%S" var-name var-val)))
676 (insert (format "(setq %s '%S)\n" var-name var-val)))
688 (let ((buf (find-file-noselect (substitute-in-file-name custom-file))))
702 (defun viper-file-remote-p (file-name)
703 (file-remote-p file-name))
710 ;; FILE is a string representing file name
712 ;; (let* ((filedir (file-name-directory file))
713 ;; (file-nondir (file-name-nondirectory file))
745 (let ((file (expand-file-name (buffer-file-name buf)))
752 (viper-abbreviate-file-name file))))
812 (viper-save-cursor-color 'before-replace-mode)
813 (viper-change-cursor-color viper-replace-overlay-cursor-color)
822 (let ((before-name (if viper-xemacs-p 'begin-glyph 'before-string))
823 (after-name (if viper-xemacs-p 'end-glyph 'after-string)))
824 (viper-overlay-put viper-replace-overlay before-name before-glyph)
825 (viper-overlay-put viper-replace-overlay after-name after-glyph))))
829 (viper-restore-cursor-color 'after-replace-mode)
830 (viper-restore-cursor-color 'after-insert-mode)
883 (string-match "\*Minibuf-" (buffer-name))))
890 (defun viper-abbreviate-file-name (file)
893 (abbreviate-file-name file t)
895 (abbreviate-file-name file)
1091 (let (key-name char-p modifiers mod-char-list base-key base-key-name)
1095 (setq key-name (symbol-name key))
1096 (cond ((= (length key-name) 1) ; character event
1097 (string-to-char key-name))
1101 (string= key-name "return"))
1104 (string= key-name "escape"))
1112 base-key-name (symbol-name base-key)
1113 char-p (= (length base-key-name) 1))
1116 '(lambda (elt) (upcase (substring (symbol-name elt) 0 1)))
1119 (setq key-name
1125 base-key-name))))
1126 (setq key-name
1131 base-key-name))))))
1198 (and (symbolp elt) (= (length (symbol-name elt)) 1)))
1217 (mapconcat 'symbol-name temp ""))
1223 (mapconcat 'symbol-name event-seq ""))
1258 (= 1 (length (symbol-name key))))
1259 (string-to-char (symbol-name key)))
1262 (symbol-name (nth 1 key))
1263 (= 1 (length (symbol-name (nth 1 key)))))
1264 (read (format "?\\C-%s" (symbol-name (nth 1 key)))))
1277 (viper-ring-insert viper-related-files-and-buffers-ring (buffer-name))