TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
spacemacs/layers/+source-control/git/funcs.el

73 lines
2.4 KiB
EmacsLisp
Raw Normal View History

git: remove all popup key binding for magit-dispatch-popup The `SPC g` command prefix was to much overloaded for actions which are already available in discoverable manner in magit. So I decided to remove all the actions reachable from magit-dispatch-popup from `SPC g`. magit-dispatch-popup is available under `SPC g m`. This increases the key binding sequences but OTHO it makes everythings consistent (same key sequence behind `SPC g s` and `SPC g m`) and we prefer consistency. This refactoring free up a lot of precious key bindings we can use for commands that are not available in Magit.
2016-07-05 02:35:05 +00:00
;;; funcs.el --- Colors Layer functions File
;;
Happy New Year 2018!
2018-01-04 07:00:25 +00:00
;; Copyright (c) 2012-2018 Sylvain Benner & Contributors
git: remove all popup key binding for magit-dispatch-popup The `SPC g` command prefix was to much overloaded for actions which are already available in discoverable manner in magit. So I decided to remove all the actions reachable from magit-dispatch-popup from `SPC g`. magit-dispatch-popup is available under `SPC g m`. This increases the key binding sequences but OTHO it makes everythings consistent (same key sequence behind `SPC g s` and `SPC g m`) and we prefer consistency. This refactoring free up a lot of precious key bindings we can use for commands that are not available in Magit.
2016-07-05 02:35:05 +00:00
;;
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3
;; magit
(defun spacemacs/magit-toggle-whitespace ()
"Toggle whitespace in `magit-diff-mode'."
(interactive)
(if (member "-w" (if (derived-mode-p 'magit-diff-mode)
magit-refresh-args
magit-diff-section-arguments))
(spacemacs//magit-dont-ignore-whitespace)
(spacemacs//magit-ignore-whitespace)))
(defun spacemacs//magit-ignore-whitespace ()
"Ignore whitespace in `magit-diff-mode'"
(add-to-list (if (derived-mode-p 'magit-diff-mode)
'magit-refresh-args 'magit-diff-section-arguments) "-w")
(magit-refresh))
(defun spacemacs//magit-dont-ignore-whitespace ()
"Don't ignore whitespace in `magit-diff-mode'"
(setq magit-diff-options
(remove "-w"
(if (derived-mode-p 'magit-diff-mode)
magit-refresh-args
magit-diff-section-arguments))) (magit-refresh))
Move spacemacs/git-link-* functions to git layer
2016-10-17 13:22:55 +00:00
(defun spacemacs/git-link-copy-url-only ()
"Only copy the generated link to the kill ring."
(interactive)
(let (git-link-open-in-browser)
(call-interactively 'spacemacs/git-link)))
(defun spacemacs/git-link-commit-copy-url-only ()
"Only copy the generated link to the kill ring."
(interactive)
(let (git-link-open-in-browser)
(call-interactively 'spacemacs/git-link-commit)))
(defun spacemacs/git-link ()
"Allow the user to run git-link in a git-timemachine buffer."
(interactive)
(require 'git-link)
(if (and (boundp 'git-timemachine-revision)
git-timemachine-revision)
(cl-letf (((symbol-function 'git-link--branch)
(lambda ()
(car git-timemachine-revision))))
(call-interactively 'git-link))
(call-interactively 'git-link)))
(defun spacemacs/git-link-commit ()
"Allow the user to run git-link-commit in a git-timemachine buffer."
(interactive)
(require 'git-link)
(if (and (boundp 'git-timemachine-revision)
git-timemachine-revision)
(cl-letf (((symbol-function 'word-at-point)
(lambda ()
(car git-timemachine-revision))))
(call-interactively 'git-link-commit))
(call-interactively 'git-link-commit)))