add create command to generate new secret files

closer in parity to kasi.sh now

1 files changed, 34 insertions, 3 deletions

diff --git a/kasi.el b/kasi.el
index 1031afd..4b6bd19 100644
--- a/kasi.el
+++ b/kasi.el
@@ -42,6 +42,17 @@
   :type '(string)
   :group 'kasi)
 
+;;;###autoload
+(defcustom kasi-template "\
+; -*- mode: lisp -*-
+((password \"%s\")
+ (username \"%s\")
+ (email \"\")
+ (totp \"\")
+ (extra-notes \"\"))\n"
+  "Template that gets filled in to newly created secret files.
+Two %s are needed for password and username for now.")
+
 (defvar kasi-version "1.0")
 
 (defun kasi--filename-short (file)
@@ -93,32 +104,52 @@ Uses /dev/urandom for cryptographic security."
                                       charset-len))))))
      result))
 
+(defun kasi--edit (file)
+  "Edits secret file."
+  (find-file-other-window file))
+
+(defun kasi--create (file)
+  "Creates secret file."
+  (let* ((filename (format "%s/%s%s"
+                           kasi-dir file kasi-extension)))
+    (mkdir (format "%s/%s"
+                   kasi-dir
+                   (car (f-split file)))
+           t)
+    (with-temp-file filename
+      (insert (format kasi-template
+                      (kasi-generate-password)
+                      (kasi-generate-username))))
+    (kasi--edit filename)))
+
 ;;;###autoload
 (defun kasi-generate-password (&optional length)
   "Generate a random password of LENGTH (default 32)."
   (interactive "P")
   (let ((charset "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789\"!#$%&'()*+,-./:;<=>?@[]^_`{|}~"))
-    (message (kasi--random-string (or length 32) charset))))
+    (message "%s" (kasi--random-string (or length 32) charset))))
 
 ;;;###autoload
 (defun kasi-generate-username (&optional length)
   "Generate a random username of LENGTH (default 12)."
   (interactive "P")
   (let ((charset "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"))
-    (message (kasi--random-string (or length 12) charset))))
+    (message "%s" (kasi--random-string (or length 12) charset))))
 
 ;;;###autoload
 (defun kasi (command file)
   "Invoke the kasi secret manager."
   (interactive (list (intern (completing-read "Command: "
                                               '(edit
+                                                create
                                                 password
                                                 username
                                                 email
                                                 totp)))
                      (kasi--filename)))
   (pcase command
-    ('edit (find-file-other-window file))
+    ('edit (kasi--edit file))
+    ('create (kasi--create file))
     ('totp (kasi--totp file))
     ((or 'password 'username 'email)
      (progn