Variable: hmouse-alist

hmouse-alist is a variable defined in hui-mouse.el.

Value

Large value
(((hmouse-drag-thing)
  (hmouse-yank-region)
  hmouse-kill-and-yank-region)
 ((hmouse-drag-window-side)
  (hmouse-resize-window-side)
  hmouse-resize-window-side)
 ((and
   (setq hkey-value
	 (and
	  (not
	   (hmouse-modeline-depress))
	  (hmouse-modeline-release)
	  (not
	   (hmouse-modeline-click))))
   (hmouse-at-item-p action-key-depress-window))
  (hmouse-item-to-window t)
  hmouse-swap-buffers)
 (hkey-value
  (hmouse-buffer-to-window t)
  hmouse-swap-buffers)
 ((and
   (hmouse-modeline-depress)
   (hmouse-drag-between-windows)
   (not
    (hmouse-drag-vertically-within-emacs)))
  (hmouse-buffer-to-window)
  hmouse-swap-buffers)
 ((and
   (hmouse-modeline-depress)
   (hmouse-drag-outside-all-windows))
  (hycontrol-clone-window-to-new-frame)
  hycontrol-window-to-new-frame)
 ((hmouse-modeline-depress)
  (action-key-modeline)
  assist-key-modeline)
 ((and
   (hmouse-drag-between-windows)
   (hmouse-at-item-p
    (if assist-flag assist-key-depress-window action-key-depress-window)))
  (hmouse-drag-item-to-display)
  hmouse-drag-item-to-display)
 ((hmouse-drag-between-windows)
  (hui:ibut-link-directly)
  hui:ebut-link-directly)
 ((hmouse-drag-region-active)
  (hmouse-drag-not-allowed)
  hmouse-drag-not-allowed)
 ((setq hkey-value
	(hmouse-drag-horizontally))
  (hmouse-horizontal-action-drag)
  hmouse-horizontal-assist-drag)
 ((hmouse-drag-vertically)
  (hmouse-vertical-action-drag)
  hmouse-vertical-assist-drag)
 ((setq hkey-value
	(hmouse-drag-diagonally))
  (call-interactively #'hywconfig-ring-save)
  call-interactively #'hywconfig-yank-pop)
 ((hmouse-drag-outside-all-windows)
  (or
   (hmouse-drag-item-to-display)
   (hycontrol-clone-window-to-new-frame))
  hycontrol-window-to-new-frame)
 ((hmouse-inactive-minibuffer-p)
  (funcall action-key-minibuffer-function)
  funcall assist-key-minibuffer-function)
 ((and
   (boundp 'ivy-mode)
   ivy-mode
   (minibuffer-window-active-p
    (selected-window)))
  (ivy-mouse-done action-key-release-args)
  ivy-mouse-dispatching-done assist-key-release-args)
 ((eq major-mode 'Custom-mode)
  (smart-custom)
  smart-custom-assist)
 ((hmouse-prior-active-region)
  (hmouse-yank-region)
  hmouse-kill-and-yank-region)
 ((and
   (boundp 'company-active-map)
   (memq company-active-map
	 (current-minor-mode-maps)))
  (smart-company-to-definition)
  smart-company-help)
 ((eq major-mode 'treemacs-mode)
  (smart-treemacs)
  smart-treemacs)
 ((eq major-mode 'dired-sidebar-mode)
  (smart-dired-sidebar)
  smart-dired-sidebar)
 ((button-at
   (point))
  (smart-push-button nil
		     (mouse-event-p last-command-event))
  smart-push-button-help nil
  (mouse-event-p last-command-event))
 ((and
   (bound-and-true-p vertico-mode)
   (vertico--command-p nil
		       (current-buffer)))
  (funcall
   (lookup-key vertico-map
	       (kbd "M-RET")))
  funcall
  (lookup-key vertico-map
	      (kbd "M-RET")))
 ((and hargs:reading-type
       (>
	(minibuffer-depth)
	0)
       (eq
	(selected-window)
	(minibuffer-window))
       (not
	(bound-and-true-p ivy-mode))
       (not
	(and
	 (bound-and-true-p vertico-mode)
	 (vertico--command-p nil
			     (current-buffer))))
       (not
	(eq hargs:reading-type 'hmenu))
       (not
	(smart-helm-alive-p)))
  (funcall
   (key-binding
    (kbd "RET")))
  smart-completion-help)
 ((and
   (>
    (minibuffer-depth)
    0)
   (setq hkey-value
	 (hargs:at-p)))
  (hargs:select-p hkey-value)
  hargs:select-p hkey-value 'assist)
 ((and
   (>
    (minibuffer-depth)
    0)
   (eq
    (selected-window)
    (minibuffer-window))
   (or
    (eq hargs:reading-type 'hmenu)
    (smart-helm-alive-p)))
  (funcall
   (key-binding
    (kbd "RET")))
  funcall
  (key-binding
   (kbd "RET")))
 ((and
   (smart-eolp)
   (not
    (and
     (funcall hsys-org-mode-function)
     (not
      (equal hsys-org-enable-smart-keys t)))))
  (hact action-key-eol-function)
  hact assist-key-eol-function)
 ((and
   (not
    (hyperb:stack-frame
     '(smart-org)))
   (let
       ((hrule:action #'actype:identity))
     (smart-org)))
  (smart-org)
  smart-org)
 ((and
   (boundp 'id-edit-mode)
   id-edit-mode
   (not buffer-read-only)
   (not
    (smart-helm-alive-p)))
  (id-edit-yank)
  id-edit-yank)
 ((hsys-xref-item-at-point)
  (xref-goto-xref)
  xref-show-location-at-point)
 ((eq major-mode 'smart-menu-mode)
  (smart-menu-select)
  smart-menu-help)
 ((derived-mode-p 'dired-mode)
  (smart-dired)
  smart-dired-assist)
 ((string-prefix-p "magit-"
		   (symbol-name major-mode))
  (smart-magit)
  smart-magit-assist)
 ((and
   (if
       (setq hkey-at-hbut
	     (hbut:at-p))
       (or
	(eq
	 (point)
	 (hattr:get 'hbut:current 'lbl-end))
	(eq
	 (point)
	 (hattr:get 'hbut:current 'name-end)))
     t)
   (hui-select-at-delimited-thing-p))
  (hui-select-thing)
  progn
  (hui-select-thing)
  (hmouse-kill-region))
 ((and
   (if hkey-at-hbut
       (or
	(eq
	 (point)
	 (hattr:get 'hbut:current 'lbl-end))
	(eq
	 (point)
	 (hattr:get 'hbut:current 'name-end)))
     t)
   (hui-select-at-delimited-sexp-p))
  (hui-select-mark-delimited-sexp)
  progn
  (hui-select-mark-delimited-sexp)
  (hmouse-kill-region))
 (hkey-at-hbut
  (hui:hbut-act 'hbut:current)
  hui:hbut-help 'hbut:current)
 ((and
   (fboundp 'smart-menu-choose-menu)
   (setq hkey-value
	 (and hkey-always-display-menu
	      (smart-menu-choose-menu)))
   (not
    (and
     (get-buffer-window *smart-menu-buffer*)
     (eq hkey-value *smart-menu-curr*))))
  (smart-menu hkey-value)
  smart-menu hkey-value)
 ((bound-and-true-p view-mode)
  (cond
   ((last-line-p)
    (view-quit))
   ((pos-visible-in-window-p
     (point-max))
    (goto-char
     (point-max)))
   (t
    (View-scroll-page-forward)))
  View-scroll-page-backward)
 ((setq hkey-value
	(and
	 (or
	  (eq major-mode 'helm-major-mode)
	  (and
	   (featurep 'helm)
	   (equal helm-action-buffer
		  (buffer-name))))
	 (or
	  (eolp)
	  (smart-helm-at-header)
	  (smart-helm-line-has-action))))
  (smart-helm)
  smart-helm-assist)
 ((and
   (eq major-mode 'ert-results-mode)
   (featurep 'ert-results)
   (setq hkey-value
	 (ert-results-filter-status-p)))
  (smart-ert-results hkey-value)
  smart-ert-results-assist hkey-value)
 ((or
   (string-equal
    (buffer-name)
    "*Implementors*")
   (string-match "-Elements\\'"
		 (buffer-name))
   (and
    (boundp 'br-feature-tags-file)
    (stringp br-feature-tags-file)
    (equal br-feature-tags-file
	   (hypb:buffer-file-name))))
  (smart-element)
  hkey-help)
 ((eq major-mode 'occur-mode)
  (occur-mode-goto-occurrence)
  occur-mode-goto-occurrence)
 ((eq major-mode 'moccur-mode)
  (moccur-mode-goto-occurrence)
  moccur-mode-goto-occurrence)
 ((eq major-mode 'amoccur-mode)
  (amoccur-mode-goto-occurrence)
  amoccur-mode-goto-occurrence)
 ((eq major-mode 'kotl-mode)
  (kotl-mode:action-key)
  kotl-mode:assist-key)
 ((eq major-mode 'flymake-diagnostics-buffer-mode)
  (flymake-goto-diagnostic
   (point))
  flymake-show-diagnostic
  (point)
  t)
 ((eq major-mode 'profiler-report-mode)
  (smart-profiler-report)
  smart-profiler-report-assist)
 ((eq major-mode 'rdb-mode)
  (rdb:action-key)
  rdb:assist-key)
 ((if
      (=
       (point)
       (point-max))
      (string-match "^\\*Help\\|Help\\*$"
		    (buffer-name)))
  (hkey-help-hide)
  hkey-help-hide)
 ((eq major-mode 'Custom-mode)
  (smart-custom)
  smart-custom-assist)
 ((eq major-mode 'bookmark-bmenu-mode)
  (bookmark-jump
   (bookmark-bmenu-bookmark)
   (hpath:display-buffer-function))
  hkey-help)
 ((eq major-mode 'pages-directory-mode)
  (pages-directory-goto)
  pages-directory-goto)
 ((and
   (setq hkey-value
	 (smart-prog-at-tag-p))
   (hbut:is-p
    (intern-soft hkey-value)))
  (ignore-errors
    (smart-prog-tag hkey-value))
  hbut:report
  (intern-soft hkey-value))
 ((and
   (setq hkey-value
	 (smart-prog-at-tag-p))
   (smart-tags-find-p hkey-value))
  (ignore-errors
    (smart-prog-tag hkey-value))
  ignore-errors
  (smart-prog-tag hkey-value))
 ((and
   (or
    (and
     (derived-mode-p 'python-mode 'python-ts-mode)
     (hypb:buffer-file-name))
    (and
     (featurep 'hsys-org)
     (hsys-org-mode-p)
     (equal
      (hsys-org-get-value :language)
      "python"))
    (let
	((case-fold-search))
      (string-match "\\`\\([ *]?Pydoc[: ]\\|\\*?Python\\)"
		    (buffer-name))))
   (setq hkey-value
	 (smart-python-at-tag-p)))
  (smart-python hkey-value)
  smart-python hkey-value 'next-tag)
 ((and
   (memq major-mode
	 '(c-mode c-ts-mode))
   (hypb:buffer-file-name)
   (smart-c-at-tag-p))
  (smart-c)
  smart-c nil 'next-tag)
 ((and
   (memq major-mode
	 '(c++-mode c++-ts-mode))
   (hypb:buffer-file-name)
   (smart-c-at-tag-p))
  (smart-c++)
  smart-c++ nil 'next-tag)
 ((and
   (eq major-mode 'asm-mode)
   (hypb:buffer-file-name)
   (smart-asm-at-tag-p))
  (smart-asm)
  smart-asm nil 'next-tag)
 ((setq hkey-value nil hkey-value
	(or
	 (when
	     (smart-lisp-mode-p)
	   (or
	    (setq hkey-value
		  (smart-lisp-at-load-expression-p))
	    (smart-lisp-at-tag-p)))
	 (when hkey-value
	   (smart-lisp-at-change-log-tag-p))))
  (smart-lisp)
  smart-lisp 'show-doc)
 ((and
   (memq major-mode
	 '(java-mode java-ts-mode))
   (hypb:buffer-file-name)
   (or
    (smart-java-at-tag-p)
    (looking-at "@see[  ]+")
    (save-excursion
      (and
       (re-search-backward "[@\n
\f]" nil t)
       (looking-at "@see[       ]+")))))
  (smart-java)
  smart-java nil 'next-tag)
 ((and
   (memq major-mode
	 '(html-mode javascript-mode js-mode js-ts-mode js2-mode js3-mode web-mode))
   (hypb:buffer-file-name)
   (smart-javascript-at-tag-p))
  (smart-javascript)
  smart-javascript nil 'next-tag)
 ((and
   (eq major-mode 'objc-mode)
   (hypb:buffer-file-name)
   (smart-objc-at-tag-p))
  (smart-objc)
  smart-objc nil 'next-tag)
 ((smart-imenu-item-at-p)
  (smart-imenu-display-item-where
   (car hkey-value)
   (cdr hkey-value))
  imenu-choose-buffer-index)
 ((and
   (memq major-mode
	 '(fortran-mode f90-mode))
   (hypb:buffer-file-name)
   (smart-fortran-at-tag-p))
  (smart-fortran)
  smart-fortran nil 'next-tag)
 ((eq major-mode 'calendar-mode)
  (smart-calendar)
  smart-calendar-assist)
 ((eq major-mode 'unix-apropos-mode)
  (smart-apropos)
  smart-apropos-assist)
 ((eq major-mode 'outline-mode)
  (smart-outline)
  smart-outline-assist)
 ((eq major-mode 'Info-mode)
  (smart-info)
  smart-info-assist)
 ((if
      (boundp 'hmail:reader)
      (or
       (eq major-mode hmail:reader)
       (eq major-mode hmail:lister)))
  (smart-hmail)
  smart-hmail-assist)
 ((eq major-mode 'gnus-group-mode)
  (smart-gnus-group)
  smart-gnus-group-assist)
 ((eq major-mode 'gnus-summary-mode)
  (smart-gnus-summary)
  smart-gnus-summary-assist)
 ((eq major-mode 'gnus-article-mode)
  (smart-gnus-article)
  smart-gnus-article-assist)
 ((eq major-mode 'Buffer-menu-mode)
  (smart-buffer-menu)
  smart-buffer-menu-assist)
 ((eq major-mode 'ibuffer-mode)
  (smart-ibuffer-menu)
  smart-ibuffer-menu-assist)
 ((eq major-mode 'tar-mode)
  (smart-tar)
  smart-tar-assist)
 ((setq hkey-value
	(smart-man-entry-ref))
  (smart-man-display hkey-value)
  smart-man-display hkey-value)
 ((eq major-mode 'w3-mode)
  (w3-follow-link)
  w3-goto-last-buffer)
 ((eq major-mode 'hyrolo-mode)
  (smart-hyrolo)
  smart-hyrolo-assist)
 ((eq major-mode 'image-dired-thumbnail-mode)
  (smart-image-dired-thumbnail)
  smart-image-dired-thumbnail-assist)
 ((eq major-mode 'gomoku-mode)
  (gomoku-human-plays)
  gomoku-human-takes-back)
 ((or
   (br-in-browser)
   (eq major-mode 'br-mode))
  (smart-br-dispatch)
  smart-br-assist-dispatch)
 ((and
   (boundp 'outline-minor-mode)
   outline-minor-mode)
  (smart-outline)
  smart-outline-assist)
 ((eq major-mode 'todotxt-mode)
  (smart-todotxt)
  smart-todotxt-assist))

Documentation

Alist of predicates and form-conses for the Action and Assist Mouse Keys.

When the Action Mouse Key or Assist Mouse Key is pressed, the first or second form, respectively, associated with the first non-nil predicate is evaluated.

The function hmouse-alist-add-window-handlers adds the mouse context handlers to this variable.

The hkey-alist variable is the subset of this alist used by the smart keyboard keys.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hui-mouse.el
(defvar hmouse-alist hkey-alist
  "Alist of predicates and form-conses for the Action and Assist Mouse Keys.
When the Action Mouse Key or Assist Mouse Key is pressed, the first or second
form, respectively, associated with the first non-nil predicate is
evaluated.

The function `hmouse-alist-add-window-handlers' adds the mouse context
handlers to this variable.

The `hkey-alist' variable is the subset of this alist used by the
smart keyboard keys.")