Allow input of base45 decoder to also contain lower-case letters

1 year ago · f52f48273a
parent 0edfe4406c
commit f52f48273a
1 changed files with 3 additions and 1 deletions
--- a/site-lisp/db-utils.el
+++ b/site-lisp/db-utils.el
@ -518,7 +518,9 @@ Does not replace CRLF with CRCRLF, and so on."
  (when (= 1 (% (length str) 3))
    (user-error "Input string has invalid length for base45 decoding; must be 0 or 2 modulo 3"))

-  (let* ((list-of-blocks (->> str
+  (let* ((str (s-upcase str))
+
+         (list-of-blocks (->> str
                              db/base45--string-to-bytes
                              (-partition-all 3)))