diff options
Diffstat (limited to 'grid-engine-mode.el')
| -rw-r--r-- | grid-engine-mode.el | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/grid-engine-mode.el b/grid-engine-mode.el index 6162ec1..5c0265d 100644 --- a/grid-engine-mode.el +++ b/grid-engine-mode.el @@ -1,13 +1,13 @@ ;;; -*- lexical-binding: t -*- (require 'derived) -(define-derived-mode grid-engine +(define-derived-mode grid-engine-list-mode tabulated-list-mode "Grid Engine" "Major mode for interacting with Grid Engine. - \\{grid-engine-mode-map}" + \\{grid-engine-mode-list-mode-map}" (interactive) (kill-all-local-variables) - (setq major-mode 'grid-engine) + (setq major-mode 'grid-engine-list-mode) (setq mode-name "Grid Engine") (grid-engine--init-keymap) (grid-engine--init-header) @@ -16,7 +16,7 @@ (lambda () (grid-engine--init-header) (grid-engine-list-jobs))) - (use-local-map grid-engine-map) + (use-local-map grid-engine-list-mode-map) (run-hooks 'grid-engine-hook)) (defcustom grid-engine-host nil @@ -29,14 +29,14 @@ "The order of job columns to be displayed. The following keys are valid: job-id, priority, name, owner, state, time, queue, slots.") (defun grid-engine--init-keymap () - (setq grid-engine-map (make-keymap)) + (setq grid-engine-list-mode-map (make-keymap)) ;; disable all key bindings - (suppress-keymap grid-engine-map) - (define-key grid-engine-map (kbd "n") 'next-logical-line) - (define-key grid-engine-map (kbd "p") 'previous-logical-line) - (define-key grid-engine-map (kbd "q") 'bury-buffer) - (define-key grid-engine-map (kbd "g") 'revert-buffer) - (define-key grid-engine-map (kbd "<RET>") + (suppress-keymap grid-engine-list-mode-map) + (define-key grid-engine-list-mode-map (kbd "n") 'next-logical-line) + (define-key grid-engine-list-mode-map (kbd "p") 'previous-logical-line) + (define-key grid-engine-list-mode-map (kbd "q") 'bury-buffer) + (define-key grid-engine-list-mode-map (kbd "g") 'revert-buffer) + (define-key grid-engine-list-mode-map (kbd "<RET>") (lambda (&optional arg) (interactive) (let ((field (get-text-property (point) 'field)) |