From 45296d1f7688cf00140b488d0825c8c8685034d7 Mon Sep 17 00:00:00 2001 From: Vineet Kumar Date: Sat, 23 May 2026 23:19:57 -0400 Subject: found out concat is the analogue to scheme's string-append, not format --- kasi.el | 11 +++++------ 1 file 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 -- cgit v1.2.3