[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/disk-usage 6846590 15/26: Add 1-hour filter
From: |
Pierre Neidhardt |
Subject: |
[elpa] externals/disk-usage 6846590 15/26: Add 1-hour filter |
Date: |
Tue, 26 Feb 2019 03:06:38 -0500 (EST) |
branch: externals/disk-usage
commit 684659078d16cfcc47e311dc53cd99a01f57ebd6
Author: Pierre Neidhardt <address@hidden>
Commit: Pierre Neidhardt <address@hidden>
Add 1-hour filter
---
disk-usage.el | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/disk-usage.el b/disk-usage.el
index 1900148..22ed325 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -130,6 +130,16 @@
(interactive)
(clrhash disk-usage--cache))
+(defun disk-usage-filter-1-hour (_path attributes &optional seconds)
+ (if (null (file-attribute-type attributes))
+ ;; Regular files
+ (time-less-p
+ (time-since
+ (file-attribute-modification-time attributes))
+ (seconds-to-time (or seconds (* 60 60))))
+ ;; Always keep directories and symlinks.
+ t))
+
(defun disk-usage-filter-1-day (_path attributes &optional days)
(if (null (file-attribute-type attributes))
;; Regular files
@@ -156,7 +166,8 @@
(defun disk-usage-filter-10M-size (path attributes)
(disk-usage-filter-1M-size path attributes (* 10 1024 1024)))
-(defcustom disk-usage-available-filters '(disk-usage-filter-1-day
+(defcustom disk-usage-available-filters '(disk-usage-filter-1-hour
+ disk-usage-filter-1-day
disk-usage-filter-1-week
disk-usage-filter-4-week
disk-usage-filter-1M-size
- [elpa] externals/disk-usage 349719b 11/26: Display symlink targets, (continued)
- [elpa] externals/disk-usage 349719b 11/26: Display symlink targets, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage c7f4597 16/26: Customize default filters, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage ea2bcd2 23/26: Set du-command dynamically for BSD/macOS and make command settings customizable, Pierre Neidhardt, 2019/02/26
- [elpa] externals/disk-usage 936b73d 06/26: Actually use disk-usage--find-command, Pierre Neidhardt, 2019/02/26
- [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 <=
- [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, 2019/02/26
- [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