add file-as-base64 function

2 files changed, 7 insertions, 1 deletions

diff --git a/org-ckons-file.asd b/org-ckons-file.asd
index c5467f1..9504761 100644
--- a/org-ckons-file.asd
+++ b/org-ckons-file.asd
@@ -17,7 +17,7 @@
        :depends-on ,(eval depends-on)
        :components ,components))
 
-(defparameter *quicklisp-packages* '())
+(defparameter *quicklisp-packages* '(cl-base64))
 (defparameter *asdf-packages* '(org-ckons-core org-ckons-condition))
 (defparameter *all-packages* (append *quicklisp-packages* *asdf-packages*))
 
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))))