branch: scratch/javaimp-list
commit b9280edc002b0cff2dd6086f5a2a5ef0f55b7387
Author: Filipp Gunbin <fgun...@fastmail.fm>
Commit: Filipp Gunbin <fgun...@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
)
