jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

leftover from the previous commit

Browse source
This commit is contained in:
Bozhidar Batsov 2011-10-11 21:24:22 +03:00
parent df61675d06
commit 13ce41a3e3
4 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
init.el
View file

@ -38,13 +38,13 @@
(if (string= system-type "darwin") (if (string= system-type "darwin")
(push "/usr/local/bin" exec-path)) (push "/usr/local/bin" exec-path))
(defvar prelude-modules-dir (concat emacs-user-dir "modules/") (defvar prelude-modules-dir (concat user-emacs-directory "modules/")
"This directory houses all of the built-in Prelude module. You should "This directory houses all of the built-in Prelude module. You should
avoid modifying the configuration there.") avoid modifying the configuration there.")
(defvar prelude-vendor-dir (concat emacs-user-dir "vendor/") (defvar prelude-vendor-dir (concat user-emacs-directory "vendor/")
"This directory house Emacs Lisp packages that are not yet available in "This directory house Emacs Lisp packages that are not yet available in
ELPA (or Marmalade).") ELPA (or Marmalade).")
(defvar prelude-personal-dir (concat emacs-user-dir "personal/") (defvar prelude-personal-dir (concat user-emacs-directory "personal/")
"Users of Emacs Prelude are encouraged to keep their personal configuration "Users of Emacs Prelude are encouraged to keep their personal configuration
changes in this directory. All Emacs Lisp files there are loaded automatically changes in this directory. All Emacs Lisp files there are loaded automatically
by Prelude.") by Prelude.")
@ -78,7 +78,7 @@ by Prelude.")
(when (file-exists-p prelude-personal-dir) (when (file-exists-p prelude-personal-dir)
(mapc 'load (directory-files prelude-personal-dir nil "^[^#].*el$"))) (mapc 'load (directory-files prelude-personal-dir nil "^[^#].*el$")))
;; config changes made through the customize UI will be store here ;; config changes made through the customize UI will be store here
(setq custom-file (concat prelude-dir "custom.el")) (setq custom-file (concat prelude-personal-dir "custom.el"))
(load custom-file 'noerror) (load custom-file 'noerror)
;;; init.el ends here ;;; init.el ends here

2
modules/prelude-core.el
View file

@ -348,7 +348,7 @@ there's a region, all lines that region covers will be duplicated."
(defun prelude-recompile-init () (defun prelude-recompile-init ()
"Byte-compile all your dotfiles again." "Byte-compile all your dotfiles again."
(interactive) (interactive)
(byte-recompile-directory emacs-user-dir 0) (byte-recompile-directory user-emacs-directory 0)
(byte-recompile-directory prelude-vendor-dir 0)) (byte-recompile-directory prelude-vendor-dir 0))
(defun prelude-regen-autoloads (&optional force-regen) (defun prelude-regen-autoloads (&optional force-regen)

2
modules/prelude-editor.el
View file

@ -93,7 +93,7 @@
(savehist-mode t) ;; do customization before activation (savehist-mode t) ;; do customization before activation
;; save recent files ;; save recent files
(setq recentf-save-file (concat prelude-dir "recentf") ;; keep ~/ clean (setq recentf-save-file (concat user-emacs-directory "recentf") ;; keep ~/ clean
recentf-max-saved-items 100 ;; max save 100 recentf-max-saved-items 100 ;; max save 100
recentf-max-menu-items 15) ;; max 15 in menu recentf-max-menu-items 15) ;; max 15 in menu
(recentf-mode t) ;; turn it on (recentf-mode t) ;; turn it on

2
modules/prelude-ui.el
View file

@ -59,7 +59,7 @@
(fset 'yes-or-no-p 'y-or-n-p) (fset 'yes-or-no-p 'y-or-n-p)
;; custom Emacs 24 color themes support ;; custom Emacs 24 color themes support
(add-to-list 'custom-theme-load-path (concat prelude-dir "themes/")) (add-to-list 'custom-theme-load-path (concat user-emacs-directory "themes/"))
(load-theme 'zenburn t) (load-theme 'zenburn t)
(provide 'prelude-ui) (provide 'prelude-ui)