Refacotr directory mode (#1759)

* split directory-mode files

* move function definitions

* update -> update-buffer

* move definition

* update-all -> update-all-buffers

* extract function

* move file functions to file.lisp

* split pakcages

* extract function

* split packages

* cleanup

* rename buffer -> internal

.gitignore

@@ -36,3 +36,5 @@ build/*
 /systems/
 
 /result
+
+TODO

extensions/lisp-mode/repl.lisp

@@ -101,10 +101,10 @@
    :callback (lambda (&rest args)
                (declare (ignore args))
                (copy-down-to-repl 'pathname
-                                  (lem/directory-mode::get-pathname (current-point))))))
+                                  (lem/directory-mode/internal::get-pathname (current-point))))))
 
 (defun repl-compute-context-menu-items ()
-  (if (lem/directory-mode::get-pathname (current-point))
+  (if (lem/directory-mode/internal::get-pathname (current-point))
       (list (context-menu-copy-down-pathname-to-repl))
       (remove
        nil
@@ -612,8 +612,8 @@
 
 (define-repl-shortcut ls ()
   (insert-character (current-point) #\newline)
-  (lem/directory-mode::insert-directories-and-files (current-point)
-                                                    (buffer-directory (current-buffer)))
+  (lem/directory-mode/internal::insert-directories-and-files (current-point)
+                                                           (buffer-directory (current-buffer)))
   (lem/listener-mode:refresh-prompt (current-buffer)))
 
 (define-repl-shortcut pwd ()

lem.asd

@@ -195,7 +195,15 @@
                              (:file "link")
                              (:file "thingatp")
                              (:file "gtags")
-                             (:file "directory-mode")
+                             (:module "directory-mode"
+                              :serial t
+                              :components ((:file "file")
+                                           (:file "attributes")
+                                           (:file "mode")
+                                           (:file "internal")
+                                           (:file "commands")
+                                           (:file "keybinds")
+                                           (:file "main")))
                              (:file "abbrev")
                              (:file "rectangle")
                              (:file "auto-save")