CL-Sack is a Common Lisp library for making and manipulating Sack files.
| Revision | f54ebcdaa28c51825fe374ba7790c401076ef245 (tree) |
|---|---|
| Time | 2019-02-15 18:02:10 |
| Author | Alexa Jones-Gonzales <alexa@part...> |
| Commiter | Alexa Jones-Gonzales |
Added a macro to italicize text, and a function to convert a number
into a human-readable size.
gsacked-src/globals.lisp (diff) gsacked-src/util.lisp (diff)| @@ -26,3 +26,7 @@ | ||
| 26 | 26 | |
| 27 | 27 | (declaim (type (or argparser:parser null) *args*)) |
| 28 | 28 | (defparameter *args* nil) |
| 29 | + | |
| 30 | +(alexandria:define-constant +size-suffixes+ | |
| 31 | + '("Bytes" "KiB" "MiB" "GiB" "TiB" "PiB" "EiB" "ZiB" "YiB") | |
| 32 | + :test #'equalp) |
| @@ -38,3 +38,18 @@ | ||
| 38 | 38 | (with-text-face (,real-stream :bold) |
| 39 | 39 | (format ,real-stream "Error: "))) |
| 40 | 40 | (format ,real-stream ,msg ,@fmt-args)))) |
| 41 | + | |
| 42 | +(defmacro italicized ((stream) text) | |
| 43 | + `(with-text-face (,stream :italic) | |
| 44 | + (write-string ,text ,stream))) | |
| 45 | + | |
| 46 | +(defun bytes->pretty-size (bytes) | |
| 47 | + (let* ((mag (if (> bytes 0) | |
| 48 | + (truncate (log bytes 1024)) | |
| 49 | + 0)) | |
| 50 | + (human-size (if (> bytes 0) | |
| 51 | + (float (/ bytes (ash 1 (* mag 10)))) | |
| 52 | + 0))) | |
| 53 | + (if (= mag 0) | |
| 54 | + (format nil "~:d ~a" human-size (nth mag +size-suffixes+)) | |
| 55 | + (format nil "~,2f ~a" human-size (nth mag +size-suffixes+))))) |
Fork