From bc948c38c215aed695e2004406088313c67e9345 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 27 Jul 2024 17:44:43 -0400 Subject: [PATCH] refactor(vc): remove hydra hydra was removed in b08c2c7, so I'm no longer supporting hydra workflows. Amend: b08c2c745fd2 --- modules/emacs/vc/autoload/hydra.el | 44 ------------------------------ 1 file changed, 44 deletions(-) delete mode 100644 modules/emacs/vc/autoload/hydra.el diff --git a/modules/emacs/vc/autoload/hydra.el b/modules/emacs/vc/autoload/hydra.el deleted file mode 100644 index d8c84d1e3..000000000 --- a/modules/emacs/vc/autoload/hydra.el +++ /dev/null @@ -1,44 +0,0 @@ -;;; emacs/vc/autoload/hydra.el -*- lexical-binding: t; -*- -;;;###if (modulep! :ui hydra) - -;;;###autoload (autoload '+vc/smerge-hydra/body "emacs/vc/autoload/hydra" nil t) -(defhydra +vc/smerge-hydra (:hint nil - :pre (if (not smerge-mode) (smerge-mode 1)) - ;; Disable `smerge-mode' when quitting hydra if - ;; no merge conflicts remain. - :post (smerge-auto-leave)) - " - [smerge] - Movement Keep Diff Other - ╭─────────────────────────────────────────────────────────╯ - ^_g_^ [_b_] base [_<_] upper/base [_C_] Combine - ^_C-k_^ [_u_] upper [_=_] upper/lower [_r_] resolve - ^_k_ ↑^ [_l_] lower [_>_] base/lower [_R_] remove - ^_j_ ↓^ [_a_] all [_H_] hightlight [_n_] next in project - ^_C-j_^ [_RET_] current [_E_] ediff ╭────────── - ^_G_^ │ [_q_] quit -" - ("g" (progn (goto-char (point-min)) (smerge-next))) - ("G" (progn (goto-char (point-max)) (smerge-prev))) - ("C-j" smerge-vc-next-conflict) - ("C-k" smerge-prev) - ("j" next-line) - ("k" previous-line) - ("b" smerge-keep-base) - ("u" smerge-keep-upper) - ("l" smerge-keep-lower) - ("a" smerge-keep-all) - ("RET" smerge-keep-current) - ("\C-m" smerge-keep-current) - ("<" smerge-diff-base-upper) - ("=" smerge-diff-upper-lower) - (">" smerge-diff-base-lower) - ("H" smerge-refine) - ("E" smerge-ediff) - ("C" smerge-combine-with-next) - ("r" smerge-resolve) - ("R" smerge-kill-current) - ;; Often after calling `smerge-vc-next-conflict', the cursor will land at - ;; the bottom of the window - ("n" (progn (smerge-vc-next-conflict) (recenter-top-bottom (/ (window-height) 8)))) - ("q" nil :color blue))