elogt.el: name the indexes

Signed-off-by: Maciej Barć <xgqt@gentoo.org>

1 files changed, 19 insertions, 7 deletions

diff --git a/elogt.el b/elogt.el
index c621072..600f03d 100644
--- a/elogt.el
+++ b/elogt.el
@@ -59,6 +59,18 @@
     (warn  . ,(propertize "Warn"  'font-lock-face '(:foreground "orange")))
     (none  . ,(propertize "None"  'font-lock-face '(:foreground "purple")))))
 
+(defconst elogt--index-priority 0
+  "Position index of the priority field inside the ElogT table.")
+
+(defconst elogt--index-category 1
+  "Position index of the category field inside the ElogT table.")
+
+(defconst elogt--index-package 2
+  "Position index of the package field inside the ElogT table.")
+
+(defconst elogt--index-time 3
+  "Position index of the time field inside the ElogT table.")
+
 
 ;; Customization
 
@@ -154,9 +166,9 @@ A logfile priority level is one of: None, Info, Warn, Error."
   "Return a logfile path of a given ElogT TABLE-ENTRY."
   (format "%s/%s:%s:%s.log"
           elogt-portage-log-dir
-          (aref table-entry 1)
-          (substring-no-properties (aref table-entry 2))
-          (substring-no-properties (aref table-entry 3))))
+          (aref table-entry elogt--index-category)
+          (substring-no-properties (aref table-entry elogt--index-package))
+          (substring-no-properties (aref table-entry elogt--index-time))))
 
 (defun elogt--get-table-entry-logfile-path ()
   "Return a logfile path of current ElogT table entry."
@@ -200,22 +212,22 @@ Return opened buffer (done via `find-file')."
 (defun elogt-sort-package ()
   "Sort the ElogT table by package, ascending."
   (interactive)
-  (tabulated-list-sort 2))
+  (tabulated-list-sort elogt--index-package))
 
 (defun elogt-sort-category ()
   "Sort the ElogT table by category, ascending."
   (interactive)
-  (tabulated-list-sort 1))
+  (tabulated-list-sort elogt--index-category))
 
 (defun elogt-sort-priority ()
   "Sort the ElogT table by priority, ascending."
   (interactive)
-  (tabulated-list-sort 0))
+  (tabulated-list-sort elogt--index-priority))
 
 (defun elogt-sort-time ()
   "Sort the ElogT table by time, descending."
   (interactive)
-  (tabulated-list-sort 3))
+  (tabulated-list-sort elogt--index-time))
 
 
 ;; Major mode