Add prelude-find-user-init-file

This commit is contained in:
Bozhidar Batsov 2013-09-27 11:18:47 +03:00
parent aac5f3df84
commit 879d3f3470
2 changed files with 6 additions and 0 deletions

View file

@ -533,5 +533,10 @@ This follows freedesktop standards, should work in X servers."
'(2 "_NET_WM_STATE_FULLSCREEN" 0)) '(2 "_NET_WM_STATE_FULLSCREEN" 0))
(error "Only X server is supported"))) (error "Only X server is supported")))
(defun prelude-find-user-init-file ()
"Edit the `user-init-file', in another window."
(interactive)
(find-file-other-window user-init-file))
(provide 'prelude-core) (provide 'prelude-core)
;;; prelude-core.el ends here ;;; prelude-core.el ends here

View file

@ -64,6 +64,7 @@
(define-key map (kbd "C-c h") 'helm-prelude) (define-key map (kbd "C-c h") 'helm-prelude)
(define-key map (kbd "C-c +") 'prelude-increment-integer-at-point) (define-key map (kbd "C-c +") 'prelude-increment-integer-at-point)
(define-key map (kbd "C-c -") 'prelude-decrement-integer-at-point) (define-key map (kbd "C-c -") 'prelude-decrement-integer-at-point)
(define-key map (kbd "C-c I") 'prelude-find-user-init-file)
;; make some use of the Super key ;; make some use of the Super key
(define-key map [?\s-d] 'projectile-find-dir) (define-key map [?\s-d] 'projectile-find-dir)
(define-key map [?\s-p] 'projectile-switch-project) (define-key map [?\s-p] 'projectile-switch-project)