blob: 06098d31e2fc19939af105eb4f84810a17c4d488 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
;;; wasp-auth --- SSH-based authentication -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(require 'f)
(defcustom w/auth-sign-process "wasp-auth-sign"
"Name of process for signing messages."
:type '(string)
:group 'wasp)
(defcustom w/auth-error-buffer " *wasp-auth-error*"
"Name of buffer used to store authentication errors."
:type '(string)
:group 'wasp)
(defun w/auth-sign (msg k)
"Sign MSG using ~/.ssh/id_ed25519 and pass the signature to K."
(let* ((buf (generate-new-buffer " *wasp-auth-sign*"))
(proc
(make-process
:name w/auth-sign-process
:buffer buf
:stderr (get-buffer-create w/auth-error-buffer)
:command
`("ssh-keygen" "-Y" "sign" "-f" ,(f-canonical "~/.ssh/id_ed25519") "-n" "file" "-")
:sentinel
(lambda (_ _)
(let ((sig (with-current-buffer buf (buffer-string))))
(kill-buffer buf)
(funcall k sig))))))
(process-send-string proc msg)
(process-send-string proc "\n")
(process-send-eof proc)))
(provide 'wasp-auth)
;;; wasp-auth.el ends here
|
