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

[Filipp Gunbin]

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