diff options
| author | Alex Kost <alezost@gmail.com> | 2014-10-05 12:31:23 +0400 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2014-10-06 00:02:46 +0400 |
| commit | cb6a5c71d875fff6f1c3b2bd1e43c31cc7cfe1ac (patch) | |
| tree | 8413cb2e9398785ea4e886ac087bc8bb80ca1c03 /emacs/guix-main.scm | |
| parent | d3d337d2d8f7152cb9ff3724f1cf240ce5ea5be2 (diff) | |
emacs: Add support for deleting generations.
* doc/emacs.texi (emacs List buffer): Mention new key bindings.
* emacs/guix-base.el (guix-delete-generations): New procedure.
* emacs/guix-info.el (guix-generation-info-insert-number): Use it.
* emacs/guix-list.el (guix-generation-list-mark-delete,
guix-generation-list-execute): New procedures.
* emacs/guix-main.scm (delete-generations*): New procedure.
Diffstat (limited to 'emacs/guix-main.scm')
| -rw-r--r-- | emacs/guix-main.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/emacs/guix-main.scm b/emacs/guix-main.scm index 026a9e98e7..7dbfa61b6f 100644 --- a/emacs/guix-main.scm +++ b/emacs/guix-main.scm @@ -815,3 +815,9 @@ OUTPUTS is a list of package outputs (may be an empty list)." "~a packages in profile~%" count) count))))))))) + +(define (delete-generations* profile generations) + "Delete GENERATIONS from PROFILE. +GENERATIONS is a list of generation numbers." + (with-store store + (delete-generations store profile generations))) |