From 47a1f0897313bbde85051e939af0fc8220feb175 Mon Sep 17 00:00:00 2001 From: "Jason A. Donenfeld" Date: Wed, 23 Apr 2014 22:12:57 +0200 Subject: emacs: import svend's tree --- contrib/emacs/.gitignore | 1 + contrib/emacs/Cask | 11 +++ contrib/emacs/README.md | 30 +++++++ contrib/emacs/password-store.el | 173 ++++++++++++++++++++++++++++++++++++++++ contrib/related-projects.txt | 3 - 5 files changed, 215 insertions(+), 3 deletions(-) create mode 100644 contrib/emacs/.gitignore create mode 100644 contrib/emacs/Cask create mode 100644 contrib/emacs/README.md create mode 100644 contrib/emacs/password-store.el diff --git a/contrib/emacs/.gitignore b/contrib/emacs/.gitignore new file mode 100644 index 0000000..d4691b7 --- /dev/null +++ b/contrib/emacs/.gitignore @@ -0,0 +1 @@ +.cask diff --git a/contrib/emacs/Cask b/contrib/emacs/Cask new file mode 100644 index 0000000..0b666e3 --- /dev/null +++ b/contrib/emacs/Cask @@ -0,0 +1,11 @@ +(source gnu) +(source melpa) + +(package-file "password-store.el") + +(development + (depends-on "f") + (depends-on "s") + (depends-on "ecukes") + (depends-on "ert-runner") + (depends-on "el-mock")) diff --git a/contrib/emacs/README.md b/contrib/emacs/README.md new file mode 100644 index 0000000..53e1357 --- /dev/null +++ b/contrib/emacs/README.md @@ -0,0 +1,30 @@ +# Emacs password-store + +This package provides functions for working with pass ("the standard +Unix password manager"). + +http://www.zx2c4.com/projects/password-store + +## Setup + +The pass application must be installed and set up. See the pass +website for instructions + +## Example usage + +Interactive: + + M-x password-store-insert + Password entry: example + Password: ........ + Confirm password: ........ + + M-x password-store-copy + Password entry: example + Copied example to the kill ring. Will clear in 45 seconds. + Password cleared. + +Lisp: + + (password-store-insert "example" "password") + (password-store-get "example") ; Returns "password" diff --git a/contrib/emacs/password-store.el b/contrib/emacs/password-store.el new file mode 100644 index 0000000..f95c9c7 --- /dev/null +++ b/contrib/emacs/password-store.el @@ -0,0 +1,173 @@ +;;; password-store.el --- Password store (pass) support + +;; Copyright (C) 2014 Svend Sorensen + +;; Author: Svend Sorensen +;; Version: 0.1 +;; Package-Requires: ((f "0.11.0") (s "1.9.0")) +;; Keywords: pass + +;; This file is not part of GNU Emacs. + +;; This program is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;; This package provides functions for working with pass ("the +;; standard Unix password manager"). +;; +;; http://www.zx2c4.com/projects/password-store/ + +;;; Code: + +(require 'f) +(require 's) + +(defvar pass-executable + (executable-find "pass") + "Pass executable.") + +(defconst password-store-password-length 8 + "Default password length.") + +(defconst password-store-timeout 45 + "Number of seconds to wait before clearing the password.") + +(defun password-store--run (&rest args) + "Run pass with ARGS. + +Returns the output on success, or outputs error message on +failure." + (with-temp-buffer + (let ((exit-code + (apply 'call-process + (append + (list pass-executable nil (current-buffer) nil) + args)))) + (if (zerop exit-code) + (buffer-string) + (error (s-chomp (buffer-string))))))) + +(defvar password-store-kill-ring-pointer nil + "The tail of of the kill ring ring whose car is the password.") + +(defun password-store-dir () + "Return password store directory." + (or (getenv "PASSWORD_STORE_DIR") + "~/.password-store")) + +(defun password-store--entry-to-file (entry) + "Return file name corresponding to ENTRY." + (concat (f-join (password-store-dir) entry) ".gpg")) + +(defun password-store--file-to-entry (file) + "Return entry name corresponding to FILE." + (f-no-ext (f-relative file (password-store-dir)))) + +(defun password-store-list (&optional subdir) + "List password entries under SUBDIR." + (unless subdir (setq subdir "")) + (let ((dir (f-join (password-store-dir) subdir))) + (if (f-directory? dir) + (mapcar 'password-store--file-to-entry + (f-files dir (lambda (file) (equal (f-ext file) "gpg")) t))))) + +;;;###autoload +(defun password-store-edit (entry) + "Edit password for ENTRY. + +This edits the password file directly in Emacs, so changes will +need to be commited manually if git is being used." + (interactive (list (completing-read "Password entry: " (password-store-list)))) + (find-file (password-store--entry-to-file entry))) + +;;;###autoload +(defun password-store-get (entry) + "Return password for ENTRY. + +Returns the first line of the password data." + (car (s-lines (password-store--run "show" entry)))) + +;;;###autoload +(defun password-store-clear () + "Clear password in kill ring." + (interactive) + (if password-store-kill-ring-pointer + (progn + (setcar password-store-kill-ring-pointer "") + (setq password-store-kill-ring-pointer nil) + (message "Password cleared.")))) + +;;;###autoload +(defun password-store-copy (entry) + "Add password for ENTRY to kill ring. + +Clear previous password from kill ring. Pointer to kill ring is +stored in `password-store-kill-ring-pointer'. Password is cleared +after `password-store-timeout' seconds." + (interactive (list (completing-read "Password entry: " (password-store-list)))) + (let ((password (password-store-get entry))) + (password-store-clear) + (kill-new password) + (setq password-store-kill-ring-pointer kill-ring-yank-pointer) + (message "Copied %s to the kill ring. Will clear in %s seconds." entry password-store-timeout) + (run-at-time password-store-timeout nil 'password-store-clear))) + +;;;###autoload +(defun password-store-generate (entry &optional password-length) + "Generate a new password for ENTRY with PASSWORD-LENGTH. + +Default PASSWORD-LENGTH is `password-store-password-length'." + (interactive (list (read-string "Password entry: ") + (when current-prefix-arg + (abs (prefix-numeric-value current-prefix-arg))))) + (unless password-length (setq password-length password-store-password-length)) + ;; A message with the output of the command is not printed because + ;; the output contains the password. + (password-store--run "generate" "-f" entry (number-to-string password-length)) + nil) + +;;;###autoload +(defun password-store-insert (entry password) + "Insert a new ENTRY containing PASSWORD." + (interactive (list (read-string "Password entry: ") + (read-passwd "Password: " t))) + (message (s-chomp (shell-command-to-string (format "echo %s | %s insert -m -f %s" password pass-executable entry))))) + +;;;###autoload +(defun password-store-remove (entry) + "Remove existing password for ENTRY." + (interactive (list (completing-read "Password entry: " (password-store-list)))) + (message (s-chomp (password-store--run "rm" "-f" entry)))) + +;;;###autoload +(defun password-store-url (entry) + "Browse URL stored in ENTRY. + +This will only browse URLs that start with http:// or http:// to +avoid sending a password to the browser." + (interactive (list (completing-read "Password entry: " (password-store-list)))) + (let ((url (password-store-get entry))) + (if (or (string-prefix-p "http://" url) + (string-prefix-p "https://" url)) + (browse-url url) + (error "%s" "String does not look like a URL")))) + +;;;###autoload +(defun password-store-version () + "Show version of pass executable." + (interactive) + (message (s-chomp (password-store--run "version")))) + +;;; password-store.el ends here diff --git a/contrib/related-projects.txt b/contrib/related-projects.txt index 43fb906..a8c3b3e 100644 --- a/contrib/related-projects.txt +++ b/contrib/related-projects.txt @@ -8,6 +8,3 @@ The following projects make use of pass: * passmenu: A dmenu script. - -* emacs-password-store: Emacs package. - -- cgit v1.2.3