elpaca-ui-mode-map: move view commands to prefix key

Avoid capital/lowercase variants for commands which were vying for the same spot
in a single keymap (e.g. elpaca-merge and elpaca-manager).
Add binding for elpaca-mark-pull. This also has the benefit of avoiding most of
the evil-mode bindings one would be interested in for such a mode.

Author: progfolio

elpaca-ui.el

@@ -141,27 +141,34 @@ exclamation point to it. e.g. !#installed."
 ;;;; Variables:
 (defvar-local elpaca-ui--search-timer nil "Timer to debounce search input.")
 (defvar-local elpaca-ui--prev-entry-count nil "Number of previously recorded entries.")
+
+(defvar elpaca-ui-view-map
+  (let ((m (make-sparse-keymap)))
+    (define-key m (kbd "a") (elpaca-defsearch marked "#unique #marked"))
+    (define-key m (kbd "i") (elpaca-defsearch installed "#unique #installed"))
+    (define-key m (kbd "l") 'elpaca-log)
+    (define-key m (kbd "m") 'elpaca-manager)
+    (define-key m (kbd "o") (elpaca-defsearch orphaned "#unique #orphan"))
+    (define-key m (kbd "r") 'elpaca-ui-search-refresh)
+    (define-key m (kbd "t") (elpaca-defsearch tried "#unique #installed !#declared"))
+    m)
+  "Keymap for `elpaca-ui-mode' views.")
+
 (defvar elpaca-ui-mode-map
   (let ((m (make-sparse-keymap)))
     (define-key m (kbd "RET") 'elpaca-ui-info)
     (define-key m (kbd "!") 'elpaca-ui-send-input)
     (define-key m (kbd "+") 'elpaca-ui-show-hidden-rows)
-    (define-key m (kbd "I") (elpaca-defsearch installed "#unique #installed"))
-    (define-key m (kbd "M") (elpaca-defsearch marked   "#unique #marked"))
-    (define-key m (kbd "O") (elpaca-defsearch orphaned "#unique #orphan"))
-    (define-key m (kbd "R") 'elpaca-ui-search-refresh)
-    (define-key m (kbd "T") (elpaca-defsearch tried "#unique #installed !#declared"))
-    (define-key m (kbd "U") 'elpaca-ui-unmark)
     (define-key m (kbd "b") 'elpaca-ui-browse-package)
     (define-key m (kbd "d") 'elpaca-ui-mark-delete)
     (define-key m (kbd "f") 'elpaca-ui-mark-fetch)
+    (define-key m (kbd "g") elpaca-ui-view-map)
     (define-key m (kbd "i") 'elpaca-ui-mark-try)
-    (define-key m (kbd "l") 'elpaca-log)
-    (define-key m (kbd "m") 'elpaca-manager)
+    (define-key m (kbd "m") 'elpaca-ui-mark-merge)
+    (define-key m (kbd "p") 'elpaca-ui-mark-pull)
     (define-key m (kbd "r") 'elpaca-ui-mark-rebuild)
     (define-key m (kbd "s") 'elpaca-ui-search)
-    (define-key m (kbd "t") 'elpaca-status)
-    (define-key m (kbd "u") 'elpaca-ui-mark-merge)
+    (define-key m (kbd "u") 'elpaca-ui-unmark)
     (define-key m (kbd "v") 'elpaca-ui-visit)
     (define-key m (kbd "x") 'elpaca-ui-execute-marks)
     m)