1;;; passage.el --- -*- lexical-binding: t -*-
 2;;; Commentary:
 3;; Code:
 4(defvar passage-program "passage"
 5  "The path to the `passage` executable.")
 6
 7;;;###autoload
 8(defun passage-get (password-name)
 9  "Return the password for PASSWORD-NAME from `passage show`."
10  (let ((password (shell-command-to-string (concat passage-program " show " (shell-quote-argument password-name)))))
11    (string-trim password))) ; Trim whitespace here
12
13(provide 'passage)
14;;; passage.el ends here