72 lines
2.2 KiB
EmacsLisp
72 lines
2.2 KiB
EmacsLisp
;;; keybindings.el --- Version control keybindings
|
|
;;
|
|
;; Copyright (c) 2012-2014 Sylvain Benner
|
|
;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
(defvar version-control--ms-doc-toggle 0
|
|
"Display a short doc when nil, full doc otherwise.")
|
|
|
|
(defvar version-control--ms-documentation-long
|
|
"
|
|
[?] toggle this help
|
|
[t] toggle diff signs in margin
|
|
Hunk Commands
|
|
[n] move to next hunk
|
|
[N] [p] move to previous hunk
|
|
[r] revert hunk
|
|
[s] stage hunk
|
|
[h] show hunk
|
|
Magit Commands
|
|
[w] stage changes in current file
|
|
[u] unstage changes in current file
|
|
[c] commit with popup
|
|
[C] direct commit
|
|
[D] diff popup
|
|
[P] push popup
|
|
[f] fetch popup
|
|
[F] pull popup
|
|
[l] log popup")
|
|
|
|
(defvar version-control--ms-documentation-short
|
|
"[n] next [N] [p] previous [r] revert [s] stage [h] show-hunk [w] stage-file [u] unstage-file [t] toggle margin [q] quit")
|
|
|
|
(defun version-control//ms-doc ()
|
|
"Return the docstring for the layouts micro-state."
|
|
(if (equal 1 version-control--ms-doc-toggle)
|
|
version-control--ms-documentation-long
|
|
version-control--ms-documentation-short))
|
|
|
|
(spacemacs|define-micro-state vcs
|
|
:doc (version-control//ms-doc)
|
|
:disable-evil-leader t
|
|
:use-minibuffer t
|
|
:evil-leader "g."
|
|
:on-enter (version-control/enable-margin)
|
|
:bindings
|
|
("?" version-control/show-help)
|
|
("C" magit-commit :exit t)
|
|
("d" magit-ediff-popup :exit t)
|
|
("D" magit-diff-unstaged :exit t)
|
|
("F" magit-pull-popup :exit t)
|
|
("P" magit-push-popup :exit t)
|
|
("c" magit-commit-popup :exit t)
|
|
("f" magit-fetch-popup :exit t)
|
|
("l" magit-log-popup :exit t)
|
|
("u" magit-unstage-file)
|
|
("w" magit-stage-file)
|
|
("n" version-control/next-hunk)
|
|
("N" version-control/previous-hunk)
|
|
("p" version-control/previous-hunk)
|
|
("r" version-control/revert-hunk)
|
|
("s" version-control/stage-hunk)
|
|
("h" version-control/show-hunk)
|
|
("t" spacemacs/toggle-version-control-margin)
|
|
("q" nil :exit t))
|
|
|