aboutsummaryrefslogtreecommitdiff
path: root/emacs/guix-list.el
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2016-01-21 10:59:50 +0300
committerAlex Kost <alezost@gmail.com>2016-01-25 22:11:47 +0300
commit0a2a2b3387199c374c23912c0acfdf4156a0a84f (patch)
tree8cab97d3c18eabf84f657542a833e17ea7953ad6 /emacs/guix-list.el
parent8581f4c19558199466940bb7cea412fce9a1cfee (diff)
downloadguix-0a2a2b3387199c374c23912c0acfdf4156a0a84f.tar
guix-0a2a2b3387199c374c23912c0acfdf4156a0a84f.tar.gz
emacs: Rename 'file-path' to 'file-name'.
* emacs/guix-info.el (guix-info-file-path): Rename to... (guix-info-file-name): ... this. * emacs/guix-list.el (guix-list-file-path): Rename to... (guix-list-file-name): ... this. (guix-list-get-file-path): Rename to... (guix-list-get-file-name): ... this. * emacs/guix-ui-generation.el (guix-generation-list-format): Adjust accordingly. * emacs/guix-ui-system-generation.el (guix-system-generation-list-format): Likewise. * NEWS: Mention faces renaming.
Diffstat (limited to 'emacs/guix-list.el')
-rw-r--r--emacs/guix-list.el14
1 files changed, 7 insertions, 7 deletions
diff --git a/emacs/guix-list.el b/emacs/guix-list.el
index 7e57f42cb2..51eb106d82 100644
--- a/emacs/guix-list.el
+++ b/emacs/guix-list.el
@@ -33,9 +33,9 @@
(guix-define-buffer-type list)
-(defface guix-list-file-path
- '((t :inherit guix-info-file-path))
- "Face used for file paths."
+(defface guix-list-file-name
+ '((t :inherit guix-info-file-name))
+ "Face used for file names."
:group 'guix-list-faces)
(defface guix-list-time
@@ -214,10 +214,10 @@ VAL may be nil."
(guix-get-string (guix-get-time-string seconds)
'guix-list-time))
-(defun guix-list-get-file-path (path &optional _)
- "Return PATH button specification for `tabulated-list-entries'."
- (list path
- 'face 'guix-list-file-path
+(defun guix-list-get-file-name (file-name &optional _)
+ "Return FILE-NAME button specification for `tabulated-list-entries'."
+ (list file-name
+ 'face 'guix-list-file-name
'action (lambda (btn) (find-file (button-label btn)))
'follow-link t
'help-echo "Find file"))