(defvar paradox-packages
'(
paradox
)
"List of all packages to install and/or initialize. Built-in packages
which require an initialization must be listed explicitly in the list.")
(defvar paradox-excluded-packages '()
"List of packages to exclude.")
;; For each package, define a function paradox/init-<package-paradox>
;;
(defun paradox/init-paradox ()
(use-package paradox
:defer t
:init
(progn
(defun spacemacs/paradox-list-packages ()
"Load depdendencies for auth and open the package list."
(interactive)
(require 'epa-file)
(require 'auth-source)
(when (and (not (boundp 'paradox-github-token))
(file-exists-p "~/.authinfo.gpg"))
(let ((authinfo-result (car (auth-source-search
:max 1
:host "github.com"
:port "paradox"
:user "paradox"
:require '(:secret)))))
(let ((paradox-token (plist-get authinfo-result :secret)))
(setq paradox-github-token (if (functionp paradox-token)
(funcall paradox-token)
paradox-token)))))
(paradox-list-packages nil))
(add-to-list 'evil-emacs-state-modes 'paradox-menu-mode)
(evil-add-hjkl-bindings paradox-menu-mode-map 'emacs
"/" 'evil-search-forward
"n" (lookup-key evil-normal-state-map "n")
"N" (lookup-key evil-normal-state-map "N")
"H" 'paradox-menu-quick-help
"J" 'paradox-next-describe
"K" 'paradox-previous-describe
"L" 'paradox-menu-view-commit-list)
(eval-after-load "evil-leader"
(evil-leader/set-key
"aP" 'spacemacs/paradox-list-packages)))
))
