From c4f4f3b9146e5b336dab6e1c2fd856fb3202bbc3 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Mon, 27 Oct 2014 11:55:59 +0100 Subject: allow sorting on columns --- grid-engine-mode.el | 17 +++++++++-------- 1 file 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))) -- cgit v1.2.3