[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/disk-usage 19103ba 42/48: Add unmark-at-point
From: |
Stefan Monnier |
Subject: |
[elpa] externals/disk-usage 19103ba 42/48: Add unmark-at-point |
Date: |
Tue, 19 Feb 2019 08:00:05 -0500 (EST) |
branch: externals/disk-usage
commit 19103ba283fd05211735cad231f3f46cf5fc6ca0
Author: Pierre Neidhardt <address@hidden>
Commit: Pierre Neidhardt <address@hidden>
Add unmark-at-point
---
disk-usage.el | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/disk-usage.el b/disk-usage.el
index f0d1ac5..8397cfb 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -100,6 +100,7 @@
(define-key map "f" #'disk-usage-toggle-full-path)
(define-key map "R" #'disk-usage-toggle-recursive)
(define-key map "m" #'disk-usage-mark-at-point)
+ (define-key map "u" #'disk-usage-unmark-at-point)
(define-key map "x" #'disk-usage-delete-marked-files)
map)
"Local keymap for `disk-usage-mode' buffers.")
@@ -394,6 +395,12 @@ Also see `disk-usage-by-types-mode'."
(setf (disk-usage--file-info-marked file-info) t))
(tabulated-list-put-tag "*" 'advance))
+(defun disk-usage-unmark-at-point ()
+ (interactive)
+ (let ((file-info (tabulated-list-get-id (point))))
+ (setf (disk-usage--file-info-marked file-info) nil))
+ (tabulated-list-put-tag "" 'advance))
+
(defun disk-usage-delete-marked-files (&optional permanently)
"Delete marked files.
By default, files are moved to trash unless PERMANENTLY is
- [elpa] externals/disk-usage 00aa40a 10/48: Bind "S-<return>" to disk-usage-find-file-at-point, (continued)
- [elpa] externals/disk-usage 00aa40a 10/48: Bind "S-<return>" to disk-usage-find-file-at-point, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 4fc5cb3 33/48: Refresh cache with prefix argument, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 1949c82 37/48: Add disk-usage-by-types-here, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage f3895a3 27/48: Normalize some function names, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 0d4ce4b 12/48: Bind "^" and "<backspace>" to disk-usage-up, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage aa3996e 24/48: Default to disk-usage--list, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 90607dc 23/48: Use file-info structure instead of vectors, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage ed9dc23 11/48: Keep cursor on current entry when re-ordering buffer, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage dcfbd19 29/48: Rename sort functions, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 0c135ed 21/48: Handle inaccessible directories, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 19103ba 42/48: Add unmark-at-point,
Stefan Monnier <=
- [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, 2019/02/19