Lines Matching +defs:widget +defs:button +defs:press
49 (autoload 'gnus-button-mailto "gnus-msg")
50 (autoload 'gnus-button-reply "gnus-msg" nil t)
170 :type '(repeat :value-to-internal (lambda (widget value)
172 :match (lambda (widget value)
174 (widget-editable-list-match widget value)))
402 (lambda (widget)
403 (let ((value (widget-get
404 (cadr (widget-get (widget-get widget :parent)
408 (widget-put
409 widget
412 (widget-group-value-create widget))
707 (defcustom gnus-article-button-face 'bold
710 An article button is a piece of text that you can activate by pressing
992 ("toggle display" . gnus-article-press-button)
3823 (set-keymap-parent gnus-article-mode-map widget-keymap)
3920 (make-local-variable 'gnus-button-marker-list)
3939 ;; Internal variables. Are `gnus-button-regexp' and `gnus-button-last' used
3941 (defvar gnus-button-regexp nil)
3942 (defvar gnus-button-marker-list nil
3943 "Regexp matching any of the regexps from `gnus-button-alist'.")
3944 (defvar gnus-button-last nil
3945 "The value of `gnus-button-alist' when `gnus-button-regexp' was build.")
3994 (setq gnus-button-marker-list nil)
4153 (defvar gnus-mime-button-line-format "%{%([%p. %d%T]%)%}%e\n"
4168 (defvar gnus-mime-button-line-format-alist
4177 (defvar gnus-mime-button-commands
4178 '((gnus-article-press-button "\r" "Toggle Display")
4200 (defvar gnus-mime-button-map
4205 (define-key map gnus-mouse-2 'gnus-article-push-button)
4206 (define-key map gnus-down-mouse-3 'gnus-mime-button-menu)
4207 (dolist (c gnus-mime-button-commands)
4212 gnus-mime-button-menu gnus-mime-button-map "MIME button menu."
4216 gnus-mime-button-commands)))
4234 (defun gnus-mime-button-menu (event prefix)
4242 (popup-menu gnus-mime-button-menu nil prefix))))
4799 (gnus-article-press-button)
4809 "Display HANDLE and fix MIME button."
4851 (gnus-insert-mime-button
4859 (defun gnus-insert-mime-button (handle gnus-tmp-id &optional displayed)
4887 gnus-mime-button-line-format gnus-mime-button-line-format-alist
4888 `(,@(gnus-local-map-property gnus-mime-button-map)
4897 (widget-convert-button
4900 :action 'gnus-widget-press-button
4901 :button-keymap gnus-mime-button-map
4903 (lambda (widget/window &optional overlay pos)
4911 ;; XEmacs will get a single widget arg; Emacs 21 will get
4916 (widget-get (widget-at (gnus-overlay-start overlay))
4918 (widget-get widget/window :mime-handle)))
4922 (defun gnus-widget-press-button (elems el)
4923 (goto-char (widget-get elems :from))
4924 (gnus-article-press-button))
5098 (gnus-insert-mime-button
5198 ,@(gnus-local-map-property gnus-mime-button-map)
5200 face ,gnus-article-button-face
5203 (widget-convert-button 'link from (point)
5204 :action 'gnus-widget-press-button
5205 :button-keymap gnus-widget-button-keymap)
5222 ,@(gnus-local-map-property gnus-mime-button-map)
5224 face ,gnus-article-button-face
5227 (widget-convert-button 'link from (point)
5228 :action 'gnus-widget-press-button
5229 :button-keymap gnus-widget-button-keymap)
5430 (gnus-insert-prev-page-button)))
5435 (gnus-insert-next-page-button))))))
6185 (defcustom gnus-button-url-regexp
6193 (defcustom gnus-button-valid-fqdn-regexp
6201 (defcustom gnus-button-valid-localpart-regexp
6208 (defcustom gnus-button-man-handler 'manual-entry
6222 the variable `gnus-button-handle-ctan'."
6231 (defcustom gnus-button-ctan-handler 'browse-url
6239 (defcustom gnus-button-handle-ctan-bogus-regexp "^/?tex-archive/\\|^/"
6246 (defcustom gnus-button-ctan-directory-regexp
6258 (defcustom gnus-button-mid-or-mail-regexp
6259 (concat "\\b\\(<?" gnus-button-valid-localpart-regexp "@"
6260 gnus-button-valid-fqdn-regexp
6267 (defcustom gnus-button-prefer-mid-or-mail 'gnus-button-mid-or-mail-heuristic
6268 "What to do when the button on a string as \"foo123@bar.invalid\" is pushed.
6278 gnus-button-mid-or-mail-heuristic)
6283 (defcustom gnus-button-mid-or-mail-heuristic-alist
6335 "An alist of \(RATE . REGEXP\) pairs for `gnus-button-mid-or-mail-heuristic'.
6344 (defun gnus-button-mid-or-mail-heuristic (mid-or-mail)
6349 (list gnus-button-mid-or-mail-heuristic-alist)
6414 (defun gnus-button-handle-mid-or-mail (mid-or-mail)
6415 (let* ((pref gnus-button-prefer-mid-or-mail) guessed
6433 (gnus-message 8 "calling `gnus-button-handle-news' %s" url-mid)
6434 (gnus-button-handle-news url-mid))
6440 (defun gnus-button-handle-custom (url)
6444 (defvar gnus-button-handle-describe-prefix "^\\(C-h\\|<?[Ff]1>?\\)")
6449 (defun gnus-button-handle-describe-function (url)
6450 "Call `describe-function' when pushing the corresponding URL button."
6453 (gnus-replace-in-string url gnus-button-handle-describe-prefix ""))))
6455 (defun gnus-button-handle-describe-variable (url)
6456 "Call `describe-variable' when pushing the corresponding URL button."
6459 (gnus-replace-in-string url gnus-button-handle-describe-prefix ""))))
6461 (defun gnus-button-handle-symbol (url)
6470 (defun gnus-button-handle-describe-key (url)
6471 "Call `describe-key' when pushing the corresponding URL button."
6473 (gnus-replace-in-string url gnus-button-handle-describe-prefix ""))
6477 (gnus-message 3 "Invalid key sequence in button: %s" key-string))))
6479 (defun gnus-button-handle-apropos (url)
6480 "Call `apropos' when pushing the corresponding URL button."
6481 (apropos (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
6483 (defun gnus-button-handle-apropos-command (url)
6484 "Call `apropos' when pushing the corresponding URL button."
6486 (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
6488 (defun gnus-button-handle-apropos-variable (url)
6489 "Call `apropos' when pushing the corresponding URL button."
6492 (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
6494 (defun gnus-button-handle-apropos-documentation (url)
6495 "Call `apropos' when pushing the corresponding URL button."
6498 (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
6500 (defun gnus-button-handle-library (url)
6501 "Call `locate-library' when pushing the corresponding URL button."
6509 (defun gnus-button-handle-ctan (url)
6510 "Call `browse-url' when pushing a CTAN URL button."
6512 gnus-button-ctan-handler
6515 (gnus-replace-in-string url gnus-button-handle-ctan-bogus-regexp ""))))
6517 (defcustom gnus-button-tex-level 5
6529 (defcustom gnus-button-man-level 5
6541 (defcustom gnus-button-emacs-level 5
6553 (defcustom gnus-button-message-level 5
6562 (defcustom gnus-button-browse-level 5
6566 ;; stuff handled by `browse-url' or `gnus-button-embedded-url'
6571 (defcustom gnus-button-alist
6573 0 (>= gnus-button-message-level 0) gnus-button-handle-news 3)
6575 gnus-button-valid-localpart-regexp "@[a-z0-9.-]+[a-z]\\)")
6576 0 t gnus-button-handle-news 2)
6578 1 (>= gnus-button-message-level 0) gnus-button-fetch-group 5)
6580 0 (>= gnus-button-message-level 0) gnus-button-fetch-group 3)
6583 0 (>= gnus-button-message-level 0) gnus-button-message-id 2)
6585 2 (>= gnus-button-message-level 0) gnus-button-message-id 3)
6587 0 (>= gnus-button-message-level 0) gnus-url-mailto 2)
6590 0 (>= gnus-button-message-level 0) gnus-url-mailto 1)
6592 0 (>= gnus-button-message-level 0) gnus-url-mailto 1)
6595 gnus-button-ctan-directory-regexp
6597 0 (>= gnus-button-tex-level 1) gnus-button-handle-ctan 1)
6599 gnus-button-ctan-directory-regexp
6601 1 (>= gnus-button-tex-level 6) gnus-button-handle-ctan 1)
6604 gnus-button-ctan-directory-regexp
6606 1 (>= gnus-button-tex-level 8) gnus-button-handle-ctan 1)
6609 0 (>= gnus-button-emacs-level 1) gnus-button-handle-info-url 1)
6612 0 (>= gnus-button-emacs-level 1) gnus-button-handle-info-url-gnome 1)
6615 1 (>= gnus-button-emacs-level 1) gnus-button-handle-info-url-kde 2)
6617 (>= gnus-button-emacs-level 1) gnus-button-handle-info-url 2)
6620 0 (>= gnus-button-emacs-level 1) gnus-button-handle-info-keystrokes 2)
6623 0 (>= gnus-button-emacs-level 5) gnus-button-handle-custom 2)
6625 (>= gnus-button-emacs-level 1) gnus-button-handle-custom 1)
6629 0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos 1)
6631 0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-command 1)
6633 0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-variable 1)
6635 0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-documentation 1)
6637 ;; them by default (use a high button level).
6640 1 (>= gnus-button-emacs-level 8) gnus-button-handle-library 1)
6642 1 (>= gnus-button-emacs-level 8) gnus-button-handle-library 1)
6644 0 (>= gnus-button-emacs-level 8) gnus-button-handle-symbol 1)
6646 0 (>= gnus-button-emacs-level 9) gnus-button-handle-symbol 1)
6648 1 (>= gnus-button-emacs-level 7) gnus-button-handle-describe-variable 1)
6650 1 (>= gnus-button-emacs-level 7) gnus-button-handle-describe-function 1)
6652 0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-function 2)
6654 0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-variable 2)
6658 1 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-key 3)
6661 1 (>= gnus-button-browse-level 0) gnus-button-embedded-url 1)
6664 1 (>= gnus-button-browse-level 0) gnus-button-embedded-url 1)
6667 1 (>= gnus-button-browse-level 0) gnus-button-embedded-url 1)
6669 (gnus-button-url-regexp
6670 0 (>= gnus-button-browse-level 0) browse-url 0)
6673 0 (and (>= gnus-button-man-level 1) (< gnus-button-man-level 3))
6674 gnus-button-handle-man 1)
6677 0 (and (>= gnus-button-man-level 3) (< gnus-button-man-level 5))
6678 gnus-button-handle-man 1)
6682 0 (>= gnus-button-man-level 5) gnus-button-handle-man 1)
6686 ;; (info|name|...). Put this entry near the _end_ of `gnus-button-alist'
6688 (gnus-button-mid-or-mail-regexp
6689 0 (>= gnus-button-message-level 5) gnus-button-handle-mid-or-mail 1))
6693 REGEXP: is the string (case insensitive) matching text around the button (can
6695 BUTTON: is the number of the regexp grouping actually matching the button,
6696 FORM: is a Lisp expression which must eval to true for the button to
6698 CALLBACK: is the function to call when the user push this button, and each
6712 (defcustom gnus-header-button-alist
6714 0 (>= gnus-button-message-level 0) gnus-button-message-id 0)
6716 1 (>= gnus-button-message-level 0) gnus-button-reply 1)
6718 0 (>= gnus-button-message-level 0) gnus-msg-mail 0)
6719 ("^X-[Uu][Rr][Ll]:" gnus-button-url-regexp
6720 0 (>= gnus-button-browse-level 0) browse-url 0)
6721 ("^Subject:" gnus-button-url-regexp
6722 0 (>= gnus-button-browse-level 0) browse-url 0)
6723 ("^[^:]+:" gnus-button-url-regexp
6724 0 (>= gnus-button-browse-level 0) browse-url 0)
6726 0 (>= gnus-button-message-level 0) gnus-url-mailto 1)
6728 1 (>= gnus-button-message-level 0) gnus-button-message-id 4))
6731 This alist is very similar to `gnus-button-alist', except that each
6737 `gnus-button-alist'."
6751 (defun gnus-article-push-button (event)
6764 (defun gnus-article-press-button ()
6854 (gnus-article-add-button start (1- end) 'gnus-signature-toggle
6857 (defun gnus-button-in-region-p (b e prop)
6864 specified by `gnus-button-alist'."
6871 (alist gnus-button-alist)
6875 (while (setq marker (pop gnus-button-marker-list))
6879 (when (setq entry (gnus-button-entry))
6884 (setq gnus-button-marker-list new-list))
6897 (not (gnus-button-in-region-p
6900 ;; button.
6901 (gnus-article-add-button
6902 start end 'gnus-button-push
6904 gnus-button-marker-list))))))))))
6916 (alist gnus-header-button-alist)
6939 (gnus-article-add-button
6947 (defun gnus-article-add-button (from to fun &optional data)
6948 "Create a button between FROM and TO with callback FUN and data DATA."
6949 (when gnus-article-button-face
6951 'face gnus-article-button-face))
6958 (widget-convert-button 'link from to :action 'gnus-widget-press-button
6959 :button-keymap gnus-widget-button-keymap))
6988 (defun gnus-button-entry ()
6989 ;; Return the first entry in `gnus-button-alist' matching this place.
6990 (let ((alist gnus-button-alist)
6999 (defun gnus-button-push (marker)
7000 ;; Push button starting at MARKER.
7003 (let* ((entry (gnus-button-entry))
7019 (gnus-message 1 "You must define `%S' to use this button"
7049 (defun gnus-button-handle-news (url)
7067 (gnus-button-fetch-group url)))))
7069 (defun gnus-button-handle-man (url)
7071 (gnus-message 9 "`%s' `%s'" gnus-button-man-handler url)
7072 (when (eq gnus-button-man-handler 'woman)
7074 (gnus-message 9 "`%s' `%s'" gnus-button-man-handler url)
7075 (funcall gnus-button-man-handler url))
7077 (defun gnus-button-handle-info-url (url)
7093 (defun gnus-button-handle-info-url-gnome (url)
7107 (defun gnus-button-handle-info-url-kde (url)
7111 (defun gnus-button-handle-info-keystrokes (url)
7112 "Call `info' when pushing the corresponding URL button."
7118 (defun gnus-button-message-id (message-id)
7124 (defun gnus-button-fetch-group (address)
7190 (defun gnus-button-embedded-url (address)
7204 (define-key map gnus-mouse-2 'gnus-button-prev-page)
7205 (define-key map "\r" 'gnus-button-prev-page)
7213 (define-key map gnus-mouse-2 'gnus-button-next-page)
7214 (define-key map "\r" 'gnus-button-next-page)
7217 (defun gnus-insert-prev-page-button ()
7224 gnus-callback gnus-article-button-prev-page
7226 (widget-convert-button
7231 :action 'gnus-button-prev-page
7232 :button-keymap gnus-prev-page-map)))
7234 (defun gnus-button-next-page (&optional args more-args)
7242 (defun gnus-button-prev-page (&optional args more-args)
7250 (defun gnus-insert-next-page-button ()
7256 gnus-callback gnus-article-button-next-page
7258 (widget-convert-button
7263 :action 'gnus-button-next-page
7264 :button-keymap gnus-next-page-map)))
7266 (defun gnus-article-button-next-page (arg)
7274 (defun gnus-article-button-prev-page (arg)
7468 (defvar gnus-mime-security-button-line-format "%{%([[%t:%i]%D]%)%}\n"
7473 %D Details if button is pressed")
7475 (defvar gnus-mime-security-button-end-line-format "%{%([[End of %t]%D]%)%}\n"
7480 %D Details if button is pressed")
7482 (defvar gnus-mime-security-button-line-format-alist
7488 (defvar gnus-mime-security-button-map
7492 (define-key map gnus-mouse-2 'gnus-article-push-button)
7493 (define-key map "\r" 'gnus-article-press-button)
7498 (defvar gnus-mime-security-button-pressed nil)
7532 (let ((gnus-mime-security-button-pressed
7534 (gnus-mime-security-button-line-format
7539 gnus-mime-security-button-line-format)
7544 (gnus-insert-mime-security-button handle))
7549 gnus-mime-security-button-line-format)
7563 (defun gnus-mime-security-press-button (handle)
7569 (defun gnus-insert-mime-security-button (handle &optional displayed)
7591 (if gnus-mime-security-button-pressed gnus-tmp-details ""))
7596 gnus-mime-security-button-line-format
7597 gnus-mime-security-button-line-format-alist
7598 `(,@(gnus-local-map-property gnus-mime-security-button-map)
7599 gnus-callback gnus-mime-security-press-button
7600 gnus-line-format ,gnus-mime-security-button-line-format
7601 gnus-mime-details ,gnus-mime-security-button-pressed
7608 (widget-convert-button
7611 :action 'gnus-widget-press-button
7612 :button-keymap gnus-mime-security-button-map
7614 (lambda (widget/window &optional overlay pos)
7627 (gnus-insert-mime-security-button handle))
7632 (let ((gnus-mime-security-button-line-format
7633 gnus-mime-security-button-end-line-format))
7634 (gnus-insert-mime-security-button handle)))