From 1005bb6febe2a54cc0f9f91722f07a59c3750a07 Mon Sep 17 00:00:00 2001 From: Jeremy Dormitzer Date: Mon, 22 Apr 2024 12:52:58 -0400 Subject: [PATCH] Add embark keymap for Forge actions --- emacs/.emacs.d/config/init-completion.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/emacs/.emacs.d/config/init-completion.el b/emacs/.emacs.d/config/init-completion.el index 8d5f96f..6baf16a 100644 --- a/emacs/.emacs.d/config/init-completion.el +++ b/emacs/.emacs.d/config/init-completion.el @@ -112,6 +112,18 @@ targets." "U" #'password-store-url) (add-to-list 'embark-keymap-alist '(password-store . embark-password-store-actions)) (add-to-list 'embark-target-injection-hooks '(xref-find-references embark--ignore-target)) + (with-eval-after-load 'forge + (defun embark-target-finder-forge () + "Identify Forge commits/issues/PRs at point." + (when-let ((target (forge--browse-target))) + `(forge . ,(format "%s" target))))) + (add-to-list 'embark-target-finders #'embark-target-finder-forge) + (defvar-keymap embark-forge-actions + :doc "Keymap for actions for forge." + :parent embark-general-map + "RET" #'forge-browse + "y" #'forge-copy-url-at-point-as-kill) + (add-to-list 'embark-keymap-alist '(forge . embark-forge-actions)) :general ((emacs normal motion insert visual) "C-." #'embark-act) ((emacs normal motion insert visual) "M-." #'embark-dwim)