[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/05: emacs: Use full profile name in Guix buffer names.
From: |
Alex Kost |
Subject: |
02/05: emacs: Use full profile name in Guix buffer names. |
Date: |
Fri, 15 Apr 2016 08:34:08 +0000 |
alezost pushed a commit to branch master
in repository guix.
commit 117195c28d945e27ce47b0f52821e61284abb1d0
Author: Alex Kost <address@hidden>
Date: Sat Apr 2 21:19:13 2016 +0300
emacs: Use full profile name in Guix buffer names.
* emacs/guix-ui.el (guix-ui-buffer-name-default): Rename to...
(guix-ui-buffer-name-short): ... this.
(guix-ui-buffer-name-full): New procedure.
(guix-ui-buffer-name-function): Set it as default.
---
emacs/guix-ui.el | 11 ++++++++---
1 files changed, 8 insertions(+), 3 deletions(-)
diff --git a/emacs/guix-ui.el b/emacs/guix-ui.el
index 47773de..1b69631 100644
--- a/emacs/guix-ui.el
+++ b/emacs/guix-ui.el
@@ -105,10 +105,11 @@ If `all', update all Guix buffers (not recommended)."
:group 'guix-ui)
(defcustom guix-ui-buffer-name-function
- #'guix-ui-buffer-name-default
+ #'guix-ui-buffer-name-full
"Function used to define a name of a Guix buffer.
The function is called with 2 arguments: BASE-NAME and PROFILE."
- :type '(choice (function-item guix-ui-buffer-name-default)
+ :type '(choice (function-item guix-ui-buffer-name-full)
+ (function-item guix-ui-buffer-name-short)
(function-item guix-ui-buffer-name-simple)
(function :tag "Other function"))
:group 'guix-ui)
@@ -117,11 +118,15 @@ The function is called with 2 arguments: BASE-NAME and
PROFILE."
"Return BASE-NAME."
base-name)
-(defun guix-ui-buffer-name-default (base-name profile)
+(defun guix-ui-buffer-name-short (base-name profile)
"Return buffer name by appending BASE-NAME and PROFILE's base file name."
(guix-compose-buffer-name base-name
(file-name-base (directory-file-name profile))))
+(defun guix-ui-buffer-name-full (base-name profile)
+ "Return buffer name by appending BASE-NAME and PROFILE's full name."
+ (guix-compose-buffer-name base-name profile))
+
(defun guix-ui-buffer-name (base-name profile)
"Return Guix buffer name based on BASE-NAME and profile.
See `guix-ui-buffer-name-function' for details."