SLY: Add ambrevar/delete-lisp-image-dump.
parent
7862e4b76a
commit
cef48f7d0c
|
@ -12,6 +12,23 @@
|
||||||
"USER")
|
"USER")
|
||||||
preserve-vars))))
|
preserve-vars))))
|
||||||
|
|
||||||
|
(defun ambrevar/delete-lisp-image-dump ()
|
||||||
|
"Delete SLY current connection image dump.
|
||||||
|
This dump is expected to be generated by `lisp-repl-core-dumper'."
|
||||||
|
(interactive)
|
||||||
|
(let* ((pid (process-id (sly-inferior-process (sly-current-connection))))
|
||||||
|
(args (alist-get 'args (process-attributes pid)))
|
||||||
|
(command (car (split-string (alist-get 'args (process-attributes pid))))))
|
||||||
|
(if (and (string= "image"
|
||||||
|
(file-name-extension command))
|
||||||
|
(string= (file-name-directory command)
|
||||||
|
(expand-file-name "~/.cache/lisp-repl-core-directory/")))
|
||||||
|
(when (yes-or-no-p (format "Delete %s?" command))
|
||||||
|
(let ((delete-by-moving-to-trash nil))
|
||||||
|
(delete-file command)
|
||||||
|
(message "%S deleted." command)))
|
||||||
|
(message "%S is not a Lisp image dump." command))))
|
||||||
|
|
||||||
(defun ambrevar/sbcl-for-nyxt (&optional refresh) ;; TODO: Run it in a container?
|
(defun ambrevar/sbcl-for-nyxt (&optional refresh) ;; TODO: Run it in a container?
|
||||||
"Fast, pure Guix environment for Nyxt development.
|
"Fast, pure Guix environment for Nyxt development.
|
||||||
If REFRESH is non-nil, rebuild the environment."
|
If REFRESH is non-nil, rebuild the environment."
|
||||||
|
|
Loading…
Reference in New Issue