diff options
| author | Alex Kost <alezost@gmail.com> | 2017-06-01 21:53:24 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2017-06-01 21:53:24 +0300 |
| commit | e5900cc04b72b1bcb7526cf628f3923344683328 (patch) | |
| tree | 101a05dc54ce4d31effa1797a88eb0192c2b255f | |
| parent | elisp/command: Replace "--no-grub" with "--no-bootloader" (diff) | |
| download | guix-wigust-e5900cc04b72b1bcb7526cf628f3923344683328.tar.gz | |
elisp/ui-system-generation: Display canonical file name
* elisp/guix-ui-system-generation.el
(guix-system-generation-info-insert-file-name): New procedure.
(guix-system-generation-info-format): Use it.
| -rw-r--r-- | elisp/guix-ui-system-generation.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/elisp/guix-ui-system-generation.el b/elisp/guix-ui-system-generation.el index 091c818..68dbe0a 100644 --- a/elisp/guix-ui-system-generation.el +++ b/elisp/guix-ui-system-generation.el @@ -108,7 +108,7 @@ SEARCH-VALUES." (prev-number format guix-generation-info-insert-previous) (current format guix-generation-info-insert-current) (number-of-packages format guix-generation-info-insert-packages) - (file-name format (format bui-file)) + (file-name simple guix-system-generation-info-insert-file-name) (time format (time)) (root-device format (format)) (store-device format (format)) @@ -148,6 +148,13 @@ SEARCH-VALUES." (guix-pretty-print-buffer buffer) (switch-to-buffer buffer))) +(defun guix-system-generation-info-insert-file-name (file-name &optional _) + "Insert generation FILE-NAME at point." + (bui-info-insert-value-indent + (list file-name + (file-truename file-name)) + 'bui-file)) + (defun guix-system-generation-info-insert-shepherd (config &optional _) "Insert Shepherd CONFIG file name and 'Pretty print' button at point." (bui-insert-action-button |