kasi.el

commit 45296d1f7688cf00140b488d0825c8c8685034d7
parent 439ca14932d7b3aafe3f3cb07b4551a1f4443bad
Author: Vineet Kumar <git@vineetk.net>
Date:   Sat, 23 May 2026 23:19:57 -0400

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

Diffstat:
M
kasi.el
 | 
11
+++++------

1 file changed, 5 insertions(+), 6 deletions(-)
diff --git 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