comparison lisp/wid-edit.el @ 110870:7a9a2861c2c2

More face customization cleanups. * cus-edit.el (custom-commands, custom-buffer-create-internal) (custom-magic-value-create): Pad button tags with spaces. (custom-face-edit): New variable. (custom-face-value-create): Determine whether to use the usual face editor here, instead of using custom-face-selected. Pass face defaults to custom-face-edit widget. (custom-face-selected, custom-display-unselected): Delete widgets. (custom-display-unselected-match): Function removed. (custom-face-set, custom-face-mark-to-save): Accept custom-face-edit widgets as the direct widget child. * wid-edit.el (widget--completing-widget): New var. (widget-default-complete): Bind it when doing completion. (widget-string-complete, widget-file-complete): Use it.

110869:3684139b9255

;;; Commentary:
;;
;; See `widget.el'.

;;; Code:

(defvar widget)

;;; Compatibility.

(defun widget-event-point (event)
  "Character position of the end of event if that exists, or nil."

  :mouse-down-action #'ignore
  :action 'widget-default-action
  :notify 'widget-default-notify
  :prompt-value 'widget-default-prompt-value)

(defun widget-default-complete (widget)
  "Call the value of the :complete-function property of WIDGET.
If that does not exist, call the value of `widget-complete-field'."
  (call-interactively (or (widget-get widget :complete-function)
			  widget-complete-field)))

(defun widget-default-create (widget)
  "Create WIDGET at point in the current buffer."
  (widget-specify-insert
   (let ((from (point))

  :tag "String"
  :format "%{%t%}: %v"
  :complete-function 'ispell-complete-word
  :prompt-history 'widget-string-prompt-value-history)

(defvar widget)

(defun widget-string-complete ()
  "Complete contents of string field.
Completions are taken from the :completion-alist property of the
widget.  If that isn't a list, it's evalled and expected to yield a list."
  (interactive)
  (let* ((completion-ignore-case (widget-get widget :completion-ignore-case))
	 (alist (widget-get widget :completion-alist))
	 (_ (unless (listp alist)
	      (setq alist (eval alist)))))
    (completion-in-region (widget-field-start widget)
                          (max (point) (widget-field-text-end widget))

  :tag "File")

(defun widget-file-complete ()
  "Perform completion on file name preceding point."
  (interactive)
  (completion-in-region (widget-field-start widget)
                        (max (point) (widget-field-text-end widget))
                        'completion-file-name-table))

(defun widget-file-prompt-value (widget prompt value unbound)
  ;; Read file from minibuffer.
  (abbreviate-file-name
   (if unbound

(defun widget-color-value-create (widget)
  (widget-field-value-create widget)
  (widget-insert " ")
  (widget-create-child-and-convert
   widget 'push-button
   :tag "Choose" :action 'widget-color--choose-action)
  (widget-insert " "))

(defun widget-color--choose-action (widget &optional event)
  (list-colors-display
   nil nil

110870:7a9a2861c2c2

;;; Commentary:
;;
;; See `widget.el'.

;;; Code:

;;; Compatibility.

(defun widget-event-point (event)
  "Character position of the end of event if that exists, or nil."

  :mouse-down-action #'ignore
  :action 'widget-default-action
  :notify 'widget-default-notify
  :prompt-value 'widget-default-prompt-value)

(defvar widget--completing-widget)

(defun widget-default-complete (widget)
  "Call the value of the :complete-function property of WIDGET.
If that does not exist, call the value of `widget-complete-field'.
During this call, `widget--completing-widget' is bound to WIDGET."
  (let ((widget--completing-widget widget))
    (call-interactively (or (widget-get widget :complete-function)
			    widget-complete-field))))

(defun widget-default-create (widget)
  "Create WIDGET at point in the current buffer."
  (widget-specify-insert
   (let ((from (point))

  :tag "String"
  :format "%{%t%}: %v"
  :complete-function 'ispell-complete-word
  :prompt-history 'widget-string-prompt-value-history)

(defun widget-string-complete ()
  "Complete contents of string field.
Completions are taken from the :completion-alist property of the
widget.  If that isn't a list, it's evalled and expected to yield a list."
  (interactive)
  (let* ((widget widget--completing-widget)
	 (completion-ignore-case (widget-get widget :completion-ignore-case))
	 (alist (widget-get widget :completion-alist))
	 (_ (unless (listp alist)
	      (setq alist (eval alist)))))
    (completion-in-region (widget-field-start widget)
                          (max (point) (widget-field-text-end widget))

  :tag "File")

(defun widget-file-complete ()
  "Perform completion on file name preceding point."
  (interactive)
  (let ((widget widget--completing-widget))
    (completion-in-region (widget-field-start widget)
			  (max (point) (widget-field-text-end widget))
			  'completion-file-name-table)))

(defun widget-file-prompt-value (widget prompt value unbound)
  ;; Read file from minibuffer.
  (abbreviate-file-name
   (if unbound

(defun widget-color-value-create (widget)
  (widget-field-value-create widget)
  (widget-insert " ")
  (widget-create-child-and-convert
   widget 'push-button
   :tag " Choose " :action 'widget-color--choose-action)
  (widget-insert " "))

(defun widget-color--choose-action (widget &optional event)
  (list-colors-display
   nil nil