mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Move mouse key bindings to gametree-mode-map

Browse source 
* lisp/play/gametree.el (gametree-mode-map): Move mouse key
bindings here.
This commit is contained in:
Stefan Kangas 2021-12-25 05:02:59 +01:00
parent 71eb1aac54
commit 1faa1726f0
1 changed files with 33 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

59
lisp/play/gametree.el
View file

@ -554,7 +554,32 @@ buffer, it is replaced by the new value. See the documentation for
(gametree-hack-file-layout))
nil)
;;;; Mouse commands
(defun gametree-mouse-break-line-here (event)
(interactive "e")
(mouse-set-point event)
(gametree-break-line-here))
(defun gametree-mouse-show-children-and-entry (event)
(interactive "e")
(mouse-set-point event)
(gametree-show-children-and-entry))
(defun gametree-mouse-show-subtree (event)
(interactive "e")
(mouse-set-point event)
(outline-show-subtree))
(defun gametree-mouse-hide-subtree (event)
(interactive "e")
(mouse-set-point event)
(outline-hide-subtree))
;;;; Key bindings
(defvar gametree-mode-map
(let ((map (make-sparse-keymap)))
(define-key map "\C-c\C-j" 'gametree-break-line-here)
@ -566,6 +591,14 @@ buffer, it is replaced by the new value. See the documentation for
(define-key map "\C-c\C-y" 'gametree-save-and-hack-layout)
(define-key map "\C-c;" 'gametree-insert-score)
(define-key map "\C-c^" 'gametree-compute-and-insert-score)
(define-key map [M-down-mouse-2 M-mouse-2]
#'gametree-mouse-break-line-here)
(define-key map [S-down-mouse-1 S-mouse-1]
#'gametree-mouse-show-children-and-entry)
(define-key map [S-down-mouse-2 S-mouse-2]
#'gametree-mouse-show-subtree)
(define-key map [S-down-mouse-3 S-mouse-3]
#'gametree-mouse-hide-subtree)
map))
(define-derived-mode gametree-mode outline-mode "GameTree"
@ -577,32 +610,6 @@ shogi, etc.) players, it is a slightly modified version of Outline mode.
(auto-fill-mode 0)
(add-hook 'write-contents-functions 'gametree-save-and-hack-layout nil t))
;;;; Goodies for mousing users
(defun gametree-mouse-break-line-here (event)
(interactive "e")
(mouse-set-point event)
(gametree-break-line-here))
(defun gametree-mouse-show-children-and-entry (event)
(interactive "e")
(mouse-set-point event)
(gametree-show-children-and-entry))
(defun gametree-mouse-show-subtree (event)
(interactive "e")
(mouse-set-point event)
(outline-show-subtree))
(defun gametree-mouse-hide-subtree (event)
(interactive "e")
(mouse-set-point event)
(outline-hide-subtree))
(define-key gametree-mode-map [M-down-mouse-2 M-mouse-2]
'gametree-mouse-break-line-here)
(define-key gametree-mode-map [S-down-mouse-1 S-mouse-1]
'gametree-mouse-show-children-and-entry)
(define-key gametree-mode-map [S-down-mouse-2 S-mouse-2]
'gametree-mouse-show-subtree)
(define-key gametree-mode-map [S-down-mouse-3 S-mouse-3]
'gametree-mouse-hide-subtree)
(provide 'gametree)
;;; gametree.el ends here