[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/disk-usage bcae407 21/26: Replace (delq (mapcar ...)) w
From: |
Pierre Neidhardt |
Subject: |
[elpa] externals/disk-usage bcae407 21/26: Replace (delq (mapcar ...)) with cl-loop |
Date: |
Tue, 26 Feb 2019 03:06:40 -0500 (EST) |
branch: externals/disk-usage
commit bcae4074f63527844b8d24c714da1f0caedccb28
Author: Pierre Neidhardt <address@hidden>
Commit: Pierre Neidhardt <address@hidden>
Replace (delq (mapcar ...)) with cl-loop
---
disk-usage.el | 24 +++++++++++-------------
1 file changed, 11 insertions(+), 13 deletions(-)
diff --git a/disk-usage.el b/disk-usage.el
index 94c9da7..01667f2 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -256,18 +256,7 @@ See `disk-usage-add-filters' and
`disk-usage-remove-filters'.")
"This is the equivalent of running the shell command
$ find . -type f -exec du -sb {} +"
(setq directory (or directory default-directory))
- (delq
- nil
- (mapcar (lambda (s)
- (let* ((pair (split-string s "\t"))
- (name (cadr pair))
- (attributes (file-attributes name)))
- (when (cl-loop for filter in disk-usage-filters
- always (funcall filter name attributes))
- (disk-usage--file-info-make
- :name name
- :size (string-to-number (cl-first pair))))))
- (split-string (with-temp-buffer
+ (let ((pair-strings (split-string (with-temp-buffer
(process-file disk-usage--find-command nil '(t nil)
nil
directory
"-type" "f"
@@ -275,7 +264,16 @@ $ find . -type f -exec du -sb {} +"
disk-usage--du-command
disk-usage--du-args "{}" "+")
(buffer-string))
- "\n" 'omit-nulls))))
+ "\n" 'omit-nulls)))
+ (cl-loop for pair-string in pair-strings
+ for pair = (split-string pair-string "\t")
+ for name = (cadr pair)
+ for attributes = (file-attributes name)
+ when (cl-loop for filter in disk-usage-filters
+ always (funcall filter name attributes))
+ collect (disk-usage--file-info-make
+ :name name
+ :size (string-to-number (cl-first pair))))))
(defcustom disk-usage-list-function #'disk-usage--list
"Function that returns a list of `disk-usage--file-info'.
- [elpa] externals/disk-usage 20ed51e 13/26: Fix mark not being set, (continued)
- [elpa] externals/disk-usage 20ed51e 13/26: Fix mark not being set, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 284c142 24/26: Inherit from error/warning faces instead of defining foreground colors, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 7fd6e43 19/26: Add filters to recursive listings, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage cec7fc6 02/26: Require Emacs 26 for file-attribute-* functions, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 2874158 03/26: Add TODOs about file-notify, date filtering, formatting and process-file, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage c44cc97 01/26: Set default for directory-size-function dynamically, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 6846590 15/26: Add 1-hour filter, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 1d85ea5 10/26: Fix missing total-size in header, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 0feb208 18/26: Message instead of warning when no filters, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage aa7d267 17/26: Document filters, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage bcae407 21/26: Replace (delq (mapcar ...)) with cl-loop,
Pierre Neidhardt <=
- [elpa] externals/disk-usage 54d4aee 25/26: Propertize size, percent and children columns, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 8bf5d5c 08/26: Break some long lines, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 0fff6a8 12/26: Fix 'nil' children issue on inaccessible directories, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage a53be8d 26/26: Version 1.2.0, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 6a01954 05/26: Rename disk-usage--path-at-point -> disk-usage--file-name-at-point, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 364c62b 20/26: Bind "a" and "A" to filter commands in disk-usage-by-types, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 6a214bc 09/26: Add many docstrings, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 488ddc8 14/26: Add support for filters, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 7708379 07/26: Use process-file instead of call-process, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 7b14829 22/26: Normalize filter names, Pierre Neidhardt, 2019/02/26