add repl-shortcut ls

lem-project · Jul 17, 2023 · 50fcc1b · 50fcc1b
1 parent 7fd92ea
commit 50fcc1b
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/modes/lisp-mode/repl.lisp b/modes/lisp-mode/repl.lisp
@@ -521,3 +521,9 @@
 (define-repl-shortcut quickload ()
   (let ((system (prompt-for-system "Quickload System: ")))
     (listener-eval (prin1-to-string `(ql:quickload ,system)))))
+
+(define-repl-shortcut ls ()
+  (insert-character (current-point) #\newline)
+  (lem/directory-mode::insert-directories-and-files (current-point)
+                                                    (buffer-directory (current-buffer)))
+  (lem/listener-mode:refresh-prompt (current-buffer)))