1 files changed, 102 insertions, 0 deletions
diff --git a/.config/emacs/lisp/evil-collection/modes/pass/evil-collection-pass.el b/.config/emacs/lisp/evil-collection/modes/pass/evil-collection-pass.el
new file mode 100644
index 0000000..02457d3
--- /dev/null
+++ b/.config/emacs/lisp/evil-collection/modes/pass/evil-collection-pass.el
@@ -0,0 +1,102 @@
+;;; evil-collection-pass.el --- Evil bindings for pass-mode -*- lexical-binding: t -*-
+
+;; Copyright (C) 2021 James Nguyen
+
+;; Author: James Nguyen <james@jojojames.com>
+;; Maintainer: James Nguyen <james@jojojames.com>
+;; Pierre Neidhardt <mail@ambrevar.xyz>
+;; URL: https://github.com/emacs-evil/evil-collection
+;; Version: 0.0.1
+;; Package-Requires: ((emacs "26.3"))
+;; Keywords: evil, pass, tools
+
+;; 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 <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;; Evil bindings for `pass-mode'.
+
+;;; Code:
+(require 'evil-collection)
+(require 'pass nil t)
+
+(defvar pass-mode-map)
+
+(declare-function pass--display-keybinding "pass")
+
+(defconst evil-collection-pass-maps '(pass-mode-map))
+
+(defvar evil-collection-pass-command-to-label
+  '((pass-copy-field . "yf")
+    (pass-copy-username . "yn")
+    (pass-copy-url . "yu"))
+  "Alist holding labels to be used in `pass' header.")
+
+(defun evil-collection-pass-display-keybinding (f &rest args)
+  "A version of `pass--display-keybinding' that handles displaying
+keybindings listed in `evil-collection-pass-command-to-label'."
+  (if (alist-get (car args) evil-collection-pass-command-to-label)
+      (insert
+       (format
+        "%8s %-13s \t "
+        (format "%s"
+                (propertize
+                 (format
+                  "<%s>"
+                  (alist-get (car args)
+                             evil-collection-pass-command-to-label))
+                 'face 'font-lock-constant-face))
+        (cadr args)))
+    (apply f args)))
+
+;;;###autoload
+(defun evil-collection-pass-setup ()
+  "Set up `evil' bindings for `pass-mode'."
+
+  (advice-add 'pass--display-keybinding
+              :around 'evil-collection-pass-display-keybinding)
+
+  (evil-collection-define-operator-key 'yank 'pass-mode-map
+    "f" 'pass-copy-field
+    "n" 'pass-copy-username
+    "u" 'pass-copy-url)
+
+  ;; https://github.com/NicolasPetton/pass/pull/47
+  (when (fboundp 'pass-edit)
+    (evil-collection-define-key 'normal 'pass-mode-map
+      "E" 'pass-edit))
+
+  (evil-collection-define-key 'normal 'pass-mode-map
+    "gj" 'pass-next-entry
+    "gk" 'pass-prev-entry
+    (kbd "C-j") 'pass-next-entry
+    (kbd "C-k") 'pass-prev-entry
+    (kbd "]]") 'pass-next-directory
+    (kbd "[[") 'pass-prev-directory
+    "d" 'pass-kill
+    "x" 'pass-kill
+    "s" 'isearch-forward
+    "J" 'pass-goto-entry
+    "g?" 'describe-mode
+    "gr" 'pass-update-buffer
+    "i" 'pass-insert
+    "I" 'pass-insert-generated
+    "Y" 'pass-copy
+    "r" 'pass-rename
+    "R" 'pass-rename
+    "o" 'pass-otp-options
+    (kbd "RET") 'pass-view
+    "q" 'pass-quit))
+
+(provide 'evil-collection-pass)
+;;; evil-collection-pass.el ends here