acdw
/
gemini-write
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Replace some instances of if with when

This commit is contained in:
Alex Schroeder 2021-01-15 00:17:38 +01:00
parent e975fa032d
commit fd76095f83
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
gemini-write.el
View File

@ -132,18 +132,16 @@ used when writing Gemini pages."
"Get a token from `elpher-gemini-tokens', or `auth-sources' if `gemini-write-use-auth-source' is enabled."
(if-let (token (cdr (assoc host elpher-gemini-tokens)))
token
(if gemini-write-use-auth-source
(let ((info (nth 0 (auth-source-search
:host host
:port (or port 1965)
:require '(:secret)))))
(if info
(let ((secret (plist-get info :secret)))
(if (functionp secret)
(funcall secret)
secret))
nil))
nil)))
(when gemini-write-use-auth-source
(let ((info (nth 0 (auth-source-search
:host host
:port (or port 1965)
:require '(:secret)))))
(when info
(let ((secret (plist-get info :secret)))
(if (functionp secret)
(funcall secret)
secret)))))))
(defun gemini-write ()
"Save the current Gemini buffer.