emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add: feature/version-control: make smerge hydra prettier

Browse source
This commit is contained in:
Benjamin Andresen 2017-07-02 17:50:48 +02:00
parent 228f478f99
commit 8479e1c8b9
1 changed files with 16 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

28
modules/feature/version-control/config.el
View file

@ -31,25 +31,27 @@
(defalias 'smerge-diff-upper-lower 'smerge-diff-mine-other) (defalias 'smerge-diff-upper-lower 'smerge-diff-mine-other)
(defalias 'smerge-diff-base-lower 'smerge-diff-base-other)) (defalias 'smerge-diff-base-lower 'smerge-diff-base-other))
(defhydra +hydra-smerge (:color pink (defhydra +hydra-smerge (:hint nil
:hint nil
:pre (smerge-mode 1) :pre (smerge-mode 1)
;; Disable `smerge-mode' when quitting hydra if ;; Disable `smerge-mode' when quitting hydra if
;; no merge conflicts remain. ;; no merge conflicts remain.
:post (smerge-auto-leave)) :post (smerge-auto-leave))
" "
^Move^ ^Keep^ ^Diff^ ^Other^ ╭────────┐
^^-----------^^-------------------^^---------------------^^------- Movement Keep Diff Other │ smerge │
_g_ _b_ase _<_: upper/base _C_ombine ╭─────────────────────────────────────────────────┴────────╯
^^ _u_pper _=_: upper/lower _r_esolve ^_g_^ [_b_] base [_<_] upper/base [_C_] Combine
_j_ _l_ower _>_: base/lower _R_emove ^_C-k_^ [_u_] upper [_=_] upper/lower [_r_] resolve
_k_ _a_ll _H_ighlight diff ^_k_ ↑^ [_l_] lower [_>_] base/lower [_R_] remove
^^ _RET_: current _E_diff ^_j_ ↓^ [_a_] all [_H_] hightlight
_G_ " ^_C-j_^ [_RET_] current [_E_] ediff ╭──────────
^_G_^ │ [_q_] quit"
("g" (progn (goto-char (point-min)) (smerge-next))) ("g" (progn (goto-char (point-min)) (smerge-next)))
("G" (progn (goto-char (point-max)) (smerge-prev))) ("G" (progn (goto-char (point-max)) (smerge-prev)))
("j" smerge-next) ("C-j" smerge-next)
("k" smerge-prev) ("C-k" smerge-prev)
("j" next-line)
("k" previous-line)
("b" smerge-keep-base) ("b" smerge-keep-base)
("u" smerge-keep-upper) ("u" smerge-keep-upper)
("l" smerge-keep-lower) ("l" smerge-keep-lower)
@ -64,4 +66,4 @@ _G_ "
("C" smerge-combine-with-next) ("C" smerge-combine-with-next)
("r" smerge-resolve) ("r" smerge-resolve)
("R" smerge-kill-current) ("R" smerge-kill-current)
("q" nil "cancel" :color blue)))) ("q" nil :color blue))))