From 49d5274a06a6a8bd7f05a5ed3d5679253d5a1f0a Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Sun, 26 May 2024 14:20:05 -0600 Subject: add file-as-base64 function --- src/file.lisp | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src') diff --git a/src/file.lisp b/src/file.lisp index 363cd08..8f0a389 100644 --- a/src/file.lisp +++ b/src/file.lisp @@ -70,6 +70,12 @@ line at a time." (format stream pattern byte)))) (string-downcase hex))) +(defun file-as-base64 (filename) + (let ((bytes (make-array '(0) :element-type '(unsigned-byte 8) :fill-pointer 0 :adjustable t))) + (loop for byte in (file-as-bytes filename) + do (vector-push-extend byte bytes)) + (cl-base64:usb8-array-to-base64-string bytes))) + (defun get-mime-type (filename) (car (org-ckons-core::shell-wrapper (format nil "file --mime-type ~a | awk -F': ' '{print $2}'" filename)))) -- cgit v1.3