branch: scratch/javaimp-list
commit ac2efd70483b0e12adebda64c743511ce989ccca
Author: Filipp Gunbin <fgun...@fastmail.fm>
Commit: Filipp Gunbin <fgun...@fastmail.fm>
*** empty log message ***
---
javaimp-list.el | 10 +++++++++-
javaimp.el | 6 +++---
2 files changed, 12 insertions(+), 4 deletions(-)
diff --git a/javaimp-list.el b/javaimp-list.el
index c638753..df3ac28 100644
--- a/javaimp-list.el
+++ b/javaimp-list.el
@@ -53,6 +53,7 @@ buffer."
(pmid (and pm (javaimp-module-id pm)))
(root (javaimp--get-root node))
+ ;; TODO use digits, as in proced
(depth (let ((ptr node)
(res 0))
(while (setq ptr (javaimp-node-parent ptr))
@@ -117,11 +118,18 @@ buffer."
tabulated-list-entries))
(tabulated-list-init-header))
-;; TODO only top-level
+;; TODO option to forget everything loaded from the same file
(defun javaimp-list--forget-project ()
"Forget project tree containing project at point."
(interactive)
+ ;; TODO go to top-level
+ (setq javaimp-project-forest
+ (seq-remove (lambda (node)
+ (equal (javaimp-module-file-orig (javaimp-node-contents
node))
+ build-file))
+ javaimp-project-forest))
+
(let ((pos (point)))
(delete-process (tabulated-list-get-id))
(revert-buffer)
diff --git a/javaimp.el b/javaimp.el
index ce92a4b..80c5983 100644
--- a/javaimp.el
+++ b/javaimp.el
@@ -58,9 +58,9 @@
;; (setq javaimp-additional-source-dirs '("generated-sources/thrift"))
;; (add-hook 'java-mode-hook
;; (lambda ()
-;; (local-set-key "\C-ci" 'javaimp-add-import)
-;; (local-set-key "\C-co" 'javaimp-organize-imports)))
-;; (global-set-key (kbd "C-c j v") 'javaimp-visit-project)
+;; (local-set-key "\C-ci" #'javaimp-add-import)
+;; (local-set-key "\C-co" #'javaimp-organize-imports)))
+;; (global-set-key (kbd "C-c j v") #'javaimp-visit-project)
;;
;;; News:
