diff options
| author | Case Duckworth | 2022-01-05 11:24:46 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-05 11:24:46 -0600 |
| commit | f66b316f8a027a30f127220f46bec4f743fe3dee (patch) | |
| tree | 7885a1d2971aca3095f93f1ab948e54e1e0d15d5 | |
| parent | Don't ensure functions in :+key, :+leader, :+menu (diff) | |
| download | emacs-f66b316f8a027a30f127220f46bec4f743fe3dee.tar.gz emacs-f66b316f8a027a30f127220f46bec4f743fe3dee.zip | |
Add +link-hint-map
| -rw-r--r-- | init.el | 7 | ||||
| -rw-r--r-- | lisp/+link-hint.el | 3 |
2 files changed, 9 insertions, 1 deletions
| 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'." | |||
| 1081 | (:require +link-hint) | 1081 | (:require +link-hint) |
| 1082 | (+link-hint-setup-open-secondary) | 1082 | (+link-hint-setup-open-secondary) |
| 1083 | (:option link-hint-avy-style 'at-full) | 1083 | (:option link-hint-avy-style 'at-full) |
| 1084 | (:+key "M-l" #'+link-hint-open-link)) | 1084 | (:+key "M-l" +link-hint-map) |
| 1085 | (:with-map +link-hint-map | ||
| 1086 | (:bind "M-l" #'+link-hint-open-link "l" #'+link-hint-open-link | ||
| 1087 | "M-m" #'link-hint-open-multiple-links | ||
| 1088 | "m" #'link-hint-open-multiple-links | ||
| 1089 | "M-c" #'link-hint-copy-link "c" #'link-hint-copy-link))) | ||
| 1085 | 1090 | ||
| 1086 | (setup (:straight marginalia) | 1091 | (setup (:straight marginalia) |
| 1087 | (marginalia-mode +1)) | 1092 | (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 @@ | |||
| 22 | w3m-message-link) | 22 | w3m-message-link) |
| 23 | "Link types to define `:open-secondary' for.") | 23 | "Link types to define `:open-secondary' for.") |
| 24 | 24 | ||
| 25 | (defvar +link-hint-map (make-sparse-keymap) | ||
| 26 | "Keymap for `link-hint' functionality.") | ||
| 27 | |||
| 25 | (defun +link-hint-setup-open-secondary (&optional types) | 28 | (defun +link-hint-setup-open-secondary (&optional types) |
| 26 | "Define the `:open-secondary' link-hint type for TYPES. | 29 | "Define the `:open-secondary' link-hint type for TYPES. |
| 27 | If TYPES is nil, define it for `+link-hint-open-secondary-types'." | 30 | If TYPES is nil, define it for `+link-hint-open-secondary-types'." |