diff options
Diffstat (limited to 'emacs.d/nxhtml/nxhtml/wtest.el')
| -rw-r--r-- | emacs.d/nxhtml/nxhtml/wtest.el | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/emacs.d/nxhtml/nxhtml/wtest.el b/emacs.d/nxhtml/nxhtml/wtest.el new file mode 100644 index 0000000..6cf1c39 --- /dev/null +++ b/emacs.d/nxhtml/nxhtml/wtest.el @@ -0,0 +1,56 @@ +(require 'wid-edit) +(require 'help-mode) + +(defun test-widget-formats () + (interactive) + (let ((widget-button-prefix "<<<<") + (widget-button-suffix "")) + (with-output-to-temp-buffer (help-buffer) + (with-current-buffer (help-buffer) + (set (make-local-variable 'widget-push-button-prefix) "") + (set (make-local-variable 'widget-push-button-suffix) "") + (set (make-local-variable 'widget-link-prefix) "") + (set (make-local-variable 'widget-link-suffix) "") + + (widget-create 'push-button + :action '(lambda (w &optional e) (message "1")) + :button-face 'emacsw32-link-face + :button-prefix "" + :button-suffix "" + "One" + ) + (widget-create 'push-button + :action '(lambda (w &optional e) (message "2")) + :format "%[%v%]" + :value "two" + ) + (widget-create 'push-button + :action '(lambda (w &optional e) (message "3")) + :format "%[%v%]" + :button-prefix "" + :button-suffix "" + "three" + ) + (widget-create 'push-button + :action '(lambda (w &optional e) (message "4")) + :format "%v" + :button-prefix "" + :button-suffix "" + "four" + ) + (widget-create 'push-button + :action '(lambda (w &optional e) (message "5")) + :format "%{%v%}" + :button-prefix "" + :button-suffix "" + "five" + ) + (widget-create 'push-button + :action '(lambda (w &optional e) (message "6")) + ;;:format "%[[%v]%]" + :value "Six" + ;;:value-create 'widget-browse-value-create + :value-create (lambda (widget) (insert (widget-get widget :value))) + ) + (widget-setup) + )))) |