split grid-engine-setup

1 files changed, 5 insertions, 3 deletions

diff --git a/grid-engine-mode.el b/grid-engine-mode.el
index 734302f..2cc441b 100644
--- a/grid-engine-mode.el
+++ b/grid-engine-mode.el
@@ -9,7 +9,8 @@
   (kill-all-local-variables)
   (setq major-mode 'grid-engine)
   (setq mode-name "Grid Engine")
-  (grid-engine-setup)
+  (grid-engine--init-keymap)
+  (grid-engine--init-header)
   (use-local-map grid-engine-map)
   (run-hooks 'grid-engine-hook))
 
@@ -22,7 +23,7 @@
 (defcustom grid-engine-column-order '(job-id time priority owner state)
   "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-setup ()
+(defun grid-engine--init-keymap ()
   (setq grid-engine-map (make-keymap))
   ;; disable all key bindings
   (suppress-keymap grid-engine-map)
@@ -38,8 +39,9 @@
           (error "[Grid Engine] point is not on a field of a job record"))
         (grid-engine-job-details field job arg))))
   (define-key grid-engine-map (kbd "g")
-    (lambda () (interactive) (grid-engine-list-jobs)))
+    (lambda () (interactive) (grid-engine-list-jobs))))
 
+(defun grid-engine--init-header ()
   (grid-engine-update-list-format)
   (tabulated-list-init-header))