54 lines
1.9 KiB
EmacsLisp
54 lines
1.9 KiB
EmacsLisp
(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)))
|
|
))
|
|
|
|
|