Merge pull request #851 from Sasanidas/main

Add modified buffers information when exit Lem

Author: cxxxr

src/base/buffers.lisp

@@ -21,6 +21,12 @@
                (buffer-modified-p buffer)))
         (buffer-list)))
 
+(defun modified-buffers ()
+  (remove-if (lambda (buffer)
+               (not (and (buffer-filename buffer)
+                         (buffer-modified-p buffer))))
+             (buffer-list)))
+
 (defun get-buffer (buffer-or-name)
   "`buffer-or-name`がバッファならそのまま返し、
 文字列ならその名前のバッファを返します。"

src/base/package.lisp

@@ -128,6 +128,7 @@
    :kill-buffer-hook
    :buffer-list
    :any-modified-buffer-p
+   :modified-buffers
    :get-buffer
    :get-or-create-buffer
    :unique-buffer-name

src/commands/other.lisp

@@ -36,10 +36,16 @@
 
 (define-command exit-lem (&optional (ask t)) ()
   "Ask for modified buffers before exiting lem."
-  (when (or (null ask)
-            (not (any-modified-buffer-p))
-            (prompt-for-y-or-n-p "Modified buffers exist. Leave anyway"))
-    (exit-editor)))
+  (let ((modified-buffers
+          (mapcar #'buffer-name (modified-buffers))))
+    (and (or
+          (null ask)
+          (not modified-buffers)
+          (prompt-for-y-or-n-p
+           (format nil
+                   "Modified buffers exist:~%~{~a~%~}Leave anyway?"
+                   modified-buffers)))
+         (exit-editor))))
 
 (define-command quick-exit () ()
   "Exit the lem job and kill it."