From 895bccda9e79d172935d1a99b99b4ed75e4b517c Mon Sep 17 00:00:00 2001 From: John Turner Date: Thu, 25 Aug 2022 22:58:11 -0400 Subject: setup ibuffer --- config/ibuffer/config-ibuffer-human-readable-size.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 config/ibuffer/config-ibuffer-human-readable-size.el (limited to 'config/ibuffer/config-ibuffer-human-readable-size.el') diff --git a/config/ibuffer/config-ibuffer-human-readable-size.el b/config/ibuffer/config-ibuffer-human-readable-size.el new file mode 100644 index 0000000..5cec3a9 --- /dev/null +++ b/config/ibuffer/config-ibuffer-human-readable-size.el @@ -0,0 +1,16 @@ +(define-ibuffer-column size-human-readable + (:name "Size" :inline t) + (let ((size (buffer-size))) + (cond + ((> size (expt 1000 4)) + (error "buffer is over 1TB large!")) + ((> size (expt 1000 3)) + (format "%sG" (/ size (expt 1000 3)))) + ((> size (expt 1000 2)) + (format "%sM" (/ size (expt 1000 2)))) + ((> size 1000) + (format "%sK" (/ size 1000))) + (t + (format "%sB" size))))) + +(provide 'config-ibuffer-human-readable-size) -- cgit v1.2.3