Add a widget for command functions?

Add a widget for command functions?

[Lennart Borgman]

Could a widget for command functions perhaps be added to Emacs?

(defvar widget-command-prompt-value-history nil
  "History of input to `widget-function-prompt-value'.")

(define-widget 'command 'restricted-sexp
  "A command function."
  :complete-function (lambda ()
                       (interactive)
                       (lisp-complete-symbol 'commandp))
  :prompt-value 'widget-field-prompt-value
  :prompt-internal 'widget-symbol-prompt-internal
  :prompt-match 'commandp
  :prompt-history 'widget-command-prompt-value-history
  :action 'widget-field-action
  :match-alternatives '(commandp)
  :validate (lambda (widget)
              (unless (commandp (widget-value widget))
                (widget-put widget :error (format "Invalid command: %S"
                                                  (widget-value widget)))
                widget))
  :value 'ignore
  :tag "Command")

Re: Add a widget for command functions?

[Juri Linkov]

> Could a widget for command functions perhaps be added to Emacs?
>
> (defvar widget-command-prompt-value-history nil
>   "History of input to `widget-function-prompt-value'.")
>
> (define-widget 'command 'restricted-sexp
>   "A command function."
>   :complete-function (lambda ()
>                        (interactive)
>                        (lisp-complete-symbol 'commandp))
>   :prompt-value 'widget-field-prompt-value
>   :prompt-internal 'widget-symbol-prompt-internal
>   :prompt-match 'commandp
>   :prompt-history 'widget-command-prompt-value-history
>   :action 'widget-field-action
>   :match-alternatives '(commandp)
>   :validate (lambda (widget)
>               (unless (commandp (widget-value widget))
>                 (widget-put widget :error (format "Invalid command: %S"
>                                                   (widget-value widget)))
>                 widget))
>   :value 'ignore
>   :tag "Command")

I think the original implementation (where the widget `command'
inherited from `function') was much better.  But I know no reason
why it is not in wid-edit.el now :(  You can find it here:
http://thread.gmane.org/gmane.emacs.devel/8116

-- 
Juri Linkov
http://www.jurta.org/emacs/

Re: Add a widget for command functions?

[Lennart Borgman]

On Mon, Oct 12, 2009 at 10:32 PM, Juri Linkov <juri@jurta.org> wrote:
>> Could a widget for command functions perhaps be added to Emacs?
>>
>> (define-widget 'command 'restricted-sexp
>>   "A command function."

>
> I think the original implementation (where the widget `command'
> inherited from `function') was much better.  But I know no reason
> why it is not in wid-edit.el now :(  You can find it here:
> http://thread.gmane.org/gmane.emacs.devel/8116

Ok ;-)

Anyone of them would do. Should I send my widget for major modes now, or?