diff options
| -rw-r--r-- | eshell-conf.el | 98 |
1 files changed, 98 insertions, 0 deletions
diff --git a/eshell-conf.el b/eshell-conf.el index 2e00cd5..c8c2605 100644 --- a/eshell-conf.el +++ b/eshell-conf.el @@ -532,6 +532,104 @@ This can preserve the original sorting method." (advice-add #'eshell-ls-sort-entries :around #'durand-eshell-ls-sort-entries) +;;; Custom command 'fs' + +;; REVIEW: Not needed? + +;; (defun eshell/fs (&rest args) +;; "Implementation of `fs'. +;; See `eshell-fs' for the actual functionality and for the format +;; of ARGS." +;; (eshell-eval-using-options +;; "fs" args +;; '((?r "reverse" 'reverse sort-mode "Sort from the smallest to the biggest. Overrides '-s'") +;; (?s "sort" nil sort-mode "Sort from the biggest to the smallest") +;; (?h "help" nil nil "Print this help message.") +;; :usage "[-hrs] [files]" +;; :parse-leading-options-only) +;; (eshell-fs sort-mode args))) + +;; (defun eshell-fs (sort-mode files) +;; "Display a summary of sizes of FILES. +;; SORT-MODE controls how to sort the display: +;; - nil: No sorting +;; - t: Sort according to sizes from the biggest down +;; - other: Sort according to sizes from the smallest up + +;; FILES is a list of files to display sizes for. If FILES is nil, +;; display the size of the current directory." +;; (message "sort-mode: %S" sort-mode) +;; (message "files: %S" files) +;; nil +;; ) + +;; Fix Lisp du + +;; (defvar block-size) +;; (defvar by-bytes) +;; (defvar dereference-links) +;; (defvar grand-total) +;; (defvar human-readable) +;; (defvar max-depth) +;; (defvar only-one-filesystem) +;; (defvar show-all) + +;; (defun durand-eshell/du (&rest args) +;; "Implementation of \"du\" in Lisp, passing ARGS. +;; Do not call external du unconditionally." +;; (setq args (if args +;; (eshell-stringify-list (flatten-tree args)) +;; '("."))) +;; (eshell-eval-using-options +;; "du" args +;; '((?a "all" nil show-all +;; "write counts for all files, not just directories") +;; (nil "block-size" t block-size +;; "use SIZE-byte blocks (i.e., --block-size SIZE)") +;; (?b "bytes" nil by-bytes +;; "print size in bytes") +;; (?c "total" nil grand-total +;; "produce a grand total") +;; (?d "max-depth" t max-depth +;; "display data only this many levels of data") +;; (?h "human-readable" 1024 human-readable +;; "print sizes in human readable format") +;; (?H "is" 1000 human-readable +;; "likewise, but use powers of 1000 not 1024") +;; (?k "kilobytes" 1024 block-size +;; "like --block-size 1024") +;; (?L "dereference" nil dereference-links +;; "dereference all symbolic links") +;; (?m "megabytes" 1048576 block-size +;; "like --block-size 1048576") +;; (?s "summarize" 0 max-depth +;; "display only a total for each argument") +;; (?x "one-file-system" nil only-one-filesystem +;; "skip directories on different filesystems") +;; (nil "help" nil nil +;; "show this usage screen") +;; :external "du" +;; :usage "[OPTION]... FILE... +;; Summarize disk usage of each FILE, recursively for directories.") +;; (unless by-bytes +;; (setq block-size (or block-size 1024))) +;; (if (and max-depth (stringp max-depth)) +;; (setq max-depth (string-to-number max-depth))) +;; ;; filesystem support means nothing under Windows +;; (if (eshell-under-windows-p) +;; (setq only-one-filesystem nil)) +;; (let ((size 0.0)) +;; (while args +;; (if only-one-filesystem +;; (setq only-one-filesystem +;; (file-attribute-device-number (eshell-file-attributes +;; (file-name-as-directory (car args)))))) +;; (setq size (+ size (eshell-du-sum-directory +;; (directory-file-name (car args)) 0))) +;; (setq args (cdr args))) +;; (if grand-total +;; (eshell-print (concat (eshell-du-size-string size) +;; "total\n")))))) ;;; Integration with Tramp |