diff options
| -rw-r--r-- | grid-engine-mode.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/grid-engine-mode.el b/grid-engine-mode.el index eefe1d3..734302f 100644 --- a/grid-engine-mode.el +++ b/grid-engine-mode.el @@ -44,14 +44,15 @@ (tabulated-list-init-header)) (defun grid-engine-update-list-format () - (setq columns '((job-id . ("Job-ID" 10 nil)) - (priority . ("Priority" 10 nil)) - (name . ("Job name" 10 nil)) - (owner . ("User" 15 nil)) - (state . ("State" 15 nil)) - (time . ("Time" 25 nil)) - (queue . ("Queue" 25 nil)) - (slots . ("Slots" 10 nil)))) + "Compute value of tabulated-list-format from grid-engine-column-order." + (setq columns '((job-id . ("Job-ID" 10 t)) + (priority . ("Priority" 10 t)) + (name . ("Job name" 10 t)) + (owner . ("User" 15 t)) + (state . ("State" 15 t)) + (time . ("Time" 25 t)) + (queue . ("Queue" 25 t)) + (slots . ("Slots" 10 t)))) (setq tabulated-list-format (vconcat (mapcar (lambda (key) (cdr (assoc key columns))) |