[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/disk-usage 2d6fe3c 08/48: Resolve directory statically
From: |
Stefan Monnier |
Subject: |
[elpa] externals/disk-usage 2d6fe3c 08/48: Resolve directory statically in button action |
Date: |
Tue, 19 Feb 2019 07:59:58 -0500 (EST) |
branch: externals/disk-usage
commit 2d6fe3c2d25dfd5feed51a24db8e7d0aa07ab7c7
Author: Pierre Neidhardt <address@hidden>
Commit: Pierre Neidhardt <address@hidden>
Resolve directory statically in button action
---
disk-usage.el | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/disk-usage.el b/disk-usage.el
index 4fd0a2e..f801a7e 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -163,10 +163,14 @@ This is slow but does not require any external process."
(let ((listing (disk-usage--list directory)))
(disk-usage--set-format (disk-usage--total listing))
(setq tabulated-list-entries
- (mapcar (lambda (e) (list nil (vector (number-to-string (aref e 0))
- (if (file-directory-p (aref e
1))
- (cons (aref e 1) (list
'action (lambda (s) (disk-usage (button-label s)))))
- (aref e 1)))))
+ (mapcar (lambda (e)
+ (list nil (vector (number-to-string (aref e 0))
+ (if (file-directory-p (aref e 1))
+ (cons (aref e 1)
+ (list 'action
+ (lambda (_)
+ (disk-usage (aref e
1)))))
+ (aref e 1)))))
listing))))
(defun disk-usage--sort-size-< (a b)
- [elpa] externals/disk-usage 19103ba 42/48: Add unmark-at-point, (continued)
- [elpa] externals/disk-usage 19103ba 42/48: Add unmark-at-point, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 3357ba9 32/48: Include screenshots, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 2626642 15/48: Remove spurious "evil" keyword, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage eefa57f 28/48: Turn disk-usage-size-format-function into a defcustom, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage af22dd4 13/48: Display symlinks when not displaying full paths, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 3ffaf8e 14/48: Fix header display, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 7fe5f1b 40/48: Fix keymap setup in disk-usage-by-types-mode, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage d959b7b 36/48: Display % column and sort types by total size, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 3bbb09a 44/48: Right-align columns with units, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 441abf9 20/48: Add disk-usage-by-types, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 2d6fe3c 08/48: Resolve directory statically in button action,
Stefan Monnier <=
- [elpa] externals/disk-usage 5998d42 41/48: Version 1.0.0, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 21b5749 38/48: Add disk-usage-files, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage e44979a 45/48: Version 1.1.0, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 696dd5c2 17/48: Fix free references, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage c55d478 34/48: Document modes and prefix argument, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 3af5aa8 25/48: Reset hash table properly, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 01561b5 30/48: Implement marking and deletion, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage ae7ba9c 39/48: Fix missing "s" in type-info-names, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage d8d1643 35/48: Document file deletion, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 342d381 18/48: Add recursive listings, Stefan Monnier, 2019/02/19