fixed #166 - switched to guru-mode to enforce good Emacs navigation habits
This commit is contained in:
parent
610f50b716
commit
59f26f63f6
4 changed files with 5 additions and 22 deletions
|
@ -331,17 +331,6 @@ there's a region, all lines that region covers will be duplicated."
|
||||||
(unless (or (eql buffer (current-buffer)) (not (buffer-file-name buffer)))
|
(unless (or (eql buffer (current-buffer)) (not (buffer-file-name buffer)))
|
||||||
(kill-buffer buffer))))
|
(kill-buffer buffer))))
|
||||||
|
|
||||||
(defun prelude-restore-arrow-keys ()
|
|
||||||
"Restores arrow keys navigation in buffers."
|
|
||||||
(interactive)
|
|
||||||
(global-set-key [up] 'previous-line)
|
|
||||||
(global-set-key [down] 'next-line)
|
|
||||||
(global-set-key [left] 'backward-char)
|
|
||||||
(global-set-key [right] 'forward-char)
|
|
||||||
(global-set-key [M-right] 'right-word)
|
|
||||||
(global-set-key [M-left] 'left-word)
|
|
||||||
(message "Arrow keys navigation in buffers in now allowed."))
|
|
||||||
|
|
||||||
(require 'repeat)
|
(require 'repeat)
|
||||||
|
|
||||||
(defun make-repeatable-command (cmd)
|
(defun make-repeatable-command (cmd)
|
||||||
|
|
|
@ -198,6 +198,10 @@
|
||||||
(add-to-list 'yas/snippet-dirs prelude-snippets-dir)
|
(add-to-list 'yas/snippet-dirs prelude-snippets-dir)
|
||||||
(yas/global-mode 1)
|
(yas/global-mode 1)
|
||||||
|
|
||||||
|
;; became an Emacs guru in the keystroke department
|
||||||
|
(require 'guru-mode)
|
||||||
|
(guru-mode +1)
|
||||||
|
|
||||||
;; projectile is a project management mode
|
;; projectile is a project management mode
|
||||||
(require 'projectile)
|
(require 'projectile)
|
||||||
(projectile-global-mode t)
|
(projectile-global-mode t)
|
||||||
|
|
|
@ -85,16 +85,6 @@
|
||||||
;; toggle menu-bar visibility
|
;; toggle menu-bar visibility
|
||||||
(global-set-key (kbd "<f12>") 'menu-bar-mode)
|
(global-set-key (kbd "<f12>") 'menu-bar-mode)
|
||||||
|
|
||||||
;; real Emacs hackers don't use the arrow keys
|
|
||||||
(global-unset-key [up])
|
|
||||||
(global-unset-key [down])
|
|
||||||
(global-unset-key [left])
|
|
||||||
(global-unset-key [right])
|
|
||||||
|
|
||||||
;; use M-f and M-b instead
|
|
||||||
(global-unset-key [M-left])
|
|
||||||
(global-unset-key [M-right])
|
|
||||||
|
|
||||||
(global-set-key (kbd "C-x g") 'magit-status)
|
(global-set-key (kbd "C-x g") 'magit-status)
|
||||||
|
|
||||||
(global-set-key (kbd "C-=") 'er/expand-region)
|
(global-set-key (kbd "C-=") 'er/expand-region)
|
||||||
|
|
|
@ -42,7 +42,7 @@
|
||||||
(setq url-http-attempt-keepalives nil)
|
(setq url-http-attempt-keepalives nil)
|
||||||
|
|
||||||
(defvar prelude-packages
|
(defvar prelude-packages
|
||||||
'(ack-and-a-half expand-region gist helm helm-projectile magit magithub melpa
|
'(ack-and-a-half expand-region gist guru-mode helm helm-projectile magit magithub melpa
|
||||||
rainbow-mode volatile-highlights yasnippet zenburn-theme)
|
rainbow-mode volatile-highlights yasnippet zenburn-theme)
|
||||||
"A list of packages to ensure are installed at launch.")
|
"A list of packages to ensure are installed at launch.")
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue