[elpa] scratch/javaimp-list b9280ed 3/3: *** empty log message ***

[Filipp Gunbin]

branch: scratch/javaimp-list
commit b9280edc002b0cff2dd6086f5a2a5ef0f55b7387
Author: Filipp Gunbin <fgunbin@fastmail.fm>
Commit: Filipp Gunbin <fgunbin@fastmail.fm>

    *** empty log message ***
---
 javaimp-list.el | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/javaimp-list.el b/javaimp-list.el
index df3ac28..9eb3cba 100644
--- a/javaimp-list.el
+++ b/javaimp-list.el
@@ -13,13 +13,12 @@
 
 (defvar javaimp-list-mode-map
   (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "C-d") 'javaimp-list-forget-project)
-    (define-key map (kbd "RET") 'javaimp-list-display-project)
-    (define-key map [?i] 'javaimp-list-display-project)
+    (define-key map "d" 'javaimp-list-forget-project)
+    (define-key map "m" 'javaimp-list-display-project)
+    (define-key map "i" 'javaimp-list-display-project)
     map))
 
-(define-derived-mode javaimp-list-mode tabulated-list-print
-  "Javaimp Project List"
+(define-derived-mode javaimp-list-mode tabulated-list-mode "Javaimp Project 
List"
   "Major mode for listing the projects known by Javaimp."
   (setq tabulated-list-format [("Artifact" 20 #'javaimp-list--artifact-lessp)
                                ("Group" 20 #'javaimp-list-group-lessp)
@@ -28,7 +27,9 @@
                                ("Loaded at" 10 t)
                                ("Directory" 0 nil)
                                ])
-  (setq tabulated-list-sort-key (cons "Artifact" nil))
+  ;; (setq tabulated-list-sort-key (cons "Artifact" nil))
+  ;; tabulated-list-entries if function; tabulated-list-printer; 
tabulated-list-padding
+  (setq buffer-undo-list t)
   (add-hook 'tabulated-list-revert-hook #'javaimp-list--refresh nil t))
 
 (defun javaimp-list--artifact-lessp (entry1 entry2)
@@ -59,7 +60,7 @@ buffer."
                     (while (setq ptr (javaimp-node-parent ptr))
                       (setq res (1+ res)))
                     res))
-           (artifact (concat (make-string depth ?-) (javaimp-id-artifact mid)))
+           (artifact (concat (make-string depth ? ) (javaimp-id-artifact mid)))
 
            ;; show group and version only if different from parent
            (group (if (and pmid
@@ -116,6 +117,7 @@ buffer."
                      artifact (or group "--") (or version "--")
                      dir file load-ts))
           tabulated-list-entries))
+  ;; TODO sort by group / artifact
   (tabulated-list-init-header))
 
 ;; TODO option to forget everything loaded from the same file
@@ -140,6 +142,7 @@ buffer."
 
 (defun javaimp-list--display-project ()
   "Display detailed information for project at point."
+  ;;
   ;; TODO detailed, with-output-to-temp-buffer
 
   )