commit f3e21ba9cdaec50f2a99f8d33e68204c694c7ac7 parent e78d3c99640aa3c4f052b522a7cfc8ce8caf0d6f Author: Vineet Kumar <git@vineetk.net> Date: Fri, 22 May 2026 15:54:20 -0400 fix some stuff Diffstat:
| M | kasi.el | | | 38 | +++++++++++++++++++++++++++----------- |
1 file changed, 27 insertions(+), 11 deletions(-)
diff --git a/kasi.el b/kasi.el @@ -36,14 +36,24 @@ :type '(string) :group 'kasi) +;;;###autoload +(defcustom kasi-extension ".age" + "Default file extension for creating kasi secrets." + :type '(string) + :group 'kasi) + (defvar kasi-version "1.0") +(defun kasi-filename-short (file) + "Returns shortened name of filename." + (file-name-sans-extension + (file-relative-name file kasi-dir))) + (defun kasi-filename () - "Returns full filename of the secret file." + "Returns full filename of the secret file." (let* ((filenames (file-expand-wildcards (format "%s/*/*" kasi-dir))) (options (mapcar (lambda (f) - (file-name-sans-extension - (file-relative-name f kasi-dir))) + (kasi-filename-short f)) filenames)) (selected (completing-read "File: " options)) (file (elt filenames (seq-position options selected)))) @@ -57,18 +67,22 @@ (defun kasi-totp (file) "Returns current TOTP code from secret file." - (let ((totp-code (kasi-get file 'totp))) + (let* ((totp-secret (kasi-get file 'totp)) + (totp-code (totp (base32-hex-decode totp-secret)))) (kill-new totp-code) - (message "TOTP copied to kill ring"))) + (message (format "TOTP %s for %s copied to kill ring" + totp-code + (kasi-filename-short file))))) ;;;###autoload (defun kasi (command file) "Invoke the kasi secret manager." - (interactive (list (intern (completing-read "Command: " '(edit - password - username - email - totp))) + (interactive (list (intern (completing-read "Command: " + '(edit + password + username + email + totp))) (kasi-filename))) (pcase command ('edit (find-file-other-window file)) @@ -76,6 +90,8 @@ ((or 'password 'username 'email) (progn (kill-new (kasi-get file command)) - (message (format "Copied %s to kill ring." command)))))) + (message (format "Copied %s for %s to kill ring." + command + (kasi-filename-short file))))))) (provide 'kasi)