fixed #166 - switched to guru-mode to enforce good Emacs navigation habits

This commit is contained in:
Bozhidar Batsov 2012-06-14 15:12:33 +03:00
parent 610f50b716
commit 59f26f63f6
4 changed files with 5 additions and 22 deletions

View file

@ -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)

View file

@ -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)

View file

@ -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)

View file

@ -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.")