contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

And soon enough, god-mode

This commit is contained in:
Kashish Sharma 2015-03-24 04:08:03 +05:30
parent 3af9b54292
commit 114de6d2a8
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
init.el
View File

@ -5,6 +5,7 @@
(add-to-list 'load-path "~/.emacs.d/elisp-git/git-modes/")
(add-to-list 'load-path "~/.emacs.d/elisp-git/magit/")
(add-to-list 'load-path "~/.emacs.d/elisp-git/yafolding.el/")
(add-to-list 'load-path "~/.emacs.d/elisp-git/god-mode/")
(add-to-list 'load-path "~/.emacs.d/user/")
;;;; UTF-8 magic
@ -139,7 +140,6 @@
;;(set-frame-parameter (selected-frame) 'alpha '(<active> [<inactive>]))
;(set-frame-parameter (selected-frame) 'alpha '(90 50))
;(add-to-list 'default-frame-alist '(alpha 90 50))
;(add-to-list 'load-path "~/.emacs.d/elisp/")
;;;; MELPA
;(require 'package)
@ -184,14 +184,25 @@
(require 'chicken)
;;;; God Mode
;(require 'god-mode)
(require 'god-mode)
(global-set-key (kbd "<escape>") 'god-local-mode)
(god-mode-all)
(defun my-update-cursor ()
(setq cursor-type (if (or god-local-mode buffer-read-only)
'box
'bar)))
(add-hook 'god-mode-enabled-hook 'my-update-cursor)
(add-hook 'god-mode-disabled-hook 'my-update-cursor)
;;;; Evil mode
(require 'evil)
(evil-mode 1)
;(evil-mode 1)
;; Want something to switch between evil and god-model, instead of this.
;; They say there's a plugin for it...
(global-set-key (kbd "C-x e") (evil-mode))
(global-set-key (kbd "C-x e") 'evil-mode)
;(define-key evil-normal-state-map (kbd "<tab>") 'forward-button)
(define-key evil-normal-state-map "zR" 'yafolding-show-all)
(define-key evil-normal-state-map "zM" 'yafolding-hide-all)
(define-key evil-normal-state-map "zo" 'yafolding-show-element)