found out concat is the analogue to scheme's string-append, not format

1 files changed, 5 insertions, 6 deletions

diff --git a/kasi.el b/kasi.el
index eed9cb1..d4c884b 100644
--- a/kasi.el
+++ b/kasi.el
@@ -64,7 +64,7 @@ Two %s are needed for password and username for now."
 
 (defun kasi--filename ()
   "Returns full filename of the secret file."
-  (let* ((filenames (file-expand-wildcards (format "%s/*/*" kasi-dir)))
+  (let* ((filenames (file-expand-wildcards (concat kasi-dir "/*/*")))
          (options (mapcar (lambda (f)
                             (kasi--filename-short f))
                           filenames))
@@ -81,7 +81,7 @@ Two %s are needed for password and username for now."
 
 (defun kasi-get (file elem)
   "Prints decrypted element. Wrapper around kasi--get for non-Emacs use."
-  (kasi--get (format "%s/%s%s" kasi-dir file kasi-extension) elem))
+  (kasi--get (concat kasi-dir "/" file kasi-extension) elem))
 
 (defun kasi--totp (file)
   "Returns current TOTP code from secret file."
@@ -118,10 +118,9 @@ Uses /dev/urandom for cryptographic security."
 
 (defun kasi--create (file)
   "Creates secret file."
-  (let* ((filename (format "%s/%s%s"
-                           kasi-dir file kasi-extension)))
-    (mkdir (format "%s/%s"
-                   kasi-dir
+  (let* ((filename (concat kasi-dir "/"
+                           file kasi-extension)))
+    (mkdir (format kasi-dir "/"
                    (car (split-string file "/")))
            t)
     (with-temp-file filename