rename buffer -> internal

extensions/lisp-mode/repl.lisp

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

lem.asd

@@ -200,7 +200,7 @@
                               :components ((:file "file")
                                            (:file "attributes")
                                            (:file "mode")
-                                           (:file "buffer")
+                                           (:file "internal")
                                            (:file "commands")
                                            (:file "keybinds")
                                            (:file "main")))

src/ext/directory-mode/commands.lisp

@@ -1,7 +1,7 @@
 (uiop:define-package :lem/directory-mode/commands
   (:use :cl
         :lem
-        :lem/directory-mode/buffer
+        :lem/directory-mode/internal
         :lem/directory-mode/attributes)
   (:import-from :lem/directory-mode/mode
                 :directory-mode)

src/ext/directory-mode/buffer.lisp → src/ext/directory-mode/internal.lisp

@@ -1,4 +1,4 @@
-(uiop:define-package :lem/directory-mode/buffer
+(uiop:define-package :lem/directory-mode/internal
   (:use :cl
         :lem)
   (:import-from :lem/directory-mode/file
@@ -29,10 +29,10 @@
            :selected-files
            :update-all-buffers
            :update-highlight-line-overlay))
-(in-package :lem/directory-mode/buffer)
+(in-package :lem/directory-mode/internal)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (sb-ext:lock-package :lem/directory-mode/buffer))
+  (sb-ext:lock-package :lem/directory-mode/internal))
 
 (deftype sort-method ()
   '(member :pathname :mtime :size))

src/ext/directory-mode/main.lisp

@@ -2,7 +2,7 @@
   (:use :cl)
   (:use-reexport :lem/directory-mode/commands)
   (:use-reexport :lem/directory-mode/mode)
-  (:import-from :lem/directory-mode/buffer
+  (:import-from :lem/directory-mode/internal
                 :*default-sort-method*)
   (:export :*default-sort-method*
            :*directory-mode-keymap*))
@@ -11,4 +11,4 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (sb-ext:lock-package :lem/directory-mode))
 
-(setf lem:*find-directory-function* 'lem/directory-mode/buffer:directory-buffer)
+(setf lem:*find-directory-function* 'lem/directory-mode/internal:directory-buffer)

src/ext/filer.lisp

@@ -89,10 +89,10 @@
 (defun insert-item (point item)
   (with-point ((start point))
     (back-to-indentation start)
-    (lem/directory-mode/buffer::insert-icon point (item-pathname item))
+    (lem/directory-mode/internal::insert-icon point (item-pathname item))
     (insert-string point
                    (item-content item)
-                   :attribute (lem/directory-mode/buffer::get-file-attribute (item-pathname item)))
+                   :attribute (lem/directory-mode/internal::get-file-attribute (item-pathname item)))
     (put-text-property start point :item item)
     (lem-core::set-clickable start
                              point