diff options
| author | Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de> | 2014-10-27 11:55:59 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de> | 2014-10-27 11:55:59 +0100 |
| commit | c4f4f3b9146e5b336dab6e1c2fd856fb3202bbc3 (patch) | |
| tree | f20fd5a480d530c11dc56be763323e7ca2ed2d51 | |
| parent | 9a8674cf75988cb6f4e68595be709d495b598707 (diff) | |
allow sorting on columns
| -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))) |