From f66b316f8a027a30f127220f46bec4f743fe3dee Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 5 Jan 2022 11:24:46 -0600
Subject: Add +link-hint-map

---
 init.el            | 7 ++++++-
 lisp/+link-hint.el | 3 +++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/init.el b/init.el
index 8ebdb45..0248444 100644
--- a/init.el
+++ b/init.el
@@ -1081,7 +1081,12 @@ See also `crux-reopen-as-root-mode'."
   (:require +link-hint)
   (+link-hint-setup-open-secondary)
   (:option link-hint-avy-style 'at-full)
-  (:+key "M-l" #'+link-hint-open-link))
+  (:+key "M-l" +link-hint-map)
+  (:with-map +link-hint-map
+    (:bind "M-l" #'+link-hint-open-link "l" #'+link-hint-open-link
+           "M-m" #'link-hint-open-multiple-links
+           "m" #'link-hint-open-multiple-links
+           "M-c" #'link-hint-copy-link "c" #'link-hint-copy-link)))
 
 (setup (:straight marginalia)
   (marginalia-mode +1))
diff --git a/lisp/+link-hint.el b/lisp/+link-hint.el
index e9d215a..e2d2a84 100644
--- a/lisp/+link-hint.el
+++ b/lisp/+link-hint.el
@@ -22,6 +22,9 @@
                                              w3m-message-link)
   "Link types to define `:open-secondary' for.")
 
+(defvar +link-hint-map (make-sparse-keymap)
+  "Keymap for `link-hint' functionality.")
+
 (defun +link-hint-setup-open-secondary (&optional types)
   "Define the `:open-secondary' link-hint type for TYPES.
 If TYPES is nil, define it for `+link-hint-open-secondary-types'."
-- 
cgit 1.4.1-21-gabe81