Emacs/Guix: Define guix-generation-list-diff-this
parent
560be1d4ba
commit
45f725e5dc
|
@ -29,4 +29,15 @@
|
||||||
(call-interactively 'debbugs-gnu)
|
(call-interactively 'debbugs-gnu)
|
||||||
(debbugs-gnu severities packages archivedp suppress tags))))
|
(debbugs-gnu severities packages archivedp suppress tags))))
|
||||||
|
|
||||||
|
(defun ambrevar/guix-generations-list-diff-this ()
|
||||||
|
"List guix-generation-list-diff but compare generation at point
|
||||||
|
with previous."
|
||||||
|
(interactive)
|
||||||
|
(let ((diff-fun #'guix-diff)
|
||||||
|
(gen-fun #'guix-profile-generation-packages-buffer))
|
||||||
|
(funcall diff-fun
|
||||||
|
(funcall gen-fun (1- (bui-list-current-id)))
|
||||||
|
(funcall gen-fun (bui-list-current-id)))))
|
||||||
|
(define-key guix-generation-list-mode-map "=" #'ambrevar/guix-generations-list-diff-this)
|
||||||
|
|
||||||
(provide 'init-guix)
|
(provide 'init-guix)
|
||||||
|
|
Loading…
Reference in New Issue